#! /usr/local/bin/perl $Day_Count = 2; &FILEIN_MSG; print "Content-type: text/html\n\n"; print "¿Íϵ£Â£Â£Ó\n"; print "\n"; print "\n"; print "
\n"; print "\"¿Íϵ£Â£Â£Ó\"
\n"; print "
\n"; for($index = 0 ; $index < @Msg_Data; $index++ ){ &STDOUT_MSG( $index ); } print "
\n"; exit(0); ##################### sub FILEIN_MSG{ if( open( LOGFILE, "<./msg.txt" ) ){ flock( LOGFILE, 1 ); ($Char_Count, $Vil_Img, $Vil_Css) = split( /<>/, ); for($index = 0 ; $index < $Char_Count; $index++ ){ $Char_Data[$index] = ; } $index = 0; while($temp = ){ ($Msg_Date, $Msg_Type, $Msg_Char_Index, $Msg_Time, $Msg_Text) = split( /<>/, $temp); if($Msg_Date == $Day_Count){ $Msg_Data[$index++] = $temp; } } close( LOGFILE ); } } ##################### sub STDOUT_MSG { ($Msg_Date, $Msg_Type, $Msg_Char_Index, $Msg_Time, $Msg_Text) = split( /<>/, $Msg_Data[@_[0]] ); ($Char_Name, $Char_Icon) = split( /<>/, $Char_Data[$Msg_Char_Index] ); if( $Msg_Type < 80 ){ print "
\n"; print "\"$Char_Name\"
\n"; print "
$Char_Name [$Msg_Time]
\n"; print "
$Msg_Text

\n"; print "
\n"; }else{ print "
\n"; print "
¥·¥¹¥Æ¥à¥á¥Ã¥»¡¼¥¸ [$Msg_Time]
\n"; print "
$Msg_Text

\n"; print "
\n"; } }