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

require 'padres.pl';
require $myReqPadlib;
require $myReqJcode;
$myTitle = 'padedit: ' . $padresMyTitle;
$myUrl = $padresMyUrl . 'padedit.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;
  }
  &putEdit if ($in{'body'});
  &dispEdit;
  &setBusy(0);
  return;
}

# 内容を書きかえる.
sub putEdit {
  local($fileName, $num, $line);
  local($flg);

  if ($in{'log'} eq 'name') {
    $fileName = $nameFile;
  } elsif (($in{'num'} eq 'top') || ($in{'num'} eq 'bottom')) {
    if ($in{'log'} eq 'pad') {
      $fileName = $padFile;
    } else {
      if ($in{'log'} eq 'z') {
        $fileName = $logFile[0];
      } else {
        $fileName = $logFile[$in{'log'}];
      }
    }
  } else {
    if (&isInPad($in{'num'})) {
      $fileName = $padFile;
    } else {
      $fileName = $logFile[&getLogNum($in{'num'})];
    }
  }
  open(FILE, "$myIn <$fileName |") || &exitPadCgi('error: putEdit().');
  open(TMP, "|$myOut >$tmpFile") || &exitPadCgi('error: putEdit().');
  if ($in{'num'} eq 'top') {
    $flg = 1;
    while (<FILE>) {
      $line = $_;
      if ($flg == 0) {
        print TMP $line;
      } else {
        if (/^$PAD_TOP/io) {
          $flg = 0;
          print TMP $in{'body'}, "\n";
          print TMP $line;
        } else {
          ; #削除.
        }
      }
    }
  } elsif ($in{'num'} eq 'bottom') {
    $flg = 0;
    while (<FILE>) {
      $line = $_;
      if ($flg == 0) {
        if (/^$PAD_BOTTOM/io) {
          $flg = 1;
        }
        print TMP $line;
      } else {
        ; #削除.
      }
    }
    print TMP $in{'body'}, "\n";
  } elsif ($in{'num'} eq 'name') {
    $flg = 0;
    while (<FILE>) {
      $line = $_;
      if ($flg == 0) {
        if (/^$PAD_TOP/io) {
          $flg = 1;
        }
        print TMP $line;
      } else {
        if (/^$PAD_BOTTOM/io) {
          $flg = 0;
          print TMP $in{'body'}, "\n";
          print TMP $line;
        } else {
          ; #削除.
        }
      }
    }
  } else {
    $flg = 0;
    while (<FILE>) {
      $line = $_;
      if ($flg == 0) {
        if (/^<!--(\d\d\d)-->/) {
          $num = $1;
          if ($num == $in{'num'}) {
            $flg = 1;
          }
        }
        print TMP $line;
      } else {
        if ($line =~ /^<!--\d\d\dEnd-->/i) {
          $flg = 0;
          print TMP $in{'body'}, "\n";
          print TMP $line;
        } else {
          ; #削除.
        }
      }
    }
  }
  close TMP;
  close FILE;
  $s = "mv $tmpFile $fileName";
  system($s);
  chmod $myChmod, $fileName;
}

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

  if (!$in{'log'}) {
    $in{'log'} = 'pad'; 
    $fileName = $padFile;
  } elsif ($in{'log'} eq 'pad') {
    $fileName = $padFile;
  } elsif ($in{'log'} eq 'name') {
    $fileName = $nameFile;
  } else {
    if ($in{'log'} eq 'z') {
      $fileName = $logFile[0];
    } else {
      $fileName = $logFile[$in{'log'}];
    }
    unless (-f $fileName) {
      &dispMsg($myMsgLogNotFound);
      return;
    }
  }
  open(FILE, "$myIn <$fileName |") || &exitPadCgi('error: dispEdit().');
  print <<"EndOfFile";
Content-type: text/html\n
$myHead
<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="name">padname.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="name">padname.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>
<HR>
EndOfFile

  $text = '';
  while (<FILE>) {
    last if (/^$PAD_TOP/io);
    $text .= $_;
  }
  $text = &toNum($text);
  print <<"EndOfFile";
<DIV ALIGN="center"><FORM METHOD="post" ACTION="$myUrl">
<TEXTAREA ROWS="4" COLS="64" NAME="body">$text</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="top">
</FORM></DIV>
<HR>
EndOfFile

  if ($in{'log'} eq 'name') {
    $text = '';
    while (<FILE>) {
      last if (/^$PAD_BOTTOM/io);
      $text .= $_;
    }
    $text = &toNum($text);
    print <<"EndOfFile";
<DIV ALIGN="center"><FORM METHOD="post" ACTION="$myUrl">
<TEXTAREA ROWS="4" COLS="64" NAME="body">$text</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="name">
<INPUT TYPE="hidden" NAME="num" VALUE="name">
</FORM></DIV>
<HR>
EndOfFile

  } else {
    while (<FILE>) {
      last if (/^$PAD_BOTTOM/io);
      $line = $_;
      if (/^<!--(\d\d\d)-->/) {
        $num = $1;
        $text = '';
      } elsif ($line =~ /^<!--(\d\d\d)End-->/i) {
        if ($num == $1) {
          $text = &toNum($text);
          print <<"EndOfFile";
<DIV ALIGN="center"><FORM METHOD="post" ACTION="$myUrl">
<TEXTAREA ROWS="4" COLS="64" NAME="body">$text</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>
<HR>
EndOfFile
        }
      } else {
        $text .= $line;
      }
    }
  }
  $text = '';
  while (<FILE>) {
    $text .= $_;
  }
  close FILE;
  $text = &toNum($text);
  print <<"EndOfFile";
<DIV ALIGN="center"><FORM METHOD="post" ACTION="$myUrl">
<TEXTAREA ROWS="4" COLS="64" NAME="body">$text</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="bottom">
</FORM></DIV>
<HR>
</BODY></HTML>
EndOfFile
}