sub main_connection {

  my $text = shift;#prompt-msg

  sleep(30) unless $FST;#provide serverflooding

  $FST = 0;

  print "$text\n";

  $SPIN = shake_hands();

  login();

  #use select to have a non-blocking socket

  my $sock = new IO::Select( $SPIN );

  main_loop($sock);

} #sub main_connection

	

sub main_loop {

  my $sock = shift;

  my $died = 0;#check flag

  while (1) {

	#get data from socket, if there some

	while ((my @ready = $sock->can_read(30))) { 

		#print "test1\n";

	    for my $fh (@ready) {#checkout readable fhs  

          if($fh == $SPIN) {

			my $input;

		    unless(sysread($SPIN,$input,2048)) { $died = 1 };

			last if $died;

			if($input) {

				#print "test2\n";

			  ping_check();

			  #in some cases we've more than one cmd in a line

			  #so we've to split them by \n, cause server seperates by \n

			  my @cmds = split /\n/, $input;

			  for my $line (@cmds) {

			    open_log() unless check_log("logs/$logfile");

		  	    start($line);

				#print "test3\n";

			  }

		    } else {

			  print "unknow socketerror...\n";#syswrite returns 1, but we haven't some input?

			}

		    last;

          }

	    }

		last if $died;

    }

	last if $died;

	ping_check() or last;

	print "Nichts passiert!\n";

  }

  main_connection('Socketerror, trying to reconnect..');

} #main_loop()

#!/usr/bin/perl -w

use strict;
use CGI::Carp qw(fatalsToBrowser);
use IO::Socket;

my ( $HOSTNAME, $PORTNO, $MAXLEN, $nachricht );

$HOSTNAME       = '127.0.0.1' ;
$PORTNO         = 5151;
$MAXLEN         = 1024;
$nachricht      = 'Hallo Computer';

socket ( SOCKET, PF_INET , SOCK_DGRAM, getprotobyname ( 'udp' ) ) or die "socket: $!";
my $ipaddr              = inet_aton ( $HOSTNAME );
my $portaddr    = sockaddr_in ( $PORTNO, $ipaddr );

send ( SOCKET, $nachricht , 0, $portaddr ) == length ( $nachricht ) or die "cannot send to $HOSTNAME($PORTNO): $!";
$portaddr               = recv ( SOCKET, $nachricht, $MAXLEN, 0 ) or die "recv: $!";

( $PORTNO, $ipaddr )    = sockaddr_in ( $portaddr );
my $host = gethostbyaddr( $ipaddr, AF_INET );
print "$host($PORTNO) said $nachricht$/";

use IO::Socket;
my $sock = new IO::Socket::INET (
        LocalHost => '127.0.0.1',
        LocalPort => '7070',
        Proto => 'tcp',
        Listen => 1,
        Reuse => 1,
);
die "Could not create socket: $!\n" unless $sock;

my $new_sock = $sock->accept();
while(<$new_sock>) {
        print $_;
}
close($sock);

use IO::Socket;
my $sock = new IO::Socket::INET (
        PeerAddr => '127.0.0.1',
        PeerPort => '7070',
        Proto => 'tcp',
);
die "Could not create socket: $!\n" unless $sock;
print $sock "Hello there!\n";
close($sock);

Could not create socket: Connection refused