nav[aria-label="Primary Navigation"] { padding: 0; & ul { list-style: none; width: 100%; display: flex; flex-direction: row; justify-content: start; align-items: start; gap: 30px; padding: 0; & li { margin: 0; } & ul li { list-style: none; } } }

iwsubmit multiple files

JoeS

Hi all,
I'm trying to get the following script to scan a particular teamsite directory and submit all the files to IW stage. However nothing seems to happen when I run it. Am I missing something? Thanks.

use File::Find;
my $dir = "/default/main/mfs/WORKAREA/mfsemc/files/images/heritage";
my @files;
find(\&wanted, $dir);
foreach $filepath(@files) {
$command = "/iw-home/bin/iwsubmit -w -u $filepath"; 
print "$command \n";
}
sub wanted {-f && push(@files, $File::Find::name);}

Find more posts tagged with

Comments

nipper

RTFM

iwsubmit {vpath comment}+

you can do

iwsubmit . comment

I do that all the time, except the comment is not nearly that long.

Adam Stoller

Hi all,
I'm trying to get the following script to scan a particular teamsite directory and submit all the files to IW stage. However nothing seems to happen when I run it. Am I missing something? Thanks.
use File::Find;
my $dir = "/default/main/mfs/WORKAREA/mfsemc/files/images/heritage";
my @files;
find(\&wanted, $dir);
foreach $filepath(@files) {
$command = "/iw-home/bin/iwsubmit -w -u $filepath"; 
print "$command \n";
}
sub wanted {-f && push(@files, $File::Find::name);} 

To begin with - your code only prints the command it is intending to run, and doesn't actually run it.

Assuming the print command works - verify that the command that you would run, would indeed work - if so, just add something like:

...
    $command = "/iw-home/bin/iwsubmit -w -u $filepath" "comment";
my $result = qx($command 2>&1);
    if ($?) {
        print "CMD: $command\n=> $result\n";
    }
}

I also might suggest going a step further with the command just in case you have some spaces in file or directory paths:

...
my $command = qq($iwhome/bin/iwsubmit -w -u "$filepath" "comment");
    ...

and make sure to set $iwhome via TeamSite::Config::iwgethome()

JoeS

Thank you - that did the trick.