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	dpavlin	1.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	dpavlin	1.2	print "rv: $rv\n" if ($debug);
22
23	dpavlin	1.1	$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	dpavlin	1.2	'$omni{Backup_Specification}')") if ($rv eq "0E0" \|\| !$rv);
29	dpavlin	1.1	}
30
31			open(O, "/usr/omni/bin/omnistat -detail \|") \|\| die "omnistat: $!";
32			while(<O>) {
33			chomp;
34			if (/^$/) {
35	dpavlin	1.2	db() if (scalar keys %omni == 6);
36	dpavlin	1.1	%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);