iwextattr -s -l in a Perl script

OK, this is driving me crazy. Moving a ton of DCRs, need to get the EAs.

Wrote a script to pull the XML copy of the EAs. Easy enough, all in 1 big file that looks like

filename
XML
XML
XML
file2
XML
XML
XML

etc.

So I wrote something to parse it and run the command (I save the XML to EA.xml and run this in Perl):


                        $command = "cat /home/andy/EA.xml | $iwhome/bin/iwextattr -s -x ".$start.$filename;
                        print $command."\n";
                        qx{$command};

Here is what I see:

cat /home/andy/EA.xml | /opt/interwoven/TeamSite/bin/iwextattr -s -x /default/main/component-guide/WORKAREA/shared/templatedata/OffersR1/Offer/data/2014_march/DCR.xml
ERROR:00920: Error locating /default/main/component-guide/WORKAREA/shared/templatedata/OffersR1/Offer/data/2014_march/DCR.xml

But if I copy the command and run it from bash it works fine (used component guide branch for a test).

I also tried using iwextattr -s -x file < EA.xml and saw the same results.

using perl system and backticks had the same results.

What am I missing ?

Andy

Find more posts tagged with

Comments

Adam Stoller

(1) Why does the subject say '-s -l' when you're clearly using (correctly) '-s -x' ?

(2) Try using a pipe and printing the XML to the pipe - something like:

...
my $command = qq($iwhome/bin/iwextattr -s -x "$vpath");
open PIPE, '|', $command || die "[pipe] '$command' ($!)";
print PIPE $xml;
close PIPE;
...

Where $xml is assumed to be the xml that resulted from using '-l -x' on the source file - i.e.:[html]

SomeKey1
SomeValue1

SomeKey2
SomeValue2

[/html]

nipper

Seeing

Unknown open() mode '|' at ./xmlEA.ipl line 21, line 19.

I am trying ">" but getting closed pipe error.

Still looking

Adam Stoller

Seeing

Unknown open() mode '|' at ./xmlEA.ipl line 21, line 19.

I am trying ">" but getting closed pipe error.

Still looking

Strange, but if this doesn't work:

open PIPE, '|', $command || die "[pipe] '$command' ($!)";

try this instead:

open PIPE, "|$command" || die "[pipe] '$command' ($!)";

'>' is definitely the wrong mode - don't use that - make sure you didn't overwrite your script or the Perl binary (if you're prefacing the script name with something like $iwhome/iw-perl/bin/iwperl)

nipper

Yea I came up with a similar solution:


if (open(PIPE, "|$iwextattr -s -x $file")){
    print PIPE $EA_xml;
    close(PIPE);
 }

Adam Stoller

Yea I came up with a similar solution:


if (open(PIPE, "|$iwextattr -s -x $file")){
    print PIPE $EA_xml;
    close(PIPE);
 }

Okay - and does it work for you now?
Is there still something "open" regarding this thread?

nipper

Closing thread, but I will post my code:

run on source:


#!/bin/sh
eval 'exec `/usr/bin/iwgethome`/iw-perl/bin/iwperl -x -S $0 ${1+"$@}';
#!iwperl -w

use TeamSite::Config;
(my $iwhome = TeamSite::Config::iwgethome()) =~ tr|\\|/|;
(my $iwmount = TeamSite::Config::iwgetmount()) =~ tr|\\|/|;
use File::Find;
my $mybranch=shift;
my $mywa=shift;
$start = $iwmount."/default/main/".$mybranch."/WORKAREA/".$mywa."/templatedata/";
open(EA, ">EA.xml") || die ("Cannot open EA.xml !$ \n");

find(\&wanted, $start);
foreach $DCR (@list) {
        ($shortDCR = $DCR) =~ s|$start||;
        if ($DCR =~ m|\.tpl$|) { next;}
        if ($DCR =~ m|\.cfg$|) { next;}
        $command = "$iwhome/bin/iwextattr -l -x \"$DCR\"";
        chomp(my $result = `$command 2>&1`);
        print EA "templatedata/".$shortDCR."\n";
        print EA $result."\n";
}

sub wanted {-f && push(@list, $File::Find::name);}

run on destination:




#!/bin/sh
eval 'exec `/usr/bin/iwgethome`/iw-perl/bin/iwperl -x -S $0 ${1+"$@}';
#!iwperl -w

use TeamSite::Config;
(my $iwhome = TeamSite::Config::iwgethome()) =~ tr|\\|/|;
(my $iwmount = TeamSite::Config::iwgetmount()) =~ tr|\\|/|;
$start = shift;
my $xmlfilename=shift;
open (EA, "$xmlfilename") || die ("Failed to open $xmlfilename $! ");
my $xml="";

my $first = 1;

while (<EA>) {
        my $input = $_;
        if ($input =~ m|^templatedata|) 
        {
                if (! $first) {
                        my $command ="$iwhome/bin/iwextattr -s -x $start$filename";
if (open(PIPE, "|$iwhome/bin/iwextattr -s -x $start$filename")){
    print PIPE $xml;
    close(PIPE);
    print"Command executed \n";
    $results = `$iwhome/bin/iwextattr -l -x $start$filename`;
    print "$results \n";
}
                }
                $filename = $input;
                $xml="";
                $first=0;
        } else {
                $xml .= $input;
        }
}