Changeset 28771
- Timestamp:
- Jul 29, 2010, 12:35:49 PM (16 years ago)
- File:
-
- 1 edited
-
trunk/tools/czartool/MySQLDb.pm (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/tools/czartool/MySQLDb.pm
r28752 r28771 65 65 } 66 66 67 68 67 ########################################################################### 69 68 # 70 # Returns 'now' as a timestamp69 # Subtracts the provided interval from the provided time 71 70 # 72 71 ########################################################################### 73 sub getIntervalInPast{74 my ($self, $ interval) = @_;72 sub subtractInterval { 73 my ($self, $time, $interval) = @_; 75 74 76 75 my $query = $self->{_db}->prepare(<<SQL); 77 SELECT now()- INTERVAL $interval;76 SELECT '$time' - INTERVAL $interval; 78 77 SQL 79 78 $query->execute; … … 82 81 } 83 82 83 ########################################################################### 84 # 85 # Returns whether time1 is before time2 86 # 87 ########################################################################### 88 sub isBefore { 89 my ($self, $time1, $time2) = @_; 90 91 my $query = $self->{_db}->prepare(<<SQL); 92 SELECT '$time1' < '$time2'; 93 SQL 94 $query->execute; 95 96 return scalar $query->fetchrow_array(); 97 } 84 98 85 99 ###########################################################################
Note:
See TracChangeset
for help on using the changeset viewer.
