Update of /cvsroot/sandweb/sandweb/lib/SandWeb
In directory usw-pr-cvs1:/tmp/cvs-serv3842/lib/SandWeb
Modified Files:
File.pm
Log Message:
simplified time, made column a little smaller
Index: File.pm
===================================================================
RCS file: /cvsroot/sandweb/sandweb/lib/SandWeb/File.pm,v
retrieving revision 1.16
retrieving revision 1.17
diff -U2 -r1.16 -r1.17
--- File.pm 2001/12/18 02:12:06 1.16
+++ File.pm 2001/12/18 20:24:12 1.17
@@ -5,4 +5,9 @@
package SandWeb::File;
+# standard modules
+#
+# this one is for the get_age() method
+use POSIX qw(strftime);
+
sub new {
my $class = shift;
@@ -83,5 +88,5 @@
my $self = shift;
my $mtime = $self->{'mtime'};
- my $time = localtime $mtime;
+ my $time = strftime "%m/%e/%Y %H:%M:%S", localtime $mtime;
return $time;
|
