#! /usr/local/bin/perl

########################################
#Railway Net viewlist                  #
#              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';

###########################
#メインルーチン

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

exit;
#
###########################

###########################
#固有サブルーチン
sub welcomeview{
    #メイン画面コメントを得る
    &getComment();
    #画面出力
    print <<"EOHTML";
<script language="JavaScript">
<!--
function MM_jumpMenu(targ,selObj,restore){ //v3.0
  eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
  if (restore) selObj.selectedIndex=0;
}
//-->
</script>
<p><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"><font color="#FFFFFF">$comment</font></td></tr></table><br>
EOHTML

#項目を得る
    $SQL = "SELECT ga_id,genre FROM t1_genre_a where (expo = '1') ORDER BY ga_id;";
    $dbh->do($SQL);
    $str = $dbh->prepare($SQL);
    $str->execute();
    while (@sql_value = $str->fetchrow()){
        ($ga,$ganame) = @sql_value;
        $ganame =~ s/\s//g;
        &jcode'convert(*ganame,'euc');

        #登録数を得る
        my @sql_value3;
        my $gnun = "";
        $dbh3 = DBI->connect('DBI:ODBC:Contents','sa','');
        $SQL3 = "SELECT COUNT(*) FROM t1_net_db where (expo = '1' and genre_a = $ga);";
    $dbh3->do($SQL3);
    $stq = $dbh3->prepare($SQL3);
    $stq->execute();
    @sql_values3 = $stq->fetchrow();
    $gnun = $sql_values3[0];
    print <<"EOHTML";
<div align="center">
<table width="410" border="0" cellspacing="0" cellpadding="0">
<tr><td width="60"><a href="./detail.cgi?target=$ga&amp;skip=1"><img src="img/s$ga.gif" width="50" height="50" border="0" alt="$ganame鉄"></a></td>
<td bgcolor="#FFFFFF" colspan="2"><a href="./detail.cgi?target=$ga&amp;skip=1"><img src="img/rw$ga.gif" width="350" height="50" border="0" alt="$ganame鉄"></a></td>
</tr>
<tr><td lign="left" colspan="2" nowrap valign="top"><font size = -1 color="#FFFFFF">登録数：$gnun</font></td>
<td align="right">
<form name="form1">
<select name="menu$ga" onChange="MM_jumpMenu('parent',this,0)">
<option selected>さらに深いジャンルはここからジャンプ</option>
EOHTML
    $stq->finish();
    $dbh3->disconnect();
    #メニュー部分
    my @sql_values;
    $dbh2 = DBI->connect('DBI:ODBC:Contents','sa','');
    $SQL2 = "SELECT gb_id,genre_b FROM t1_genre_list where (expo = '1' and ga_id = $ga) ORDER BY gb_id;";
    $dbh2->do($SQL2);
    $stq = $dbh->prepare($SQL2);
    $stq->execute();
    while (@sql_values = $stq->fetchrow()){
    ($gb_id,$gbname) = @sql_values;
    $ganame =~ s/\s//g;
    &jcode'convert(*gbname,'euc');
    print <<"EOHTML";
<option value="./detail.cgi?mode=focus&amp;target=$gb_id&amp;skip=1">$gbname派</option>
EOHTML
}
    $stq->finish();
    $dbh2->disconnect();

   print <<"EOHTML";
</select>
</form>
</td></tr></table>
EOHTML
    }
    print <<"EOHTML";
<br>
                      <hr noshade >
                      <div align="right">
                      <table width="160" border="0" cellspacing="0" cellpadding="0">
                          <tr> 
                            <td class="R_text_w" width="30"> <a href="joinnetwork.cgi"><img src="img/kanden.gif" width="30" height="30" border="0"></a></td>
                            <td bgcolor="#000000" valign="bottom"><a href="joinnetwork.cgi"><img src="img/touroku.gif" width="100" height="30" border="0"></a></td>
                          </tr>
                        </table><br>
<script language="JavaScript">
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
  window.open(theURL,winName,features);
}
//-->
</script>
<font color="#FFFFFF"><span class="Caption">このページへリンクを張って下さる方は<a href="javascript:void(0);" onClick="MM_openBrWindow('link.htm','links','scrollbars=yes,width=470,height=400')">こちら</a>をご覧ください</span></font></div>
                       
                    </div>
EOHTML
}

###########################
#コメントを得る
sub getComment{
    my @sql_value;
    $dbh = DBI->connect('DBI:ODBC:Contents','sa','',
                       {PrintError => 1, AutoCommit => 0});
    $SQL = "SELECT mainread FROM t1_config;";
    $dbh->do($SQL);
    $str = $dbh->prepare($SQL);
    $str->execute();
    @sql_value = $str->fetchrow();
    $comment = $sql_value[0];
    &jcode'convert(*comment,'euc');
}