--- index.cgi 2009/04/14 19:54:56 10 +++ index.cgi 2009/04/18 12:08:07 17 @@ -11,10 +11,11 @@ our $dsn = 'DBI:Pg:dbname=syslog'; our $user = 'dpavlin'; +our $table = 'log'; require 'config.pl' if -e 'config.pl'; -my $table = param('table') || 'log'; +$table = param('table') || $table; my @columns = param('columns'); @columns = ('*') unless @columns; my $limit = param('limit') || 1000; @@ -37,7 +38,7 @@ while ( my @row = $sth->fetchrow_array ) { my ( $n, $c ) = @row; $n = 'NULL' unless defined $n; - print qq|$c$n|; + print qq|$c$n|; } print qq||; exit; @@ -52,13 +53,6 @@ - - - - - @@ -113,6 +107,13 @@ print $sth->rows, qq| rows in $t s|; +#my @types = map { scalar $dbh->type_info($_)->{TYPE_NAME} } @{ $sth->{TYPE} }; +my $types = dump( $sth->{TYPE} ); +print qq{ + +}; @columns = @{ $sth->{NAME} } if $#columns == 0 && $columns[0] eq '*'; @@ -140,7 +141,7 @@ qq|| , start_form( -id => 'sql' ) - , qq|close| + , qq|[x]| , qq|| , checkbox_group( -name => 'columns', -values => [ @columns ], -defaults => [ @columns ] ) @@ -157,7 +158,7 @@ -
...loading...
+
|