HP Teamsite CSSDK API, JAVA code

Hi,

I need to write a java program that fetches the Teamsite user's information in a form of XML.

In the output XML , i need information like : 1. user name 2. user id 3. roles to which user is assigned and 4. Branches to which user has access.

I know there are XMLs like tsusers.xml and roles.xml but they are not giving me all information.

What is the way to do this task using CSSDK API. I have not done this before so please try to be alot descriptive.

Find more posts tagged with

Comments

Rajesh

Hi Nitish,

Have you tried

com.interwoven.cssdk.access.CSUser to pull the information you need? Fetch the user information using CSClient and load it in some POJO and transform it to an xml.

Thanks

Rajesh

Nitish

Is there a command line tool that can give me all users of teamsite and their respective roles and branches.

Till now I have tried

iwaccess export-permission-entries : This is giving me only few users with their roles and branches. I am not sure why this is not giving me all users data.

If i try :

iwaccess all-roles-of-users <userid> : this gives me roles of one user only.

Please let me know if there is any other approach as well.

Adam Stoller

You reap the benefit of my being bored right now - try this:

#!c:/interwoven/teamsite/iw-perl/bin/iwperl
use strict;
use warnings;
use TeamSite::Config;
#----------------------------------------------------------------------
(my $iwhome = TeamSite::Config::iwgethome()) =~ tr|\\|/|;

my $cmd1 = qq($iwhome/bin/iwaccess all-permission-entries);
my $cmd2 = qq($iwhome/bin/iwaccess permission-entries X_VPATH_X -expand-groups);
#----------------------------------------------------------------------
my @results;
my @res1 = qx($cmd1 2>&1);
chomp @res1;
tr|\\|/| foreach @res1;
s|\t//.*?/|\t/| foreach @res1;
foreach my $res (@res1) {
 if ($res =~ /\tgroup\t/) {
 # expand group for specific vpath
 (my $vpath = $res) =~ s|^.*\t||;
 (my $cmd3 = $cmd2) =~ s|X_VPATH_X|$vpath|;
 my @res3 = qx($cmd3 2>&1);
 shift @res3; # remove heading
 tr|\\|/| foreach @res3;
 s|\t//.*?/|\t/| foreach @res3;
 foreach my $r (@res3) {
 chomp $r;
 push @results, "$r\t$vpath";
 }
 }
 else {
 push @results, $res;
 }
}
print join("\n", @results), "\n";

(the 'tr|\\|/|' stuff is to avoid issues with Windows back-slashes as path separators; if you're on Unix you can omit that part).

If you want it completely sorted by user, change the last line to this:

my $tmp = shift @results;
print join("\n", $tmp, sort @results), "\n";