--- omni2db.pl	2002/09/11 18:11:07	1.2
+++ omni2db.pl	2002/09/12 07:59:57	1.4
@@ -10,15 +10,19 @@
 my %omni;
 
 sub db {
-	my $rv = $dbh->do("update gantt
+	return if (scalar keys %omni != 6);
+
+	my $sql = "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}'");
+		specification='$omni{Backup_Specification}'";
+
+	my $rv = $dbh->do($sql);
 
-	print "rv: $rv\n" if ($debug);
+	print "sql:\n$sql\nrv: $rv\n" if ($debug);
 
 	$dbh->do ("insert into gantt (sessionid,type,status,
 		user_group_host,specification) values
@@ -32,18 +36,19 @@
 while(<O>) {
 	chomp;
 	if (/^$/) {
-		db() if (scalar keys %omni == 6);
+		db();
 		%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;
-	
+	if ($r) {
+		$l =~ s/\s+/_/g;
+		$r =~ s/\s+$//g;
+		print "$l -> $r\n" if ($debug);
+		$omni{$l} = $r;
+	}
 }
 db();
 close(O);