Changeset 21192

Timestamp:

Jan 27, 2009, 2:06:54 PM (17 years ago)

Author:

bills

Message:

correct error message

File:

• trunk/pstamp/scripts/pstamp_webrequest.pl (modified) (2 diffs)

trunk/pstamp/scripts/pstamp_webrequest.pl

@@ -79 +79 @@
 # make a request file
 my $cur_dir = getcwd();
+#print STDERR "cur_dir is $cur_dir\n";
 my $request_name = "web" . get_webreq_num();
 my $request_file = "$cur_dir/$request_name.fits";
@@ -140 +141 @@
 sub get_webreq_num
 {
-    my $filename = "./webreq_num.txt";
+    my $filename = "webreq_num.txt";
     if (! open IN, "+< $filename" ) {
         my $initial_num = 1;
-        open IN, "> $filename" or die "can't open request $filename";
+        open IN, "> $filename" or die "can't open $filename";
         print IN "$initial_num\n" or die "failed to initialize $filename";
         close IN;