#include <fcntl.h>
#include <unistd.h>
#include <sys/types.h>
#include <signal.h>
#include <sys/stat.h>
#include <stdio.h>
#include <errno.h>

void main ()
{
  int i, n, pid, fo;
  char buf[82] = "";
  int *pip;

static void ServerDown(int signo)
{
  close(fo);
  close(pip[0]);
  printf("Server in down\n");
  exit(0);
}

  printf("\n");
  signal(SIGCHLD, ServerDown);
  if ( pipe( pip ) < 0 )
  {
    perror("pipe");
    exit(1);
  }
  if ( ( pid = fork() ) < 0 )
  {
    printf("fork");
    exit(1);
  }
  if (pid == 0)
  {
    printf("Starting stantion\n");
    close(pip[0]);
    printf("Exit : \".\" \n");
    do  
    {
      for (i=0; i<sizeof(buf); i++) buf[i] = 0;
      read(0, buf, sizeof(buf));
      if ( !( (buf[0] == 46) && (strlen(buf) == 2) ) )
      {
        if ( write(pip[1], buf, strlen(buf)) < 0)
        {
          printf("Error write in PIPE : %d\n",errno);
          perror("PIPE");      
        }
      }
    }
    while ( !( (buf[0] == 46) && (strlen(buf) == 2) ) );
    close(fo);
    close(pip[1]);
    printf("Stantion in down\n");
  }
  else
  {
    printf("Starting server\n");
    close(pip[1]);  
    unlink("./pip.output.txt");
    if ((fo = open ("./pip.output.txt", O_WRONLY | O_CREAT | O_APPEND, 0600) ) < 0)
    {
      perror("open");
      kill (pid, 9);
      exit(1);
    }
    while (1)
    {
      while ( (n = read(pip[0], buf, 2 ) ) > 0)
      {
        if (write(fo, buf, n) !=n)
        {
          perror("write");
          kill (pid, 9);
          close(fo);
          exit(1);
        }
        for (i=0; i<sizeof(buf); i++) buf[i] = 0;
      }
    }
  }
}