Also print strerror(3) output in case of socket errors.

git-svn-id: http://svn.cactuscode.org/arrangements/CactusConnect/Socket/trunk@12 9697cf00-7f2a-4e1b-af3c-314b8e4b499e

1 files changed, 7 insertions, 5 deletions

diff --git a/src/Utils.c b/src/Utils.c
index 7ba5d02..9ad122b 100644
--- a/src/Utils.c
+++ b/src/Utils.c
@@ -209,30 +209,32 @@ int Socket_TCPOpenServerSock(int port)
 
   if((ppe=getprotobyname("tcp")) == NULL)
   {
-    perror("can\'t find tcp protocol\n");
+    fprintf (stderr, "can\'t find tcp protocol: %s\n", strerror (errno));
     return -1;
   }
   s=socket(PF_INET,SOCK_STREAM,ppe->p_proto);
   if(s<0)
   {
-    fprintf(stderr,"couldn\'t create socket on port %u\n",port);
+    fprintf (stderr, "couldn\'t create socket on port %u: %s\n",
+             port, strerror (errno));
     return s;
   }
   if(setsockopt(s,SOL_SOCKET,SO_REUSEADDR,&on,sizeof(on)) < 0)
   {
-    fprintf(stderr,"couldn\'t set SO_REUSEADDR to port %u\n",port);
+    fprintf (stderr, "couldn\'t set SO_REUSEADDR to port %u: %s\n",
+             port, strerror (errno));
     close(s);
     return -1;
   }
   if(bind(s,(struct sockaddr *)&sin, sizeof(sin)) < 0)
   {
-    fprintf(stderr,"couldn\'t bind to port %u\n",port);
+    fprintf (stderr, "couldn\'t bind to port %u: %s\n", port, strerror (errno));
     close(s);
     return -1;
   }
   if(listen(s,5) < 0) /* note, server connection qlen fixed to 5 */
   {
-    fprintf(stderr,"couldn\'t listen on port %u\n",port);
+    fprintf (stderr, "couldn\'t listen on port %u: %s\n", port, strerror (errno));
   }
   return s;
 }