/[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 25 by dpavlin, Mon May 16 13:52:43 2005 UTC revision 27 by dpavlin, Mon May 16 16:25:14 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; #+trace => 'debug';
4  my $HOST   = "http://localhost/~dpavlin/notice-sender/soap.cgi";  my $HOST   = "http://localhost/~dpavlin/notice-sender/soap.cgi";
5  my $NS     = "urn:Nos";  my $NS     = "http://localhost/Nos/SOAP/";
6  my $soap = SOAP::Lite  my $soap = SOAP::Lite
7          ->readable(1)          ->readable(1)
8          ->uri($NS)          ->uri($NS)
9          ->proxy($HOST);          ->proxy($HOST);
10    
11  my $som = $soap->add_member_to_list(  print "added member ID ",$soap->AddMemberToList({
12          SOAP::Data->name("list" => "My list"),                  list => 'My list',
13          SOAP::Data->name("email" => 'dpavlin@rot13.org'),                  email => 'dpavlin@rot13.org',
14          SOAP::Data->name("name" => 'Dobrica Pavlinusic'),                  name => 'Dobrica Pavlinusic',
15          );          })->result,"\n";
         print "The response from the server was:\n".( $som->result || 'null' )."\n";  
16    
17    print "added message ID ",$soap->AddMessageToList({
18                    list => 'My list',
19                    message => 'To: member@example.com
20    From: mylist@example.com
21    Subject: text
22    
23    This is a dummy test
24    ',
25            })->result,"\n";
26  1;  1;
Legend:
Removed from v.25  
changed lines
  Added in v.27
  ViewVC Help
Powered by ViewVC 1.1.26