#! /usr/local/bin/perl
require './jcode.pl';
require "./cgi-lib.pl";

#描繪揭示板ver.1.32
# (c)2000,poo site
# Web page:http://www2.plala.or.jp/junji21/index.htm
#密碼設定英數12字內
$pass="01234567";

#回首頁URL
$homepage = "../index.html";

#配色等設定
#壁紙設定
$BACKGIF = "bg.jpg";

#背景色(無壁紙時)
$BGcolor="ffffff";

#本文表示色
$TXcolor="#000000";

#日期表示色
$DTcolor="#666666";

#畫的編號表示色
$NOcolor="#333333";

#投稿輸入欄表示色
$CM2color="#ccccff";

#投稿顯示欄表示色
$CMcolor="#ffffff";

#投稿顯示欄把表示色
$BDcolor="#ffffff";

#投稿姓名欄表示色
$NMcolor="#3333ff";

#TITLE表示色
$TLcolor="#333333";

#留言設定

#TITLE使用畫像時
$TITLEGIF = "";
$TGW = '150';#畫寬
$TGH = '50';#畫高

#塗鴉投稿LINK使用畫像時
$NEWGIF = "";
$NGW = '150';#畫寬
$NGH = '50';#畫高

#留言投稿LINK使用畫像時
$NEWCOM = "";
$NCW = '150';#畫寬
$NCH = '50';#畫高

#TITLE
$TITLE="塗鴉簿";

#字型
$TITLEFACE = "CHINESE_BIG5";

#RETURN文字
$RETURN="HOME";

#訊息1
$MESSAGE1="管理用";

#訊息2
$MESSAGE2="塗鴉";

#訊息3
$MESSAGE3="關於這張塗鴉的留言";

#訊息4
$MESSAGE4="留言";

#訊息5
$MESSAGE5="最新塗鴉";

#訊息6
$MESSAGE6="最新留言";

#訊息7
$MESSAGE7="只留言";

#訊息8
$MESSAGE8="回塗鴉簿";

#訊息9
$MESSAGE9="回覆";

#文字大小
$moji="2";

#留言欄與瀏覽器的比例
$CWIDTH="80%";

# URL自動聯結(0=no 1=yes)
$autolink = 1;

#HOME ICON使用(0=no 1=yes)
$home_icon = 0;
$home_gif = "";#HOME ICON檔名
$home_wid = 25;#畫寬
$home_hei = 22;#畫高

#畫面表示枚數及畫像保留枚數

#一畫面表示枚數
$gznumber=10;

#畫像保留枚數50枚
#若變更時getpic.cgi也要一起變更
$lgnumber=50;

#HOST表示
#留言與HOST同時表示(0:off 1:on)
$sw_host=0;

#單獨留言

#單獨留言(0:不能 1:能)
$cm_sw=0;

#表示順序

#標準表示順序(0:塗鴉 1:留言)
$def_sort=0;

#LOCK

#LOCK設定(0:symlink標準 1:open 2:無)
$lock_mode=0;

#路徑設定

#塗鴉時叫出的檔案路徑
$oefile="./oekaki.html";

#內部畫像檔案路徑
$gzfile="./";

#絕對畫像檔案路徑
$gz2file="./";

#
#以下請勿變更

$moji1=$moji-1;
$moji3=$moji+1;
$moji5=$moji+3;

$lock_file ="./lock/count.lock";
$script  = "picture.cgi";
$method = 'POST';
if ($ENV{'REQUEST_METHOD'} eq "POST") {
  read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
} else { $buffer = $ENV{'QUERY_STRING'}; }

@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
  ($name, $value) = split(/=/, $pair);
  $value =~ tr/+/ /;
  $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
  &jcode'convert(*value,'sjis');
  $value =~ s/</&lt;/g;
  $value =~ s/>/&gt;/g;
  $value =~ s/\"/&quot;/g;
  if ($name eq 'del') { push(@delete,$value); }
  if ($name eq 'del_res') {$value =~ s/[^a-zA-Z0-9\/\:]//gs;push(@delres,$value); }
  $FORM{$name} = $value;
}
  $name    = $FORM{'name'};
  $name    =~ s/\r//g;
  $name    =~ s/\n//g;
  $title    = $FORM{'title'};
  $title    =~ s/\r//g;
  $title    =~ s/\n//g;
  $comment = $FORM{'comment'};
  $comment =~ s/\r\n/<br>/g;
  $comment =~ s/\r/<br>/g;
  $comment =~ s/\n/<br>/g;
  $email   = $FORM{'email'};
  $email   =~ s/\r//g;
  $email   =~ s/\n//g;
  $url     = $FORM{'url'};
  $url     =~ s/^http\:\/\///;
  $url     =~ s/\r//g;
  $url     =~ s/\n//g;
  $mode    = $FORM{'mode'};
  $sort    = $FORM{'sort'};
  $res_mode    = $FORM{'res'};
