| #!/usr/bin/perl
$maxnum = 9;
$wwwdir = 'teiten';
$realdir = '/home/oya2/www/';
$homedir = "$realdir$wwwdir";
$delnum = 0;
$remmes = '';
@dellist;
@acclist;
$htmlstr = '';
$page = $ENV{REQUEST_URI};
$page =~ s/^.*$wwwdir///;
$page =~ s/[^0-9]//g;
if ($page > $maxnum or $page < 0 or !$page) {
$page = 0;
}
@flist = <$homedir/*.jpg>;
@slist = reverse sort(@flist);
$i = 0;
foreach (@slist) {
local $target = $_;
if ($i > $maxnum) {
$dellist[$i-$maxnum-1] = $target;
} else {
$acclist[$i] = $target;
$acclist[$i] =~ s/$homedir///;
}
++$i;
}
@mes = &frem(@dellist);
$nowimg = "<img src="$acclist[$page]"><br>
";
$nowflname = $acclist[$page];
if ($page) {
local $prepage = $page-1;
$preimg = '<a href="?XX">←(XX)</A>';
$preimg =~ s/XX/$prepage/g;
} else {
$preimg = '';
}
if ($page < $maxnum) {
local $nextpage = $page+1;
$nextimg = '<a href="?XX">→(XX)</A>';
$nextimg =~ s/XX/$nextpage/g;
} else {
$nextimg = '';
}
&gethtml;
print "Content-type: text/html
$htmlstr";
exit;
##########0:削除対象のファイル名(フルパス)
sub frem {
local $successnum = 0;
local $errstr = '';
foreach (@_) {
$target = $_;
local $state = unlink($target);
if ($state) {
++$successnum;
} else {
$target =~ s/$homedir///;
$errstr .= "$target
";
}
}
return ($successnum,$errstr);
}
sub gethtml {
$htmlstr = <<END;
<html>
<head>
<meta http-equiv="Content-Type" content="text/html;
charset=shift_jis">
<title>CAM</title>
</head>
<body>
$nowimg<BR>
$preimg $nowflname $nextimg<br>
<p>対象ファイル数:$i<br>
削除成功ファイル数:$mes[0]<br>
削除失敗ファイル名:$mes[1]<br>
<body>
<html>
END
}
|
最新ニュース
