catfile($basedir,$subdir); ( my $full_filename = $param{'upload'} ) =~ s/^.*\\//g; my ($filename,$extension) = split /\./,$full_filename; foreach my $type (@types){ if ($type eq ".".$extension){ $ext_error=0; } } my $new_file = File::Spec->catfile($directory,$filename); if (!($ext_error)){ uploadFile('upload',\@types, $new_file ,100000) or die "nie mogę uploadować $filename.$extension"; print qq|Załadowano plik |.$full_filename; } } if ($param{'deletefile'}){ my $delete_file = File::Spec->catfile($basedir,$subdir,$param{'deletefile'}); unlink("$delete_file"); print qq|Usunięto plik |.$param{'deletefile'}; } ?>
Wróć - | if $param{'exit'}; ?> Odśwież - Wstaw plik:
catfile($basedir,$subdir)) or die "Nie ma katalogu: ".File::Spec->catfile($basedir,$subdir); my @file_list = grep!/^\.\.?$|^img.?/, readdir DIR; closedir(DIR); print qq|
Lista plików w katalogu $subdir
Nazwa typ Rozmiar Data modyfikacji Operacje Nowość |; my @stats; my $size; my $mod_date; my $id; @file_list = reverse @file_list; foreach my $file(@file_list){ @stats = stat File::Spec->catfile($basedir,$subdir,$file); $size = @stats[7]/1000; $mod_date = ((localtime(@stats[9]))[5]+1900)."-".((localtime(@stats[9]))[4]+1)."-".(localtime(@stats[9]))[3]; $mod_date.= qq|  |.(localtime(@stats[9]))[2].":".(localtime(@stats[9]))[1].""; $id = ""; if (-f File::Spec->catfile($basedir,$subdir,$file)){ my ($width, $height) = imgsize(File::Spec->catfile($basedir,$subdir,$file)); print qq|
$file plik $size kB $mod_date Usuń |; if ($file =~ m/small/){ my $dbh=$p->{'dbh'}; my $id = (split(/_/,$file))[0]; my $title=$dbh->selectrow_array(qq|select news_title from main_news where id_news=$id|); print qq| $title |; }else { print qq|Obejrzyj |; } foreach my $st(@stats){ # print $st," "; } }else{ print qq| |; } } print qq|
|; ?>