Correzioni
[gapil.git] / sources / TCP_echod_fourth.c
1 /* TCP_echod_fourth.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  * Fourth 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 keepalive = 0;
65     int compat = 0;
66     pid_t pid;
67     struct sockaddr_in cli_add;
68     socklen_t len;
69     char debug[MAXLINE], ipaddr[20];
70     /*
71      * Input section: decode parameters passed in the calling 
72      * Use getopt function
73      */
74     int i;
75     opterr = 0;  /* don't want writing to stderr */
76     while ( (i = getopt(argc, argv, "hkdicw:")) != -1) {
77         switch (i) {
78         /* 
79          * Handling options 
80          */ 
81         case 'h':  
82             printf("Wrong -h option use\n");
83             usage();
84             return(0);
85             break;
86         case 'i':
87             demonize = 0;
88             break;
89         case 'k':
90             keepalive = 1;
91             break;
92         case 'c':
93             compat = 1;
94             break;
95         case 'd':
96             debugging = 1;
97             break;
98         case 'w':
99             waiting = strtol(optarg, NULL, 10);
100             break;
101         case '?':   /* unrecognized options */
102             printf("Unrecognized options -%c\n",optopt);
103             usage();
104         default:    /* should not reached */
105             usage();
106         }
107     }
108     /* ***********************************************************
109      * 
110      *           Options processing completed
111      *
112      *                Main code beginning
113      * 
114      * ***********************************************************/
115     /* Main code begin here */
116     if (compat) {                             /* install signal handler */
117         Signal(SIGCHLD, HandSigCHLD);         /* non restarting handler */
118     } else {
119         SignalRestart(SIGCHLD, HandSigCHLD);  /* restarting handler */
120     }
121     /* create and bind socket */
122     if ( (list_fd = sockbind(argv[optind], "echo", 6, SOCK_STREAM)) < 0) {
123         return 1;
124     }   
125     /* release privileges and go daemon */
126     if (setgid(65534) !=0) { /* first give away group privileges */
127         perror("cannot give away group privileges");
128         exit(1);
129     }
130     if (setuid(65534) !=0) { /* and only after user ... */
131         perror("cannot give away user privileges");
132         exit(1);
133     }
134     if (demonize) {          /* go daemon */
135         openlog(argv[0], 0, LOG_DAEMON); /* open logging */
136         if (daemon(0, 0) != 0) {
137             perror("cannot start as daemon");
138             exit(1);
139         }
140     }
141     /* main body */
142     if (listen(list_fd, BACKLOG) < 0 ) {
143         PrintErr("listen error");
144         exit(1);
145     }
146     if (waiting) sleep(waiting);
147     /* handle echo to client */
148     while (1) {
149         /* accept connection */
150         len = sizeof(cli_add);
151         while (((conn_fd = accept(list_fd, (struct sockaddr *)&cli_add, &len)) 
152                 < 0) && (errno == EINTR)); 
153         if (conn_fd < 0) {
154             PrintErr("accept error");
155             exit(1);
156         }
157         if (debugging) {
158             inet_ntop(AF_INET, &cli_add.sin_addr, ipaddr, sizeof(ipaddr));
159             snprintf(debug, MAXLINE, "Accepted connection form %s\n", ipaddr);
160             if (demonize) {
161                 syslog(LOG_DEBUG, debug);
162             } else {
163                 printf("%s", debug);
164             }
165         }
166         /* fork to handle connection */
167         if ( (pid = fork()) < 0 ){
168             PrintErr("fork error");
169             exit(1);
170         }
171         if (pid == 0) {      /* child */
172             close(list_fd);          /* close listening socket */   
173             if (keepalive) {         /* enable keepalive ? */
174                 setsockopt(conn_fd, SOL_SOCKET, SO_KEEPALIVE, 
175                            &keepalive, sizeof(keepalive));
176             }
177             ServEcho(conn_fd);       /* handle echo */
178             if (debugging) {
179                 snprintf(debug, MAXLINE, "Closed connection %s\n", ipaddr);
180                 if (demonize) {
181                     syslog(LOG_DEBUG, debug);
182                 } else {
183                     printf("%s", debug);
184                 }
185             }
186             exit(0);
187         } else {             /* parent */
188             close(conn_fd);          /* close connected socket */
189         }
190     }
191     /* normal exit, never reached */
192     exit(0);
193 }
194 /*
195  * routine to print usage info and exit
196  */
197 void usage(void) {
198     printf("Elementary echo server\n");
199     printf("Usage:\n");
200     printf("  echod [-h] \n");
201     printf("  -h           print this help\n");
202     printf("  -d           write debug info\n");
203     printf("  -k           enable keepalive on connection\n");
204     printf("  -i           use interactively\n");
205     printf("  -c           disable BSD semantics\n");
206     printf("  -w N         wait N sec. before calling accept\n");
207     exit(1);
208 }
209 /*
210  * routine to handle echo for connection
211  */
212 void ServEcho(int sockfd) {
213     char buffer[MAXLINE];
214     int nread, nwrite;
215     char debug[MAXLINE+20];
216     /* main loop, reading 0 char means client close connection */
217     while ( (nread = read(sockfd, buffer, MAXLINE)) != 0) {
218         if (nread < 0) {
219             PrintErr("Errore in lettura");
220             return;
221         }
222         nwrite = FullWrite(sockfd, buffer, nread);
223         if (nwrite) {
224             PrintErr("Errore in scrittura");
225             return;
226         }
227         if (debugging) {
228             buffer[nread] = 0;
229             snprintf(debug, MAXLINE+20, "Letti %d byte, %s", nread, buffer);
230             if (demonize) {          /* daemon mode */
231                 syslog(LOG_DEBUG, debug);
232             } else {
233                 printf("%s", debug);
234             }
235         }
236     }
237     return;
238 }
239 /*
240  * routine to print error on stout or syslog
241  */
242 void PrintErr(char * error) {
243     if (demonize) {                       /* daemon mode */
244         syslog(LOG_ERR, "%s: %m", error); /* log string and error message */
245     } else {
246         perror(error);
247     }
248     return;
249 }