IDとPASSを入力して下さい。

#! /usr/bin/perl $script = "bbs2.cgi" ; $pass_file = "pass_file.cgi" ; $data_dir = "data" ; $setting = "set.cgi" ; $page = "3"; $s_cnt = "0"; # ------------------------------------------------------------------------------ require "$setting" ; &decode ; # ------------------------------------------------------------------------------ open (IN,"$pass_file") ; @ppp = ; close (IN) ; foreach (@ppp) { ($file,$id,$pass,$title) = split (/<>/) ; if ($in{'id'} eq "$id" && $in{'pass'} eq "$pass") { $main_flag = "1" ; last ; } else { next ; } } # キャリアの判定 $ua = 0; # ユーザーエージェント取得 $UA = $ENV{'HTTP_USER_AGENT'}; # EZweb端末かどうかチェック if($UA =~ 'UP.Browser'){ $ua = k; # WAP2.0対応機かどうかチェックしておく if($UA =~ '(GUI)'){ $ua = k; } # 次にi-mode端末かどうかチェック }elsif($UA =~ /^DoCoMo\/\d/){ $ua = k; # 次にJ-Phone端末かどうかチェック }elsif($UA =~ /^J-PHONE\/\d/){ $ua = k; # 次にH"端末かどうかチェック }elsif($UA =~ /^PDXGW\/\d/){ $ua = k; # 次にドットi端末かどうかチェック }elsif($UA =~ /^ASTEL\/\d/){ $ua = k; # その他はPCとする }else{ $ua = pc; } #ダメ押しのPCブラウザ再判定 if ($UA =~ /Mozilla\/|MSIE|Netscape|Opera|Lynx|AOL|Gecko/){ $ua = pc; } #「$ua = 0」 -> それ以外 #「$ua = 1」 -> EZweb端末(HDML機) #「$ua = 2」 -> EZweb端末(WAP2.0対応機) #「$ua = 3」 -> i-mode端末 #「$ua = 4」 -> J-Phone端末 #「$ua = 5」 -> H"端末 #「$ua = 6」 -> ドットi端末 #「$ua = 7」 -> PC # $ua = "k" ; #------------------------------------------------------------------------------ if ($mode eq "p_move") {$s_cnt = $in{'s_cnt'};} if ($main_flag eq "1") { &bbs_main_i("$file","$id","$pass","$title") ; } elsif ($in{'entyo'} eq "1") { &bbs_main_i("2006101815483524008","en","tyo","園長先生の日記") ; } else { &id_pass_i ; } # ------------------------------------------------------------------------------ sub id_pass_i { print "Content-type:text/html\n\n" ; print <<"EOM" ; IDとPASSを入力して下さい。

学校法人
二葉幼稚園

二葉通信

(C)2006
www.futabakg.com
〒951-8118
新潟市中央区西中町714番地
TEL.025-222-4509 EOM exit ; } # ------------------------------------------------------------------------------ sub bbs_main_i { ($file,$k_id,$k_pass,$k_title) = @_ ; open (IN,"$data_dir/$file/data.cgi") ; @oo = ; close (IN) ; @sorted = sort { (split(/<>/, $b))[0] cmp (split(/<>/, $a))[0] } @oo; $e_cnt = $s_cnt + $page -1; if ($e_cnt > $#sorted) {$e_cnt = $#sorted;} $i = "0" ; $img_flag = "0" ; foreach ($s_cnt .. $e_cnt) { chomp ; ($b_file,$b_name,$b_year,$b_mon,$b_day,$b_title,$b_comment,$b_image1,$b_image2,$b_image3) = split (/<>/,$sorted[$_]) ; $tmpri .= "$b_year/$b_mon/$b_day
タイトル:$b_title
投稿者:$b_name
\n" ; $tmpri .= "$b_comment
\n" ; $tmpri .= "
\n" ; if ($b_image1 ne "" || $b_image2 ne "" || $b_image3 ne "") { if ($b_image1) { $tmpri .= "画像1
\n" ; $img_flag = "1" ; } if ($b_image2) { $tmpri .= "画像2
\n" ; $img_flag = "1" ; } if ($b_image3) { $tmpri .= "画像3
\n" ; $img_flag = "1" ; } } $tmpri .= "

\n" ; } if ($s_cnt > 1) { # Backを表示 #-------------------print "s:$s_cnt
e:$e_cnt
new:$#new"; $back = $s_cnt - $page; $bn .= "\n"; } if ($e_cnt < $#sorted) { # NEXTを表示] #-------------------print "s:$s_cnt
e:$e_cnt
new:$#new"; $next = $s_cnt + $page; $bn .= "\n"; } if ($in{'entyo'} eq "1") { $tit = "園長先生の日記" ; } else { $tit = "二葉通信" ; } $head = "1" ; print "Content-type:text/html\n\n" ; print <<"EOM" ; $tit

学校法人
二葉幼稚園

$k_title

$tmpri $bn