二葉通信

#! /usr/bin/perl $script = "bbs.cgi" ; $pass_file = "pass_file.cgi" ; $data_dir = "data" ; $setting = "set.cgi" ; $page = "5"; $s_cnt = 0; # ------------------------------------------------------------------------------ require "$setting" ; &decode ; # ------------------------------------------------------------------------------ if ($in{'mode'} eq "p_move") {$s_cnt = $in{'s_cnt'};} 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 ; } } if ($main_flag eq "1") { &bbs_main("$file","$id","$pass","$title") ; } elsif ($in{'entyo'} eq "1") { &bbs_main("2006101815483524008","en","tyo","園長先生の日記") ; } else { &id_pass ; } # ------------------------------------------------------------------------------ sub id_pass { # &head("#FFFFFF","#000000","IDとPASSを入力してください。") ; # $head = "1" ; print "Content-type:text/html\n\n" ; print <<"EOM" ; 二葉通信

〒951-8118 新潟市中央区西中町714番地 TEL 025-222-4509 FAX 025-222-9130

EOM &foot ; } # ------------------------------------------------------------------------------ sub bbs_main { ($file,$k_id,$k_pass,$k_title) = @_ ; if ($k_id eq "en" && $k_pass eq "tyo") { $in{'entyo'} = "1" ; } 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 .= "\n" ; $tmpri .= "\n" ; $tmpri .= "\n" ; $tmpri .= "\n" ; $tmpri .= "\n" ; $tmpri .= "\n" ; $tmpri .= "\n" ; $tmpri .= "

$b_year/$b_mon/$b_day $b_title ($b_name)

$b_comment
\n" ; $tmpri .= "
\n" ; if ($b_image1 ne "" || $b_image2 ne "" || $b_image3 ne "") { $tmpri .= "\n" ; $tmpri .= "\n" ; if ($b_image1) { $tmpri .= "\n" ; $img_flag = "1" ; } if ($b_image2) { $tmpri .= "\n" ; $img_flag = "1" ; } if ($b_image3) { $tmpri .= "\n" ; $img_flag = "1" ; } $tmpri .= "\n" ; $tmpri .= "\n" ; $tmpri .= "\n" ; $tmpri .= "

画像クリックで拡大

\n" ; } $tmpri .= "

\n" ; $tmpri .= "

\n" ; } $bn .= "\n\n"; if ($s_cnt > 1) { # Backを表示 #-------------------print "s:$s_cnt
e:$e_cnt
new:$#new"; $back = $s_cnt - $page; $bn .= ""; } if ($e_cnt < $#sorted) { # NEXTを表示] #-------------------print "s:$s_cnt
e:$e_cnt
new:$#new"; $next = $s_cnt + $page; $bn .= ""; } $bn .= "\n

"; $bn .= "\n"; $bn .= "

\n"; if ($in{'entyo'} eq "1") { $xxx1 = "

\n" ; $xxx2 = "

\n" ; $xxx3 = "" ; } else { $xxx1 = "

\n" ; $xxx2 = "

\n" ; $xxx3 = "　$k_title

\n" ; } # &head ("#FFFFFF","#000000","maryell.jp") ; $head = "1" ; print "Content-type:text/html\n\n" ; print <<"EOM" ; 二葉通信


$xxx1
	$xxx2

	$xxx3 $tmpri $bn

〒951-8118 新潟市中央区西中町714番地 TEL 025-222-4509 FAX 025-222-9130

EOM &foot ; }