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

Denied Access to methos err msgs

Expand Messages
  • ddiiddoo2000
    Hi All I am trying to create a soap daemon on my PC called test_WS_server.pl: #!C:/perl/bin/perl use SOAP::Transport::HTTP; my $daemon =
    Message 1 of 2 , Jul 29, 2003
    • 0 Attachment
      Hi All

      I am trying to create a soap daemon on my PC called test_WS_server.pl:
      #!C:/perl/bin/perl

      use SOAP::Transport::HTTP;
      my $daemon = SOAP::Transport::HTTP::Daemon
      -> new (LocalPort => 80)
      -> dispatch_to('C:\\doron dev\\soaps','Test')
      ;
      $daemon->handle;

      with a client :

      #!C:/perl/bin/perl

      use SOAP::Lite;# +trace => 'debug';

      $host = "http://localhost/c:/doron dev/test_WS_server.pl";
      $ns = "http://localhost/c:/doron dev/soaps/Test";

      my $soap = SOAP::Lite
      ->readable(1)
      ->uri($NS)
      ->proxy($host);

      my $res = $soap->test();
      die $res->faultstring if ($res->fault);
      my $retVal = $res->result;
      print "\n This is response ==> $res \n";

      my module looks like this:

      #!C:/perl/bin/perl

      package Test;

      sub test{
      return "doron is still trying";
      }
      1;
      Very simple isnt it ? I keep getting these error messages:
      Denied access to method (test) in class (main) at
      c:/Perl/site/lib/SOAP/Lite.pm
      line 2159.

      Any idea anybody ?

      regards
      Doron Ido
    • Kedar Barve
      ... try this (but not a recommended fix): - dispatch_to( C: doron dev soaps , [ w:]+ )
      Message 2 of 2 , Jul 29, 2003
      • 0 Attachment
        --- In soaplite@yahoogroups.com, "ddiiddoo2000" <doron.ido@a...>
        wrote:
        > Hi All
        >
        > I am trying to create a soap daemon on my PC called
        test_WS_server.pl:
        > #!C:/perl/bin/perl
        >
        > use SOAP::Transport::HTTP;
        > my $daemon = SOAP::Transport::HTTP::Daemon
        > -> new (LocalPort => 80)
        > -> dispatch_to('C:\\doron dev\\soaps','Test')
        > ;
        > $daemon->handle;
        >

        try this (but not a recommended fix):
        -> dispatch_to('C:\\doron dev\\soaps','[\w:]+')





        > with a client :
        >
        > #!C:/perl/bin/perl
        >
        > use SOAP::Lite;# +trace => 'debug';
        >
        > $host = "http://localhost/c:/doron dev/test_WS_server.pl";
        > $ns = "http://localhost/c:/doron dev/soaps/Test";
        >
        > my $soap = SOAP::Lite
        > ->readable(1)
        > ->uri($NS)
        > ->proxy($host);
        >
        > my $res = $soap->test();
        > die $res->faultstring if ($res->fault);
        > my $retVal = $res->result;
        > print "\n This is response ==> $res \n";
        >
        > my module looks like this:
        >
        > #!C:/perl/bin/perl
        >
        > package Test;
        >
        > sub test{
        > return "doron is still trying";
        > }
        > 1;
        > Very simple isnt it ? I keep getting these error messages:
        > Denied access to method (test) in class (main) at
        > c:/Perl/site/lib/SOAP/Lite.pm
        > line 2159.
        >
        > Any idea anybody ?
        >
        > regards
        > Doron Ido
      Your message has been successfully submitted and would be delivered to recipients shortly.