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 0.6;
use Cwd qw(abs_path);

my $aliases = abs_path($0);
$aliases =~ s#/[^/]+$##;
$aliases .= '/t/aliases';

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

use SOAP::Transport::HTTP +trace => 'debug';
SOAP::Transport::HTTP::CGI
        ->dispatch_to($nos)
        ->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 0.6;
17	use Cwd qw(abs_path);
18
19	my $aliases = abs_path($0);
20	$aliases =~ s#/[^/]+$##;
21	$aliases .= '/t/aliases';
22
23	my $nos = new Nos::SOAP(
24	dsn => 'dbi:Pg:dbname=notices',
25	user => 'dpavlin',
26	passwd => '',
27	aliases => $aliases,
28	);
29
30	use SOAP::Transport::HTTP +trace => 'debug';
31	SOAP::Transport::HTTP::CGI
32	->dispatch_to($nos)
33	->handle;
34
35	1;