Changeset 5184 for trunk/PS-IPP-MetaDB/scripts/mdb-new2newed

Timestamp:

Sep 29, 2005, 11:18:25 AM (21 years ago)

Author:

jhoblitt

Message:

change db option to dsn
remove --pass option requirement
call PS::IPP::MetaDB->init()

File:

• trunk/PS-IPP-MetaDB/scripts/mdb-new2newed (modified) (4 diffs)

trunk/PS-IPP-MetaDB/scripts/mdb-new2newed

@@ -3 +3 @@
 # Copyright (C) 2005  Joshua Hoblitt
 #
-# $Id: mdb-new2newed,v 1.1 2005-09-28 04:31:32 jhoblitt Exp $
+# $Id: mdb-new2newed,v 1.2 2005-09-29 21:18:25 jhoblitt Exp $
 
 use strict;
@@ -16 +16 @@
 use Pod::Usage qw( pod2usage );
 
-my ($db, $dbuser, $dbpass);
+my ($dsn, $dbuser, $dbpass);
 
 $db     = $ENV{'MDB_DB'} unless $db;
@@ -25 +25 @@
 
 GetOptions(
-    'db=s'      => \$db,
+    'dsn=s'     => \$dsn,
     'user=s'    => \$dbuser,
     'pass=s'    => \$dbpass,
@@ -34 +34 @@
 
 pod2usage( -msg => "Unknown option: @ARGV", -exitval => 2 ) if @ARGV;
-pod2usage( -msg => "Required options: --db --user --pass", -exitval => 2 )
-    unless defined $db and defined $dbuser; # and defined $dbpass;
+pod2usage( -msg => "Required options: --dsn --user", -exitval => 2 )
+    unless defined $dsn and defined $dbuser;
 pod2usage( -msg => "Required options: --exp_id --class_id --url", -exitval => 2)
     unless defined $exp_id and defined $class_id and defined $url;
+
+PS::IPP::MetaDB->init(
+    dsn     => $dsn,
+    user    => $dbuser,
+    passwd  => $dbpass,
+);
 
 PS::IPP::MetaDB->new2newed(