[Sandweb-commit] CVS: sandweb/lib/SandWeb File.pm,1.16,1.17

[Rob H. <for...@us...>]

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;