viewvc.cgi/omni_gantt/omni2db.pl

#!/usr/bin/perl -w

use strict;
use DBI;

my $debug = 0;

my $dbh = DBI->connect("DBI:Pg:dbname=gantt","","") || die $DBI::errstr;

my %omni;

sub db {
        my $rv = $dbh->do("update gantt
                set finish=now() where
                sessionid='$omni{SessionID}' and
                type='$omni{Session_type}' and
                status='$omni{Session_status}' and
                user_group_host='".$omni{'User.Group@Host'}."' and
                specification='$omni{Backup_Specification}'");

        print "rv: $rv\n" if ($debug);

        $dbh->do ("insert into gantt (sessionid,type,status,
                user_group_host,specification) values
                ('$omni{SessionID}','$omni{Session_type}',
                '$omni{Session_status}',
                '".$omni{'User.Group@Host'}."',
                '$omni{Backup_Specification}')") if ($rv eq "0E0" || !$rv);
}

open(O, "/usr/omni/bin/omnistat -detail |") || die "omnistat: $!";
while(<O>) {
        chomp;
        if (/^$/) {
                db() if (scalar keys %omni == 6);
                %omni = ();
                print "------------\n" if ($debug);
                next;
        }
        s/^[\t\s]+//;
        my ($l,$r) = split (/\s*:\s*/,$_,2);
        $l =~ s/\s+/_/g;
        $r =~ s/\s+$//g;
        print "$l -> $r\n" if ($debug);
        $omni{$l} = $r;
        
}
db();
close(O);
1	#!/usr/bin/perl -w
2
3	use strict;
4	use DBI;
5
6	my $debug = 0;
7
8	my $dbh = DBI->connect("DBI:Pg:dbname=gantt","","") \|\| die $DBI::errstr;
9
10	my %omni;
11
12	sub db {
13	my $rv = $dbh->do("update gantt
14	set finish=now() where
15	sessionid='$omni{SessionID}' and
16	type='$omni{Session_type}' and
17	status='$omni{Session_status}' and
18	user_group_host='".$omni{'User.Group@Host'}."' and
19	specification='$omni{Backup_Specification}'");
20
21	print "rv: $rv\n" if ($debug);
22
23	$dbh->do ("insert into gantt (sessionid,type,status,
24	user_group_host,specification) values
25	('$omni{SessionID}','$omni{Session_type}',
26	'$omni{Session_status}',
27	'".$omni{'User.Group@Host'}."',
28	'$omni{Backup_Specification}')") if ($rv eq "0E0" \|\| !$rv);
29	}
30
31	open(O, "/usr/omni/bin/omnistat -detail \|") \|\| die "omnistat: $!";
32	while(<O>) {
33	chomp;
34	if (/^$/) {
35	db() if (scalar keys %omni == 6);
36	%omni = ();
37	print "------------\n" if ($debug);
38	next;
39	}
40	s/^[\t\s]+//;
41	my ($l,$r) = split (/\s:\s/,$_,2);
42	$l =~ s/\s+/_/g;
43	$r =~ s/\s+$//g;
44	print "$l -> $r\n" if ($debug);
45	$omni{$l} = $r;
46
47	}
48	db();
49	close(O);