#!/usr/bin/perl
my $SERVER_NAME  = "usouso-web server/0.1";
my $CONTENT_HTML = "/usr/local/etc/usoweb.html";

while(<>) {
	last if /^\s*$/;
}

if(!open(HTML, $CONTENT_HTML)) {
	print "HTTP/1.0 200 OK\r\n";
	print "Content-Type: text/plain\r\n";
	print "Server: $SERVER_NAME\r\n\r\nuum...";
	exit 1;
}

print "HTTP/1.1 200 OK\r\n";
print "Content-Type: text/html\r\n";
print "Connection: close\r\n";
print "Server: $SERVER_NAME\r\n\r\n";

while(<HTML>) {
	chop;
	print "$_\r\n";
}
close HTML;
