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.

=head2 AddMemberToList

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

=cut

sub AddMemberToList {
        my $self = shift;

        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;

        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			=head2 AddMemberToList
30
31			$member_id = AddMemberToList(
32			list => "My list",
33			email => "e-mail@example.com",
34			name => "Full Name"
35			);
36
37			=cut
38
39			sub AddMemberToList {
40			my $self = shift;
41
42			return $nos->add_member_to_list( %{ shift @_ } );
43			}
44
45			=head2 AddMessageToList
46
47			$message_id = AddMessageToList(
48			list => 'My list',
49			message => 'From: My list...'
50			);
51
52			=cut
53
54			sub AddMessageToList {
55			my $self = shift;
56
57	dpavlin	29	return $nos->add_message_to_list( %{ shift @_ } );
58	dpavlin	27	}
59