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	#!/usr/bin/perl -w
2
3	=head1 NAME
4
5	soap.cgi - CGI SOAP interface to notice sender
6
7	=cut
8
9	use strict;
10	use Nos;
11
12	my $nos = new Nos(
13	dsn => 'dbi:Pg:dbname=notices',
14	user => 'dpavlin',
15	passwd => '',
16	);
17
18	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	return $nos->add_message_to_list( %{ shift @_ } );
58	}
59