Changeset 23894 for trunk/ippScripts/scripts/receive_fileset.pl

Timestamp:

Apr 16, 2009, 5:54:55 PM (17 years ago)

Author:

Paul Price

Message:

Distribution client workflow is now working!

File:

• trunk/ippScripts/scripts/receive_fileset.pl (modified) (3 diffs)

trunk/ippScripts/scripts/receive_fileset.pl

@@ -55 +55 @@
 my @files = ();                 # Files to add
 {
-    my $uri = "$source/product/$fileset"; # URI for datastore fileset
+    my $uri = "$source/$product/$fileset"; # URI for datastore fileset
     $uri .= "/index.txt" unless $uri =~ m|/index.txt$|;
     my $command = "dsfilesetls --uri $uri"; # Command to execute
@@ -64 +64 @@
 
     # Get files
-    foreach my $line (@$stdout_buf) {
+    my @lines = split(/\n/, join "", @$stdout_buf); # Lines from output
+    foreach my $line ( @lines ) {
         $line =~ s/\#.*$//;
         next unless $line =~ /\S+/;
@@ -77 +78 @@
     my $command = "receivetool -addfile"; # Command to execute
     $command .= " -fileset_id $fileset_id";
-    $command .= " -file" . join(' -file', @files);
+    $command .= " -file " . join(' -file ', @files);
     $command .= " -dbname $dbname" if defined $dbname;