Changeset 25051 for branches/czw_branch/cleanup/arclog/arclog.pl

Timestamp:

Aug 11, 2009, 3:54:00 PM (17 years ago)

Author:

watersc1

Message:

Bringing branch up-to-date at revision 25049

Location:

branches/czw_branch/cleanup

Files:

• . (modified) (1 prop)
• arclog/arclog.pl (modified) (2 diffs)

branches/czw_branch/cleanup/arclog/arclog.pl

@@ -19 +19 @@
 use Pod::Usage qw( pod2usage );
 
-my ($email);
+my ($debug, $email);
 
 GetOptions(
-    'email|s=s'    => \$email,
+    'debug|d'   => \$debug,
+    'email|s=s' => \$email,
 ) || pod2usage( 2 );
 
@@ -176 +177 @@
         = @$rec{qw( host time device event elapse_time errors )};
     # pack record
-    $query->execute("$host|$time|$device|$event|$elapse_time|$errors")
+    my $rec = "$host|$time|$device|$event|$elapse_time|$errors";
+    $query->execute($rec)
         or die "database error: $!";
+    warn "inserting $rec\n" if $debug;
 
     # do not print filtered records