ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/kgsueme/kgsueme/util.pl
(Generate patch)

Comparing kgsueme/kgsueme/util.pl (file contents):
Revision 1.15 by root, Sat Jun 5 16:01:53 2004 UTC vs.
Revision 1.16 by elmex, Tue Jun 8 23:13:28 2004 UTC

… …
35 $time > 60*60 35 $time > 60*60
36 ? sprintf "%d:%02d:%02d", $time / (60 * 60), $time / 60 % 60, $time % 60 36 ? sprintf "%d:%02d:%02d", $time / (60 * 60), $time / 60 % 60, $time % 60
37 : sprintf "%d:%02d", $time / 60 % 60, $time % 60; 37 : sprintf "%d:%02d", $time / 60 % 60, $time % 60;
38} 38}
39 39
40sub date_string($) {
41 my ($timestamp) = @_;
42 use POSIX ();
43 return (POSIX::strftime "%Y-%m-%d %H:%M", localtime $timestamp);
44}
45
40sub parse_time($) { 46sub parse_time($) {
41 47
42 my $time; 48 my $time;
43 $time = $time * 60 + $_ for split /:/, $_[0]; 49 $time = $time * 60 + $_ for split /:/, $_[0];
44 50

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines