#!/usr/bin/perl

use IO::Socket;
use IO::Select;
require LWP::UserAgent;

# use URI::Escape; # you'll need this later i guess ...

$verb = 5;  # verbosity for console messages

print "Content-type: text/plain\n\n";
print "Trying to start server... ";

$main = new IO::Socket::INET (LocalHost => 'entropy8zuper.org',
                              LocalPort => 1234,
                              Listen    => 50,
                              Proto     => 'tcp', 
                              Reuse     => 1 ) || die $!;

print "Socket open. ";

$zero = chr(0);
$/ = $zero;
$\ = $zero;
$| = 1;
#$bigboy = "littlegirl";
$you = "speck";
$numOfUsers = 999;
$xA = 50;
$yA = 250;
$xZ = 500;
$yZ = 250;
$var1 = 0;
$var2 = 0;
$var3 = 0;
$var4 = 0;

# Initialise IO::Select ------------------------------------------------

$handles = new IO::Select();
$handles->add($main);

$introLevel = 2;
$musicLevel = 1;#and 3!
$backgroundLevel = 5;
$soundLevel = 10;#till 20
$movieLevel = 50;#till 9998
$camerasLevel = 9999;
$chatLevel = 10000;
$toolLevel = 10001;
$guestLevel = 10002;
$foregroundLevel = 10005 * 10000;
$moviecoverLevel = 10008;
$lostconnectionLevel = 10010;

$curLevel = $movieLevel; 

$wirefirePath = "http://entropy8zuper.org/wirefire";
$moviePath = "$wirefirePath/movies/";
$nodeName = "response";

$moviePathlength = length $moviePath;

print "Starting listening cycle\n" if ($verb > 1);

print " --- END TEST 8";