- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 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 = 'Ошибка: ';
}
Vindicar 14.06.2012 13:45 # +1
bormand 14.06.2012 14:01 # 0
TarasB 14.06.2012 14:06 # +2
defecate-plusplus 14.06.2012 14:12 # +3
roman-kashitsyn 14.06.2012 14:15 # +5
Кнут продвигал literate programming
3.14159265 14.06.2012 14:19 # +2
roskomgovno 15.07.2018 00:44 # 0
Можно конечно переписать как
Так мы избавимся от лесенки, но вы все начнете говорить что множественные ретёрны это плохо, правда?
MAKAKA 30.10.2019 21:11 # 0
guest8 30.10.2019 21:26 # −999
PACTPOBblu_nemyx 30.10.2019 21:28 # 0
guest8 30.10.2019 21:34 # −999
guest8 30.10.2019 21:35 # −999
Booster 03.11.2019 00:49 # 0
whois 03.11.2019 01:35 # 0
312312 24.08.2021 20:38 # 0