#!/usr/bin/perl use CGI; $dbf = 'data/whatsnew.txt'; print "CONTENT-type: text/html; charset = utf-8\n\n"; $query = new CGI; #送信データの取得 $id = $query->param('id'); open (FL,"<$dbf"); while (){ chop; ($truetime,$regtime,$year,$month,$day,$title,$body,$alignment,$url) = split(/\t/,$_); if ($id eq $truetime){ last; } } close FL; if ($url ne ""){ if ($alignment eq "center"){ $src = "
"; }else{ $src = ""; } } print <<"EOF"; 下関海響マラ\ソ\ン2015【公式】 - $title
下関海響マラソン

新着情報

$title($year/$month/$day)

$src $body

《 Back  

Copyright © 下関海響マラソン実行委員会, All Rights Reserved.
EOF