|
||||
File indexing completed on 2024-04-06 12:22:58
0001 #!/usr/bin/perl 0002 0003 use warnings; 0004 use strict; 0005 0006 use POSIX; 0007 0008 package Util; 0009 0010 sub beginning_time { 0011 return POSIX::mktime(0,0,0,1,0,105); # 2005-01-01 00:00:00 0012 } 0013 0014 sub to_date { 0015 my $time = shift; 0016 return POSIX::strftime("%Y-%m-%d %H:%M:%S", gmtime($time)); 0017 } 0018 0019 1;
[ Source navigation ] | [ Diff markup ] | [ Identifier search ] | [ general search ] |
This page was automatically generated by the 2.2.1 LXR engine. The LXR team |