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