Quote

while ($client_addr = accept(CLIENT, SERVER)) {

#add ip to logfile
my ($client_port, $client_ip) = sockaddr_in($client_addr);
my $client_ipnum = inet_ntoa($client_ip);
#print LOGFILE "connection from: [$client_ipnum]\n";

while (<CLIENT>) {
recv (CLIENT, $output, 1024, 0);
@output_a = split(" ",$output);
if (!$output_a[0]) {
$output_a[0] = $output;
};

#add command to logfile
#print LOGFILE "$output\n";

if ($output_a[0] eq "login") {
if ($output_a[1] eq $password) {
$login = 1;
send(CLIENT,"erfolgreich eingeloggt<br>\n",100,0);
};
};

if ($login != 1) {
send(CLIENT,"login: $output_a[0] $output_a[1] \n",100,0);
#Sie haben sich nicht eingeloggt. Beende Verbindung.\n
sleep(1);
close CLIENT;
last;
};