#! /usr/local/bin/perl

########################################
#Railway Net joinnetwork               #
#              Scripted by IshidoTaichi#
#                     taichi@gpara.com #
########################################
$version = '1.0';
#環境変数設定
system("export ODBCINI=/usr/openlink/odbcsdk/doc/odbc.ini");$ENV{ODBCINI} = '/usr/openlink/odbcsdk/doc/odbc.ini';
#モジュールのロード
use DBI;
require './cgi-lib.pl';
require './jcode.pl';
require './headfoot.pl';

###########################
#メインルーチン
main::lock();

    &headfoot'header('ジーパラドットコム：レールウェイネットワーク登録');
    &mode();
    &headfoot'footer();

main::unlock();
exit;
#
###########################

###########################
#固有サブルーチン
#モード判断
sub mode{
    &ReadParse(*FORM);
    if ($FORM{ 'mode' } eq 'join'){
        &checkon();
    }
    elsif ($FORM{ 'mode' } eq 'join2'){
        &joinDB();
    }
    else{
        &loginview();
    }
}
###########################
#内容登録
sub joinDB{
    $sitename   = $FORM{ 'sitename' };
    $siteurl    = $FORM{ 'siteurl' };
    $adminaddr  = $FORM{ 'adminaddr' };
    $comment    = $FORM{ 'comment' };
    $getid      = $FORM{ 'genre' };
    ($genre_a,$genre_b) = split (/-/,"$getid");
    if ($ENV{'REQUEST_METHOD'} ne "POST"){
        main::errors("何らかのエラーが発生しました。<BR>");
    }
    if ($ENV{'HTTP_REFERER'} !~ /^http:\/\/www.gpara/){
        main::errors("何らかのエラーが発生しました。<BR>");
    }
    #iDを得る
    my @sql_value;
    $dbh = DBI->connect('DBI:ODBC:Contents','sa','',
								{AutoCommit=>1, LongReadLen=>15360,
								LongTruncOk=>0, RaiseError=>0});
    $SQL = "SELECT MAX(id) FROM t1_net_db;";
    $dbh->do($SQL);
    $str = $dbh->prepare($SQL);
    $str->execute();
    @sql_value = $str->fetchrow();
    $id = $sql_value[0];
    $id++;
    #SQLに登録
    $SQL = "INSERT INTO t1_net_db(id,sitename,url,admin,comments,genre_a,genre_b,admin_adr,expo) VALUES('$id','$sitename','$siteurl','','$comment','$genre_a','$genre_b','$adminaddr','1');";
    &jcode'convert(*SQL,"sjis","euc","z");  # sjisに変換

    $dbh->do($SQL);
    $str->finish();
    $dbh->disconnect();
    $ids = sprintf("%05d",$id);
    print <<"EOHTML";
<table width="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF">
  <tr align="center"> 
    <td>
      <p><BR><b>ご登録ありがとうございました。</b></p>
      <img src="http://www.gpara.com/img/gbothankyou.gif" alt="ありがとうございまつ。"><br>
      <p>[ GRN-$ids ]　$sitename<br>
        を、登録いたしました。<br>
        <font size ="-2">掲載まではしばらく時間がかかる場合もございますのでご了承ください。 </font><br><BR>
        削除、登録内容の変更は、<br>
        <a href="mailto:toko\@gpara.com">toko\@gpara.com</a><br>
        までお知らせください。 <BR><br><a href="./index.cgi">■もどる■</a></p>
    </td>
  </tr>
</table>
EOHTML
}
###########################
#登録内容確認
sub checkon{
    $sitename   = $FORM{ 'sitename' };
    $siteurl    = $FORM{ 'siteurl' };
    $adminaddr  = $FORM{ 'adminaddr' };
    $comment    = $FORM{ 'comment' };
    #不正な項目の確認
    $errput = "";
    if ($sitename eq ""){
        $errput .= "サイト名が記入されていません<BR>";
    }
    if ($siteurl eq ""){
        $errput .= "URLが記入されていません<BR>";
    }
    elsif ($siteurl !~ /^http/){
        $errput .= "URLが正しくありません<BR>";
    }
    $adminaddr = main::mailz2h( $FORM{'adminaddr'} );
    if ($adminaddr eq ""){
        $errput .= "メールアドレスが正しく記入されていません<BR>";
    }
    if ($comment eq ""){
        $errput .= "説明が記入されていません<BR>";
    }
    if ($errput ne ""){
        main::errors($errput);
    }
    #ジャンルを入手
    $getid = $FORM{ 'genre' };
    ($tmp,$getid) = split (/-/,"$getid");
    my @sql_value;
    $dbh = DBI->connect('DBI:ODBC:Contents','sa','',
								{AutoCommit=>1, LongReadLen=>15360,
								LongTruncOk=>0, RaiseError=>0});
    $SQL = "SELECT genre,genre_b FROM t1_genre_list where (gb_id = $getid);";
    $dbh->do($SQL);
    $str = $dbh->prepare($SQL);
    $str->execute();
    @sql_value = $str->fetchrow();
    ($genre_a,$genre_b) = @sql_value;
    $genre_a =~ s/\s//g;
    $genre_a =~ s/\s//g;
    &jcode'convert(*genre_a,'euc');
    &jcode'convert(*genre_b,'euc');
    
    #表示
    print <<"EOHTML";
                    <p><img src="img/oomidashi6.gif" width="450" height="80"> 
                      <img src="img/line.gif" width="460" height="2"></p>
                    <p><b><font color="#FFFFFF" class="Head_L2">--登録内容の確認--</font></b></p>
                    <p align="center"><font color="#FFFFFF">以下の内容を 登録します。<br>
                      ご確認ください。<br>
                      </font></p><div align="center">
                      <table width="95%" border="0" cellspacing="0" cellpadding="3">
                        <tr bgcolor="#FFFFFF"> 
                          <td class="sitename" align="right">登録ジャンル</td>
                          <td> $genre_a鉄<BR>$genre_b派</td>
                        </tr>
                        <tr bgcolor="#FFFFFF"> 
                          <td class="sitename" align="right">サイト名</td>
                          <td> $sitename </td>
                        </tr>
                        <tr bgcolor="#FFFFFF"> 
                          <td class="sitename" align="right">URL</td>
                          <td> $siteurl </td>
                        </tr>
                        <tr bgcolor="#FFFFFF"> 
                          <td nowrap class="sitename" align="right">管理者メールアドレス</td>
                          <td> $adminaddr </td>
                        </tr>
                        <tr bgcolor="#FFFFFF"> 
                          <td nowrap class="sitename" align="right">説明</td>
                          <td> $comment</td>
                        </tr>
                        <tr bgcolor="#FFFFFF"> 
                          <td nowrap class="sitename" align="right" colspan="2">
                            <form method="POST" action="joinnetwork.cgi" name="form">
                              <input type="hidden" name="mode" value="join2">
                              <input type="hidden" name="comment" value="$comment">
                              <input type="hidden" name="adminaddr" value="$adminaddr ">
                              <input type="hidden" name="siteurl" value="$siteurl ">
                              <input type="hidden" name="sitename" value="$sitename">
                              <input type="hidden" name="genre" value="$FORM{ 'genre' }">
                              <input type="submit" name="Submit" value=" 登録 ">
                            </form>
                          </td>
                        </tr>
                      </table>
                    </div><BR>
EOHTML
    $dbh->do($SQL);
    $str->finish();
    $dbh->disconnect();
&main::unlock();
}
###########################
#ジャンルを得る
sub getGenre{
    my @sql_value;
    $dbh = DBI->connect('DBI:ODBC:Contents','sa','',
								{AutoCommit=>1, LongReadLen=>15360,
								LongTruncOk=>0, RaiseError=>0});
    $SQL = "SELECT * FROM t1_genre_list;";
    $dbh->do($SQL);
    $str = $dbh->prepare($SQL);
    $str->execute();
    while (@sql_value = $str->fetchrow()){
        ($genre_a,$genre_b,$genre_code_a,$genre_code_b,$ex1,$ex2) = @sql_value;
        if (($ex2 == 1)&&($ex2 == 1)){
            &jcode'convert(*genre_a,'euc');
            &jcode'convert(*genre_b,'euc');
            $genre_a =~ s/\s//g;
            $genre_b =~ s/\s//g;
            $genrelist .= "<option value=\"$genre_code_b-$genre_code_a\">$genre_a鉄　：$genre_b派</option>\n";
        }
    }
}
###########################
#コメントを得る
sub getComment{
    $SQL = "SELECT joincoment FROM t1_config;";
    $dbh->do($SQL);
    $str = $dbh->prepare($SQL);
    $str->execute();
    @sql_value = $str->fetchrow();
    $comment = $sql_value[0];
    &jcode'convert(*comment,'euc');
}

