More work to make the db scripts general

git-svn-id: file:///svn-source/pmgr/branches/invoice_receipt_20090629@266 97e9348a-65ac-dc4b-aefc-98561f571b83

scripts/sitelink2pmgr.pl

@@ -26,6 +26,11 @@ my $sdbh = DBI->connect("dbi:ADO:$sdsn", undef, undef, {PrintError => 1,
 my($hostname, $database, $user, $password) = ('localhost',
 					      'property_manager',
 					      'pmgr', 'pmgruser');
+
+$database = shift if @ARGV;
+$user     = shift if @ARGV;
+$password = shift if @ARGV;
+
 print STDERR "Connecting to $database as $user\n";
 my $db_handle = DBI->connect("DBI:mysql:database=$database;host=$hostname",
 			     $user, $password,