/[notice-sender]/trunk/soap-client.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/soap-client.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 62 by dpavlin, Wed Jun 22 12:31:45 2005 UTC revision 70 by dpavlin, Tue Aug 2 19:41:28 2005 UTC
# Line 1  Line 1 
1  #!/usr/bin/perl -w  #!/usr/bin/perl -w
2    
3  use SOAP::Lite; # +trace => 'debug';  use SOAP::Lite;
4    
5    my $debug = 0;
6    $debug = 1 if (@ARGV);
7    
8  my $HOST   = "http://localhost/~dpavlin/notice-sender/soap.cgi";  my $HOST   = "http://localhost/~dpavlin/notice-sender/soap.cgi";
9  my $NS     = "http://localhost/Nos/SOAP/";  my $NS     = "http://localhost/Nos/SOAP/";
10  my $soap = SOAP::Lite  my $soap = SOAP::Lite
# Line 8  my $soap = SOAP::Lite Line 12  my $soap = SOAP::Lite
12          ->uri($NS)          ->uri($NS)
13          ->proxy($HOST);          ->proxy($HOST);
14    
15    $soap->on_debug(sub{print "# ",@_}) if ($debug);
16    
17  my $list_id = $soap->NewList({  my $list_id = $soap->NewList({
18                  list => 'My list',                  list => 'My list',
# Line 56  $soap->DeleteMemberFromList({ Line 61  $soap->DeleteMemberFromList({
61    
62  print "deleted member\n";  print "deleted member\n";
63    
64    $soap->DeleteList({
65            list => 'My list'
66    });
67    
68    print "delete list\n";
69    
70  1;  1;
Legend:
Removed from v.62  
changed lines
  Added in v.70
  ViewVC Help
Powered by ViewVC 1.1.26