/[notice-sender]/trunk/soap.cgi
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.cgi

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

revision 33 by dpavlin, Tue May 17 11:09:08 2005 UTC revision 38 by dpavlin, Tue May 17 21:37:06 2005 UTC
# Line 26  package Nos::SOAP; Line 26  package Nos::SOAP;
26    
27  This methods are thin wrappers to provide SOAP calls.  This methods are thin wrappers to provide SOAP calls.
28    
29    Usually, you want to use named variables in your SOAP calls if at all
30    possible.
31    
32    However, if you have broken SOAP library (like PHP SOAP class from PEAR)
33    you will want to use positional arguments (in same order as documented for
34    methods below).
35    
36  =head2 NewList  =head2 NewList
37    
38   $message_id = NewList(   $message_id = NewList(
# Line 38  This methods are thin wrappers to provid Line 45  This methods are thin wrappers to provid
45  sub NewList {  sub NewList {
46          my $self = shift;          my $self = shift;
47    
48          return $nos->new_list( %{ shift @_ } );          if ($_[0] !~ m/^HASH/) {
49                    return $nos->new_list(
50                            list => $_[0], email => $_[1],
51                    );
52            } else {
53                    return $nos->new_list( %{ shift @_ } );
54            }
55  }  }
56    
57  =head2 AddMemberToList  =head2 AddMemberToList
# Line 54  sub NewList { Line 67  sub NewList {
67  sub AddMemberToList {  sub AddMemberToList {
68          my $self = shift;          my $self = shift;
69    
70          return $nos->add_member_to_list( %{ shift @_ } );          if ($_[0] !~ m/^HASH/) {
71                    return $nos->add_member_to_list(
72                            list => $_[0], email => $_[1], name => $_[2],
73                    );
74            } else {
75                    return $nos->add_member_to_list( %{ shift @_ } );
76            }
77  }  }
78    
79  =head2 AddMessageToList  =head2 AddMessageToList
# Line 69  sub AddMemberToList { Line 88  sub AddMemberToList {
88  sub AddMessageToList {  sub AddMessageToList {
89          my $self = shift;          my $self = shift;
90    
91          return $nos->add_message_to_list( %{ shift @_ } );          if ($_[0] !~ m/^HASH/) {
92                    return $nos->add_message_to_list(
93                            list => $_[0], message => $_[1],
94                    );
95            } else {
96                    return $nos->add_message_to_list( %{ shift @_ } );
97            }
98  }  }
99    
100    1;
Legend:
Removed from v.33  
changed lines
  Added in v.38
  ViewVC Help
Powered by ViewVC 1.1.26