--- trunk/soap.cgi 2005/07/08 11:46:35 66 +++ trunk/soap.cgi 2005/07/08 17:00:20 67 @@ -13,17 +13,23 @@ =cut use strict; -use Nos; +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::SOAP') + ->dispatch_to($nos) ->handle; 1;