Changeset 23267

Timestamp:

Mar 11, 2009, 10:29:48 AM (17 years ago)

Author:

bills

Message:

change module name for PStamp

Location:

trunk/pstamp

Files:

• scripts/pstamp_finish.pl (modified) (2 diffs)
• scripts/pstamp_job_run.pl (modified) (1 diff)
• scripts/pstampparse.pl (modified) (2 diffs)
• test/test_lookup.pl (modified) (1 diff)

trunk/pstamp/scripts/pstamp_finish.pl

@@ -21 +21 @@
 
 use PS::IPP::Config qw( :standard );
-use PStamp::RequestFile qw( :standard );
-use PStamp::Job qw( :standard );
+use PS::IPP::PStamp::RequestFile qw( :standard );
+use PS::IPP::PStamp::Job qw( :standard );
 
 my ( $req_id, $req_name, $req_file, $out_dir, $product, $dbname, $verbose, $save_temps, $redirect_output);
@@ -105 +105 @@
     }
 
-    # this function is PStamp::RequestFile::read_request_file
+    # this function is PS::IPP::PStamp::RequestFile::read_request_file
     my ($header, $rows) = read_request_file($req_file);
 

trunk/pstamp/scripts/pstamp_job_run.pl

@@ -13 +13 @@
 use File::Basename;
 use Digest::MD5::File qw( file_md5_hex );
-use PStamp::RequestFile qw( :standard );
+use PS::IPP::PStamp::RequestFile qw( :standard );
 
 my $verbose;

trunk/pstamp/scripts/pstampparse.pl

@@ -11 +11 @@
 use Sys::Hostname;
 use Getopt::Long qw( GetOptions );
-use PStamp::RequestFile qw( :standard );
-use PStamp::Job qw( :standard );
+use PS::IPP::PStamp::RequestFile qw( :standard );
+use PS::IPP::PStamp::Job qw( :standard );
 
 my $verbose;
@@ -178 +178 @@
     }
 
-    # Call PStamp::Job's locate_images routine to get the parameters for this request specification
+    # Call PS::IPP::PStamp::Job's locate_images routine to get the parameters for this request specification
     my $images = locate_images($ipprc, $image_db, $req_type, $img_type, $id, $class_id,
             $x, $y, $mjd_min, $mjd_max, $filter, $verbose);

trunk/pstamp/test/test_lookup.pl

@@ -9 +9 @@
 
 use Getopt::Long qw( GetOptions );
-use PStamp::Job qw( :standard );
+use PS::IPP::PStamp::Job qw( :standard );
 
 use PS::IPP::Config qw( :standard );