103 |
foreach my $ip ( @serving ) |
foreach my $ip ( @serving ) |
104 |
{ |
{ |
105 |
my @files = &readFile( $NOW_PLAYING_PATH . "/" . $ip ); |
my @files = &readFile( $NOW_PLAYING_PATH . "/" . $ip ); |
106 |
|
my $time = &getModifiedTime( $NOW_PLAYING_PATH . "/" . $ip ); |
107 |
my $file = $files[0]; |
my $file = $files[0]; |
108 |
my $display = ""; # Tag info to display. |
my $display = ""; # Tag info to display. |
109 |
my $link = ""; # Link to the file. |
my $link = ""; # Link to the file. |
173 |
|
|
174 |
if ( $count eq "1" ) |
if ( $count eq "1" ) |
175 |
{ |
{ |
176 |
$output .= "<tr><td><b>Client</b></td><td><b>Track</b></td><td><b>Directory</b></td></td>\n"; |
$output .= "<tr><td><b>Client</b></td><td><b>Time</b></td><td><b>Track</b></td><td><b>Directory</b></td></td>\n"; |
177 |
} |
} |
178 |
$output .= "<tr><td>$host</td><td><a href='$link$extension'>$display</a></td><td><a href='$dir'>$dirDisplay</a></td></td>\n"; |
$output .= "<tr><td>$host</td><td>$time</td><td><a href='$link$extension'>$display</a></td><td><a href='$dir'>$dirDisplay</a></td></td>\n"; |
179 |
} |
} |
180 |
|
|
181 |
if ( $count eq 0 ) |
if ( $count eq 0 ) |