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.12 by root, Wed Jun 2 04:39:07 2004 UTC vs.
Revision 1.13 by root, Wed Jun 2 09:32:32 2004 UTC

… …
34 $time > 60*60 34 $time > 60*60
35 ? sprintf "%d:%02d:%02d", $time / (60 * 60), $time / 60 % 60, $time % 60 35 ? sprintf "%d:%02d:%02d", $time / (60 * 60), $time / 60 % 60, $time % 60
36 : sprintf "%d:%02d", $time / 60 % 60, $time % 60; 36 : sprintf "%d:%02d", $time / 60 % 60, $time % 60;
37} 37}
38 38
39sub parse_time($) {
40
41 my $time;
42 $time = $time * 60 + $_ for split /:/, $_[0];
43
44 $time;
45}
46
39# text to xml 47# text to xml
40sub toxml($) { 48sub toxml($) {
41 local $_ = shift; 49 local $_ = shift;
42 s/&/&/g; 50 s/&/&/g;
43 s/</&lt;/g; 51 s/</&lt;/g;

Diff Legend

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