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 |