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}'");

        $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");
}

open(O, "/usr/omni/bin/omnistat -detail |") || die "omnistat: $!";
while(<O>) {
        chomp;
        if (/^$/) {
                db() if (scalar keys %omni == 4);
                %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	$dbh->do ("insert into gantt (sessionid,type,status,
22	user_group_host,specification) values
23	('$omni{SessionID}','$omni{Session_type}',
24	'$omni{Session_status}',
25	'".$omni{'User.Group@Host'}."',
26	'$omni{Backup_Specification}')") if ($rv eq "0E0");
27	}
28
29	open(O, "/usr/omni/bin/omnistat -detail \|") \|\| die "omnistat: $!";
30	while(<O>) {
31	chomp;
32	if (/^$/) {
33	db() if (scalar keys %omni == 4);
34	%omni = ();
35	print "------------\n" if ($debug);
36	next;
37	}
38	s/^[\t\s]+//;
39	my ($l,$r) = split (/\s:\s/,$_,2);
40	$l =~ s/\s+/_/g;
41	$r =~ s/\s+$//g;
42	print "$l -> $r\n" if ($debug);
43	$omni{$l} = $r;
44
45	}
46	db();
47	close(O);