--- sql2xls.cgi 2008/11/06 10:49:02 23 +++ sql2xls.cgi 2008/11/06 10:53:59 24 @@ -99,7 +99,7 @@ require_config; -warn "# reading SQL queries from $sql_dir\n" if $debug; +warn "SQL queries from $sql_dir\n"; opendir(DIR, $sql_dir) || die "can't opendir $sql_dir: $!"; my @sql_files = sort grep { /\.sql$/i && -f "$sql_dir/$_" } readdir(DIR); @@ -195,7 +195,7 @@ foreach my $sql ( split(/;/, $full_sql ) ) { - warn "SQL: $sql\n" if $debug; + warn "SQL: $sql\n"; my $sth = $dbh->prepare($sql); $sth->execute();