--- index.cgi	2009/04/18 23:58:42	27
+++ index.cgi	2009/12/08 20:03:35	29
@@ -12,9 +12,11 @@
 print qq{Content-type: text/html\r\n\r\n};
 
 our $dsn    = 'DBI:Pg:dbname=syslog';
+our $database = ''; # if not in $dsn
 our $user   = 'dpavlin';
 our $table  = 'log';
 our $limit  = 1000;
+our $passwd = '';
 
 our $group_by_join = {
 	feed_id => [ 'feeds', 'id', 'title', 'link', 'timestamp' ],
@@ -30,7 +32,7 @@
 
 my @where_parts = param('where_parts');
 
-my $dbh = DBI->connect( $dsn, $user, '', { RaiseError => 1 } ) || die $DBI::errstr;
+my $dbh = DBI->connect( $dsn . $database, $user, $passwd, { RaiseError => 1 } ) || die $DBI::errstr;
 
 sub where_from_parts {
 	return unless @_;