fix sql script generator #34

ufal · Nov 15, 2021 · e308a59 · e308a59
1 parent b7c735f
commit e308a59
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/scripts/log2sql.pl b/scripts/log2sql.pl
@@ -19,7 +19,6 @@
 my $dbport = 5432;
 my $ignore = qr/\.(gif|jpg|jpeg|tiff|png|js|css|eot|ico|svg)$/;
 my @services;
-my @print_sql;
 
 my $strp = DateTime::Format::Strptime->new(
   pattern => '%d/%b/%Y:%H:%M:%S %z',
@@ -72,6 +71,7 @@
 }
 
 for my $log_file_path (@logfiles) {
+  my @print_sql;
   my $log_file = basename($log_file_path);
   my $sql="SELECT 1 FROM log_files WHERE file_name='$log_file';";
   my $sth = $dbi->prepare($sql);