IPP Software Navigation Tools IPP Links Communication Pan-STARRS Links

Changeset 5184


Ignore:
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()

Location:
trunk/PS-IPP-MetaDB/scripts
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/PS-IPP-MetaDB/scripts/mdb-add-new

    r5165 r5184  
    33# Copyright (C) 2005  Joshua Hoblitt
    44#
    5 # $Id: mdb-add-new,v 1.2 2005-09-28 04:31:19 jhoblitt Exp $
     5# $Id: mdb-add-new,v 1.3 2005-09-29 21:18:25 jhoblitt Exp $
    66
    77use strict;
    … …  
    1616use Pod::Usage qw( pod2usage );
    1717
    18 my ($db, $dbuser, $dbpass);
     18my ($dsn, $dbuser, $dbpass);
    1919
    20 $db     = $ENV{'MDB_DB'} unless $db;
     20$dsn    = $ENV{'MDB_DSN'} unless $dsn;
    2121$dbuser = $ENV{'MDB_USER'} unless $dbuser;
    2222$dbpass = $ENV{'MDB_PASS'} unless $dbpass;
    … …  
    2525
    2626GetOptions(
    27     'db=s'      => \$db,
     27    'dsn=s'     => \$dsn,
    2828    'user=s'    => \$dbuser,
    2929    'pass=s'    => \$dbpass,
    … …  
    3636
    3737pod2usage( -msg => "Unknown option: @ARGV", -exitval => 2 ) if @ARGV;
    38 pod2usage( -msg => "Required options: --db --user --pass", -exitval => 2 )
    39     unless defined $db and defined $dbuser; # and defined $dbpass;
     38pod2usage( -msg => "Required options: --dsn --user", -exitval => 2 )
     39    unless defined $dsn and defined $dbuser;
    4040pod2usage( -msg => "Required options: --exp_id --class_id --url", -exitval => 2)
    4141    unless defined $exp_id and defined $class_id and defined $url;
     42
     43PS::IPP::MetaDB->init(
     44    dsn     => $dsn,
     45    user    => $dbuser,
     46    passwd  => $dbpass,
     47);
    4248
    4349PS::IPP::MetaDB->add_new(

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

    r5166 r5184  
    33# Copyright (C) 2005  Joshua Hoblitt
    44#
    5 # $Id: mdb-new2newed,v 1.1 2005-09-28 04:31:32 jhoblitt Exp $
     5# $Id: mdb-new2newed,v 1.2 2005-09-29 21:18:25 jhoblitt Exp $
    66
    77use strict;
    … …  
    1616use Pod::Usage qw( pod2usage );
    1717
    18 my ($db, $dbuser, $dbpass);
     18my ($dsn, $dbuser, $dbpass);
    1919
    2020$db     = $ENV{'MDB_DB'} unless $db;
    … …  
    2525
    2626GetOptions(
    27     'db=s'      => \$db,
     27    'dsn=s'     => \$dsn,
    2828    'user=s'    => \$dbuser,
    2929    'pass=s'    => \$dbpass,
    … …  
    3434
    3535pod2usage( -msg => "Unknown option: @ARGV", -exitval => 2 ) if @ARGV;
    36 pod2usage( -msg => "Required options: --db --user --pass", -exitval => 2 )
    37     unless defined $db and defined $dbuser; # and defined $dbpass;
     36pod2usage( -msg => "Required options: --dsn --user", -exitval => 2 )
     37    unless defined $dsn and defined $dbuser;
    3838pod2usage( -msg => "Required options: --exp_id --class_id --url", -exitval => 2)
    3939    unless defined $exp_id and defined $class_id and defined $url;
     40
     41PS::IPP::MetaDB->init(
     42    dsn     => $dsn,
     43    user    => $dbuser,
     44    passwd  => $dbpass,
     45);
    4046
    4147PS::IPP::MetaDB->new2newed(
Note: See TracChangeset for help on using the changeset viewer.