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 NewList

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

=cut

sub NewList {
        my $self = shift;

        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;

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