#!/opt/local/bin/perl $fn = sprintf("/ss/tohoku/www/htdocs/tohoku/reigai/wwwlog/reigai.log"); $flag = 0; $flag = 1 if -e $fn; if($flag == 1) { print "Content-type: text/html\n\n"; print ""; print "\n"; print ""; print "\n"; print '水稲冷害早期警戒システム',"\n"; print "\n"; print "
\n"; print '',"\n"; print '
',"\n"; print '
東北農業研究センター内検索：',"\n"; print '',"\n"; print 'Google',"\n"; print '',"\n"; print '',"\n"; print '',"\n"; print '',"\n"; print '
',"\n"; print '
',"\n"; print "
\n"; print '',"\n"; print '東北農業研究センターとチームのロゴ',"\n"; print "

東北農業研究センター

\n"; print "

\n"; print "

水稲冷害研究チーム

\n"; print "
"; print "
\n"; print "

水稲冷害早期警戒システムへようこそ!!

\n"; ($sec, $min, $hour, $mday, $mon, $year) = localtime; $useradd = $ENV{'REMOTE_ADDR'}; $henadd[0] = sprintf("150.26.34.76"); # 神田 # 行数調整 # 行数調整 # 行数調整 $kankeisya = 0; for($i=0; $i<1; $i++) { if($useradd eq $henadd[$i]) { $kankeisya = 1; } } if($kankeisya == 1) { open(IN,"/ss/tohoku/www/htdocs/tohoku/reigai/wwwlog/kankeisya.id"); $line = ; close(IN); chop($line); $line++; open(OUT,">/ss/tohoku/www/htdocs/tohoku/reigai/wwwlog/kankeisya.id"); print OUT $line,"\n"; close(OUT); open(OUT,">>/ss/tohoku/www/htdocs/tohoku/reigai/wwwlog/kankeisya.log"); print OUT "Log: Home Page\t"; print OUT "User ID: $line\t"; print OUT "TIME: ",$year+1900,"/",$mon+1,"/$mday $hour:$min:$sec\t"; print OUT "HTTP User Agent: $ENV{'HTTP_USER_AGENT'}\t"; print OUT "Remote IP Address: $ENV{'REMOTE_ADDR'}\t"; print OUT "Remote Host: $ENV{'REMOTE_HOST'}\t"; print OUT "Remote User: $ENV{'REMOTE_USER'}\t"; print OUT "Come From: $ENV{'HTTP_REFER'}\n"; close(OUT); } else { open(LOCK, ">/ss/tohoku/www/htdocs/tohoku/reigai/wwwlog/.lock"); flock(LOCK, 2); print LOCK "locking by flock\n"; open(IN,"/ss/tohoku/www/htdocs/tohoku/reigai/wwwlog/reigai.id"); $line = ; close(IN); chop($line); $line++; open(OUT,">/ss/tohoku/www/htdocs/tohoku/reigai/wwwlog/reigai.id"); print OUT $line,"\n"; close(OUT); open(OUT,">>/ss/tohoku/www/htdocs/tohoku/reigai/wwwlog/reigai.log"); print OUT "User ID: $line\t"; print OUT "TIME: ",$year+1900,"/",$mon+1,"/$mday $hour:$min:$sec\t"; print OUT "HTTP User Agent: $ENV{'HTTP_USER_AGENT'}\t"; print OUT "Remote IP Address: $ENV{'REMOTE_ADDR'}\t"; print OUT "Remote Host: $ENV{'REMOTE_HOST'}\t"; print OUT "Remote User: $ENV{'REMOTE_USER'}\t"; print OUT "Come From: $ENV{'HTTP_REFER'}\n"; close(OUT); flock(LOCK, 8); close(LOCK); } print "

更新日2010/9/2 08:50

\n"; print 'アンケート協力のお願い

2000年公開シンポ冊子プレゼントのお知らせ

ダウンロードページ
',"\n"; print '宮城・山形のモニターの皆さんと
',"\n"; print '2009年　早期警戒の活動を振り返る
',"\n"; print "
\n　
\n"; print 'メニュー案内、チーム紹介',"\n"; print '最新情報
',"\n"; print '盛岡　2:00　 24.2℃ 　 南南東 2m/s ',"\n"; print '冷害に関係する主な気象現象へのリンク
',"\n"; print '田植
',"\n"; print '\"早期警戒情報\"',"\n"; print '安全作期、葉いもち予察、生育進度、発育予測、農政局発表生育情報
',"\n"; print '気象概況、気象・水温経過、長期予報、新聞動向',"\n"; print '図説、収量分布、収量推移
',"\n"; print '東北６県の技術情報、発生予察情報',"\n"; print '編集長日誌、事務局からのお知らせ
',"\n"; print '意見交換の広場',"\n"; print '関連サーバへのリンク
',"\n"; print '稲刈り
',"\n"; print '
',"\n"; print 'ご意見は意見交換の広場をご利用ください。',"\n"; print '
',"\n"; print '事務局へのメールもあります。
',"\n"; print '
●水稲冷害早期警戒システムへのリンクは自由です。
',"\n"; print '●各ページで使用しているすべてのデータの無断転載を禁じます。

',"\n"; print '
',"\n"; print '水稲冷害研究チーム通信事務局
',"\n"; print '　　編集長代理　　：神田英司 　
',"\n"; print '
',"\n"; print '
',"\n"; print '',"\n"; print '',"\n"; } else { print "Content-type: text/html\n\n"; print ""; print "\n"; print ""; print "\n"; print "水稲冷害研究チーム\n"; print "\n"; print "
\n"; print '東北農業研究センターとチームのロゴ',"\n"; print "

東北農業試験場

\n"; print "

\n"; print "

水稲冷害研究チーム

\n"; print "
"; print "ただいま、作業中です。しばらく後に来てみてください。

\n"; print "
"; print '
',"\n"; print '水稲冷害研究チーム通信事務局
',"\n"; print '　　編集長代理　　：神田英司 　
',"\n"; print "
\n\n"; print '',"\n"; print '',"\n"; }