Grouper Users - Open Discussion List

[Martti Jokipii <>]

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
 
Hi,

Loris Bennett wrote:
> Hi,
>
> I am struggling to get a Perl client for the web service together
> using SOAP::Lite. Perl being what it is, there are many ways to do
> things. However, I haven't managed to find one that works.
>
> Has anyone succeeded and is willing to share approach/code?
>
> Cheers
>
> Loris


I have written a perl module Grouper.pm and a command line tool
(grtool.pl) based on it. In case there is interest, I can but them
available after some testing with GruperWS 1.4.1.


- - Martti


###############################################################################
#
# Purpose:      A Perl module to interact with Grouper through
#               Grouper Web Service API.
#
# Latest edit:  2008-11-25 

 (EPPN)
#
###############################################################################

package Grouper;

#------------------------------------------------------------------------------
# Pragmas & Modules used
#------------------------------------------------------------------------------
use strict;
use POSIX;
use Socket;
use English;
use Sys::Hostname;
use Time::Local;
use Unix::Syslog qw(:macros :subs);
use LWP::UserAgent;
use HTTP::Request::Common;
use Data::Dumper;
use SOAP::Lite;
use Unicode::MapUTF8 qw(to_utf8 from_utf8);
use URI;

...

###############################################################################
#
# Purpose:      A command line client for Grouper Web Service.
#
# Author:       Martti Jokipii 
<>
#
# Latest edit:  2008-11-10 

 (EPPN)
#
###############################################################################

use strict;
use Getopt::Long;
use Unix::Syslog qw(:macros :subs);

use lib '/web/perl-lib';
use Grouper;
use Grouper qw(:functions);

my $PROG; ($PROG = $0) =~ s#.*/##;

#------------------------------------------------------------------------------
# Client setup
#------------------------------------------------------------------------------
my $LOG_ID              = 'GrTool';
my $LOG_FAC             = LOG_AUTH;
my $DEF_WS_DIALECT      = 'SOAP';
my $DEF_CLIENT_VERSION  = 'v1_3_001';
...




- --
Martti Jokipii                        #  E-mail:   

Tampere University of Technology      #  Phone:    +358  3 3115 2425
Network Administration                #  GSM:      +358 40 849 0804
P.O. Box 692, 33101 Tampere, FINLAND  #  FAX:      +358  3 3115 2172
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.7 (MingW32)
Comment: Using GnuPG with Mozilla - http://enigmail.mozdev.org
 
iQCVAwUBSgqfm5iG4xCv5ApJAQI/GgP+NmhNh3Lw5BkUjyGYX8dqaizts9xkQyby
xtaDI0/5Z8F4Tp8Xupeb5FVRAJZXa6BEP3VhRW2jIr50gBRVAhv8LqlY5m1h5lAf
lCu9Kanuvy0xrMuXJb45Mwx7QMGiBktBdK67vTqJznCVuo7fIrG2C3ux/+aU784G
D9gE2/9qdSc=
=q5Pb
-----END PGP SIGNATURE-----