Changeset 5199

Timestamp:

Sep 29, 2005, 3:23:41 PM (21 years ago)

Author:

jhoblitt

Message:

add stamp, file_id, size, & md5 options

File:

• trunk/PS-IPP-MetaDB/scripts/mdb-add-new (modified) (5 diffs)

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

@@ -3 +3 @@
 # Copyright (C) 2005  Joshua Hoblitt
 #
-# $Id: mdb-add-new,v 1.4 2005-09-29 21:28:33 jhoblitt Exp $
+# $Id: mdb-add-new,v 1.5 2005-09-30 01:23:41 jhoblitt Exp $
 
 use strict;
@@ -16 +16 @@
 use Pod::Usage qw( pod2usage );
 
-my ($exp_id, $class_id, $camera, $class, $url);
+my ($exp_id, $class, $class_id, $camera, $stamp, $file_id, $size, $md5, $url);
 my ($dsn, $dbuser, $dbpass);
 
@@ -24 +24 @@
     'pass=s'    => \$dbpass,
     'exp_id=s'  => \$exp_id,
+    'class=s'   => \$class,
     'class_id=s'=> \$class_id,
     'camera=s'  => \$camera,
-    'class=s'   => \$class,
+    'stamp=s'   => \$stamp,
+    'file_id=s' => \$file_id,
+    'size=s'    => \$size,
+    'md5=s'     => \$md5,
     'url=s'     => \$url,
 ) || pod2usage( 2 );
@@ -37 +41 @@
 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;
+pod2usage(
+    -msg => "Required options: --exp_id --class --class_id --url",
+    -exitval => 2,
+) unless defined $exp_id and defined $class 
+    and defined $class_id and defined $url;
 
 PS::IPP::MetaDB->init(
@@ -48 +55 @@
 PS::IPP::MetaDB->add_new(
     exp_id      => $exp_id,
+    class       => $class,
     class_id    => $class_id,
     camera      => $camera,
-    class       => $class,
+    stamp       => $stamp,
+    file_id     => $file_id,
+    size        => $size,
+    md5         => $md5,
     url         => $url,
 );