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 use named variables in your SOAP calls if at all
possible.

However, if you have broken SOAP library (like PHP SOAP class from PEAR)
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	#!/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	Usually, you want to use named variables in your SOAP calls if at all
30	possible.
31
32	However, if you have broken SOAP library (like PHP SOAP class from PEAR)
33	you will want to use positional arguments (in same order as documented for
34	methods below).
35
36	=head2 NewList
37
38	$message_id = NewList(
39	list => 'My list',
40	email => 'my-list@example.com'
41	);
42
43	=cut
44
45	sub NewList {
46	my $self = shift;
47
48	if ($_[0] !~ m/^HASH/) {
49	return $nos->new_list(
50	list => $_[0], email => $_[1],
51	);
52	} else {
53	return $nos->new_list( %{ shift @_ } );
54	}
55	}
56
57	=head2 AddMemberToList
58
59	$member_id = AddMemberToList(
60	list => "My list",
61	email => "e-mail@example.com",
62	name => "Full Name"
63	);
64
65	=cut
66
67	sub AddMemberToList {
68	my $self = shift;
69
70	if ($_[0] !~ m/^HASH/) {
71	return $nos->add_member_to_list(
72	list => $_[0], email => $_[1], name => $_[2],
73	);
74	} else {
75	return $nos->add_member_to_list( %{ shift @_ } );
76	}
77	}
78
79	=head2 AddMessageToList
80
81	$message_id = AddMessageToList(
82	list => 'My list',
83	message => 'From: My list...'
84	);
85
86	=cut
87
88	sub AddMessageToList {
89	my $self = shift;
90
91	if ($_[0] !~ m/^HASH/) {
92	return $nos->add_message_to_list(
93	list => $_[0], message => $_[1],
94	);
95	} else {
96	return $nos->add_message_to_list( %{ shift @_ } );
97	}
98	}
99