Grouper Users - Open Discussion List

[Loris Bennett <>]

Hi Martti,

How are you initialising the SOAP::Lite object? Via the WSDL? Via a URI
and proxy? Via a Perl stub created by stubmaker? 

And which method are you using to pass the login credentials?

Cheers

Loris


On Wed, 2009-05-13 at 13:23 +0300, Martti Jokipii wrote:
> -----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-----
> 
-- 
Dr. Loris Bennett (Mr.)
Freie Universität Berlin
ZEDAT - Zentraleinrichtung für Datenverarbeitung / Computer Center
Compute & Media Service
Fabeckstr. 32, Room 221
D-14195 Berlin
Tel ++49 30 838 51024
Fax ++49 30 838 56721
Email 

Web www.zedat.fu-berlin.de