/*  vcserver.c  server  */



#include <stdio.h>

#include <errno.h>

#include <sys/types.h>

#include <sys/socket.h>

#include <netinet/in.h>    /* sockaddr_in 結構體 */



/* 下面的這個include可以使程序查詢主機名字列表，

找出所有與其IP綁定的hostname */

#include <netdb.h>          /* 預定義/etc/hosts列表 */

main (int argc, char *argv[])

{

   int rc,            /* 系統調用return code */

       new_sd, sock,  /* server/listen 套接字標識符 */

       adrlen,        /* sockaddr 長度 */

       cnt;           /* number of bytes I/O */

   struct sockaddr_in myname;  /* Internet套接字名稱 */

   struct sockaddr_in *nptr;   /* ptr 獲取端口號 */

   struct sockaddr    addr;    /* 通用套接字名稱 */

   char buf[80];   /* I/O 緩沖區定義 */

   /* 在 /etc/hosts 文件中查找  */

   struct hostent *hp, *gethostbyaddr();

   /* 標識服務器進程，打印其PID */



   printf("\nThis is the network server with pid %d\n",

        getpid() );



   /* 建立一個傾聽套接字 */



   if (( sock = socket(AF_INET, SOCK_STREAM, 0)) < 0 ) {

      printf("network server socket failure %d\n", errno);

      perror("network server");

      exit(1);

}

   /* 初始化套接字地址結構中的各個參數              */

   myname.sin_family = AF_INET;  /* Internet地址 */

   myname.sin_port = 0;  /* 系統會綁定端口號  */

   myname.sin_addr.s_addr = INADDR_ANY;  

   /* 將IP地址結構與套接字綁定，調用bind()函數 */



   if (bind(sock, &myname, sizeof(myname) ) < 0 ) {

      close(sock);  /* defensive programming  */

      printf("network server bind failure %d\n", errno);

      perror("network server");

      exit(2);

   }



   /*	獲取套接字端口號。調用getsockname()可以得到與套接字相關聯

的端口號，并作為套接字地址結構中的一部分返回。記錄

這個端口號以供客戶端程序使用。

	*/

   adrlen = sizeof(addr); /* 地址長度為整形值 */

   if ( ( rc = getsockname( sock, &addr, &adrlen ) ) < 0 )

	{

      printf("setwork server getsockname failure %d\n",

				errno);

      perror("network server");

      close (sock);

      exit(3);

   }



   /*	調試說明：

通用套接字地址addr被用來存放getsockname()返回的套接字的值。

打印這個信息。在一般的地址聲明中，除了地址族其余的都被定

義為字符串類型。Getsocknae()調用之后，這個通用套接字地址

結構addr就會被用來存放關于客戶端進程的信息。*/

   printf("\nAfter getsockname():");

   printf(" server listen socket data\n");

   printf("\taddr.sa_family field value is: %d\n",

        addr.sa_family);

   printf("\taddr.sa_data string is %d bytes long;\n",

        sizeof ( addr.sa_data ) );

   printf("\taddr.sa_data string is:");

   for ( cnt = 0; cnt < sizeof (addr.sa_data); cnt++)

        printf(" %x", addr.sa_data[cnt]);

   printf("\n");



   /*	現在需要記錄下來套接字的端口號。在這里端口號將作為啟動客戶端程

序的一個命令行參數使用。  */

   /*	注意指針nptr，它是指向通用套接字地址結構的一個指針		*/



   nptr = (struct sockaddr_in *) &addr;  /* port # */

   printf("\n\tnetwork server: server has port number: %d\n",

      ntohs ( nptr -> sin_port ) );



   /*  調用listen()函數 */

   if ( listen ( sock, 5 ) < 0 ) {

      printf("network server bind failure %d\n", errno);

      perror("network server");

      close (sock);

      exit(4);

   }



   /* 調試輸出：

下面輸出結構體myname中所包含的套接字信息         */

   printf("Server has set up client socket with values:\n");

   printf("\tInternet address is %lx\n", myname.sin_addr.s_addr);

   printf("\tPort number used is %d\n", myname.sin_port);

   printf("\tInternet family ID is %d\n", myname.sin_family);

   printf("\tValues are filled in after connection request ");

   printf("is accepted.");

   /* 設置初始死循環以等待客戶端進程的連接請求。由于結構體myname已經和傾聽套接字綁

定，通過accept()調用可以獲得套接字結構名稱和套接字長度參數。           */

   while (1) {

      if ( ( new_sd = accept ( sock, 0, 0 ) ) < 0 ) {

         printf("network server accept failure %d\n", errno);

         perror("network server");

         close (sock);

         exit(5);

      }

      /* 通過fork()函數建立子進程來處理客戶端服務請求。*/

      if ( ( fork() ) == 0 ) {    /* 子進程 */

         int pid;

         pid = getpid();   /* 獲取子進程的PID */

         close (sock); /* 子進程中不再需要父進程的參與 */

         /* 查找出客戶端所在。注意通用套接字地址結構addr的用法，獲取客戶端信息      */



         if ((rc = getpeername( new_sd, &addr, &adrlen )) < 0) {

            printf("network server %d getpeername failure %d\n",

                 pid, errno);

            perror("network server");

            close(new_sd);

            exit(6);

         }

         /* 答應客戶端信息。由于指針nptr是一個sockaddr_in結構體指針，

在這個結構體中的地址名稱就可以傳遞給通用地址結構體addr。               */

         printf("\n\tnetwork server %d:", pid);

         printf(" client socket from host %s\n",

              inet_ntoa ( nptr -> sin_addr ) );

         printf("\t     has port number %d\n",nptr -> sin_port);

         /*	現在找到了所有與客戶端相關的信息，并且可以通過在/etc/hosts

中查找來確定客戶端的域名   */

         if (( hp = gethostbyaddr (&nptr -> sin_addr,4,AF_INET))

                  != NULL ) {

            printf ("\tfrom hostname: %s\n\twith aliases: ",

                   hp -> h_name );

            while ( *hp -> h_aliases )

               printf ("\n\t\t\t%s", *hp -> h_aliases++ );

            printf("\n\n");

         }

         else {

            printf("network server %d ", pid);

            printf("gethostbyaddr failure %d\n", h_errno);

            perror("network server");

         }



         /*  與客戶端交換數據。首先清除緩沖區	*/



         do {

			  memset  (buf,0,sizeof(buf));  /* 清空緩沖區 */

            /* bzero( buf, sizeof(buf));* 清空緩沖區, BSD 調用. */

            /* 用read()函數從套接字緩沖區中讀取遠程客戶端發送的數據，如果

數據長度為0則退出。*/



            if (( cnt = read (new_sd, buf, sizeof(buf))) < 0 ) {

               printf("network server %d ", pid);

               printf("socket read failure &d\n", errno);

               perror("network server");

               close(new_sd);

               exit(7);

            }

            else

            if (cnt == 0) {

               printf("network server received message");

               printf(" of length %d\n", cnt);

               printf("network server closing");

               printf(" client connection...\n");

               close (new_sd);

               continue; /* 循環終止點 */

            }

            else {



               /*  打印出接收到的信息，并發送回執       */



               printf("network server %d received message",pid);

               printf(" of length %d\n", cnt);

               printf("network server %d  received", pid);

               printf(" the message %s\n", buf);

				 memset  (buf,0,sizeof(buf));  /* 清空緩沖區 */

          	 /* bzero( buf, sizeof(buf)); * 清空緩沖區, BSD 調用. */

               strcpy(buf, "Message from server to client");

               write (new_sd, buf, sizeof(buf));

            }  /* end of message-print else */

         }  /* end of do loop  */



         while (cnt != 0);  /* 循環條件 */

         exit(0);  /* 子進程結束 */



      } /* End of if-child-process  */



      else      /* 非子進程，父進程條件判斷 */

         close (new_sd); /* 父進程不需要此套接字 */



   }  /* end of while (1) */

}  /* end of main procedure */