ispman/bin ispman.soap.server,1.3,1.4

Update of /cvsroot/ispman/ispman/bin
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5632

Added Files:
	ispman.soap.server 
Log Message:
Simple soap server

--- NEW FILE: ispman.soap.server ---
#!/usr/bin/perl
BEGIN{
   use FindBin; unshift @INC, ($FindBin::Bin , "$FindBin::Bin/../lib");
   use Getopt::Std;
}

use SOAP::Lite;
use SOAP::Transport::HTTP;

  # don't want to die on 'Broken pipe' or Ctrl-C
  #$SIG{PIPE} = $SIG{INT} = 'IGNORE';

  my $port=$ARGV[0]||9999;
  my $daemon = SOAP::Transport::HTTP::Daemon
    -> new (LocalPort => $port, ReuseAddr =>1)
    -> dispatch_to("$FindBin::Bin/../lib/ISPMan/SOAP", 'ISPManSoapServer');

  print "Contact to SOAP server at ", $daemon->url, "\n";
  $daemon->handle;





-------------------------------------------------------
SF email is sponsored by - The IT Product Guide
Read honest & candid reviews on hundreds of IT Products from real users.
Discover which products truly live up to the hype. Start reading now. 
http://productguide.itmanagersjournal.com/