21世紀COEプログラム：お知らせ

#!/usr/bin/perl # # main.cgi? 掲載順 # main.cgi?1 開催日順 (今日以降) # main.cgi?2 開催日順 (先週以降) # main.cgi?3 開催日逆順 (新しい日が先頭) # use File::stat; use Time::localtime; $datafile="/home/jimu-web/webdata/info-dat/info.txt"; $arg = $ARGV[0]; $y1 = localtime(time)->year()+1900; $m1 = localtime(time)->mon()+1; $d1 = localtime(time)->mday(); $today = sprintf("%d/%02d/%02d",$y1,$m1,$d1); $y1 = localtime(time-24*60*60*7)->year()+1900; $m1 = localtime(time-24*60*60*7)->mon()+1; $d1 = localtime(time-24*60*60*7)->mday(); $lastweek = sprintf("%d/%02d/%02d",$y1,$m1,$d1); { print < 21世紀COEプログラム：お知らせ

EOF } open(f,"$datafile"); $n=0; while() { $n++; chop; ($date[$n],$title[$n],$url[$n],$memo[$n],$od[$n]) = split(/#/); if (($arg==1)&&($lastweek gt $od[$n])) { $n--;} if (($arg==2)&&($today gt $od[$n])) { $n--;} } close(f); for ($i=1;$i<=$n;$i++) {$newod[$i]="$od[$i]#$i";} if ($arg>0) {@order=sort @newod;} else {@order=@newod;} { print < EOF } for($i=1;$i<=$n;$i++) { if ($arg==3) {$i0 = $n - $i + 1;} else {$i0= $i;} ($dx,$ix) = split(/#/,$order[$i0]); { print < EOF } } { print <

EOF } else { print <掲載日順↑] EOF } { print <

EOF } if ($arg eq "") { print <

EOF } if ($arg == 1) { print <開催日順↓] EOF } if ($arg == 3) { print <開催日順↑] EOF } { print <

EOF } if ($arg eq "") { print <$date[$ix] EOF } else { print < EOF } { print <

EOF } if ($url[$ix] =~ /^http/) { print <$title[$ix] EOF } else { print <$title[$ix] EOF } { print <$memo[$ix]

EOF }