12 |
our $dsn = 'DBI:Pg:dbname=syslog'; |
our $dsn = 'DBI:Pg:dbname=syslog'; |
13 |
our $user = 'dpavlin'; |
our $user = 'dpavlin'; |
14 |
our $table = 'log'; |
our $table = 'log'; |
15 |
|
our $limit = 1000; |
16 |
|
|
17 |
require 'config.pl' if -e 'config.pl'; |
require 'config.pl' if -e 'config.pl'; |
18 |
|
|
19 |
$table = param('table') || $table; |
$table = param('table') || $table; |
20 |
my @columns = param('columns'); |
my @columns = param('columns'); |
21 |
@columns = ('*') unless @columns; |
@columns = ('*') unless @columns; |
22 |
my $limit = param('limit') || 1000; |
$limit = param('limit') || $limit; |
23 |
my $offset = param('offset') || 0; |
my $offset = param('offset') || 0; |
24 |
|
|
25 |
my @where_parts = param('where_parts'); |
my @where_parts = param('where_parts'); |