アルバム - 博士課程公聴会

#!/usr/bin/perl require '../../../cgi-lib.pl'; &ReadParse(*in); $thisfile= './'; $pic_dir = "pics"; # 「/」は付けない！ $spic_dir = "sum"; # 「/」は付けない！ $picture_status = 12; # 写真の総数 $picture_horizon = 4; # サムネイルを横方向に並べる数 $picture_loop = $picture_status + ($picrure_horizon - ($picture_status % $picture_horizon)); # テーブル表示補正用（いぢらない） @picture_urlad=("","001.jpg","002.jpg","003.jpg","004.jpg","005.jpg","006.jpg","007.jpg","008.jpg","009.jpg","010.jpg","011.jpg","012.jpg"); @picture_title=("","ほっと一息。","大島くんも…","主役の古川さん","マットレス贈呈","結\構\い\いものもらった～！","やっぱり…","無事に終えて…","先生も","おおぉっ…","どれどれ","なんやい","渡辺先生からの"); @picture_comment=("","アイス食べてます。","アイス食べてます。","無事に引継ぎです","ちょっと照れくさそうですが…","彼は学校に住み付くようです","気になるようです。","ほっと一息です。","ほっと一息です。","怖いっす…","撃ってみるか？","おもちゃでした。","最後のレクチャーです。"); #---ルーチン分岐--------- &header; if($in{'picture_number'} ne ""){ $number=$in{'picture_number'}; &download; }else{ &firstvisit; } #------------------------------------------ sub header{ print "Content-type:text/html\n\n"; print <<"_HTML_"; アルバム - 博士課程公聴会 _HTML_ } # End of sub #------------------------------------------ sub firstvisit{ print <<"_HTML_"; _HTML_ for($number=1; $number<=$picture_loop; $number++){ if($number % $picture_horizon == 1){ print "\n"; } if($picture_urlad[$number] ne ""){ print "\n"; }else{ print "\n"; } if($number % $picture_horizon == 0 || $number == $picture_loop){ print "\n"; } } print <<"_HTML_";

■ 古川裕之氏博士課程公聴会 [2002.5.13]

博士後期課程の古川さんが、学位公聴会を行ないました。
無事\に\発\表\会\を\終\え、ほっと一息の打ち上げ会です。緊張が解けた、いつもと変わらぬ様子をご覧ください。

$picture_title[$number]
$picture_comment[$number]

_HTML_ } # End of sub #------------- sub download{ $next_number=$number+1; $before_number=$number-1; print <<"_HTML_"; _HTML_ print "\n"; print "\n"; print "\n"; print "\n"; if($number!=1){ print ""; }else{ print ""; } print ""; if($number!=$picture_status){ print "\n"; }else{ print "\n"; } print <<"_HTML_";


■ 古川裕之氏博士課程公聴会 [2002.5.13]

		$number/$picture_status [一覧へ戻る]
<< Prev
	$picture_title[$number] $picture_comment[$number]	Next >>

_HTML_ } # End of sub