projects
/
SQL2XLS
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
8cb3ec3
)
more output when running without debug
author
Dobrica Pavlinusic
<dpavlin@rot13.org>
Thu, 6 Nov 2008 10:53:59 +0000
(10:53 +0000)
committer
Dobrica Pavlinusic
<dpavlin@rot13.org>
Thu, 6 Nov 2008 10:53:59 +0000
(10:53 +0000)
git-svn-id: svn://svn.rot13.org/SQL2XLS@24
2e857b76
-582b-47e5-ad5c-
b3ba0f0ee29b
sql2xls.cgi
patch
|
blob
|
history
diff --git
a/sql2xls.cgi
b/sql2xls.cgi
index
5f23394
..
706cf92
100755
(executable)
--- a/
sql2xls.cgi
+++ b/
sql2xls.cgi
@@
-99,7
+99,7
@@
$sql_dir .= "/$reports_path" if -e "$sql_dir/$reports_path";
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_file (@sql_files) {
foreach my $sql ( split(/;/, $full_sql ) ) {
- warn "SQL: $sql\n"
if $debug
;
+ warn "SQL: $sql\n";
my $sth = $dbh->prepare($sql);
$sth->execute();