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