1package timehelper;
2
3#*************************************************************************
4#
5# DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
6#
7# Copyright 2000, 2010 Oracle and/or its affiliates.
8#
9# OpenOffice.org - a multi-platform office productivity suite
10#
11# This file is part of OpenOffice.org.
12#
13# OpenOffice.org is free software: you can redistribute it and/or modify
14# it under the terms of the GNU Lesser General Public License version 3
15# only, as published by the Free Software Foundation.
16#
17# OpenOffice.org is distributed in the hope that it will be useful,
18# but WITHOUT ANY WARRANTY; without even the implied warranty of
19# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
20# GNU Lesser General Public License version 3 for more details
21# (a copy is included in the LICENSE file that accompanied this code).
22#
23# You should have received a copy of the GNU Lesser General Public License
24# version 3 along with OpenOffice.org.  If not, see
25# <http://www.openoffice.org/license.html>
26# for a copy of the LGPLv3 License.
27#
28#*************************************************************************
29
30use POSIX qw(strftime);
31use POSIX qw(time difftime);
32# use POSIX qw(localtime);
33use strict;
34# use Time::localtime;
35use loghelper;
36
37BEGIN {
38    use Exporter   ();
39    our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
40
41    $VERSION     = 1.00;
42    # if using RCS/CVS, this may be preferred
43    $VERSION = do { my @r = (q$Revision: 1.1 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; # must be all one line, for MakeMaker
44    @ISA         = qw(Exporter);
45    @EXPORT      = qw(&getTime &endTime &printTime &waitAMinute );
46    %EXPORT_TAGS = ( );     # eg: TAG => [ qw!name1 name2! ],
47    # your exported package globals go here,
48    # as well as any optionally exported functions
49    @EXPORT_OK   = ( ); # qw($Var1 %Hashit &func3);
50}
51
52
53# ------------------------------------------------------------------------------
54# our $starttime;
55sub getTime()
56{
57    my $nValue;
58    # $nValue = localtime->sec();
59    # $nValue += 60 * localtime->min();
60    # $nValue += 3600 * localtime->hour();
61    $nValue = time();
62    return $nValue;
63}
64# sub startTime()
65# {
66#     $starttime = getTime();
67# }
68sub endTime($)
69{
70    my $starttime = shift;
71
72    my $endtime = getTime();
73    my $nTime = difftime($endtime, $starttime);
74    # my $nTime = $endtime - $starttime;
75    # if ($nTime < 0)
76    # {
77    #     $nTime += 24 * 3600; # add 24 hours
78    # }
79    return $nTime;
80}
81sub printTime($)
82{
83    my $nTime = shift;
84    print( "Time: " . $nTime . " seconds.\n\n");
85}
86
87
88# sub waitAMinute()
89# {
90#     # _waitInSeconds(20);
91#     # _waitInSeconds(20);
92#     my $now_string = strftime "%a %b %e %H:%M:%S %Y", localtime;
93#     print $now_string . "\n";
94#     # print getCurrentDateString() . "\n";
95#     sleep(60);
96# }
97#
98
991;
100