Changeset 107

Timestamp:

Oct 7, 2003, 11:54:06 PM (23 years ago)

Author:

eugene

Message:

changed some errors to warnings to prevent users from receiving data

File:

• trunk/Ohana/src/perl/src/elixir.export (modified) (2 diffs)

trunk/Ohana/src/perl/src/elixir.export

@@ -18 +18 @@
     if ($line =~ /^\s*\#/) { next; } # skip commented lines
     $Nlist = ($id, $runids, $filters, $modes, $outdir) = split (" ", $line);
-    if ($Nlist != 6) { die "ERROR in config file: $line\n"; }
+    if ($Nlist != 6) { print STDERR "WARNING: error in config file: $line\n"; }
     push @id, $id;
     $runids{$id}  = $runids;
@@ -45 +45 @@
 
     system ("cp $datfile $outdir{$id}\n");
-    if ($?) { die "ERROR: can't write $datfile to $outdir{$id}\n"; }
+    if ($?) { print STDERR "WARNING: can't write $datfile to $outdir{$id}\n"; }
 
     open (FILE, ">>$outdir/export.tbl");