8 |
|
|
9 |
=head1 USAGE |
=head1 USAGE |
10 |
|
|
11 |
Each file in current directory which ends in C<< *.sql >> will |
Each file in current directory which ends in C<*.sql> will |
12 |
be converted to Excel sheet. If you want to have specific order, you can |
be converted to Excel sheet. If you want to have specific order, you can |
13 |
prefix filenames with numbers which will be striped when creating sheet |
prefix filenames with numbers which will be striped when creating sheet |
14 |
names. |
names. |
15 |
|
|
16 |
Comments in sql files (lines beginning with --) will be placed |
Comments in sql files (lines beginning with C<-->) will be placed |
17 |
in first line in bold. |
in first line in bold. |
18 |
|
|
19 |
To specify database on which SQL query is executed |
To specify database on which SQL query is executed |
20 |
C<< \c database >> syntax is supported. |
C<\c database> syntax is supported. |
21 |
|
|
22 |
You can also run script from command line, and it will produce |
You can also run script from command line, and it will produce |
23 |
C<< sql_reports.xls >> file. |
C<sql_reports.xls> file. |
24 |
|
|
25 |
If run within directory, it will use files in it to produce file. |
If run within directory, it will use files in it to produce file. |
26 |
|
|
39 |
|
|
40 |
in Apache's virtual host configuration to get nice URLs |
in Apache's virtual host configuration to get nice URLs |
41 |
|
|
42 |
|
To configure default database, user, password and other settings create |
43 |
|
C<config.pl> file in same directory in which C<sql2xls.cgi> is with something |
44 |
|
like this: |
45 |
|
|
46 |
|
$dsn = 'DBI:mysql:dbname='; |
47 |
|
$database = 'database'; |
48 |
|
$user = 'user'; |
49 |
|
$passwd = 'password'; |
50 |
|
$path = 'sql_reports.xls'; |
51 |
|
|
52 |
|
$db_encoding = 'utf-8'; |
53 |
|
$xls_date_format = 'dd.mm.yyyy'; |
54 |
|
|
55 |
|
$debug = 1; |
56 |
|
|
57 |
|
=head1 SECURITY |
58 |
|
|
59 |
|
There is none. Use apache auth modules if you need it. |
60 |
|
|
61 |
=head1 AUTHOR |
=head1 AUTHOR |
62 |
|
|
63 |
Dobrica Pavlinusic, dpavlin@rot13.org |
Dobrica Pavlinusic, dpavlin@rot13.org, L<http://svn.rot13.org/index.cgi/SQL2XLS/> |
64 |
|
|
65 |
=cut |
=cut |
66 |
|
|
85 |
my $sql_dir = $ENV{SCRIPT_FILENAME} || '.'; |
my $sql_dir = $ENV{SCRIPT_FILENAME} || '.'; |
86 |
$sql_dir =~ s,/[^/]+$,,; |
$sql_dir =~ s,/[^/]+$,,; |
87 |
|
|
88 |
my $config_path = "$sql_dir/config.pl"; |
my $config_path = $1 if "$sql_dir/config.pl" =~ m/^(.+)$/; # untaint |
89 |
warn "# using $config_path\n"; |
warn "# using $config_path\n"; |
90 |
require $config_path if -e $config_path; |
require $config_path if -e $config_path; |
91 |
|
|