Skip to Content.
Sympa Menu

grouper-users - Re: [grouper-users] Perl WS Client?

Subject: Grouper Users - Open Discussion List

List archive

Re: [grouper-users] Perl WS Client?


Chronological Thread 
  • From: Loris Bennett <>
  • To: Martti Jokipii <>
  • Cc: Grouper Users Mailing List <>
  • Subject: Re: [grouper-users] Perl WS Client?
  • Date: Wed, 13 May 2009 13:06:57 +0200
  • Organization: ZEDAT, Freie Universität Berlin

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




Archive powered by MHonArc 2.6.16.

Top of Page