$count_file = "./count";
$targetfile = "./data.txt";
$erasefile = "./erase.txt";

if ($sort eq "0"){$s_mode=0;}
elsif($sort eq "1"){$s_mode=1;}
else {$s_mode=$def_sort;}

if ($mode eq "msg") { &regist; }
if ($mode eq "res_msg"){&res_msg;}
if ($mode eq "admin") { &pass; }
if ($mode eq "del") { &del; }
if ($mode eq "master_del") { &master_del; }
if ($mode eq "l_check") { &check_lock; }

if (open(FILE,"<$count_file")) {
  $access = <FILE>;
  close(FILE);
}
@res=();
$comments=0;
open(FILE,"<$targetfile");
  while(<FILE>){
    chop;
    ($pic,$name,$mail,$http,$body,$date,$ip,$host,$title)=split("\t",$_);
  $title    =~ s/\r//g;
  $title    =~ s/\n//g;
    if($pic =~ /[\d]/){
      $rank{$pic*100+$res[$pic]}.="$pic\t$name\t$mail\t$http\t$body\t$date\t$ip\t$host\t$title";
      $res[$pic]++;
      if($s_mode==1){
        $sort[$comments]=$pic;
	$coms[$pic]=0;
	$comments++;
      }
    }
  }
close(FILE);

if($s_mode==1)
{
  $pnum=$access;
  for($i=$comments-1;$i>0;$i--)
  {
    if($coms[$sort[$i]]>0){}
    else
    {
      $s[$pnum]=$sort[$i];
      $coms[$sort[$i]]++;
      $pnum--;
    }
  }
  $i=$access;
  while($i>$access-$lgnumber && $i>0)
  {
    if($res[$i]==0)
    {
      $s[$pnum]=$i;
      $pnum--;
    }
    $i--;
  }
}

@era=();

open(FILE,"<$erasefile");
  while(<FILE>){
    $era[$_]=1;
  }
close(FILE);

&head;


if ($NEWGIF eq '') {
  print "<CENTER><A HREF=\"$oefile\"><FONT SIZE=$moji5 COLOR=$NMcolor>$MESSAGE2<BR></FONT></A></CENTER><P>\n";
}
else {
  print "<CENTER><A HREF=\"$oefile\"><IMG SRC=\"$NEWGIF\" width=\"$NGW\" height=\"$NGH\" BORDER=\"0\" ALT=\"NEW PICTURE\"></A></CENTER><P>\n";
}
if($cm_sw==1){
  if ($NEWCOM eq '') {
    print "<CENTER><A HREF=\"$script?mode=res_msg&res=new\"><FONT SIZE=$moji5 COLOR=$NMcolor>$MESSAGE7<BR></FONT></A></CENTER><P>\n";
  }
  else {
    print "<CENTER><A HREF=\"$script?mode=res_msg&res=new\"><IMG SRC=\"$NEWCOM\" width=\"$NCW\" height=\"$NCH\" BORDER=\"0\" ALT=\"NEW ARTICLE\"></A></CENTER><P>\n";
  }
}
print << "EOH";
<CENTER>
<a href="$homepage"><FONT SIZE=$moji COLOR=$NMcolor>[$RETURN]</FONT></a>
<a href="$script?mode=admin"><FONT SIZE=$moji COLOR=$NMcolor>[$MESSAGE1]</FONT></a><P>
<a href="$script?sort=0"><FONT SIZE=$moji COLOR=$NMcolor>[$MESSAGE5]</FONT></a>
<a href="$script?sort=1"><FONT SIZE=$moji COLOR=$NMcolor>[$MESSAGE6]</FONT></a><P>
</CENTER>
EOH
if ($FORM{'page'} eq '')
  { $cc = 0; }
else
  { $cc = $FORM{'page'}; }
if ($FORM{'fno'} eq '')
  { $i = $access-$cc; }
else
  { $i = $FORM{'fno'}; }
