Generating List Of TeamSite Groups in Inline

Hi,
I'm having a little trouble with an inline and wondered if anyone had any thoughts...

I've stripped it down to a basic script that calls the iwgroup CLT, splits the group name out of the results and either writes each one as a separate <option> tag or, if no groups were found displays an <option> tag with an error message.

Log in to server as Administrator and run from the command line and... everything works as expected and a substitution block with all the TeamSite groups is written to screen.

Log in to TeamSite as Administrator and view a DCT that contains the inline (technically I'm using it in a Workflow Modler custom configuration page but these are just DCTs and I get the same results plugging it in to a traditional data-type/Form) and it's a different story. The inline still runs without errors but the error <option> is displayed.

I've tried everything I can think of, including giving 'Everyone' full control of both inline and the iwgroup CLT and nothing makes any difference.

Has anyone got this working/know why it won't work?

Thanks,

mstradling

Platform:
TeamSite 6.7.1 SP1/Win.

Inline \local\bin\inline.ipl


#!C:\iw\teamSite\iw-perl\bin\iwperl.exe

use strict;
use TeamSite::Config;

my $IW_HOME  = TeamSite::Config::iwgethome();
my $cmdIWGroup  = "\\bin\\iwgroup";
my $paramsGetGroupList = " list-groups ";
my $argsGetGroupList = " -a";
my %approvalGroups  = ();

# Get list of Groups
my $cmdGetGroupList = $IW_HOME . $cmdIWGroup . $paramsGetGroupList . $argsGetGroupList;
my @cmdGetGroupListResults = `$cmdGetGroupList`;
# Loop through list of groups looking for any approval groups
foreach my $IWGroup (@cmdGetGroupListResults) {
 $approvalGroups{$IWGroup} = $IWGroup;
}

print qq(<?xml version="1.0" encoding="UTF-8"?>\n);
print qq(<substitution>\n);

# Start with the group select list
print qq( <select required="f">\n);
if (keys %approvalGroups) {
 foreach my $group (keys %approvalGroups) {
  print qq(  <option value="1" label=");
  print $group;
  print qq("/>);
 }
} else {
 print qq(  <option value="0" label="Error: No groups found!" selected="t"/>\n);
 print qq(  <option value="1" label=");
 print scalar(@cmdGetGroupListResults);
 print qq("/>\n);
}

print qq( </select>\n);
print qq(</substitution>);

Inline Call:

<inline command="C:\teamSite\iw-perl\bin\iwperl.exe C:\teamSite\local\bin\inline.ipl"/>

Command Line Result:

<?xml version="1.0" encoding="UTF-8"?>
<substitution>
    <select required="f">
        <option value="1" label="Group_A"/>
        <option value="1" label="Group_B"/>
        <option value="1" label="Group_C"/>
    </select>
</substitution>

DCT Result

<?xml version="1.0" encoding="UTF-8"?>
<substitution>
    <select required="f">
        <option value="0" label="Error: No groups found!"/>
        <option value="1" label="0"/>
    </select>
</substitution>

Find more posts tagged with

Comments

Adam Stoller

I'd suggest adding some debugging to the code - but before you do that, try changing this line in your code, as highlighted:

my @cmdGetGroupListResults = `$cmdGetGroupList 2>&1`;

The behavior of STDOUT and STDERR are not always the same when run from within the context of workflow, and this could be another case where the output isn't going where you think it should be.

It's also possible that the account that's used for the workflow instantiation form inline is not the same as the one you think it is - again, logging debugging information here will help - like showing all the environment variables and such.

pom.xml

nipper

It is not your issue, but I never use

[html]

[/html]

on inlines

Have you checked the permissions on tsgroups.xml ? Open them up.

mstradling

I'd suggest adding some debugging to the code - but before you do that, try changing this line in your code, as highlighted:
my @cmdGetGroupListResults = `$cmdGetGroupList 2>&1`;
The behavior of STDOUT and STDERR are not always the same when run from within the context of workflow, and this could be another case where the output isn't going where you think it should be.

Well that tells me a little more - though nothing too helpful!

Adding 2>&1 to the end of the command now returns an error message to me:

getaddrinfo failed with error err=11001 [Host not found] for addr localhost
Unable to open session
ERROR:5000013: Unable to establish connection with server

Starting to think just parsing tsgroups.xml will be easier!

CalculationInJointDataSet.rptdesign

Frederik

I've only dealt with ts6.5 on Solaris, but I believe that normally DCT < inline > is executed as the acting user. {EDIT: please read correction below}

Now are you sure that in TS 6.7.1 sp1 on Windows, the same applies? In other words, do you know what user is executing that process? Because it sounds to me that maybe it is executed by some technical user (in Solaris-speak, that would be iwts or iwui)

EDIT:
STRIKE that... I've just thought about it, and I'm actually pretty sure that these inlines are executed by the user running the servletd
EDIT (2) : tested on TS 6.5 sp2 Solaris: inlines are running as iwui

Adam Stoller

Well that tells me a little more - though nothing too helpful!

Adding 2>&1 to the end of the command now returns an error message to me:
getaddrinfo failed with error err=11001 [Host not found] for addr localhost
Unable to open session
ERROR:5000013: Unable to establish connection with server
Starting to think just parsing tsgroups.xml will be easier!

Sounds like either environment information is missing or, perhaps, a simple entry in a hosts file is missing - the one that defines localhost to be 127.0.0.1 for instance)

Can you run ping localhost on your server?

Bill Klish

Why not just use the datasource framework in 6.7.1? It accomplishes this much easier, works and performs better since it runs natively in the same JVM as Content Center.

I believe the example provided in the workflow modeler guide will take you a long way toward creating a solution.

oduiubo

I have the same issue with current CLT.
It is working from command prompt and does not work from IPL file. The error messages completely the same. I did check also ping and it is working fine from command prompt and IPL.

oduiubo

I tried several suggestions how to fix problem with CLT iwgroup. None of thus do not works in mine Windows 2003 server.
I decide to use TeamSite XML file:[HTML]/conf/tsgroups.xml[/HTML] This file contain list of TeamSite groups and users.
I created Perl Module for it. The code is:

package Custom::Utilities;
use strict;

BEGIN {
    unless (lc($^O) =~ m/mswin/) { exit; }
}

use TeamSite::Config;
use Sys::Hostname;
use XML:OM;
sub new {
    my $class = shift;
    my $self = {
                _iwhome     => TeamSite::Config::iwgethome,
                _iwmount    => TeamSite::Config::iwgetmount,
                _iwperl     => TeamSite::Config::iwgethome.qq~/iw-perl/bin~,
                _iw2fr      => undef, 
                _tshost     => hostname,
                _usergroup  => TeamSite::Config::iwgethome.qq~/conf/tsgroups.xml~
               };
    bless $self, $class;
    $self->_init();
    return $self;
}

# init some vars
sub _init {
    my $self = shift;
    $self->{_iwhome}  = $self->_filepath($self->{_iwhome});
    $self->{_iwperl}  = $self->_filepath($self->{_iwperl});
}

# read or/and set TeamSite home directory
sub iwhome {
  my ($self, $inp)  = @_;
  $self->{_iwhome}  = $self->_filepath($inp) if defined ($inp);
  return $self->{_iwhome};
}

# read or/and set TeamSite path to Perl
sub iwperl {
  my ($self, $inp)  = @_;
  $self->{_iwperl}  = $self->_filepath($inp) if defined ($inp);
  return $self->{_iwperl};
}

# read or/and set TeamSite mount drive
sub iwmount {
  my ($self, $inp)  = @_;
  $self->{_iwmount} = $inp if defined ($inp);
  return $self->{_iwmount};
}

# read or/and set TeamSite host name
sub tshost {
  my ($self, $inp)  = @_;
  $self->{_tshost}  = $inp if defined ($inp);
  return $self->{_tshost};
}

####################################

sub _filepath {
    my ($self, $file) = @_;
    if ($file) {
        $file =~ s%\\%\/%g;
    }
    return $file;
}

sub _trimline {
 my ($self, $inp) = @_;
 if ($inp) {
  $inp =~ s%^\s+%%;
  $inp =~ s%\s+$%%;
 }
 return $inp;
}

####################################
# input string; return string
sub universalpath {
    my ($self, $inp) = @_;
    return $self->_filepath($inp);
}

# input string; return string
sub cutdoubleslashes {
    my ($self, $inp) = @_;
    if ($inp) {
        $inp =~ s%\\\\%\/%g;
        $inp =~ s%\/\/%\/%g;
    }
    return $inp;
}

# save data from string - input data
sub string2file {
    my ($self, $file, $text) = @_;
    open (my $datahandler, ">", $file) or die "Could not open File List Location: \'".$file."\'";
    print $datahandler $text;
    close $datahandler;
}

# read file - input string (file path); return string data from file
sub read2string {
    my ($self, $inp) = @_;
    my $out = "";
    $inp = $self->iw2root($inp) if ($inp =~ /^\/\//);
    if ($inp and (-e $inp)) {
        open (my $datahandler, "<", $inp);
            local $/ = undef;
            $out     = <$datahandler>;
        close $datahandler;
    }
    return $out;
}

# convert host to mount - input string (file path); return string (file path)
sub iw2root {
  my ($self, $inp) = @_;
  chomp($inp) if defined ($inp);
  if ($inp and $self->{_tshost} and $self->{_iwmount}) {
 $inp =~ s%^$self->{_tshost}%$self->{_iwmount}%;
 $self->{_iw2fr} = $inp;
  }
  return $self->{_iw2fr};
}

# flip slashes - input string; return string
sub flipslashes {
    my ($self,$inp) = @_;
    $inp =~ s%\\%\/%g if ($inp);
    return $inp;
}

# get list of groups by user name - input user name; return array
sub getiwusergroups {
    my ($self,$inp) = @_;
    my @out         = ();
    my $parser = new XML:OM:arser; 
    my $xmldoc = $parser->parsefile ($self->{_usergroup});
    my $nodes  = $xmldoc->getElementsByTagName("user");
    for (my $i=0; $i<$nodes->getLength; $i++) {
        if ($nodes->item($i)->getAttributeNode("name")->getValue eq $inp) {
            push (@out,$nodes->item($i)->getParentNode->getAttributeNode("name")->getValue);
        }
    }
    return @out;
}

# get list of groups - return array
sub getiwgroups {
    my $self   = shift;
    my @out    = ();
    my $parser = new XML:OM:arser; 
    my $xmldoc = $parser->parsefile ($self->{_usergroup});
    my $nodes  = $xmldoc->getElementsByTagName("iwgroup");
    for (my $i=0; $i<$nodes->getLength; $i++) {
        push (@out,$nodes->item($i)->getAttributeNode("name")->getValue);
    }
    return @out;
}

1;

Code includes more then current topic required. Sorry for that. I already cut so many additional function just to show part of code which is close to current post.

Rick Poulin

I was having a similar issue with the iwaccess CLT. It was throwing that same getaddrinfo can't resolve localhost.
After much poking around, I found that setting the SystemRoot environment variable gets it working. I imagine it would fix your groups issue as well.

E.g.

$ENV{'SystemRoot'} = 'C:\Windows';
my $result = `C:\\Interwoven\\TeamSite\\bin\\iwaccess.exe roles-of-user $vpath -user $user 2>&1`;