> #!/usr/bin/perl -w
> #
> 
> package DB;
> 
> $dsn = "dbi:Pg:dbname=life;host=127.0.0.1;port=1101";
> $user = 'user';
> $pass = 'pw';
> 
> package main;
> 
> use DBI;
> use DBD::Pg;
> 
> print "\nConnection information\n";
> print "$DB::user $DB::pass $DB::dsn\n\n";
> 
> my $dbh = DBI->connect("$DB::dsn","$DB::user","$DB::pass") ||


DB::dsn eq "dbi:Pg:dbname=life;host=127.0.0.1;port=1101";

Don't you want to use dbi:Proxy instead of dbi:Pg to connect to the proxy 
server?


Later,

Rudy

Reply via email to