/[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

Diff of /trunk/soap.cgi

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

revision 66 by dpavlin, Wed May 18 13:12:54 2005 UTC revision 67 by dpavlin, Fri Jul 8 17:00:20 2005 UTC
# Line 13  Available methods are in C<Nos::SOAP> pa Line 13  Available methods are in C<Nos::SOAP> pa
13  =cut  =cut
14    
15  use strict;  use strict;
16  use Nos;  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(  my $nos = new Nos::SOAP(
24          dsn => 'dbi:Pg:dbname=notices',          dsn => 'dbi:Pg:dbname=notices',
25          user => 'dpavlin',          user => 'dpavlin',
26          passwd => '',          passwd => '',
27            aliases => $aliases,
28  );  );
29    
30  use SOAP::Transport::HTTP +trace => 'debug';  use SOAP::Transport::HTTP +trace => 'debug';
31  SOAP::Transport::HTTP::CGI  SOAP::Transport::HTTP::CGI
32          ->dispatch_to('Nos::SOAP')          ->dispatch_to($nos)
33          ->handle;          ->handle;
34    
35  1;  1;
Legend:
Removed from v.66  
changed lines
  Added in v.67
  ViewVC Help
Powered by ViewVC 1.1.26