$start=$cc;
while($i>0 && $i>($access-$lgnumber) && ($cc-$start)<$gznumber )
{
  if($s_mode==0)
  {$file=$i%$lgnumber;$article=$i;}
  else
  {$file=$s[$i]%$lgnumber;$article=$s[$i];}
  ($pic,$name,$mail,$http,$body,$date,$ip,$host,$title)=split("\t",$rank{$article*100});
  $flag=0;
  if($cm_sw==1)
  {  
    if(($title eq "") && ((-e "$gzfile".$file.".gif"==0 && -e "$gzfile".$file.".jpg"==0  && -e "$gzfile".$file.".png"==0 )|| $era[$file]==1)){$i--;$flag=1;}
  }else
  {
    if((-e "$gzfile".$file.".gif"==0 && -e "$gzfile".$file.".jpg"==0  && -e "$gzfile".$file.".png"==0 )|| $era[$file]==1){$i--;$flag=1;}
  }
  if($flag==0)
  {
print << "EOH";
<CENTER>
<form action="$script" method="$method">
<TABLE BORDER="0" BGCOLOR="$BDcolor" width=$CWIDTH CELLSPACING="2" CELLPADDING="3">
<TR>
EOH

    if($title eq "")
    {
print << "EOH";
<TD align="left" width=200 BGCOLOR=$CMcolor>
<FONT SIZE=$moji3 COLOR=$NOcolor><B>[$article]</B></FONT>
EOH
      if( -e "$gzfile".$file.".png"==0){
        if(-e "$gzfile".$file.".jpg"==0){
          print "<BR><IMG SRC=\"$gz2file$file.gif\"><BR>";
        }else{
          print "<BR><IMG SRC=\"$gz2file$file.jpg\"><BR>";
        }
      }else
      {
        print "<BR><IMG SRC=\"$gz2file$file.png\"><BR>";
      }
print << "EOH";
<input type=hidden name=mode value="res_msg">
<input type=hidden name=resno value="$article">
<input type=hidden name=sort value="$s_mode">
<CENTER><input type=submit value="$MESSAGE4"></CENTER>
</TD>
EOH
    }
print << "EOH";
<TD BORDER=1 BGCOLOR=$CMcolor CELLSPACING=0 CELLPADDING=0 width=100%>
EOH
    $com_flag=0;
    for($j=0;$j<$res[$article];$j++)
    {
      ($pic,$name,$mail,$http,$body,$date,$ip,$host,$title)=split("\t",$rank{$article*100+$j});
      if($title ne "")
      {
        $com_flag=1;
        print "<FONT SIZE=$moji3 COLOR=$NOcolor><B>[$article]</B></FONT><BR>\n";
        print "<FONT SIZE=$moji3 COLOR=\"$NOcolor\"><B>$title</B></FONT><BR>\n";
      }

      if ($mail =~ /^\s*$/) {
        print "<FONT SIZE=$moji COLOR=\"$NMcolor\">$name</FONT>\n";
      }
      else{
        print "<A HREF=\"mailto:$mail\">\n";
        print "<FONT SIZE=$moji COLOR=\"$NMcolor\">$name</FONT></A>\n";
      }
      $http=~ s/^http\:\/\///;
      if ($http && $home_icon) {
        print "<a href=\"http://$http\" target='_top'><img src=\"$home_gif\" border=0 align=top HSPACE=10 WIDTH=\"$home_wid\" HEIGHT=\"$home_hei\"></a>\n";
      } elsif ($http && $http ne 'http://' && $home_icon == 0) {
        print "<a href=\"http://$http\" target='_top'><FONT SIZE=$moji COLOR=\"$TXcolor\">[Home Page]</FONT></a>\n";
      }
	if($sw_host==1){
		print "<FONT SIZE=$moji1 COLOR=\"$DTcolor\">\n";
		print "$date<BR>$ip $host\n";
		print "</FONT>\n";
	}
	else{
		print "<FONT SIZE=$moji1 COLOR=\"$DTcolor\">\n";
		print "$date\n";
		print "</FONT>\n";
	}
print << "EOH";
<BR>
<FONT SIZE=$moji COLOR="$TXcolor">
$body
<P>
</FONT>
EOH
        if($title ne "")
        {  
$body =~ s/"/'/g;
print << "EOH";
<input type=hidden name=mode value="res_msg">
<input type=hidden name=resno value="$article">
<input type=hidden name=sort value="$s_mode">
<input type=hidden name=res value="comment">
<input type=hidden name=comment value="$body">
<input type=submit value="$MESSAGE9">
EOH
        }
      if($title ne "" && $res[$article]>1)
      {
        print "<HR>\n";
        print "<OL>\n";
      }
    }
    if($com_flag==1 && $res[$article]>1)
    {
      print "</OL>\n";
    }
print << "EOH";
</TD></TR>
</TABLE>
</FORM>
</CENTER>
<BR>
EOH
    $i--;

    $cc++;
  }
  $file=$i%$lgnumber;

  if($i<0){$i=$lgnumber-1;}
}
print "<CENTER><table border=0><tr>\n";
if($i==($access-$lgnumber) || $i==0 || $cc %$gznumber==0 )
{
  if($cc>$gznumber){
print << "EOH";
<TD><form method="$method" action="$script">
<input type=hidden name=page value="0\">
<input type=hidden name=fno value="$access">
<input type=hidden name=sort value="$s_mode">
<input type=submit value="最新$gznumber件">
</form></TD>  
EOH
  }
}

