Parent Directory
| 
Revision Log
set local host rpc address and hope that this hardwired url doesn't need to be changed very often. So far the default seems to be correct in most cases.
1 package WebworkSOAP::WSDL; 2 3 use lib '/opt/webwork/webwork2/lib'; 4 use Pod::WSDL; 5 use WebworkSOAP; 6 7 use constant MP2 => ( exists $ENV{MOD_PERL_API_VERSION} and $ENV{MOD_PERL_API_VERSION} >= 2 ); 8 use constant RPC_URL => 'http://localhost/webwork2_rpc'; 9 10 sub handler($) { 11 my ($r) = @_; 12 my $pod = new Pod::WSDL( 13 source => 'WebworkSOAP', 14 location => RPC_URL, 15 pretty => 1, 16 withDocumentation => 0 17 ); 18 #$r->content_type('application/wsdl+xml'); 19 if (MP2) { 20 #$r->send_http_header; 21 } else { 22 $r->send_http_header; 23 } 24 print($pod->WSDL); 25 return 0; 26 } 27 28 1;
| aubreyja at gmail dot com | ViewVC Help |
| Powered by ViewVC 1.0.9 |