/[notice-sender]/trunk/soap.cgi
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Contents of /trunk/soap.cgi

Parent Directory Parent Directory | Revision Log Revision Log


Revision 67 - (show annotations)
Fri Jul 8 17:00:20 2005 UTC (16 years, 10 months ago) by dpavlin
File size: 570 byte(s)
more fixes for SOAP, still not working

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;

Properties

Name Value
svn:executable *

  ViewVC Help
Powered by ViewVC 1.1.26