if($cc % $gznumber== 0 && $cc<$lgnumber && $i!=0)
{
  #次頁處理
print << "EOH";
<TD><form method="$method" action="$script">
<input type=hidden name=page value="$cc">
<input type=hidden name=fno value="$i">
<input type=hidden name=sort value="$s_mode">
<input type=submit value="其次$gznumber件">
</form></TD>
EOH
}

print "</TR></TABLE></CENTER>\n";
&foot;

exit;
#留言處理
sub regist {
  if ($name eq "") {
    &CgiError("沒寫名字","按上一頁重寫");
    exit;
  }
  if ($comment eq "") {
    &CgiError("沒有留言",
    "按上一頁重寫");
    exit;
  }
  my ($sec,$min,$hour,$mday,$mon,$year,$wday,$seireki_nen,$month,$tuki,$youbi,@youbi,$currenttime,$seireki);
  ($sec,$min,$hour,$mday,$mon,$year,$wday)=(localtime)[0,1,2,3,4,5,6];
  $seireki_nen = $year + 1900;
  $month = $mon + 1;
  @youbi = ("Sun","Mon","Tue","Wed","Thurs","Fri","Sat");
  $youbi = $youbi[$wday];
  $currenttime = sprintf("%02d:%02d:%02d",$hour,$min,$sec);
  $seireki = "$seireki_nen" . "/" . "$month" . "/" . "$mday" . " ($youbi.)";
  $date = "$seireki" . "  $currenttime";
  if ($autolink) { &auto_link($comment);}

  #LOCK處理
  if ($lock_mode == 0) { &process_lock; }
  elsif ($lock_mode == 1) { &process_lock2; }

  if($res_mode eq "new")
  {
    if (open(FILE,"<$count_file")) {
      $access = <FILE>;
      close(FILE);
    }
    if (open(FILE,">$count_file")) {
      $access++;
      print FILE $access;
      close(FILE);
    }
    open(OUT,">>$erasefile") or &CgiDie("現在無法留言",
"請等一下再傳送");
      $pic=$access;
      $pic =~ s/[^0-9]//gs;
      $pic=$pic%$lgnumber;
      print OUT "$pic\n";
    close(OUT);
    if($access>$lgnumber)
    {
      open(DATA,"$targetfile") or &CgiDie("現在讀不到檔案","請等一下再傳送");
      @lines=<DATA>;
      close(DATA);

      foreach $line (@lines) {
        ($pic,$nm,$mail,$http,$body,$dt,$ip,$host,$subject)=split("\t",$line);
        $pic =~ s/[^0-9]//gs;
			
        if ($pic ne $access-$lgnumber){ push(@new,$line); }
      }
      open(DATA,">$targetfile") or &CgiDie("現在讀不到檔案","請等一下再傳送");
      print DATA @new;
      close(DATA);	
    }

    if($title eq "")
    {
      $title="無題";
    }
    open(OUT,">>$targetfile") or &CgiDie("現在無法留言","請等一下再傳送");
    print OUT "$access\t$name\t$email\t$url\t$comment\t$date\t$ENV{'REMOTE_ADDR'}\t$ENV{'REMOTE_HOST'}\t$title\n";
  }
  else
  {
    open(OUT,">>$targetfile") or &CgiDie("現在無法留言","請等一下再傳送");
    print OUT "$FORM{'resno'}\t$name\t$email\t$url\t$comment\t$date\t$ENV{'REMOTE_ADDR'}\t$ENV{'REMOTE_HOST'}\t$title\n";
  }
 
  close(OUT);

  &process_unlock;

  if($FORM{'cook'} eq 'on'){&set_cookie;}

  $mode="";
  $name="";
  $comment="";
  $sub="";
  $email="";
  $url="";
}
#留言畫面
sub res_msg {
  &get_cookie;
  $file=$FORM{'resno'}%$lgnumber;
  &head;
  if($res_mode eq "new")
  {
    print "<CENTER><A HREF=\"$script\"><FONT SIZE=$moji5 COLOR=$NMcolor>$MESSAGE8<BR></FONT></A></CENTER><P>\n";
  }
  elsif($res_mode eq "comment")
  {
    $comment =~ s/&lt;/</g;
    $comment =~ s/&gt;/>/g;
print << "EOH";
<CENTER>
<A HREF="$script"><FONT SIZE=$moji5 COLOR=$NMcolor>$MESSAGE8<BR></FONT></A>
<P>
<TABLE BORDER="0" BGCOLOR="$BDcolor" width=$CWIDTH CELLSPACING="2" CELLPADDING="3">
<TR>
<TD BORDER=1 BGCOLOR=$CMcolor CELLSPACING=0 CELLPADDING=0 width=100%>
<FONT SIZE=$moji COLOR="$TXcolor">
$comment
<P>
</FONT>
</TD>
</TR>
</TABLE>
</CENTER>
EOH
  }
  else  
  {
    print "<CENTER><FONT SIZE=$moji5 COLOR=$NMcolor>$MESSAGE3<BR></FONT></CENTER><P>\n";
    if( -e "$gzfile".$file.".png"==0){
      if(-e "$gzfile".$file.".jpg"==0){
        print "<CENTER><IMG SRC=\"$gz2file$file.gif\"></CENTER><P>";
      }else
      {
        print "<CENTER><IMG SRC=\"$gz2file$file.jpg\"></CENTER><P>";
      }
    }else
    {
      print "<CENTER><IMG SRC=\"$gz2file$file.png\"></CENTER><P>";
    }
  }
  
print << "EOH";
<CENTER>
<form action="$script" method="$method">
<input type=hidden name=mode value="msg">
<input type=hidden name=resno value="$FORM{'resno'}">
<input type=hidden name=res value="$res_mode">
<input type=hidden name=sort value="$FORM{'sort'}">
<table width=400 border=1 cellspacing=0 cellpadding=6>
<tr><td bgcolor=$CMcolor>
<table width=384 border=0 cellspacing=0 cellpadding=0>
<tr><td align="right">
<font size=$moji color=$TXcolor>
EOH
if($res_mode eq "new")
{
print "title : <INPUT TYPE=\"text\" NAME=\"title\" VALUE=\"\" SIZE=\"34\" MAXLENGTH=\"34\"><br>\n";
}
print << "EOH";
name : <INPUT TYPE="text" NAME="name" VALUE="$c_name" SIZE="34" MAXLENGTH="34"><br>
e-mail : <INPUT TYPE="text" NAME="email" VALUE="$c_email" SIZE="34"><br>
URL : <INPUT TYPE="text" NAME="url" VALUE="http://$c_url" SIZE="34"><br>
<input type="checkbox" name="cook" CHECKED value="on">cookie reminder<br>
</font>
</td></tr>
</table>
</td></tr>
<tr><td bgcolor=$CM2color>
<font size=$moji color=$TXcolor><center>
�^�O���S�����������B<br>
<TEXTAREA NAME="comment" ROWS="4" COLS="50"></TEXTAREA><br>
<INPUT TYPE="submit" VALUE="         submit        "> <INPUT TYPE="reset" VALUE="reset">
</center></font>
</td></tr>
</table>
</form>
</CENTER>
EOH
  &foot;
  exit;
}
#FILE LOCK處理
sub process_lock {
  local($wait) = 10;
  while ( !symlink(".",$lock_file) ) {
    &CgiDie("lock busy") if --$wait <= 0;
    sleep (6);
  }
}
#FILE LOCK處理2
sub process_lock2 {
  local($flag) = 0;
  foreach (1 .. 5) {
    if (-e $lock_file) { sleep(1); }
    else {
      open(LOCK,">$lock_file")
      ||  &CgiDie("lock busy");
      close(LOCK);
      $flag = 1;
      last;
    }
  }
  if ($flag == 0) { &CgiDie("lock busy") }
}
#FILE UNLOCK處理
sub process_unlock {
  unlink ($lock_file);
}
#LOCK監視
sub check_lock {
  if ($FORM{'pass'} ne "$pass") {
    &CgiError("密碼錯誤","請按上一頁重打");exit;
  }
  if($FORM{'operate'} eq "unlock")
  {
    &process_unlock;
  }
  else
  { 
    $lock_state="正常";  
    local($wait) = 4;
  
    while ( !symlink(".",$lock_file) && $wait>0 ) {
      $wait--;
      if ($wait <= 0){$lock_state="異常";}
      sleep (6);
    }
    if($lock_state eq "正常")
    {
      &process_unlock;
    }
  }
&head;
print << "EOH";
<CENTER>
<TABLE BORDER="0" BGCOLOR="$BDcolor" width=320 CELLSPACING="2" CELLPADDING="3">
<TR><TD align="left" width=320 BGCOLOR=$CMcolor>
<FONT SIZE=$moji3 COLOR=$NOcolor>
EOH
  if($FORM{'operate'} eq "unlock")
  {
    print "<CENTER>LOCK解除</CENTER>";
  }
  else
  {
    print "現在FILE LOCK狀況: $lock_state";
    if($lock_state eq "異常")
    {
      print "<P>";
      print "流量過大以致FILE LOCK <BR>";
      print "<A HREF=\"$script/mode=l_check&operate=unlock&pass=$FORM{'pass'}\">[FILE LOCK解除]</A>";
    }
  }
print << "EOH";
</FONT>
</TD></TR>
</TABLE>
<P>
<CENTER>
<a href="$script?"><FONT SIZE=$moji COLOR=$NMcolor>[回塗鴉簿]</FONT></a>
</CENTER>
</CENTER>
<P>
EOH
&foot;
}
#密碼
sub pass {
  &head;
print << "EOH";
<center>
<h4>輸入密碼</h4>
<form action="$script" method=$method>
<input type=hidden name=mode value="del">
<input type=password name=pass SIZE=12><input type=submit value="管理者認證">
</form>
</center>
<P><hr><P>
EOH
  &foot;
  exit;
}

