#!/usr/bin/perl

use warnings;
#use strict;
use IO::Socket::INET;
use IO::Select
$| = 1;
$filename = "/var/www/serverlist.php";
@filelist = ($filename,"/var/www/database.txt");
unlink @filelist;
open(FW,">$filename");
print FW "";
close fw;
$socket = new IO::Socket::INET (
    LocalHost => '0.0.0.0',
    LocalPort => '666',
    Proto => 'tcp',
    Listen => 100,
    Reuse => 1
    ) or die "ERROR in Socket Creation : $!\n";

$select = IO::Select->new($socket) or die "IO::Select $!";

$SIG{PIPE} =  sub
{
    if(defined $current_client) {
	$select->remove($current_client);
	$current_client->close;
    }
};

my %nickhash = ();

while(1) {
    sleep(1);
    @ready_clients = $select->can_read(0);
    foreach my $fh (@ready_clients)  {
	print $fh "";
	if($fh == $socket)       {
	    my $new = $socket->accept();
	    $select->add($new);
	} else {
	    my $data;
	    $fh->recv($data, 1024 * 1024);
	    my $unique = ($fh->peerhost() || ""). ":" . ($fh->peerport() || "");
	    my $ip = $fh->peerhost();



     if($data && $data =~ /add:=/) {        
        $data =~ s/add:=//gi;
        $data =~ s/\{IP\}/$ip/gi;
        $data =~ s/\{\r \n \s}//gi;
        @servername = split(/\|\|/, $data);
        print "@servername";
        print "$data";
        open CHK_ARRAY, $filename;
        my @chk_array = <CHK_ARRAY>;
        close CHK_ARRAY;
        if (grep(/$servername[0]/,@chk_array) eq 0) {
            open (RP2DATA, '>>',$filename);
             print RP2DATA "\n" . $data;
             close (RP2DATA);     
             $fh->send("Server Added Successfully! " . $ip . "\n");
        } else {
            $fh->send("Error: Server Already Exists! " . $ip. "\n");
        }
     }
	    elsif($data && $data =~ /remove:=/) {
	       $data =~ s/remove:=//gi;
	       $arg1 = $data;
	       chomp $arg1;
	       $arg1 =~ s/\{\r\n\s}//gi;
	       print "$arg1";
	       open $IN, '<', $filename;
         my @contents = <$IN>;
         close $IN;
         @contents = grep !/^$arg1/, @contents;
         open $OUT, '>', $filename;
         my @new = grep(/\S/, @contents);
            print "@new";
         print $OUT @new;
         close $OUT;
		     $fh->send("Server \"$arg1\" Removed Successfully! " . $ip. "\n");
	   }
	    elsif($data && $data =~ /update:=/) {
        # Removing 
         $data =~ s/update:=//gi;
         @servername = split(/\|\|/, $data);
   	     $arg1 = $servername[0];
   	     chomp $arg1;
         $arg1 =~ s/\{\r\n\s}//gi;
	       open IN, '<', $filename;
         my @contents = <IN>;
         close IN;
         @contents = grep !/^$arg1/, @contents;
         open OUT, '>', $filename;
         my @new = grep(/\S/, @contents);
         print "@new";
         print OUT @new;
         close OUT;
        # Adding
        $data =~ s/\{IP\}/$ip/gi;
        open CHK_ARRAY, $filename;
        my @chk_array = <CHK_ARRAY>;
        close CHK_ARRAY;
        if (grep(/$servername[0] . "\|\|"/,@chk_array) eq 0) {
            open (RP2DATA, '>>',$filename);
             print RP2DATA "\n" . $data;
             @servername = split(/\|\|/, $data);
             close (RP2DATA);       
             $fh->send("Server Updated Successfully! " . $ip . "\n");
        } else {
            $fh->send("Error: Server Already Exists! " . $ip. "\n");
       }
	   } 
	    elsif ($data && $data =~ /ls/) {
       $fh->send("Current Servers Online " . $ip. ":\n");
       open (MYFILE, $filename);
       while (<MYFILE>) {
   	     chomp;
   	     $fh->send("$_ \n");
       }
        $fh->send("End Of List \n");
      close (MYFILE);
	 } elsif ($data && $data =~ /format/) {
	  $fh->send("{SERVNAME}||{MAP}||{TIME}||{PLAYERS}||{NOTHING}||{PORT}||" . $ip . "\n");
	 } elsif ($data && $data =~ /help/) {
	  $fh->send("Roleplay 2 Server API:\n");
	  $fh->send("\*\"add:=\" -- This allows a server to be added to the network\n");
	  $fh->send("\*\"remove:=\" -- This allows a server to be removed to the network\n");
	  $fh->send("\*\"update:=\" -- This allows a server to be updated on the network\n");
	  $fh->send("\*\"ls\" -- This lists a servers on the network\n");
	  $fh->send("\*\"help\" -- How did you get to this point\?\n");
	 }
	}
 }
}