#!/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);
  }

}