/[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 33 by dpavlin, Tue May 17 11:09:08 2005 UTC revision 62 by dpavlin, Wed Jun 22 12:31:45 2005 UTC
# Line 38  This is a dummy test Line 38  This is a dummy test
38    
39  print "added message ID $message_id\n";  print "added message ID $message_id\n";
40    
41    my $result = $soap->ListMembers({
42                    list => 'My list',
43    });
44    
45    die "can't list members ".$result->faultcode.": ".$result->faultstrig if ($result->fault);
46    
47    print "members:\n";
48    foreach my $m (@{$result->result}) {
49            print "\t",$m->{'email'},"\n";
50    }
51    
52    $soap->DeleteMemberFromList({
53            list => 'My list',
54            email => 'dpavlin@rot13.org',
55    })->result || die "can't delete member";
56    
57    print "deleted member\n";
58    
59  1;  1;
Legend:
Removed from v.33  
changed lines
  Added in v.62
  ViewVC Help
Powered by ViewVC 1.1.26