#!/bin/perl  
use IO::Socket;  
use Switch;  
$| = 1;  
$socket = 8000;  
my $sock = IO::Socket::INET->new(  
	Localhost => 'localhost',  
	Proto => 'tcp',  
	Listen => 1,  
	Reuse => 1,  
	LocalPort => $socket,  
);  
print "Could not create socket: port $socket\n" unless $sock;  
 
while ($client=$sock->accept()) {  
	if( my $pid = fork) {  
		print "Child Spawned : $pid";  
		push(@childs, $pid);  
	} elsif( !defined $pid) {  
		die "Cannot fork $!\n"  
	} else {  
		$client->autoflush(1);  
		$host=$client->peerhost();  
		print "Connection received from: ", $host . "\n";  
		$current_room = 1;  
		@Exits = ('E','S');  
		print $client "Welcome!\n";  
		while (defined ($line = <$client>)){ ### AT this point, script only reacts when user gives input..need to figure this out 
			$line =~ s/\r\n//g; #remove the newline stuff  
			$line =~ s/\W//g; #remove garbage the TCP initialization creates  
			if(grep {m|$line|} @Exits){  
				switch($current_room){  
					case 1 {if($line eq 'E'){ $current_room = 2 } elsif($line eq 'S'){ $current_room = 4 }; print $client "1 - " . $current_room;}  
					case 2 {if($line eq 'W'){ $current_room = 1 } elsif($line eq 'S'){ $current_room = 3 }; print $client "2 - " . $current_room;}  
					case 3 {if($line eq 'N'){ $current_room = 2 } elsif($line eq 'W'){ $current_room = 4 }; print $client "3 - " . $current_room;}  
					case 4 {if($line eq 'N'){ $current_room = 1 } elsif($line eq 'E'){ $current_room = 3 }; print $client "4 - " . $current_room;}  
					else {print $client "Huhhh?!?\n"}  
 
				}  
				switch($current_room){  
					case 1 {print $client "Your in room 1. Exits [East, South]\r\n"; @Exits = ('E','S')}  
					case 2 {print $client "Your in room 2. Exits [West, South]\r\n"; @Exits = ('W','S')}  
					case 3 {print $client "Your in room 3. Exits [North, West]\r\n"; @Exits = ('N','W')}  
					case 4 {print $client "Your in room 4. Exits [North, East]\r\n"; @Exits = ('N','E')}  
					else {print "Huh?\n" }  
				}  
			} else {  
				print $client "$line is an unrecognized direction!\r\n";  
				print $client "Valid directions:\r\n";  
				foreach(@Exits){  
					print $client "$_\r\n";  
				}  
			}  
		}  
		exit(0);  
  
	}  
}  

  
 
$alive_counter = 0; 
$a = 0; 
while($a == 0){ 
 print $client "."; 
 if(defined($line = <$client>){ ##Once this is called, it waits - unexpected 
  $alive_counter = 0; 
  print $client "You typed $line\r\n"; 
 } 
 $alive_counter++; 
 if($alive_counter > 10){ 
  print $client "You are disconnected\r\n"; 
  $a = 1; 
 } 
 sleep 1; 
}