use IO::Socket;
use strict;

my $socket = new IO::Socket::INET (PeerAddr =>'PC110197',PeerPort => 1810) or die "Konnte Socket nicht erstellen: $!\n";
$socket->autoflush(1);


print "\n";
########## CREATE CLIENT ###########
print "Sende ein Client Create zum Server...\n";
print $socket "CLIENT CREATE\n";
my $line = getlinefromsocket ($socket);
  if ($line eq "ACK") {
    print "erfolgreich!";

########## CONNECT ############

    print "\nSende ein CONNECT zum Server...\n";
    print $socket "CONNECT\n";
    $line = getlinefromsocket ($socket);
      if ($line eq "ACK") {
        print "erfolgreich!";
      }
      elsif ($line eq "NACK") {
        print "fehlgeschlagen!";
      }
      else {
        print "nichts geht!";
      }


############## PING CGK ###############

    print "\nSende ein PING GET CGK-IMPORT zum Server...\n";
    print $socket "PING GET CGK-IMPORT\n";
    $line = getlinefromsocket ($socket);
      if ($line eq "ACK") {
        print "erfolgreich!";
      }
      elsif ($line eq "NACK") {
        print "fehlgeschlagen!";
      }
      else {
        print "nichts geht!";
      }

############## PING BUSY ###############

    print "\nSende ein PING GET BUSY-IMPORT zum Server...\n";
    print $socket "PING GET BUSY-IMPORT\n";
    $line = getlinefromsocket ($socket);
      if ($line eq "ACK") {
        print "erfolgreich!";
      }
      elsif ($line eq "NACK") {
        print "fehlgeschlagen!";
      }
      else {
        print "nichts geht!";
      }

############## PING COLD ###############

    print "\nSende ein PING GET COLD-IMPORT zum Server...\n";
    print $socket "PING GET COLD-IMPORT\n";
    $line = getlinefromsocket ($socket);
      if ($line eq "ACK") {
        print "erfolgreich!";
      }
      elsif ($line eq "NACK") {
        print "fehlgeschlagen!";
      }
      else {
        print "nichts geht!";
      }

############## PING ZEUS ###############

    print "\nSende ein PING GET ZEUS-IMPORT zum Server...\n";
    print $socket "PING GET ZEUS-IMPORT\n";
    $line = getlinefromsocket ($socket);
      if ($line eq "ACK") {
        print "erfolgreich!";
      }
      elsif ($line eq "NACK") {
        print "fehlgeschlagen!";
      }
      else {
        print "nichts geht!";
      }

########## DISCONNECT ############

    print "\nSende ein DISCONNECT zum Server...\n";
    print $socket "DISCONNECT\n";
    $line = getlinefromsocket ($socket);
      if ($line eq "ACK") {
        print "erfolgreich!";
      }
      elsif ($line eq "NACK") {
        print "fehlgeschlagen!";
      }
      else {
        print "nichts geht!";
      }

########## ENDSESSION ############

    print "\nSende ein END SESSION zum Server...\n";
    print $socket "END SESSION\n";
    $line = getlinefromsocket ($socket);
      if ($line eq "ACK") {
        print "erfolgreich!";
      }
      elsif ($line eq "NACK") {
        print "fehlgeschlagen!";
      }
      else {
        print "nichts geht!";
      }

  }
  elsif ($line eq "NACK") {
    print "fehlgeschlagen!";
  }
  else {
    print "Keine Verbindung!";
  }
print "\n";
$socket->close();

########### UNTERPROGRAMM ###########

sub getlinefromsocket {
  my $buffer;
  my $char;
  while ( $socket->recv( $char, 1 ) ) {
    last if ( $char eq "\0" );
    $buffer .= $char;
  }
  return $buffer;
}