authorizeUser('editor') ?>
use File::Spec; use Image::Size; use upload; ## definicja katalogu podstawowego i tymczasowego hasha my $basedir = q|/home/esculap/www|; my $subdir = q|pic/news|; my @types = ('.jpg'); my $ext_error = 1; if ($param{'upload'}) { my $directory = File::Spec->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'}; } ?> opendir(DIR,File::Spec->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| |