| [新規投稿] [更新] [終了] |
\n"; if ($COOKIE{'RC'} ne '' && $COOKIE{'RC'} < $NUMBER && $in{'search'} eq '') { print <<"EOF";
\n"; } if ($in{'search'} ne '') { print <<"EOF";
EOF } if (!@PICKUP) { if ($in{'search'} ne '') { print "抽出されたデータはありません.
\n"; } else { print "
このページにデータはありません.
\n"; } } else { ($review,$pwd,$date,$name,$email,$host,$subject,$how,$link,$base,$res) = split(/\t/,$PICKUP[0]); if ($def > $#PICKUP + 1) { $def = $#PICKUP + 1; } print "
↓新規投稿
$msg_btm
※最初に投稿した時の削除用パスワードの入力が必要です.
\n";
print "\n";
if ($how == 1) { print " \n"; }
elsif ($how == 2) { $value =~ s/\r/ \n"; }
else { print "$value \n"; }
print "$value
\r/g; print "$value
\n"; foreach $r (split(/\,/,$res)) { ($pwd,$date,$name,$email,$host,$subject,$how,$link,$base,$res) = split(/\t/,$DAT{$r}); if (open(IN,"$data_dir$r\.txt")) { @lines =\n"; } print &HtmlBot; if (-e $lockfile) { unlink $lockfile; } if ($pl == 4) { dbmclose(%DAT); } else { eval 'untie %DAT;'; } exit; } sub decode_cookie { #---------------------------------------------------------------- # 関数 クッキーデータの抽出/出力フォーマット # 引数 クッキー名 # 戻値 なし (%COOKIE) #---------------------------------------------------------------- local($name) = @_; local($cookies); ($secg,$ming,$hourg,$mdayg,$mong,$yearg,$wdayg,$ydayg,$isdstg) = gmtime(time + 30*24*60*60); $y0="Sunday"; $y1="Monday"; $y2="Tuesday"; $y3="Wednesday"; $y4="Thursday"; $y5="Friday"; $y6="Saturday"; @youbi = ($y0,$y1,$y2,$y3,$y4,$y5,$y6); $m0="Jan"; $m1="Feb"; $m2="Mar"; $m3="Apr"; $m4="May"; $m5="Jun"; $m6="Jul"; $m7="Aug"; $m8="Sep"; $m9="Oct"; $m10="Nov"; $m11="Dec"; @monthg = ($m0,$m1,$m2,$m3,$m4,$m5,$m6,$m7,$m8,$m9,$m10,$m11); $date_gmt = sprintf("%s\, %02d\-%s\-%04d %02d:%02d:%02d GMT",$youbi[$wdayg],$mdayg,$monthg[$mong],$yearg +1900,$hourg,$ming,$secg); $cookies = $ENV{'HTTP_COOKIE'}; @pairs = split(/;/,$cookies); foreach $pair (@pairs) { ($key,$val) = split(/=/,$pair,2); $key =~ s/ //g; if ($key eq $name) { @pairs = split(/,/,$val); foreach $pair (@pairs) { ($key,$val) = split(/:/,$pair,2); $COOKIE{$key} = $val; } last; } } } sub setpwd_form { print &PrintHeader; print <<"EOF";; close(IN); $value = join ('',@lines); } else { $value = '《データ(本文)が見つからないか読み出せません》'; } $value =~ s/"/\"/g; $value =~ s/&/\&/g; if ($link == 1) { $value =~ s/(https?|ftp|gopher|telnet|whois|news)\:([\w|\:\!\#\$\%\=\&\-\^\`\\\|\@\~\[\{\]\}\;\+\*\,\.\?\/]+)/$1\:$2<\/a>/ig; } print "
\n"; if ($view_host && $host ne '') { $host = "[$host]"; } else { $host = ""; } if ($email ne '') { print "No.$r by $name $host"; } else { print "No.$r by $name $host"; } print " at $date\n"; if ($how == 1) { print "
$value\n"; } elsif ($how == 2) { $value =~ s/\r/
\r/g; print "$value\n"; } else { print "$value
\n"; } } print "
[戻る]
[インデックスデータのバックアップ]
[バックアップデータのリストア]
動作中のＤＢＭの種類：$dbm_type
EOF
print &HtmlBot;
if (-e $lockfile) { unlink $lockfile; }
exit;
}
sub setpwd {
if (!-z $pwd_file) {
if (!open(READ,$pwd_file)) { &error('エラー','管理者用パスワードファイルが読み出せません.'); }
$master =
EOF
print <<"EOF";
EOF
printf "ACCESSTIME: %.3f seconds. \n", $end - $start;
print "[戻る]\n";
print "\n";
}
sub restoref {
if (-e $lockfile) { unlink $lockfile; }
print "Content-type: text/html\n\n";
print <<"EOF";
もう一度実行してみてください.'); }
sleep(2);
}
}
sub lock2 {
$c = 0;
while(-f "$lockfile") {
$c++;
if ($c >= 3) { &error('リトライエラー','ただいま混雑しております.
もう一度実行してみてください.'); }
sleep(2);
}
open(LOCK,">$lockfile");
close(LOCK);
}
sub check_version {
local($a,$b);
if ($] > 5) {
$a = 'use GDBM_File;';
$dbm_type = "GDBM_File";
eval $a;
if ($@ ne '') {
$a = 'use SDBM_File;';
$dbm_type = "SDBM_File";
eval $a;
if ($@ ne '') {
$a = 'use ODBM_File;';
$dbm_type = "ODBM_File";
eval $a;
if ($@ ne '') { $dbm_type = 'DBM for perl4'; $pl = 4; }
}
}
$b = 'use Fcntl;';
eval $b;
if ($@ ne '') { $dbm_type = 'DBM for perl4'; $pl = 4; }
}
else { $dbm_type = 'DBM for perl4'; $pl = 4; }
}
sub backupf {
if (-e $lockfile) { unlink $lockfile; }
print "Content-type: text/html\n\n";
print <<"EOF";
バックアップ(兼 更新)
バックアップ終了
\n", $tend - $tstart;
printf "CPUTIME: %.3f CPU seconds.リストア