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

require 'padres.pl';
require $myReqPadlib;
require $myReqJcode;
$myTitle = 'padsys: ' . $padresMyTitle;
$myUrl = $padresMyUrl . 'padsys.cgi';
$myEditUrl = $padresMyUrl . 'padedit.cgi';
$myRepUrl = $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 ($in{'count'}) {
    if (&chkAuth($in{'passwd'})) {
      &dispMsg($myMsgPassword);
    } else {
      &putCount($in{'count'});
      &putMenu("<HR><P>$myMsgCount</P>", $in{'count'});
    }
  } elsif ($in{'passwd'}) {
    if (&chkPasswd($in{'passwd'})) {
      if ($in{'newPass1'}) {
        if ($in{'newPass1'} eq $in{'newPass2'}) {
          &putPasswd($in{'newPass1'});
          &putMenu("<HR><P>$myMsgPasswordChange</P>", &getCount);
        } else {
          &dispMsg($myMsgPasswordConf);
        }
      } else {
        &dispMsg($myMsgPasswordNew);
      }
    } else {
      &dispMsg($myMsgPassword);
    }
  } else {
    &putMenu('', &getCount);
  }
  &setBusy(0);
  return;
}

sub putMenu {
  local($msg, $count) = @_;

  print <<"EndOfFile";
Content-type: text/html\n
$myHead
<TITLE>$myTitle</TITLE></HEAD>
$myBody
<A HREF="$urlPadFile">$myMsgBack</A>
$msg
<HR>
編集画面の表\示<BR>
<FORM METHOD="post" ACTION="$myEditUrl">
<NOBR>パスワード: <INPUT TYPE="password" NAME="passwd" SIZE="20" MAXLENGTH="20"><BR></NOBR>
<BR>
<INPUT TYPE="submit" VALUE="送信">
<INPUT TYPE="reset" VALUE="Clear">
</FORM>
<HR>
リプライ記入画面の表\示<BR>
<FORM METHOD="post" ACTION="$myRepUrl">
<NOBR>パスワード: <INPUT TYPE="password" NAME="passwd" SIZE="20" MAXLENGTH="20"><BR></NOBR>
<BR>
<INPUT TYPE="submit" VALUE="送信">
<INPUT TYPE="reset" VALUE="Clear">
</FORM>
<HR>
発言番号の設定<BR>
<FORM METHOD="post" ACTION="$myUrl">
<NOBR>パスワード: <INPUT TYPE="password" NAME="passwd" SIZE="20" MAXLENGTH="20"><BR>
番号: <INPUT TYPE="text" NAME="count" SIZE="3" MAXLENGTH="3" VALUE="$count"><BR></NOBR>
<BR>
<INPUT TYPE="submit" VALUE="送信">
<INPUT TYPE="reset" VALUE="Clear">
</FORM>
<HR>
パスワード変更<BR>
<FORM METHOD="post" ACTION="$myUrl">
<NOBR>現在のパスワード: <INPUT TYPE="password" NAME="passwd" SIZE="20" MAXLENGTH="20"><BR>
新しいパスワード: <INPUT TYPE="password" NAME="newPass1" SIZE="20" MAXLENGTH="20"><BR>
確認のためにもう１度: <INPUT TYPE="password" NAME="newPass2" SIZE="20" MAXLENGTH="20"><BR></NOBR>
<BR>
<INPUT TYPE="submit" VALUE="送信">
<INPUT TYPE="reset" VALUE="Clear">
</FORM>
<HR>
</BODY></HTML>
EndOfFile
}