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 {
        return if (scalar keys %omni != 6);

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