/[gnump3d]/gnump3d/lib/gnump3d/files.pm
ViewVC logotype

Diff of /gnump3d/lib/gnump3d/files.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by skx, Wed Oct 15 09:35:51 2003 UTC revision 1.4 by skx, Thu Oct 16 11:59:16 2003 UTC
# Line 42  my $VERSION = '$Revision$'; Line 42  my $VERSION = '$Revision$';
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,
# Line 322  sub getModifiedDate( $ ) Line 324  sub getModifiedDate( $ )
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.

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26