#include <SPI.h>
#include <Ethernet.h>
#include <Arduino.h>
#include <SoftwareSerial.h>

char sender[100];
short nombreDeMessages;
short ancienNombreDeMessages;
int nouveauxmessages=0;
int receptionOctet=0;
int numMessage=0;

// A remplacer par votre adresse IP et votre adresse MAC
byte mac[] = { 0xDE, 0xAD, 0xBE, 0xEF, 0xFE, 0xED };
byte ip[] = { 192,168,1,177 };

// A remplacer si vous n'etes pas chez laposte.net
byte server[] = { 193,251,214,115 }; // pop.laposte.net

EthernetClient client;

SoftwareSerial serialCalc(5, 6); // RX, TX


void setup(){
  Serial.begin(9600);
  serialCalc.begin(9600);
  Serial.println("Arduino allumee");
  serialCalc.write("Arduino allumee");
  serialCalc.println();
  Serial.println("Demmarage du shield...");
  Ethernet.begin(mac, ip);
  nombreDeMessages = ancienNombreDeMessages = -1;
  delay(2000);
}

void loop (){
  Serial.println("Attente instruction...");
  do{
    receptionOctet = serialCalc.read();
  }while(receptionOctet==-1);
  receptionOctet-=48;
  Serial.println(receptionOctet);
  serialCalc.println();
  // Compter les messages
  if(receptionOctet==0){
    nombreDeMessages = NombreDeMessages ();
    nouveauxmessages=nombreDeMessages-ancienNombreDeMessages;
    if (nombreDeMessages == -1){
      Serial.println ("Erreur !");
      serialCalc.write("Erreur !");
      serialCalc.println();
    }
    else{
      if (nombreDeMessages != ancienNombreDeMessages){
        Serial.print ("Vous avez ");
        Serial.print (nouveauxmessages);
        Serial.print (" nouveaux messages");
        Serial.println();
        serialCalc.write(nouveauxmessages);
        serialCalc.write(" nouveaux mails");
        serialCalc.println();
      }
      else{
        Serial.println ("Pas de nouveaux messages...");
        serialCalc.write("Pas de nouveau mail");
        serialCalc.println();
      }
    }
    ancienNombreDeMessages = nombreDeMessages;
  }
  // Afficher l'envoyeur du message
  if(receptionOctet>=1 && nombreDeMessages>=1){
    Serial.println (nombreDeMessages);
    if(nombreDeMessages>=receptionOctet) numMessage=receptionOctet;
    GetSender1();
    Serial.println("XXXXXXXXXXXXXXXXXXXXXXXXXXXX");
    for(int i=13;sender[i]!='\0';i++){
      Serial.print(sender[i]);
      serialCalc.write(sender[i]);
    }
    Serial.println("XXXXXXXXXXXXXXXXXXXXXXXXXXXX");
  }
}

short NombreDeMessages (){
  short nombre;
  
  Serial.println("connecting...");
  
  if (client.connect(server, 110)){
    Serial.println("connected");
    serialCalc.write("connected");
    serialCalc.println();
    GetResponse1Line ();
    SendMsg ("user ****");
    GetResponse1Line ();
    SendMsg ("pass ****");
    GetResponse1Line ();
    SendMsg ("list");
    nombre = GetResponseMultiLine () - 2;
    SendMsg ("quit");
    GetResponse1Line ();
    client.stop ();
  }
  else{
      Serial.println("connection failed");
      nombre = -1;
  }
  
  return nombre;
}

void GetResponse1Line (){
  char c, prevC;
  bool finLigne;
  
  // initialisation des variables
  prevC = c = 0;
  
  Serial.print ("S: ");
  
  do{
    // on met de côté le dernier caratère reçu (0 lors du 1er passage dans la boucle)
    prevC = c;
    
    // tant qu'on n'a rien reçu, on attend
    while (!client.available());
    
    // lecture et affichage du caractère
    c = client.read();
    Serial.print (c);
    
    // si ce caratère est LF (10) et que le précédent était CR (13), alors on a rencontré la fin de la ligne
    finLigne = c == 10 && prevC == 13;
  }
  while (!finLigne); // si fin de ligne, on sort - sinon on continue
}

short GetResponseMultiLine (){
  char c, prevC, prevPrevC;
  bool finLigne;
  bool finReponse;
  short longueurLigne;
  short nombreLignes;
  
  // initialisation des variables
  prevPrevC = prevC = c = 0;
  finReponse = false;
  nombreLignes = 0;
  
  Serial.print ("S: ");
  do{
    longueurLigne = 0;
    do{
      // on met de côté le dernier et l'avant-dernier caratères reçus (0 lors du 1er passage dans la boucle)
      prevPrevC = prevC;
      prevC = c;
      
      // tant qu'on n'a rien reçu, on attend
      while (!client.available());
      
      // lecture et affichage du caractère
      c = client.read();
      Serial.print (c);
      
      // si ce caratère est LF (10) et que le précédent était CR (13), alors on a rencontré la fin de la ligne
      finLigne = c == 10 && prevC == 13;
      
      // on incrémente le compteur de longueur de ligne
      longueurLigne++;
    }while (!finLigne); // si fin de ligne, on sort - sinon on continue
    
    // on incrémente le compteur de nombre de ligne
    nombreLignes++;
    
    // si la ligne comportait 3 caractères et que le 1er était '.' (et donc par conséquent les deux autres sont forcément 'CR' et 'LF'), c'est la dernière ligne de la réponse
    finReponse = longueurLigne == 3 && prevPrevC == '.';
  }while (!finReponse); // si fin de réponse, on sort - sinon on continue
  
  return nombreLignes; // on renvoie le nombre de lignes reçues
}

void SendMsg (char *m){
  client.println (m);
  
  Serial.print ("A: ");
  Serial.println (m);
}

void GetSender1(){
  Serial.println("connecting...");
  
  if (client.connect(server, 110)){
    Serial.println("connected");
    serialCalc.write("connected");
    serialCalc.println();
    GetResponse1Line ();
    SendMsg ("user ****");
    GetResponse1Line ();
    SendMsg ("pass ****");
    GetResponse1Line ();
    GetSender();
    SendMsg ("quit");
    GetResponse1Line ();
    client.stop ();
  }
  else{
      Serial.println("connection failed");
        serialCalc.write("Erreur !");
        serialCalc.println();
  }
}

void GetSender (){
  char c, prevC, prevPrevC;
  bool finLigne;
  bool finReponse;
  short longueurLigne;
  short nombreLignes;

  prevPrevC = prevC = c = 0;
  finReponse = false;
  nombreLignes = 0;
  
  Serial.print ("A: ");
  Serial.print("top ");
  Serial.print(numMessage);
  Serial.println(" 1");
  
  client.print("top ");
  client.print(numMessage);
  client.println(" 1");
  Serial.print ("S: ");
  do{
    longueurLigne = 0;
    do{
      prevPrevC = prevC;
      prevC = c;
      
      while (!client.available());
      c = client.read();
      Serial.print (c);
      // enregistrement caractere du sender
      if(nombreLignes==1) sender[longueurLigne]=c;
      
      finLigne = c == 10 && prevC == 13;
      longueurLigne++;
    }while (!finLigne);
    nombreLignes++;
    finReponse = longueurLigne == 3 && prevPrevC == '.';
  }while (!finReponse);
  
}