IPP Software Navigation Tools IPP Links Communication Pan-STARRS Links

Changeset 28771


Ignore:
Timestamp:
Jul 29, 2010, 12:35:49 PM (16 years ago)
Author:
rhenders
Message:

Added some conveniance methods for dealing with time

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/tools/czartool/MySQLDb.pm

    r28752 r28771  
    6565}                                                                               
    6666
    67 
    6867###########################################################################
    6968#
    70 # Returns 'now' as a timestamp
     69# Subtracts the provided interval from the provided time
    7170#
    7271###########################################################################
    73 sub getIntervalInPast {
    74     my ($self, $interval) = @_;
     72sub subtractInterval {
     73    my ($self, $time, $interval) = @_;
    7574
    7675      my $query = $self->{_db}->prepare(<<SQL);
    77           SELECT now() - INTERVAL $interval;
     76          SELECT '$time' - INTERVAL $interval;
    7877SQL
    7978    $query->execute;
     
    8281}
    8382
     83###########################################################################
     84#
     85# Returns whether time1 is before time2
     86#
     87###########################################################################
     88sub isBefore {
     89    my ($self, $time1, $time2) = @_;
     90
     91      my $query = $self->{_db}->prepare(<<SQL);
     92          SELECT '$time1' < '$time2';
     93SQL
     94    $query->execute;
     95
     96return scalar $query->fetchrow_array();
     97}
    8498
    8599###########################################################################
Note: See TracChangeset for help on using the changeset viewer.