18 |
user_group_host='".$omni{'User.Group@Host'}."' and |
user_group_host='".$omni{'User.Group@Host'}."' and |
19 |
specification='$omni{Backup_Specification}'"); |
specification='$omni{Backup_Specification}'"); |
20 |
|
|
21 |
|
print "rv: $rv\n" if ($debug); |
22 |
|
|
23 |
$dbh->do ("insert into gantt (sessionid,type,status, |
$dbh->do ("insert into gantt (sessionid,type,status, |
24 |
user_group_host,specification) values |
user_group_host,specification) values |
25 |
('$omni{SessionID}','$omni{Session_type}', |
('$omni{SessionID}','$omni{Session_type}', |
26 |
'$omni{Session_status}', |
'$omni{Session_status}', |
27 |
'".$omni{'User.Group@Host'}."', |
'".$omni{'User.Group@Host'}."', |
28 |
'$omni{Backup_Specification}')") if ($rv eq "0E0"); |
'$omni{Backup_Specification}')") if ($rv eq "0E0" || !$rv); |
29 |
} |
} |
30 |
|
|
31 |
open(O, "/usr/omni/bin/omnistat -detail |") || die "omnistat: $!"; |
open(O, "/usr/omni/bin/omnistat -detail |") || die "omnistat: $!"; |
32 |
while(<O>) { |
while(<O>) { |
33 |
chomp; |
chomp; |
34 |
if (/^$/) { |
if (/^$/) { |
35 |
db() if (scalar keys %omni == 4); |
db() if (scalar keys %omni == 6); |
36 |
%omni = (); |
%omni = (); |
37 |
print "------------\n" if ($debug); |
print "------------\n" if ($debug); |
38 |
next; |
next; |