11 |
|
|
12 |
our $dsn = 'DBI:Pg:dbname=syslog'; |
our $dsn = 'DBI:Pg:dbname=syslog'; |
13 |
our $user = 'dpavlin'; |
our $user = 'dpavlin'; |
14 |
|
our $table = 'log'; |
15 |
|
|
16 |
require 'config.pl' if -e 'config.pl'; |
require 'config.pl' if -e 'config.pl'; |
17 |
|
|
18 |
my $table = param('table') || 'log'; |
$table = param('table') || $table; |
19 |
my @columns = param('columns'); |
my @columns = param('columns'); |
20 |
@columns = ('*') unless @columns; |
@columns = ('*') unless @columns; |
21 |
my $limit = param('limit') || 1000; |
my $limit = param('limit') || 1000; |
38 |
while ( my @row = $sth->fetchrow_array ) { |
while ( my @row = $sth->fetchrow_array ) { |
39 |
my ( $n, $c ) = @row; |
my ( $n, $c ) = @row; |
40 |
$n = 'NULL' unless defined $n; |
$n = 'NULL' unless defined $n; |
41 |
print qq|<tr><td>$c</td><td>$n</td></tr>|; |
print qq|<tr><td>$c</td><td><a href="#">$n</a></td></tr>|; |
42 |
} |
} |
43 |
print qq|</table>|; |
print qq|</table>|; |
44 |
exit; |
exit; |
53 |
<!-- http://jqueryjs.googlecode.com/files/jquery-1.3.2.min.js --> |
<!-- http://jqueryjs.googlecode.com/files/jquery-1.3.2.min.js --> |
54 |
<script type="text/javascript" src="jquery-1.3.2.min.js"></script> |
<script type="text/javascript" src="jquery-1.3.2.min.js"></script> |
55 |
|
|
|
<!-- insert firebug lite because we use console.* all over --> |
|
|
<!-- http://getfirebug.com/releases/lite/1.2/firebug-lite-compressed.js --> |
|
|
<script type="text/javascript" src="firebug-lite-compressed.js"></script> |
|
|
<script type="text/javascript"> |
|
|
firebug.env.height = 100; |
|
|
</script> |
|
|
|
|
56 |
<script type="text/javascript" src="sql-editor.js"></script> |
<script type="text/javascript" src="sql-editor.js"></script> |
57 |
|
|
58 |
</head> |
</head> |
107 |
|
|
108 |
print $sth->rows, qq| rows in $t s</code>|; |
print $sth->rows, qq| rows in $t s</code>|; |
109 |
|
|
110 |
|
#my @types = map { scalar $dbh->type_info($_)->{TYPE_NAME} } @{ $sth->{TYPE} }; |
111 |
|
my $types = dump( $sth->{TYPE} ); |
112 |
|
print qq{ |
113 |
|
<script type="text/javascript"> |
114 |
|
var column_type = $types ; |
115 |
|
</script> |
116 |
|
}; |
117 |
|
|
118 |
@columns = @{ $sth->{NAME} } if $#columns == 0 && $columns[0] eq '*'; |
@columns = @{ $sth->{NAME} } if $#columns == 0 && $columns[0] eq '*'; |
119 |
|
|