[system] / branches / rel-2-3-dev / webwork-modperl / lib / MySOAP.pm Repository:
ViewVC logotype

Diff of /branches/rel-2-3-dev/webwork-modperl/lib/MySOAP.pm

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

Revision 3253 Revision 3292
… …
31 ################ 31 ################
32 # Handle a wsdl rquest 32 # Handle a wsdl rquest
33 ################ 33 ################
34 my %args_hash = $r->args; 34 my %args_hash = $r->args;
35 if (exists $args_hash{wsdl}) { 35 if (exists $args_hash{wsdl}) {
36 my $wsdl = `cat /home/gage/rqp.wsdl`;
37 $r->content_type('application/wsdl+xml');
38 $r->send_http_header;
39 $r->print( $wsdl); 36 $r->print( $wsdl);
40 print DEBUGLOG "----------start-------------\n"; 37 print DEBUGLOG "----------start-------------\n";
41 print DEBUGLOG "handle wsdl request\n"; 38 print DEBUGLOG "handle wsdl request\n";
42 print DEBUGLOG "\n-header =\n $header\n" ; 39 print DEBUGLOG "\n-header =\n $header\n" ;
43 40
Legend:
Removed from v.3253  
changed lines
  Added in v.3292
aubreyja at gmail dot com
 ViewVC Help
Powered by ViewVC 1.0.9