use IO::Socket;
use Net::hostent;
use CGI;
# Constants
$cnst_port = 6789; # Port we want to listen to
$cnst_server = 'http://localhost:' . $cnst_port . '/'; # Server address
$server = IO::Socket::INET->new( Proto => 'tcp', LocalPort => $cnst_port, Listen => SOMAXCONN, Reuse => 1 );
die "Can\'t set up server" unless $server;
print STDERR "Server Version 0.637\n" .
"Server accepting clients via $cnst_server\n";
while ($client = $server->accept())
{
$client->autoflush(1);
$cgi = new CGI;
$request_path_translated = $cgi->path_translated();
$request_query_string = $cgi->query_string();
$request_request_method = $cgi->request_method();
print STDERR "request_path_translated = $request_path_translated\n";
print STDERR "request_query_string = $request_query_string\n";
print STDERR "request_request_method = $request_request_method\n";
RETURN_DUMMY_PAGE ();
close($client);
}
sub RETURN_DUMMY_PAGE
{
print $client
'HTTP/1.0 200 OK' . "\n" .
'Content-type: text/html' . "\n\n" .
'' . "\n" .
' Asayo - LED Sign Software XL' . "\n" .
' Dummy Page
' . "\n" .
'' . "\n";
}