/[notice-sender]/jifty-dbi/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

Diff of /jifty-dbi/soap.cgi

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 25 by dpavlin, Mon May 16 13:52:43 2005 UTC revision 45 by dpavlin, Wed May 18 13:12:54 2005 UTC
# Line 1  Line 1 
1  #!/usr/bin/perl -w  #!/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;  use strict;
16  use Nos qw(add_member_to_list add_message_to_queue);  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;  use SOAP::Transport::HTTP +trace => 'debug';
25  SOAP::Transport::HTTP::CGI->dispatch_to('Nos')->handle;  SOAP::Transport::HTTP::CGI
26            ->dispatch_to('Nos::SOAP')
27            ->handle;
28    
29    1;
Legend:
Removed from v.25  
changed lines
  Added in v.45
  ViewVC Help
Powered by ViewVC 1.1.26