ispman/bin ispman.soap.server,1.4,1.5
Joerg Delker <[email protected]>
| Newsgroups | gmane.comp.isp.ispman.cvs |
|---|---|
| Message-ID | <[email protected]> |
Update of /cvsroot/ispman/ispman/bin
In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv9184/bin
Modified Files:
ispman.soap.server
Log Message:
removed DOS ^M endings
Index: ispman.soap.server
===================================================================
RCS file: /cvsroot/ispman/ispman/bin/ispman.soap.server,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- ispman.soap.server 29 Dec 2004 21:49:35 -0000 1.4
+++ ispman.soap.server 15 Jun 2006 15:46:23 -0000 1.5
@@ -1,21 +1,21 @@
-#!/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;
-
-
+#!/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;
+
+