#管理者刪除處理
sub del{
  if ($FORM{'pass'} ne "$pass") {
    &CgiError("密碼錯誤","請按上一頁重打");exit;
  }

  if (open(FILE,"<$count_file")) {
    $access = <FILE>;
    close(FILE);
  }
  @res=();
  open(FILE,"<$targetfile");
    while(<FILE>){
      chop;
      ($pic,$name,$mail,$http,$body,$date,$ip,$host,$title)=split("\t",$_);
  $title    =~ s/\r//g;
  $title    =~ s/\n//g;
      if($pic =~ /[\d]/){
        $rank{$pic*100+$res[$pic]}.="$pic\t$name\t$mail\t$http\t$body\t$date\t$ip\t$host\t$title";
        $res[$pic]++;
      }
    }
  close(FILE);
  @era=();

  open(FILE,"<$erasefile");
    while(<FILE>){
      $era[$_]=1;
    }
  close(FILE);

  &head;

print << "EOH";
<CENTER>
<FONT SIZE=$moji3 COLOR=$TXcolor>
<A HREF="$script?mode=l_check&pass=$FORM{'pass'}">file lock check</A>
<P>
點選項目後按"消除確定"
<BR>
</FONT>
</CENTER>
<P>
<CENTER>
<a href="$script?"><FONT SIZE=$moji COLOR=$NMcolor>[回塗鴉簿]</FONT></a>
<P>
</CENTER>
<form action="$script" method=$method>
<input type=hidden name=mode value="master_del">
<input type=hidden name=pass value="$FORM{'pass'}">
<CENTER><input type=submit value="消除確定"><input type=reset value="重設"></CENTER><P>
EOH
  if ($FORM{'page'} eq '') 
    { $cc = 0; } 
  else { $cc = $FORM{'page'}; }
  if ($FORM{'fno'} eq '')
    { $i = $access-$cc; } 
  else { $i = $FORM{'fno'}; }
  $start=$cc;
  while($i>0 && $i>($access-$lgnumber) && ($cc-$start)<$gznumber )
  {
    $file=$i%$lgnumber;
    ($pic,$name,$mail,$http,$body,$date,$ip,$host,$title)=split("\t",$rank{$i*100});
    $flag=0;
    if($cm_sw==1)
    {  
    if(($title eq "") && ((-e "$gzfile".$file.".gif"==0 && -e "$gzfile".$file.".jpg"==0  && -e "$gzfile".$file.".png"==0 )|| $era[$file]==1)){$i--;$flag=1;}
    }else
    {
      if((-e "$gzfile".$file.".gif"==0 && -e "$gzfile".$file.".jpg"==0  && -e "$gzfile".$file.".png"==0 )|| $era[$file]==1){$i--;$flag=1;}
    }
    if($flag==0)
    {
print << "EOH";
<CENTER>
<TABLE BORDER="0" BGCOLOR="$BDcolor" width=$CWIDTH CELLSPACING="2" CELLPADDING="3">
<TR>
EOH
    if($title eq "")
    {
print << "EOH";
<TD align="left" width=200 BGCOLOR=$CMcolor>
<FONT SIZE=$moji3 COLOR=$NOcolor><B>[$i]</B></FONT>
EOH
      if( -e "$gzfile".$file.".png"==0){  ####
        if( -e "$gzfile".$file.".jpg"==0){
          print "<BR><IMG SRC=\"$gz2file$file.gif\"><BR>";####
        }else{
          print "<BR><IMG SRC=\"$gz2file$file.jpg\"><BR>";####
        }
      }else####
      {####
        print "<BR><IMG SRC=\"$gz2file$file.png\"><BR>";####
      }####
print << "EOH";
<FONT SIZE=$moji3 COLOR=$NMcolor>��?</FONT><input type=checkbox name=del value="$i">
</TD>
EOH
    }

      print "<TD BORDER=1 BGCOLOR=$CMcolor CELLSPACING=0 CELLPADDING=0 width=100%>\n";

      for($j=0;$j<$res[$i];$j++)
      {
        ($pic,$name,$mail,$http,$body,$date,$ip,$host,$title)=split("\t",$rank{$i*100+$j});
        print "<FONT SIZE=$moji3 COLOR=$NMcolor>消除</FONT><input type=checkbox name=del_res value=\"$date\">\n";
        if ($mail =~ /^\s*$/) {
          print "<FONT SIZE=$moji COLOR=\"$NMcolor\">$name</FONT>\n";
        }
        else{
          print "<A HREF=\"mailto:$mail\">\n";
          print "<FONT SIZE=$moji COLOR=\"$NMcolor\">$name</FONT></A>\n";
        }
        if ($http =~ /^\s*$/ || $http eq 'http://') {
        }
        else{
          print "<A HREF=\"$http\" TARGET=\"_top\"><FONT SIZE=$moji COLOR=\"$TXcolor\">[Home Page]</FONT></A>\n";
        }
        print "<FONT SIZE=$moji1 COLOR=\"$DTcolor\">$date</FONT>\n";
        print "<BR><FONT SIZE=$moji COLOR=\"$TXcolor\">\n";
        print "$body\n";
        print "<P></FONT>\n";
      }

      print "</TD></TR>";
      print "</TABLE></CENTER><BR>\n";
      $i--;
      $cc++;
    }
    $file=$i%$lgnumber;
    if($i<0){$i=$lgnumber-1;}
  }
  print "</FORM>\n";

  print "<CENTER><table border=0><tr>\n";
  if($i==($access-$lgnumber) || $i==0 || $cc %$gznumber==0 )
  {
    if($cc>$gznumber){
print << "EOH";
<TD><form method="$method" action="$script">
<input type=hidden name=page value="0">
<input type=hidden name=fno value="$access">
<input type=hidden name=mode value="del">
<input type=hidden name=pass value="$FORM{'pass'}">
<input type=submit value="最新$gznumber件">
</form></TD>
EOH
    }
  }

  if($cc % $gznumber== 0 && $cc<$lgnumber && $i!=0)
  {
print << "EOH";
<TD><form method="$method" action="$script">
<input type=hidden name=page value="$cc">
<input type=hidden name=fno value="$i">
<input type=hidden name=mode value="del">
<input type=hidden name=pass value="$FORM{'pass'}">
<input type=submit value="次$gznumber件">
</form></TD>
EOH
  }
  print "</TR></TABLE></CENTER>\n";

  &foot;

  exit;
}
#全部消除處理
sub master_del{
  if ($FORM{'pass'} ne "$pass") {
    &CgiError("密碼錯誤","請按上一頁重打");exit;
  }
  if ($FORM{'del'} eq "" && $FORM{'del_res'} eq "") {
    &CgiError("沒勾選","請按上一頁勾選");exit;
    }

  #lock處理
  if ($lock_mode == 0) { &process_lock; }
  elsif ($lock_mode == 1) { &process_lock2; }

  if($FORM{'del_res'} ne "")
  {
    open(DATA,"$targetfile") or &CgiDie("現在讀不到檔案","請等一下再傳送");
      @lines=<DATA>;
    close(DATA);

    foreach $line (@lines) {
      $flag=0;
      ($pic,$name,$mail,$http,$body,$date,$ip,$host,$title)=split("\t",$line);
  $title    =~ s/\r//g;
  $title    =~ s/\n//g;
      $date =~ s/[^a-zA-Z0-9\/\:]//gs;
      foreach $res (@delres) {
        if ($date eq $res) {$flag = 1;if($title ne ""){push(@delete,$pic);$FORM{'del'}="del";}}
      }
      if ($flag == 0) { push(@new,$line); }
    }
    open(DATA,">$targetfile") or &CgiDie("現在無法寫入檔案","請等一下再傳送");
      print DATA @new;
    close(DATA);
  }
  if($FORM{'del'} ne "")
  {
    open(OUT,">>$erasefile") or &CgiDie("現在無法寫入檔案","請等一下再傳送");
      foreach $pic (@delete) {
        $pic =~ s/[^0-9]//gs;
        $pic=$pic%$lgnumber;
        unlink "$gzfile$pic.gif";####
        unlink "$gzfile$pic.jpg";####
        unlink "$gzfile$pic.png";####
        print OUT "$pic\n";
      }
    close(OUT);
  }
  &process_unlock;
  &del;
}
#URL自動LINK
sub auto_link {
  $_[0] =~ s/([^=^\"]|^)(http\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#]+)/$1<a href=\"$2\" target='_top'>$2<\/a>/g;
}
#COOKIE設定
sub set_cookie {
  #COOKIE60日有效
  ($secg,$ming,$hourg,$mdayg,$mong,$yearg,$wdayg)
           = gmtime(time + 60*24*60*60);

  $yearg += 1900;
  if ($secg  < 10) { $secg  = "0$secg";  }
  if ($ming  < 10) { $ming  = "0$ming";  }
  if ($hourg < 10) { $hourg = "0$hourg"; }
  if ($mdayg < 10) { $mdayg = "0$mdayg"; }

  $month = ('Jan','Feb','Mar','Apr','May','Jun','Jul',
        'Aug','Sep','Oct','Nov','Dec')[$mong];
  $youbi = ('Sunday','Monday','Tuesday','Wednesday',
        'Thursday','Friday','Saturday')[$wdayg];

  $date_gmt = "$youbi, $mdayg\-$month\-$yearg $hourg:$ming:$secg GMT";
  $cook="name\:$name\,email\:$email\,url\:$url";
  print "Set-Cookie: OEBBS=$cook; expires=$date_gmt\n";
}
#COOKIE取得
sub get_cookie { 
  @pairs = split(/\;/, $ENV{'HTTP_COOKIE'});
  foreach $pair (@pairs) {
    local($name, $value) = split(/\=/, $pair);
    $name =~ s/ //g;
    $DUMMY{$name} = $value;
  }
  @pairs = split(/\,/, $DUMMY{'OEBBS'});
  foreach $pair (@pairs) {
    local($name, $value) = split(/\:/, $pair);
    $COOKIE{$name} = $value;
  }
  $c_name  = $COOKIE{'name'};
  $c_email = $COOKIE{'email'};
  $c_url   = $COOKIE{'url'};

  if($FORM{'cook'}eq 'on'){
    if ($FORM{'name'})  { $c_name  = $FORM{'name'}; }
    if ($FORM{'email'}) { $c_email = $FORM{'email'}; }
    if ($FORM{'url'})   { $c_url   = $url; }
  }
}
#畫布
sub head{
print << "EOH";
Content-type: text/html

<HTML>
<HEAD>
<TITLE>塗鴉簿</TITLE>
</HEAD>
EOH
  if ($BACKGIF eq '') {
    print "<BODY BGCOLOR=\"$BGcolor\" TEXT=\"$TXcolor\" LINK=\"$NMcolor\" VLINK=\"$NMcolor\" ALINK=\"$NMcolor\"><P>\n";
  }
  else {
    print "<BODY BACKGROUND=\"$BACKGIF\" TEXT=\"$TXcolor\" LINK=\"$NMcolor\" VLINK=\"$NMcolor\" ALINK=\"$NMcolor\"><P>\n";
  }

  if ($TITLEGIF eq '') {
    print "<CENTER><FONT SIZE=$moji5 COLOR=$TLcolor FACE=\"$TITLEFACE\"><b>+ $TITLE +</B><BR></FONT></CENTER><P>\n";
  }
  else {
    print "<CENTER><IMG SRC=\"$TITLEGIF\" width=\"$TGW\" height=\"$TGH\" ALT=\"TITLE\"><P></CENTER>\n";
  }
}
#FOOT
sub foot{
  #不可刪除LINK
print << "EOH";
<BR>
<DIV ALIGN=right><A HREF="http://www2.plala.or.jp/junji21/index.htm">
<FONT SIZE=$moji COLOR=$TLcolor>塗鴉簿ver.1.32 (C)poo site</FONT>
</A></DIV>
<P></BODY></HTML>
EOH
  exit;
}