/[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 70 by dpavlin, Tue Aug 2 19:41:28 2005 UTC revision 79 by dpavlin, Thu Aug 25 11:58:15 2005 UTC
# Line 1  Line 1 
1  #!/usr/bin/perl -w  #!/usr/bin/perl -w
2    
3  use SOAP::Lite;  use SOAP::Lite;
4    use Data::Dumper;
5    
6  my $debug = 0;  my $debug = 0;
7  $debug = 1 if (@ARGV);  $debug = 1 if (@ARGV);
# Line 14  my $soap = SOAP::Lite Line 15  my $soap = SOAP::Lite
15    
16  $soap->on_debug(sub{print "# ",@_}) if ($debug);  $soap->on_debug(sub{print "# ",@_}) if ($debug);
17    
18  my $list_id = $soap->NewList({  my $list_id = $soap->CreateList({
19                  list => 'My list',                  list => 'My list',
20                  email => 'my-soap@example.com',                  email => 'my-soap@example.com',
21          })->result || die "can't add list";          })->result || die "can't add list";
# Line 54  foreach my $m (@{$result->result}) { Line 55  foreach my $m (@{$result->result}) {
55          print "\t",$m->{'email'},"\n";          print "\t",$m->{'email'},"\n";
56  }  }
57    
58    my @r = $soap->MessagesReceived({
59            list => 'My list',
60    })->result;
61    print "received messages: ", Dumper(\@r);
62    
63  $soap->DeleteMemberFromList({  $soap->DeleteMemberFromList({
64          list => 'My list',          list => 'My list',
65          email => 'dpavlin@rot13.org',          email => 'dpavlin@rot13.org',
# Line 61  $soap->DeleteMemberFromList({ Line 67  $soap->DeleteMemberFromList({
67    
68  print "deleted member\n";  print "deleted member\n";
69    
70  $soap->DeleteList({  $soap->DropList({
71          list => 'My list'          list => 'My list'
72  });  });
73    
Legend:
Removed from v.70  
changed lines
  Added in v.79
  ViewVC Help
Powered by ViewVC 1.1.26