- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
- 41
- 42
- 43
- 44
- 45
- 46
- 47
- 48
- 49
- 50
if ($key eq $default_key){
my $author = $default_author;
if ($release){
if (length $release <= $max_release){
if (length $description <= $max_description){
if ($filename){
if (clearfn(\$filename) eq 1){
if (! -e "$files_dir/$filename"){
$release = clear($release);
$description = clear($description);
$description = bb($description);
open FILE, '>>db.txt' or die $!;
print FILE "$release\t$filename\t$description\t$author\t" . ftime() . "\n";
close FILE;
open FILE, ">$files_dir/$filename" or die "$!";
binmode FILE;
while (<$filehandle>){
print FILE;
}
close FILE;
$result = 'Файл успешно добавлен!';
rss();
}
else {
$result = 'Ошибка: Файл с таким именем уже загружен!';
}
}
else {
$result = 'Ошибка: Недопустимое расширение файла!';
}
}
else {
$result = 'Ошибка: Нет файла!';
}
}
else {
$result = "Ошибка: В описании должно быть не более $max_description символов!";
}
}
else {
$result = "Ошибка: В названии должно быть не более $max_release символов!";
}
}
else {
$result = 'Ошибка: Нет названия!';
}
}
else {
$result = 'Ошибка: ';
}
Кнут продвигал literate programming
Можно конечно переписать как
Так мы избавимся от лесенки, но вы все начнете говорить что множественные ретёрны это плохо, правда?