/[omni_gantt]/omni2db.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /omni2db.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by dpavlin, Wed Sep 11 20:54:24 2002 UTC revision 1.4 by dpavlin, Thu Sep 12 07:59:57 2002 UTC
# Line 12  my %omni; Line 12  my %omni;
12  sub db {  sub db {
13          return if (scalar keys %omni != 6);          return if (scalar keys %omni != 6);
14    
15          my $rv = $dbh->do("update gantt          my $sql = "update gantt
16                  set finish=now() where                  set finish=now() where
17                  sessionid='$omni{SessionID}' and                  sessionid='$omni{SessionID}' and
18                  type='$omni{Session_type}' and                  type='$omni{Session_type}' and
19                  status='$omni{Session_status}' and                  status='$omni{Session_status}' and
20                  user_group_host='".$omni{'User.Group@Host'}||''."' and                  user_group_host='".$omni{'User.Group@Host'}."' and
21                  specification='$omni{Backup_Specification}'");                  specification='$omni{Backup_Specification}'";
22    
23          print "rv: $rv\n" if ($debug);          my $rv = $dbh->do($sql);
24    
25            print "sql:\n$sql\nrv: $rv\n" if ($debug);
26    
27          $dbh->do ("insert into gantt (sessionid,type,status,          $dbh->do ("insert into gantt (sessionid,type,status,
28                  user_group_host,specification) values                  user_group_host,specification) values
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.26