Here's a fix :) If something dies, add some eval {};warn $@ if $@;
#!/usr/bin/perl -w
use HTTP::Daemon::SSL;
use HTTP::Status;
use SOAP::Lite;
use SOAP::Transport::HTTP;
use XML::Simple;
use TTPSubmit;
while(1){ # infinite loop, if Daemon stop for some reason
# Make sure you have a certs/ directory with "server-cert.pem"
# and "server-key.pem" in it before running this!
my $daemon = new HTTP::Daemon::SSL
SSL_key_file => '(takenout)server-key.pem',
SSL_cert_file => '(takenout)server-cert.pem',
LocalPort => 8080;
my $soap = SOAP::Transport::HTTP::Server
-> new ( )
-> dispatch_to('TTPSubmit');
print "Please contact me at: <URL:", $daemon->url, ">\n";
while (my $conn = $daemon->accept())
{
while (my $request = $conn->get_request())
{
$soap->request($request);
$soap->handle();
my $response = $soap->response();
$conn->send_response($response);
}
$conn->close;
undef($conn);
}
}
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|