#!/usr/bin/perl require '../../../cgi-lib.pl'; &ReadParse(*in); $thisfile= './'; $pic_dir = "pics"; # 「/」は付けない！ $spic_dir = "sum"; # 「/」は付けない！ $picture_status = 17; # 写真の総数 $picture_horizon = 4; # サムネイルを横方向に並べる数 $picture_loop = $picture_status + ($picture_horizon - ($picture_status % $picture_horizon)); # テーブル表示補正用（いぢらない） @picture_urlad=("","party001.jpg","party002.jpg","party003.jpg","party004.jpg","party005.jpg","party006.jpg","party007.jpg","party008.jpg","party009.jpg","party010.jpg","party011.jpg","party012.jpg","party013.jpg","party014.jpg","party015.jpg","party016.jpg","party017.jpg"); @picture_title=("","乾杯〜","中野先生をキャッチ！","彼方の難波氏","またもや中野先生！","渡辺先生と","瀬口氏","既存組","北研M2野崎","新入り女性陣","新入り男性陣と謝さん","伊達君も含めて","新入りM1群","時信が興味を持つものは","硬派な古井氏","みんなで記念","バテた勝野氏","みんなで記念"); @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_"; 2002年度新入生歓迎会 _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_";
 
 
本年度も、様々な個性と知識を持った学生が集まりました。それぞれが得意分野で飛躍し、そしてそれぞれの知識や考え方を共有しあうことにより、更なる向上を図っていきたいと思います。

ということで、恒例の歓迎会です。横澤研、渡辺研、北研 and 中野研合同です！  [2002.4.26]
 
後列左から：  M2勝野、B4岩崎、M1木下、M1森末、M1樫本、M1瀬口、M1丸山
中列左から：  M1丸橋、B4後藤、M1西堀、M2時信、M2難波、M2野崎
前列左から：  M1斉藤、M1安江、B4伊達、M1西田、D1玉城、M2古井
赤文字が新入生です。
 
 

$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"; if($number!=1){ print ""; }else{ print ""; } print ""; if($number!=$picture_status){ print "\n"; }else{ print "\n"; } print <<"_HTML_";

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


_HTML_ } # End of sub