Changeset 24951 for branches/czw_branch/cleanup/ippScripts/scripts/receive_source.pl

Timestamp:

Jul 30, 2009, 5:20:29 PM (17 years ago)

Author:

watersc1

Message:

Finished up my edits to the detrend cleanup, and some changes to my
copy of burntool and the pslib astrometry. Detrend cleanup has not
been tested yet. That's up next.

Location:

branches/czw_branch/cleanup

Files:

• . (modified) (1 prop)
• ippScripts/scripts/receive_source.pl (modified) (2 diffs)

branches/czw_branch/cleanup/ippScripts/scripts/receive_source.pl

@@ -64 +64 @@
 my @filesets = ();              # Filesets to add
 my @lines = split(/\n/, join "", @$stdout_buf); # Lines from output
+my $numFilesets = 0;
 foreach my $line ( @lines ) {
     $line =~ s/\#.*//g;
@@ -71 +72 @@
     my $fileset = $fields[1];
     push @filesets, $fileset if defined $fileset and $fileset =~ /\S+/;
+
+    # TODO don't overload recevietool.  Tune this limit
+    $numFilesets++;
+    last if $numFilesets >= 100;
 }