#!/usr/bin/perl
#-------------------------------
# padrep.cgi (ShiftJIS)
# 2001.11. 6 MIYAMORI Yoshimasa
# 1999. 2.13 MIYAMORI Yoshimasa
#   (kan_ta@amcsys.com)
#-------------------------------

require 'padres.pl';
require $myReqPadlib;
require $myReqJcode;
$myTitle = 'padrep: ' . $padresMyTitle;
$myUrl = $padresMyUrl . 'padrep.cgi';
&main;
exit;

sub main {
  if ($ENV{'REQUEST_METHOD'} eq 'HEAD') {
    &dispMsg('Request method: HEAD.');
    return;
  }
  if (&chkBusy) {
    &dispMsg($myMsgBusy);
    return;
  }
  &setBusy(1);
  if (&chkEnv) {
    &dispMsg($myMsgDeny);
    &setBusy(0);
    return;
  }
  &parseQry(*in);
  if (&chkAuth($in{'passwd'})) {
    &dispMsg($myMsgPassword);
    &setBusy(0);
    return;
  }
  &putRep if ($in{'body'});
  &dispRep;
  &setBusy(0);
  return;
}

# $PAD_REPLY の位置に内容を書く.
sub putRep {
  local($fileName, $num, $line);

  if (&isInPad($in{'num'})) {
    $fileName = $padFile;
  } else {
    $fileName = $logFile[&getLogNum($in{'num'})];
  }
  open(FILE, "$myIn <$fileName |") || &exitPadCgi('error: putRep().');
  open(TMP, "|$myOut >$tmpFile") || &exitPadCgi('error: putRep().');
  while (<FILE>) {
    $line = $_;
    if (/^<!--(\d\d\d)-->/) {
      $num = $1;
    }
    if ($num == $in{'num'}) {
      if ($line =~ /^$PAD_REPLY/io) {
        print TMP "<DIV ALIGN=\"center\">";
        print TMP "<TABLE BORDER=\"0\" CELLPADDING=\"10\" WIDTH=\"70%\"><TR><TD BGCOLOR=\"#CCCCCC\">\n";
        print TMP $PAD_TEXT_REPLY, "<PRE STYLE=\"color: #000000\">\n";
        print TMP $in{'body'}, "\n";
        print TMP $PAD_TEXT_REPLY_END, '</PRE>', "\n";
        print TMP "<DIV ALIGN=\"right\" STYLE=\"color: #000000\"><FONT SIZE=\"-1\">-- ";
        print TMP &getDate(0), ' --</FONT></DIV>', "\n";
        print TMP '</TD></TR></TABLE></DIV>', "\n";
      } else {
        print TMP $line;
      }
    } else {
      print TMP $line;
    }
  }
  close TMP;
  close FILE;
  $s = "mv $tmpFile $fileName";
  system($s);
  chmod $myChmod, $fileName;
}

# reply用のフォームを表示.
sub dispRep {
  local($fileName, $num, $line);
  local($i, $s);

  if (!$in{'log'}) {
    $in{'log'} = 'pad';
    $fileName = $padFile;
  } elsif ($in{'log'} eq 'pad') {
    $fileName = $padFile;
  } else {
    if ($in{'log'} eq 'z') {
      $fileName = $logFile[0];
    } else {
      $fileName = $logFile[$in{'log'}];
    }
    unless (-f $fileName) {
      foreach $i (0 .. $#logFile) {
        unless (-f $logFile[$i]) {
          $s = "cp $orgFile $logFile[$i]";
          system($s);
          chmod $myChmod, $logFile[$i];
        }
      }
    }
  }
  open(FILE, "$myIn <$fileName |") || &exitPadCgi('error: dispRep().');
  print <<"EndOfFile";
Content-type: text/html\n
$myHead
<META HTTP-EQUIV="Content-Style-Type" CONTENT="text/css">
<TITLE>$myTitle</TITLE></HEAD>
$myBody
<A HREF="$urlPadFile">$myMsgBack</A>
<HR>
<FORM METHOD="post" ACTION="$myUrl">
EndOfFile

  if ($myPadLimit == 100) {
    print <<"EndOfFile";
<SELECT NAME="log">
<OPTION VALUE="pad">pad.html
<OPTION VALUE="z">No.001-100
<OPTION VALUE="1">No.101-200
<OPTION VALUE="2">No.201-300
<OPTION VALUE="3">No.301-400
<OPTION VALUE="4">No.401-500
<OPTION VALUE="5">No.501-600
<OPTION VALUE="6">No.601-700
<OPTION VALUE="7">No.701-800
<OPTION VALUE="8">No.801-900
<OPTION VALUE="9">No.901-000
</SELECT>
EndOfFile
  } else {
    print <<"EndOfFile";
<SELECT NAME="log">
<OPTION VALUE="pad">pad.html
<OPTION VALUE="z">No.001-050
<OPTION VALUE="1">No.051-100
<OPTION VALUE="2">No.101-150
<OPTION VALUE="3">No.151-200
<OPTION VALUE="4">No.201-250
<OPTION VALUE="5">No.251-300
<OPTION VALUE="6">No.301-350
<OPTION VALUE="7">No.351-400
<OPTION VALUE="8">No.401-450
<OPTION VALUE="9">No.451-500
<OPTION VALUE="10">No.501-550
<OPTION VALUE="11">No.551-600
<OPTION VALUE="12">No.601-650
<OPTION VALUE="13">No.651-700
<OPTION VALUE="14">No.701-750
<OPTION VALUE="15">No.751-800
<OPTION VALUE="16">No.801-850
<OPTION VALUE="17">No.851-900
<OPTION VALUE="18">No.901-950
<OPTION VALUE="19">No.951-000
</SELECT>
EndOfFile
  }
  print <<"EndOfFile";
<INPUT TYPE="submit" VALUE="表\示">
<INPUT TYPE="hidden" NAME="passwd" VALUE="$in{'passwd'}">
</FORM>
<HR>
<P>$fileName</P>
EndOfFile

  if ($in{'num'}) {
    print "<A HREF=\"#$in{'num'}\">さっきの場所へ</A>\n";
    print '<HR>', "\n";
  } else {
    print '<HR>', "\n";
  }
  while (<FILE>) {
    last if (/^$PAD_TOP/io);
  }
  while (<FILE>) {
    $line = $_;
    if (/^<!--(\d\d\d)-->/) {
      $num = $1;
    }
    if ($line =~ /^$PAD_REPLY/io) {
  print <<"EndOfFile";
<DIV ALIGN="center"><FORM METHOD="post" ACTION="$myUrl">
<TEXTAREA ROWS="4" COLS="64" NAME="body"></TEXTAREA><BR>
<INPUT TYPE="submit" VALUE="送信">
<INPUT TYPE="reset" VALUE="reset">
<INPUT TYPE="hidden" NAME="passwd" VALUE="$in{'passwd'}">
<INPUT TYPE="hidden" NAME="log" VALUE="$in{'log'}">
<INPUT TYPE="hidden" NAME="num" VALUE="$num">
</FORM></DIV>
EndOfFile
    } else {
      print $line;
    }
  }
  close FILE;
}