/[sql-web-session]/index.cgi
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /index.cgi

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 27 by dpavlin, Sat Apr 18 23:58:42 2009 UTC revision 29 by dpavlin, Tue Dec 8 20:03:35 2009 UTC
# Line 12  use Time::HiRes qw/time/; Line 12  use Time::HiRes qw/time/;
12  print qq{Content-type: text/html\r\n\r\n};  print qq{Content-type: text/html\r\n\r\n};
13    
14  our $dsn    = 'DBI:Pg:dbname=syslog';  our $dsn    = 'DBI:Pg:dbname=syslog';
15    our $database = ''; # if not in $dsn
16  our $user   = 'dpavlin';  our $user   = 'dpavlin';
17  our $table  = 'log';  our $table  = 'log';
18  our $limit  = 1000;  our $limit  = 1000;
19    our $passwd = '';
20    
21  our $group_by_join = {  our $group_by_join = {
22          feed_id => [ 'feeds', 'id', 'title', 'link', 'timestamp' ],          feed_id => [ 'feeds', 'id', 'title', 'link', 'timestamp' ],
# Line 30  my $offset = param('offset') || 0; Line 32  my $offset = param('offset') || 0;
32    
33  my @where_parts = param('where_parts');  my @where_parts = param('where_parts');
34    
35  my $dbh = DBI->connect( $dsn, $user, '', { RaiseError => 1 } ) || die $DBI::errstr;  my $dbh = DBI->connect( $dsn . $database, $user, $passwd, { RaiseError => 1 } ) || die $DBI::errstr;
36    
37  sub where_from_parts {  sub where_from_parts {
38          return unless @_;          return unless @_;

Legend:
Removed from v.27  
changed lines
  Added in v.29

  ViewVC Help
Powered by ViewVC 1.1.26