sources/TCP_echod_third.c

   1 /* TCP_echod_third.c
   2  *
   3  * Copyright (C) 2001-2004 Simone Piccardi
   4  *
   5  * This program is free software; you can redistribute it and/or modify
   6  * it under the terms of the GNU General Public License as published by
   7  * the Free Software Foundation; either version 2 of the License, or (at
   8  * your option) any later version.
   9  *
  10  * This program is distributed in the hope that it will be useful, but
  11  * WITHOUT ANY WARRANTY; without even the implied warranty of
  12  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  13  * General Public License for more details.
  14  *
  15  * You should have received a copy of the GNU General Public License
  16  * along with this program; if not, write to the Free Software
  17  * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  18  */
  19 /****************************************************************
  20  *
  21  * Program echod
  22  * Elementary TCP server for echo service (port 7)
  23  * Third version
  24  *
  25  * Author: Simone Piccardi
  26  * Jun. 2001
  27  *
  28  * Usage: echod -h give all info
  29  *
  30  ****************************************************************/
  31 /*
  32  * Include needed headers
  33  */
  34 #include <sys/types.h>   /* primitive system data types */
  35 #include <unistd.h>      /* unix standard library */
  36 #include <arpa/inet.h>   /* IP addresses conversion utilities */
  37 #include <sys/socket.h>  /* socket constants, types and functions */
  38 #include <stdio.h>       /* standard I/O library */
  39 #include <time.h>        /* date and time constants, types and functions */
  40 #include <syslog.h>      /* syslog system functions */
  41 #include <signal.h>      /* signal constants, types and functions */
  42 #include <errno.h>       /* error definitions and routines */
  43 #include <string.h>      /* C strings library */
  44 #include <stdlib.h>      /* C standard library */
  45
  46 #include "Gapil.h"
  47
  48 #define BACKLOG 10
  49 #define MAXLINE 256
  50 int demonize  = 1;  /* daemon use option: default is daemon */
  51 int debugging = 0;  /* debug info printing option: default is no debug */
  52 /* Subroutines declaration */
  53 void usage(void);
  54 void ServEcho(int sockfd);
  55 void PrintErr(char * error);
  56 /* Program beginning */
  57 int main(int argc, char *argv[])
  58 {
  59 /*
  60  * Variables definition
  61  */
  62     int list_fd, conn_fd;
  63     int waiting = 0;
  64     int compat = 0;
  65     pid_t pid;
  66     struct sockaddr_in serv_add, cli_add;
  67     socklen_t len;
  68     char debug[MAXLINE], ipaddr[20];
  69     /*
  70      * Input section: decode parameters passed in the calling
  71      * Use getopt function
  72      */
  73     int i;
  74     opterr = 0;  /* don't want writing to stderr */
  75     while ( (i = getopt(argc, argv, "hdicw:")) != -1) {
  76         switch (i) {
  77         /*
  78          * Handling options
  79          */
  80         case 'h':
  81             printf("Wrong -h option use\n");
  82             usage();
  83             return(0);
  84             break;
  85         case 'i':
  86             demonize = 0;
  87             break;
  88         case 'c':
  89             compat = 1;
  90             break;
  91         case 'd':
  92             debugging = 1;
  93             break;
  94         case 'w':
  95             waiting = strtol(optarg, NULL, 10);
  96             break;
  97         case '?':   /* unrecognized options */
  98             printf("Unrecognized options -%c\n",optopt);
  99             usage();
 100         default:    /* should not reached */
 101             usage();
 102         }
 103     }
 104     /* ***********************************************************
 105      *
 106      *           Options processing completed
 107      *
 108      *                Main code beginning
 109      *
 110      * ***********************************************************/
 111     /* Main code begin here */
 112     if (compat) {                             /* install signal handler */
 113         Signal(SIGCHLD, HandSigCHLD);         /* non restarting handler */
 114     } else {
 115         SignalRestart(SIGCHLD, HandSigCHLD);  /* restarting handler */
 116     }
 117     /* create and bind socket */
 118     if ( (list_fd = sockbind(NULL, "echo", 6, SOCK_STREAM)) < 0) {
 119         return 1;
 120     }
 121     /* release privileges and go daemon */
 122     if (setgid(65534) !=0) { /* first give away group privileges */
 123         perror("cannot give away group privileges");
 124         exit(1);
 125     }
 126     if (setuid(65534) !=0) { /* and only after user ... */
 127         perror("cannot give away user privileges");
 128         exit(1);
 129     }
 130     if (demonize) {          /* go daemon */
 131         openlog(argv[0], 0, LOG_DAEMON); /* open logging */
 132         if (daemon(0, 0) != 0) {
 133             perror("cannot start as daemon");
 134             exit(1);
 135         }
 136     }
 137     /* main body */
 138     if (listen(list_fd, BACKLOG) < 0 ) {
 139         PrintErr("listen error");
 140         exit(1);
 141     }
 142     if (waiting) sleep(waiting);
 143     /* handle echo to client */
 144     while (1) {
 145         /* accept connection */
 146         len = sizeof(cli_add);
 147         while (((conn_fd = accept(list_fd, (struct sockaddr *)&cli_add, &len))
 148                 < 0) && (errno == EINTR));
 149         if (conn_fd < 0) {
 150             PrintErr("accept error");
 151             exit(1);
 152         }
 153         if (debugging) {
 154             inet_ntop(AF_INET, &cli_add.sin_addr, ipaddr, sizeof(ipaddr));
 155             snprintf(debug, MAXLINE, "Accepted connection form %s\n", ipaddr);
 156             if (demonize) {
 157                 syslog(LOG_DEBUG, debug);
 158             } else {
 159                 printf("%s", debug);
 160             }
 161         }
 162         /* fork to handle connection */
 163         if ( (pid = fork()) < 0 ){
 164             PrintErr("fork error");
 165             exit(1);
 166         }
 167         if (pid == 0) {      /* child */
 168             close(list_fd);          /* close listening socket */
 169             ServEcho(conn_fd);       /* handle echo */
 170             if (debugging) {
 171                 snprintf(debug, MAXLINE, "Closed connection %s\n", ipaddr);
 172                 if (demonize) {
 173                     syslog(LOG_DEBUG, debug);
 174                 } else {
 175                     printf("%s", debug);
 176                 }
 177             }
 178             exit(0);
 179         } else {             /* parent */
 180             close(conn_fd);          /* close connected socket */
 181         }
 182     }
 183     /* normal exit, never reached */
 184     exit(0);
 185 }
 186 /*
 187  * routine to print usage info and exit
 188  */
 189 void usage(void) {
 190     printf("Elementary echo server\n");
 191     printf("Usage:\n");
 192     printf("  echod [-h] \n");
 193     printf("  -h           print this help\n");
 194     printf("  -d           write debug info\n");
 195     printf("  -i           use interactively\n");
 196     printf("  -c           disable BSD semantics\n");
 197     printf("  -w N         wait N sec. before calling accept\n");
 198     exit(1);
 199 }
 200 /*
 201  * routine to handle echo for connection
 202  */
 203 void ServEcho(int sockfd) {
 204     char buffer[MAXLINE];
 205     int nread, nwrite;
 206     char debug[MAXLINE+20];
 207     /* main loop, reading 0 char means client close connection */
 208     while ( (nread = read(sockfd, buffer, MAXLINE)) != 0) {
 209         if (nread < 0) {
 210             PrintErr("Errore in lettura");
 211             return;
 212         }
 213         nwrite = FullWrite(sockfd, buffer, nread);
 214         if (nwrite) {
 215             PrintErr("Errore in scrittura");
 216             return;
 217         }
 218         if (debugging) {
 219             buffer[nread] = 0;
 220             snprintf(debug, MAXLINE+20, "Letti %d byte, %s", nread, buffer);
 221             if (demonize) {          /* daemon mode */
 222                 syslog(LOG_DEBUG, debug);
 223             } else {
 224                 printf("%s", debug);
 225             }
 226         }
 227     }
 228     return;
 229 }
 230 /*
 231  * routine to print error on stout or syslog
 232  */
 233 void PrintErr(char * error) {
 234     if (demonize) {                       /* daemon mode */
 235         syslog(LOG_ERR, "%s: %m", error); /* log string and error message */
 236     } else {
 237         perror(error);
 238     }
 239     return;
 240 }