notice-sender/trunk/soap.cgi

#!/usr/bin/perl -w

=head1 NAME

soap.cgi - CGI SOAP interface to notice sender

=head1 DESCRIPTION

Provide example SOAP service using CGI script.

Available methods are in C<Nos::SOAP> package, see C<Nos>.

=cut

use strict;
use Nos;

my $nos = new Nos::SOAP(
        dsn => 'dbi:Pg:dbname=notices',
        user => 'dpavlin',
        passwd => '',
);

use SOAP::Transport::HTTP +trace => 'debug';
SOAP::Transport::HTTP::CGI
        ->dispatch_to('Nos::SOAP')
        ->handle;

1;
1	#!/usr/bin/perl -w
2
3	=head1 NAME
4
5	soap.cgi - CGI SOAP interface to notice sender
6
7	=head1 DESCRIPTION
8
9	Provide example SOAP service using CGI script.
10
11	Available methods are in C<Nos::SOAP> package, see C<Nos>.
12
13	=cut
14
15	use strict;
16	use Nos;
17
18	my $nos = new Nos::SOAP(
19	dsn => 'dbi:Pg:dbname=notices',
20	user => 'dpavlin',
21	passwd => '',
22	);
23
24	use SOAP::Transport::HTTP +trace => 'debug';
25	SOAP::Transport::HTTP::CGI
26	->dispatch_to('Nos::SOAP')
27	->handle;
28
29	1;