notice-sender/trunk/soap.cgi

#!/usr/bin/perl -w

=head1 NAME

soap.cgi - CGI SOAP interface to notice sender

=cut

use strict;
use Nos;

my $nos = new Nos(
        dsn => 'dbi:Pg:dbname=notices',
        user => 'dpavlin',
        passwd => '',
);

use SOAP::Transport::HTTP +trace => 'debug';
SOAP::Transport::HTTP::CGI
        ->dispatch_to('Nos::SOAP')
        ->handle;

package Nos::SOAP;

=head1 SOAP methods

This methods are thin wrappers to provide SOAP calls.

Usually, you want to used named variables in your SOAP calls if at all
possible. However, if you have broken SOAP libraries (like PHP's PEAR SOAP)
you will want to use positional arguments (in same order as documented for
methods below).

=head2 NewList

 $message_id = NewList(
        list => 'My list',
        email => 'my-list@example.com'
 ); 

=cut

sub NewList {
        my $self = shift;

        if ($_[0] !~ m/^HASH/) {
                return $nos->new_list(
                        list => $_[0], email => $_[1],
                );
        } else {
                return $nos->new_list( %{ shift @_ } );
        }
}

=head2 AddMemberToList

 $member_id = AddMemberToList(
        list => "My list",
        email => "e-mail@example.com",
        name => "Full Name"
 );

=cut

sub AddMemberToList {
        my $self = shift;

        if ($_[0] !~ m/^HASH/) {
                return $nos->add_member_to_list(
                        list => $_[0], email => $_[1], name => $_[2],
                );
        } else {
                return $nos->add_member_to_list( %{ shift @_ } );
        }
}

=head2 AddMessageToList

 $message_id = AddMessageToList(
        list => 'My list',
        message => 'From: My list...'
 ); 

=cut

sub AddMessageToList {
        my $self = shift;

        if ($_[0] !~ m/^HASH/) {
                return $nos->add_message_to_list(
                        list => $_[0], message => $_[1],
                );
        } else {
                return $nos->add_message_to_list( %{ shift @_ } );
        }
}

1	dpavlin	25	#!/usr/bin/perl -w
2
3	dpavlin	27	=head1 NAME
4
5			soap.cgi - CGI SOAP interface to notice sender
6
7			=cut
8
9	dpavlin	25	use strict;
10	dpavlin	27	use Nos;
11	dpavlin	25
12	dpavlin	27	my $nos = new Nos(
13			dsn => 'dbi:Pg:dbname=notices',
14			user => 'dpavlin',
15			passwd => '',
16			);
17	dpavlin	25
18	dpavlin	27	use SOAP::Transport::HTTP +trace => 'debug';
19			SOAP::Transport::HTTP::CGI
20			->dispatch_to('Nos::SOAP')
21			->handle;
22
23			package Nos::SOAP;
24
25			=head1 SOAP methods
26
27			This methods are thin wrappers to provide SOAP calls.
28
29	dpavlin	34	Usually, you want to used named variables in your SOAP calls if at all
30			possible. However, if you have broken SOAP libraries (like PHP's PEAR SOAP)
31			you will want to use positional arguments (in same order as documented for
32			methods below).
33
34	dpavlin	33	=head2 NewList
35
36			$message_id = NewList(
37			list => 'My list',
38			email => 'my-list@example.com'
39			);
40
41			=cut
42
43			sub NewList {
44			my $self = shift;
45
46	dpavlin	34	if ($_[0] !~ m/^HASH/) {
47			return $nos->new_list(
48			list => $_[0], email => $_[1],
49			);
50			} else {
51			return $nos->new_list( %{ shift @_ } );
52			}
53	dpavlin	33	}
54
55	dpavlin	27	=head2 AddMemberToList
56
57			$member_id = AddMemberToList(
58			list => "My list",
59			email => "e-mail@example.com",
60			name => "Full Name"
61			);
62
63			=cut
64
65			sub AddMemberToList {
66			my $self = shift;
67
68	dpavlin	34	if ($_[0] !~ m/^HASH/) {
69			return $nos->add_member_to_list(
70			list => $_[0], email => $_[1], name => $_[2],
71			);
72			} else {
73			return $nos->add_member_to_list( %{ shift @_ } );
74			}
75	dpavlin	27	}
76
77			=head2 AddMessageToList
78
79			$message_id = AddMessageToList(
80			list => 'My list',
81			message => 'From: My list...'
82			);
83
84			=cut
85
86			sub AddMessageToList {
87			my $self = shift;
88
89	dpavlin	34	if ($_[0] !~ m/^HASH/) {
90			return $nos->add_message_to_list(
91			list => $_[0], message => $_[1],
92			);
93			} else {
94			return $nos->add_message_to_list( %{ shift @_ } );
95			}
96	dpavlin	27	}
97