Index: /trunk/cgi-bin/MyIPDB.pm
===================================================================
--- /trunk/cgi-bin/MyIPDB.pm	(revision 843)
+++ /trunk/cgi-bin/MyIPDB.pm	(revision 844)
@@ -22,4 +22,9 @@
 # DB host is optional.
 my $dbhost = 'localhost';
+##fixme:  need better way to export the variables above for db-update
+sub dbname { $dbname }
+sub dbuser { $dbuser }
+sub dbpass { $dbpass }
+sub dbhost { $dbhost }
 
 # ACL for RPC shim.  A hash of arrays;  the hash keys are the remote system
Index: /trunk/cgi-bin/db-update.pl
===================================================================
--- /trunk/cgi-bin/db-update.pl	(revision 843)
+++ /trunk/cgi-bin/db-update.pl	(revision 844)
@@ -9,5 +9,7 @@
 
 # run the tabledef update first.  This is "safe";  IPDB < 3.0 can still happily munch away at it.
-print qx { PGPASSWORD=ipdbpwd psql -h localhost -U ipdb ipdb <ipdb-2.7-3.0.sql };
+##fixme
+my $sqlcmd = "PGPASSWORD=".dbpass()." psql -h ".dbhost()." -U ".dbuser()." ".dbname()." <ipdb-2.7-3.0.sql";
+print qx $sqlcmd;
 
 my $dbh;