42 |
@EXPORT = qw( &filesInDir &filesInDirRecursively |
@EXPORT = qw( &filesInDir &filesInDirRecursively |
43 |
&dirsInDir &getSuffix |
&dirsInDir &getSuffix |
44 |
&isAudio &isPlaylist &isMovie |
&isAudio &isPlaylist &isMovie |
45 |
&readFile &readFileWithExpansion ); |
&readFile &readFileWithExpansion |
46 |
|
&getModifiedDate &getModifiedTime ); |
47 |
|
|
48 |
%EXPORT_TAGS = ( ); |
%EXPORT_TAGS = ( ); |
49 |
|
|
50 |
# your exported package globals go here, |
# your exported package globals go here, |
324 |
} |
} |
325 |
|
|
326 |
|
|
327 |
|
|
328 |
|
# |
329 |
|
# Return the modification time of the given file. |
330 |
|
# |
331 |
|
# |
332 |
|
sub getModifiedTime( $ ) |
333 |
|
{ |
334 |
|
my ( $file ) = ( @_ ); |
335 |
|
|
336 |
|
my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blks); |
337 |
|
|
338 |
|
($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blks)= stat($file); |
339 |
|
|
340 |
|
my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst); |
341 |
|
($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst)= localtime($mtime); |
342 |
|
|
343 |
|
return( $hour . ":" . $min . ":" . $sec ); |
344 |
|
} |
345 |
|
|
346 |
|
|
347 |
# |
# |
348 |
# Read a file whist honouring the Server Side Include (SSI) features we |
# Read a file whist honouring the Server Side Include (SSI) features we |
349 |
# support for including other files, or the output of commands. |
# support for including other files, or the output of commands. |