tp3.pl

#! /usr/bin/env perl

use Getopt::Long;
use IO::Socket;

#Déclaration des variables
my $server=0;
my $destinationIp = "";
my $port = 0;
my $help = 0;
my $i = 0;
#Affectation des valeurs correspondant aux options
#inscrites à la suite de l'appel du programme
my $options = GetOptions ("serveur" => \$server,
                          "d=s" => \$destinationIp,
                          "port=i" => \$port,
        "help" => \$help);
#fix -d si vide
if ($server == 0 && $destinationIp == "" && $help == 0) {
  ErrorManager("Utiliser -s ou -d");
}

#On veut verifier que string is not null
if ($server != 0 && $destinationIp ne "") {
  ErrorManager("L'application ne peut pas utiliser -d et -s simultanément");
}

if ($port == 0 && $help == 0) {
  ErrorManager("L'option -p est obligatoire");
}

if ($help != 0 && $port == 0 && $server == 0 && $destinationIp == "") {
  print "==================================================\n";
  print "Voici le menu d'aide pour le TP3.\n";
  print "Le TP3 consiste à reproduire le jeu de Monty Hall.\n";
  print "Pour fonctionner le programme à qu'un serveur soit exécuté.\n";
  print "Par la suite un client pourra ce connecter et choisir une porte\n";
  print "afin de gagner une voiture ou bien une chèvre.\n";
  print "==================================================\n\n";
  print "-p port    : Sert à indiquer le numéro de port (est essentiel)\n";
  print "-s serveur : Sert à indiquer que l'application sera utilisé en mode serveur\n";
  print "-d         : Sert à indiquer l'adresse de destination avec qui le client ce connectera\n";
  print "-h help    : Sert à afficher le menu d'aide\n";
}

if ($server == 0){

  print "Login as user";

  my $input = "";
  my $oldLigne = "";
  my $ligne = "";
  my $client = IO::Socket::INET->new(Proto => "tcp",
          PeerAddr => $destinationIp,
          PeerPort => $port)
  or ErrorManager("Impossible de se connecter sur le port $port à l'adresse $destionationIp");

  print "Connected to server";

  while ($ligne ne "quit\n"){
    #On attend les messages du server
    #   $input = <$client>;
    while ($input eq ""){

    print "waiting for server message";

    $client->recv($input, 2048);
      #Afficher le message du server dans la console
      #de l'utilisateur
    
      print $input;

    print "End of server message sequence";

    }

    #Attente que l'utilisateur entre une chaîne de charactère
    if ($ligne eq ""){

      print "entering text sequence";

      $ligne = <>;

      print "End of enering text";

    }
    if ($ligne ne $oldLigne){

      print "Sending entered text";

      $client->send($ligne);

      print "End of sending entered text";

    }
    #Envoie de la chaine au server

    if ($ligne eq "quit\n"){
      print $client->send("quit\r\n");
    }
    else{
      print $client->send($ligne);
    }
      $input = "";
      $oldLigne = $ligne;
      $ligne = "";
  }

  #Affiche la dernière chaîne entrée

  print <$client>;

  #Fin de connection

  close ($client);
}

if ($server == 1) {
  my $serverInput = "";
  $serveur = IO::Socket::INET->new( Proto => "tcp",
                                    LocalPort => $port,
                                    Listen => SOMAXCONN,
                                    Reuse => 1)
    or ErrorManager("Impossible de se connecter sur le port $port en localhost");

  while (my $connection = $serveur->accept())
  {
    #Affichage du nombre de connection au serveur
    $i++;
    print "Connection $i au serveur\n";
    #On envoie un mot de bienvenue à l'ordinateur distant

    my $message = "Bienvenue au jeu de Monty Hall!. Une des trois portes numérotées de 1 à 3 cache une voiture, les deux autres cachent une chèvres. Choisissez un nombre entre 1 et 3 : ";

    #  print $connection "$message";
    $connection->send($message);
    #On intercepte l'information envoyé par l'ordinateur
    #distant, tant que celui-ci n'entre pas la chaine de
    #caractère quit suivie de la toucher entrée
    while($serverInput ne "quit\r\n")
    {
    # $serverInput = <$connection>;
      $connection->recv($serverInput, 2048);

      my $voiture = int(rand(3)) + 1;
      my $chevreUn = 0;
      my $chevreDeux = 0;

      if ($voiture == 1) {
        $chevreUn = 2;
        $chevreDeux = 3;
      }

      if ($voiture == 2) {
        $chevreUn = 1;
        $chevreDeux = 3;
      }

      if ($voiture == 3) {
        $chevreUn = 1;
        $chevreDeux = 2;
      }
      #On attend que l'ordinateur distant nous envoie
      #des caractères
      $serverInput =~ s/\r|\n//g;

      if ($serverInput == "3" || $serverInput == "2" || $serverInput == "1") {
        print $connection "Vous avez choisi la porte $serverInput.\n\n";

        my $porteAnimateur = 0;
        my $porteAlternative = 0;

        if ($serverInput eq $chevreUn) {
          $porteAnimateur = $chevreDeux;
          $porteAlternative = $voiture;
        } elsif ($serverInput eq $chevreDeux){
          $porteAnimateur = $chevreUn;
          $porteAlternative = $voiture;
        } else {

          $porteAnimateur = $chevreUn;
          $porteAlternative = $chevreDeux;
        }
        my $messageDeux = sprintf "Le présentateur ouvre la porte %d, qui cachait une chèvre !
Garderez-vous la porte $serverInput ou changerez-vous pour la porte %d.
Choisissez entre $serverInput (rester) et %d (changer) : ", $porteAnimateur, $porteAlternative, $porteAlternative;

        my $test = "allo";
        $connection->send($test);

        my $oldInput = $serverInput;

        while ($oldInput eq $serverInput || $serverInput eq $porteAlternative) {
          $connection->recv($serverInput, 2048);
        }

        $serverInput =~ s/\r|\n//g;

        if ($serverInput eq $voiture) {
        print $connection->send("Félicitations! Vous avez gagné la voiture!");
      } else {
        print $connection->send("Hélas, vous ne gagnez qu'une chèvre...");
      }

      }
    }
    #On réinitialise la variable input
    $serverInput = "";
    #On ferme la connection
    close($connection);
  }
}

sub ErrorManager {
  my $filename = "Error.log";
  open(my $fh, ">>", $filename) or die "Impossible d’ouvrir
  Error.log en écriture : $!";

  my $errorMessage = @_[0];

  say $fh "\nErreur : " .$errorMessage." en date et heure du ".localtime();

  close($fh);
  die $errorMessage;
}