[naviserver-commits] modules/nssys tclsys.c,1.4,1.5 test.tcl,1.2,1.3

[Vlad S. <ser...@us...>]

Update of /cvsroot/naviserver/modules/nssys
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1713/nssys

Modified Files:
	tclsys.c test.tcl 
Log Message:
added support of broadcasting to all udp commands


Index: tclsys.c
===================================================================
RCS file: /cvsroot/naviserver/modules/nssys/tclsys.c,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** tclsys.c	7 Aug 2005 22:05:30 -0000	1.4
--- tclsys.c	7 Aug 2005 22:15:09 -0000	1.5
***************
*** 1845,1849 ****
      sa.sin_family = AF_INET;
      sa.sin_port = htons(atoi(port));
!     sa.sin_addr.s_addr = !*address ? INADDR_ANY : inet_addr(address);
      sock = socket(AF_INET, SOCK_DGRAM, 0);
      if (sock < 0) {
--- 1845,1849 ----
      sa.sin_family = AF_INET;
      sa.sin_port = htons(atoi(port));
!     sa.sin_addr.s_addr = inet_addr(address);
      sock = socket(AF_INET, SOCK_DGRAM, 0);
      if (sock < 0) {
***************
*** 1851,1854 ****
--- 1851,1857 ----
          return TCL_ERROR;
      }
+     // To support brodcasting
+     i = 1;
+     setsockopt(sock, SOL_SOCKET, SO_BROADCAST, &i, sizeof(int));
  resend:
      if (sendto(sock, data, len, 0,(struct sockaddr*)&sa, sizeof(sa)) < 0) {

Index: test.tcl
===================================================================
RCS file: /cvsroot/naviserver/modules/nssys/test.tcl,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** test.tcl	7 Aug 2005 22:05:30 -0000	1.2
--- test.tcl	7 Aug 2005 22:15:09 -0000	1.3
***************
*** 4,8 ****
  
  # Send HTTP over UDP
! puts [ns_sysudp 127.0.0.1 80 "GET / HTTP/1.0\r\n\r\n"]
  
  # Setting channel on video device
--- 4,8 ----
  
  # Send HTTP over UDP
! puts [ns_sysudp 127.0.0.255 80 "GET / HTTP/1.0\r\n\r\n"]
  
  # Setting channel on video device