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	#!/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 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	=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	return $nos->add_message_to_list( %{ shift @_ } );
73	}
74