Loading ...
Sorry, an error occurred while loading the content.

How to implement Soap Server on IIS with Activeperl

Expand Messages
  • aun_ok
    Hi all, Actually I have Activeperl on Win2000 server. I have used activeperl to implement my web page on IIS. Now I try to use Soap with my server. I put
    Message 1 of 1 , Nov 27, 2002
    View Source
    • 0 Attachment
      Hi all,

      Actually I have Activeperl on Win2000 server. I have used activeperl to
      implement my web page on IIS. Now I try to use Soap with my server. I put
      hibye.cgi and hibye.pl (code 's as below) into a virtual directory, cgi-
      bin.Then I use IE to call http://localhost/cgi-bin/hibye.pl , i got the following
      error message
      ---------------------------------------------------------------------------
      CGI Error
      The specified CGI application misbehaved by not returning a complete
      set of HTTP headers. The headers it did return are:


      401 Access Denied at D:\cgi-bin\thibye2.pl line 4

      ---------------------------------------------------------------------------

      Please advise.
      aun

      ####################################
      #hibye.cgi
      #!/usr/local/ActivePerl-5.6/bin/perl -w
      use SOAP::Transport::HTTP;

      SOAP::Transport::HTTP::CGI
      ->dispatch_to('Demo')
      ->handle;
      package Demo;
      sub hi{
      return "Hello , World";
      }
      sub bye{
      return "goodbye, cruel world";
      }
      #------------------------------------------------------

      #----------------------------------------------------
      #!/usr/local/ActivePerl-5.6/bin/perl -w
      #hibye.pl
      #---------------------------------------------------
      use SOAP::Lite;
      $service = SOAP::Lite
      ->readable(1)
      ->proxy("http://localhost/cgi/hibye.cgi")
      ->uri("urn:Demo")
      ->hi();

      print "Content-type:text/html\n\n";
      print "<html>\n <head>\n <title>Results</title>\n </head>\n";
      print "<body>\n <center>\n <h1>Soap</h1>\n </center>\n";
      print "<hr size=7 width=75%>\n";

      print $service->result;


      print "\n</body>\n</html>\n";
    Your message has been successfully submitted and would be delivered to recipients shortly.