###########################
#ログイン画面
sub loginview{
    #変数部分処理
    #現在アクティブなgenreを得る
    &getGenre();
    #入力フォーム用コメントを得る
    &getComment();
    print <<"EOHTML";
<img src="img/oomidashi6.gif" width="450" height="80"> 
                      <img src="img/line.gif" width="460" height="2"></p>
                    <table width="450" border="0" cellspacing="0" cellpadding="2">
                      <tr> 
                        <td class="R_text_w" height="42"><font color="#FFFFFF">$comment</td>
                      </tr>
                    </table>
                    <div align="center"> </div>
                    <form name="form1"  action="joinnetwork.cgi" method="post">
                      <div align="center">
                        <table width="95%" border="0" cellspacing="0" cellpadding="3">
                          <tr bgcolor="#FFFFFF"> 
                            <td class="sitename" align="right">登録ジャンル</td>
                            <td> 
                              <select name="genre">
                                $genrelist
                              </select>
                            </td>
                          </tr>
                          <tr bgcolor="#FFFFFF"> 
                            <td class="sitename" align="right">サイト名</td>
                            <td> 
                              <input type="text" name="sitename" size="45">
                            </td>
                          </tr>
                          <tr bgcolor="#FFFFFF"> 
                            <td class="sitename" align="right">URL</td>
                            <td> 
                              <input type="text" name="siteurl" size="45" value="http://">
                            </td>
                          </tr>
                          <tr bgcolor="#FFFFFF"> 
                            <td nowrap class="sitename" align="right">管理者メールアドレス</td>
                            <td> 
                              <input type="text" name="adminaddr" size="45">
                            </td>
                          </tr>
                          <tr bgcolor="#FFFFFF"> 
                            <td nowrap class="sitename" align="right">説明</td>
                            <td> 
                              <textarea name="comment" cols="45" rows="5"></textarea>
                            </td>
                          </tr>
                          <tr bgcolor="#FFFFFF"> 
                            <td nowrap class="sitename" align="right" colspan="2"> 
                              <input type="hidden" name="mode" value="join">
                              <input type="submit" name="Submit" value=" 登録 ">
                            </td>
                          </tr>
                          <tr bgcolor="#FFFFFF" align="left"> 
                            <td class="saitecoment" colspan="2">※メールアドレス以外の登録内容は、レールウェイネットワーク内で公開されます。<b>削除、登録内容の変更は、<a href="mailto:toko\@gpara.com">toko\@gpara.com</a>までお知らせください。 </b></td>
                          </tr>
                        </table>
                      </div>
                    </form>
                    
EOHTML
&main::unlock();
}
###########################
#必要サブルーチン
#ファイルロック処理
sub lock {
$lockfile = "./lockfile.loc";
$c = 0;
while (-f "$lockfile")
{
    $c++;
    if ($c >= 2)
    {
        unlink($lockfile);
        &errors("サーバが混雑しています。<br>もう一度試してみてください<BR>ERROR_0x0011");
        exit;
    }
    sleep(2);
}
if (! open(LOCK,">$lockfile")){errors("ロック失敗<BR>ERROR_0x0101");}
close(LOCK);
}

sub unlock {
    $lockfile = "./lockfile.loc";
    unlink($lockfile);
}

#エラー処理
sub errors{
    @msg = @_;
    print '<table width="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF"><tr><td>';
    print '<div align="center"><H2>登録エラーです。</H2>'."\n";
    print "$msg[0]\n";
    print '<img src="http://www.gpara.com/img/gbothankyou.gif" alt="ごめんでつ。"><br>'."\n";
    print "$msg[1]<br>\n";
    print "戻って入力しなおしてください<br>\n";
    print '<a href="javascript:history.back();">もどる</a>'."\n".'</div>';
    print '</tr></table>';
    &main::unlock();
    exit;
}
#メールアドレス正当性チェック
sub mailz2h{
  my $str = $_[0];
  jcode::convert(\$str,'euc');
  jcode::tr(\$str,'０-９Ａ-Ｚａ-ｚ＿．＠ー','0-9A-Za-z_.@-'); 
  #エラーチェック（全角文字を含む）
  if ($str =~ /[\xA1-\xFE][\xA1-\xFE]/){
    $str = undef;
  }
  #エラーチェック（@を含まない）
  if ($str !~ /[^\@]+\@[^\@]+\.[^\@]+/){
    $str = undef;
  }
  return $str;
}