
#!/usr/local/bin/perl
 use Proc::Daemon;
 use IO::Socket;
 use Net::hostent;             

sub banana {
 $PORT = 1234;                  

 $server = IO::Socket::INET->new( Proto     => 'tcp',
                                  LocalPort => $PORT,
                                  Listen    => SOMAXCONN,
                                  Reuse     => 1);

die "Can't start server" unless $server;

print "[Server $0 accepting clients]\n";

 while ($client = $server->accept()) {
   $client->autoflush(1);
    print $client "Welcome to $0; type help for command list.\n";
     $hostinfo = gethostbyaddr($client->peeraddr);
   printf "[Connect from %s]\n", $hostinfo->name || $client->peerhost;
     printf "%s \n", $hostinfo->name;
      if ( $hostinfo->name ne "darkness.tmdhosting.com"){
 print $client "Da go duesh.. \n"; 
 close $client;
} else {
    print $client "Command? ";
    while ( <$client>) {
     next unless /\S/;       # blank line
     
     if    (/quit|exit/i)    { last;                                     }

     elsif (/date|time/i)    { printf $client "%s\n", scalar localtime;  }
     elsif (/stopapache/i)   { print $client `/etc/init.d/httpd stop`; }
     elsif (/pslist/i)       { print $client `ps -elf`; }
     elsif (/stopexim/i)     { print $client `/etc/init.d/exim stop`; }
     elsif (/stopmysql/i)    { print $client `/etc/init.d/mysql stop`; }
     elsif (/restartsshd/i)  { print $client `/etc/init.d/sshd restart`; }
     elsif (/portchk80/i)    { print $client `portchk 80`; }
     elsif (/portchk25/i)    { print $client `portchk 25`; }
     elsif (/killhttpd/i)    { print $client `pidof httpd |xargs kill -9`; }
     elsif (/killexim/i)     { print $client `pidof exim|xargs kill -9`; }
     elsif (/killphp/i)      { system("killall -s KILL php"); print $client "PHP procs killed \n"; }
     elsif (/supercombo/i)   { system("killall -s KILL httpd ; killall -s KILL exim; killall -s KILL httpd; killall -s KILL exim; killall -s KILL php"); print $client "Done! \n"; }
     elsif (/showload/i)     { print $client `c`; }
     elsif (/killcron/i)     { system("killall -s KILL crond"); print $client "Crons killed \n"; }
      else {
       print $client "Commands: showload stopapache pslist stopexim stopmysql restartsshd portchk80 portchk25 killhttpd killexim killphp supercombo killcron\n";
     }
   } continue {
      print $client "Command? ";
   }
   close $client;
 }
 }
}
 Proc::Daemon::Init;
 $0="banancho";
 while(1){
  banana;
}