M.I.T = Multimedia IT dept.

#! /usr/bin/perl

# get localtime via perl function
($sec,$min,$hour,$day,$mon,$year)=localtime(time);
$mon++;
if (length ($mon) == 1) {$mon = '0'.$mon;}
if (length ($day) == 1) {$day = '0'.$day;}
$year+=1900;

# Replace the <-- --> symbols below to regular html tag!!

print "Content-type: text/html\n\n";

print <<HERE;
<--html>
<--head>
<--meta HTTP-EQUIV="Content-Type" CONTENT="text/html;CHARSET=big5">
<--title></title-->
<--/head>
<--body bgcolor="white">

<--table border=2 align=center>
<--tr><--td colspan=3 align=center><--H1>$year/$mon/$day Playlist</H1--></td--></tr-->
<--tr><--td align=center>time</td--><--td align=center>recordNo</td--><--td align=center>name</td--><--td align=center>path</td--></tr--></tr-->
HERE

# 網站主要目錄的路徑，請修改成您的現況
#my $prefix="/Library/WebServer/Documents/cgi-bin";
my $prefix=".";

# 記錄檔路徑
my $psmc_log = "$prefix/playlist-$mon-$day.csv";
open(FHD, "$psmc_log") || die "$!\n";

while(<FHD>) {
chomp;
my ($time, $recordNo, $name, $path)=split(/,/);
print "<--tr><--td>$time</td--><--td align=center>$recordNo</td--><--td align=center>$name</td--><--td>$path</td--></tr-->\n";
}

close(FHD);

print <<HERE2;
</table-->
</body>
</html>

HERE2