Changeset 23892 for trunk/ippScripts/scripts/receive_source.pl

Timestamp:

Apr 16, 2009, 4:34:35 PM (17 years ago)

Author:

Paul Price

Message:

Fixes for string handling of output from dsproductls.

File:

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

trunk/ippScripts/scripts/receive_source.pl

@@ -52 +52 @@
 
 # Get list of filesets
-my $uri = "$source/product"; # URI for datastore product
+my $uri = "$source/$product"; # URI for datastore product
 $uri .= "/index.txt" unless $uri =~ m|/index.txt$|;
 my $command = "dsproductls --uri $uri"; # Command to execute
@@ -64 +64 @@
 my $last;                   # Last fileset seen
 foreach my $line (@$stdout_buf) {
-    $line =~ s/\#.*$//;
+    $line =~ s/\#.*//g;
     next unless $line =~ /\S+/;
+    $line =~ s/^\s+//;
     my @fields = split(/\s+/, $line); # Fields in line
     my $fileset = $fields[1];