| /***************************************************************************** |
| * |
| * wol.c - Wake-On-LAN utility to wake a networked PC |
| * |
| * by R. Edwards (bob@cs.anu.edu.au), January 2000 |
| * (in_ether routine adapted from net-tools-1.51/lib/ether.c by |
| * Fred N. van Kempen) |
| * added file input, some minor changes for compiling for NetWare |
| * added switches -q and -d=<ms>, added Win32 target support |
| * by G. Knauf (gk@gknw.de), 30-Jan-2001 |
| * added switches -b=<bcast> and -p=<port> |
| * by G. Knauf (gk@gknw.de), 10-Okt-2001 |
| * added OS/2 target support |
| * by G. Knauf (gk@gknw.de), 24-May-2002 |
| * |
| * This utility allows a PC with WOL configured to be powered on by |
| * sending a "Magic Packet" to it's network adaptor (see: |
| * http://www.amd.com/products/npd/overview/20212.html). |
| * Only the ethernet dest address needs to be given to make this work. |
| * Current version uses a UDP broadcast to send out the Magic Packet. |
| * |
| * compile with: gcc -Wall -o wol wol.c |
| * with Solaris: (g)cc -o wol wol.c -lsocket -lnsl |
| * with MingW32: gcc -Wall -o wol wol.c -lwsock32 |
| * |
| * usage: wol <dest address> |
| * where <dest address> is in [ddd.ddd.ddd.ddd-]xx:xx:xx:xx:xx:xx format. |
| * or: wol [-q] [-b=<bcast>] [-p=<port>] [-d=<ms>] -f=<File name> |
| * where <File name> is a file containing one dest address per line, |
| * optional followed by a hostname or ip separated by a blank. |
| * -b sets optional broadcast address, -p sets optional port, |
| * -q supresses output, -d=<ms> delays ms milliseconds between sending. |
| * |
| * Released under GNU Public License January, 2000. |
| */ |
| |
| #define VERSION "1.12.2 (c) G.Knauf http://www.gknw.de/" |
| |
| #include <errno.h> |
| #include <stdio.h> |
| #include <stdlib.h> |
| #include <string.h> |
| #ifdef WATTCP |
| #define strncasecmp strnicmp |
| #include <ctype.h> |
| #include <dos.h> |
| #include <tcp.h> |
| #else |
| #ifdef WIN32 /* Win32 platform */ |
| #define USE_WINSOCKAPI |
| #define delay Sleep |
| #if (defined(__LCC__) || defined(__BORLANDC__)) |
| #define strncasecmp strnicmp |
| #else |
| #define strncasecmp _strnicmp |
| #endif |
| #elif defined(N_PLAT_NLM) /* NetWare platform */ |
| #ifdef __NOVELL_LIBC__ |
| #include <ctype.h> |
| #else |
| extern int isdigit(int c); /* no ctype.h for NW3.x */ |
| #include <nwthread.h> |
| #define strncasecmp strnicmp |
| #endif |
| #elif defined(__OS2__) /* OS/2 platform */ |
| #ifdef __EMX__ |
| #define strncasecmp strnicmp |
| #endif |
| extern int DosSleep(long t); |
| #define delay DosSleep |
| #else /* all other platforms */ |
| #define delay(t) usleep(t*1000) |
| #endif |
| #ifndef N_PLAT_NLM /* ! NetWare platform */ |
| #include <ctype.h> |
| #endif |
| #ifndef WIN32 /* ! Win32 platform */ |
| #include <unistd.h> |
| #endif |
| #ifdef USE_WINSOCKAPI /* Winsock2 platforms */ |
| #ifdef N_PLAT_NLM /* NetWare platform */ |
| #include <ws2nlm.h> |
| #else |
| #include <winsock.h> |
| #endif |
| #define close(s) { \ |
| closesocket(s); \ |
| WSACleanup(); \ |
| } |
| #else /* Socket platforms */ |
| #include <sys/types.h> |
| #include <sys/socket.h> |
| #include <netinet/in.h> |
| #if defined(__OS2__) && !defined(__EMX__) |
| #include <utils.h> |
| #else |
| #include <arpa/inet.h> |
| #endif |
| #endif |
| |
| #endif |
| |
| static int read_file (char *destfile); |
| static int in_ether (char *bufp, unsigned char *addr); |
| static int send_wol (char *dest, char *host); |
| |
| |
| char *progname; |
| int quiet = 0; |
| int twait = 0; |
| unsigned int port = 60000; |
| unsigned long bcast = 0xffffffff; |
| |
| int main (int argc, char *argv[]) { |
| |
| int cmdindx = 0; |
| progname = argv[0]; |
| |
| if (argc > 1) { |
| /* parse input parameters */ |
| for (argc--, argv++; *argv; argc--, argv++) { |
| char *bp; |
| char *ep; |
| |
| if (strncasecmp (*argv, "-", 1) == 0) { |
| if (strncasecmp (*argv, "-F=", 3) == 0) { |
| bp = *argv + 3; |
| read_file (bp); |
| } else if (strncasecmp (*argv, "-B=", 3) == 0) { |
| bp = *argv + 3; |
| bcast = inet_addr(bp); |
| if (bcast == -1) { |
| fprintf (stderr, "%s: expected address argument at %s\n", progname, *argv); |
| exit (1); |
| } |
| } else if (strncasecmp (*argv, "-D=", 3) == 0) { |
| bp = *argv + 3; |
| twait = strtol (bp, &ep, 0); |
| if (ep == bp || *ep != '\0') { |
| fprintf (stderr, "%s: expected integer argument at %s\n", progname, *argv); |
| exit (1); |
| } |
| } else if (strncasecmp (*argv, "-P=", 3) == 0) { |
| bp = *argv + 3; |
| port = strtol (bp, &ep, 0); |
| if (ep == bp || *ep != '\0') { |
| fprintf (stderr, "%s: expected integer argument at %s\n", progname, *argv); |
| exit (1); |
| } |
| } else if (strncasecmp (*argv, "-Q", 2) == 0) { |
| quiet = 1; |
| } else if (strncasecmp (*argv, "-V", 2) == 0) { |
| fprintf (stderr, "\r%s Version %s\n", progname, VERSION); |
| exit (0); |
| } else { |
| fprintf (stderr, "\r%s: invalid or unknown option %s\n", progname, *argv); |
| exit (1); |
| } |
| } else { |
| send_wol (*argv, ""); |
| } |
| cmdindx++; |
| } |
| return (0); |
| } else { |
| /* No arguments given -> usage message */ |
| fprintf (stderr, "\rUsage: %s [-q] [-b=<bcast>] [-p=<port>] [-d=<ms>] -f=<file> | <dest>\n", progname); |
| fprintf (stderr, " need at least hardware address or file option\n"); |
| return (-1); |
| } |
| } |
| |
| |
| |
| static int in_ether (char *bufp, unsigned char *addr) { |
| |
| char c, *orig; |
| int i; |
| unsigned char *ptr = addr; |
| unsigned val; |
| |
| i = 0; |
| orig = bufp; |
| while ((*bufp != '\0') && (i < 6)) { |
| val = 0; |
| c = *bufp++; |
| if (isdigit(c)) |
| val = c - '0'; |
| else if (c >= 'a' && c <= 'f') |
| val = c - 'a' + 10; |
| else if (c >= 'A' && c <= 'F') |
| val = c - 'A' + 10; |
| else { |
| #ifdef DEBUG |
| fprintf (stderr, "\rin_ether(%s): invalid ether address!\n", orig); |
| #endif |
| errno = EINVAL; |
| return (-1); |
| } |
| val <<= 4; |
| c = *bufp; |
| if (isdigit(c)) |
| val |= c - '0'; |
| else if (c >= 'a' && c <= 'f') |
| val |= c - 'a' + 10; |
| else if (c >= 'A' && c <= 'F') |
| val |= c - 'A' + 10; |
| else if (c == ':' || c == 0) |
| val >>= 4; |
| else { |
| #ifdef DEBUG |
| fprintf (stderr, "\rin_ether(%s): invalid ether address!\n", orig); |
| #endif |
| errno = EINVAL; |
| return (-1); |
| } |
| if (c != 0) |
| bufp++; |
| *ptr++ = (unsigned char) (val & 0377); |
| i++; |
| |
| /* We might get a semicolon here - not required. */ |
| if (*bufp == ':') { |
| if (i == 6) { |
| ; /* nothing */ |
| } |
| bufp++; |
| } |
| } |
| if (bufp - orig != 17) { |
| return (-1); |
| } else { |
| return (0); |
| } |
| } /* in_ether */ |
| |
| |
| static int read_file (char *destfile) { |
| |
| FILE *pfile = NULL; |
| char dest[64]; |
| char host[32]; |
| char buffer[512]; |
| |
| pfile = fopen (destfile, "r+"); |
| |
| if (pfile) { |
| while (fgets (buffer, 511, pfile) != NULL) { |
| if (buffer[0] != '#' && buffer[0] != ';') { |
| dest[0] = host[0] = '\0'; |
| sscanf (buffer, "%s %s", dest, host); |
| send_wol (dest, host); |
| } |
| } |
| fclose (pfile); |
| return (0); |
| } else { |
| fprintf (stderr, "\r%s: destfile '%s' not found\n", progname, destfile); |
| return (-1); |
| } |
| } |
| |
| |
| static int send_wol (char *dest, char *host) { |
| |
| int i, j; |
| int packet; |
| struct sockaddr_in sap; |
| unsigned char ethaddr[8]; |
| unsigned char *ptr; |
| unsigned char buf [128]; |
| unsigned long bc; |
| char mask[32]; |
| char *tmp; |
| #ifdef USE_WINSOCKAPI |
| WORD wVersionRequested; |
| WSADATA wsaData; |
| int err; |
| #endif |
| #ifdef WATTCP |
| static udp_Socket sock; |
| udp_Socket *s; |
| #else |
| int optval = 1; |
| #endif |
| |
| /* Fetch the broascast address if present. */ |
| if ((tmp = strstr(dest,"-"))) { |
| printf("found: %s\n", tmp); |
| tmp[0] = 32; |
| sscanf (dest, "%s %s", mask, dest); |
| bc = inet_addr(mask); |
| printf("bc: string %s address %08lX\n", mask, bc); |
| if (bc == -1) { |
| fprintf (stderr, "\r%s: expected address argument at %s\n", progname, mask); |
| return (-1); |
| } |
| } else |
| bc = bcast; |
| |
| /* Fetch the hardware address. */ |
| if (in_ether (dest, ethaddr) < 0) { |
| fprintf (stderr, "\r%s: invalid hardware address\n", progname); |
| return (-1); |
| } |
| |
| #ifdef USE_WINSOCKAPI |
| /* I would like to have Socket Vers. 1.1 */ |
| wVersionRequested = MAKEWORD(1, 1); |
| err = WSAStartup (wVersionRequested, &wsaData); |
| if (err != 0) { |
| fprintf (stderr, "\r%s: couldn't init Winsock Version 1.1\n", progname); |
| WSACleanup (); |
| return (-1); |
| } |
| #endif |
| |
| /* setup the packet socket */ |
| #ifdef WATTCP |
| sock_init(); |
| s = &sock; |
| if (!udp_open( s, 0, bc, port, NULL )) { |
| #else |
| if ((packet = socket (AF_INET, SOCK_DGRAM, IPPROTO_UDP)) < 0) { |
| #endif |
| fprintf (stderr, "\r%s: socket failed\n", progname); |
| #ifdef USE_WINSOCKAPI |
| WSACleanup (); |
| #endif |
| return (-1); |
| } |
| |
| #ifndef WATTCP |
| /* Set socket options */ |
| if (setsockopt (packet, SOL_SOCKET, SO_BROADCAST, (char *)&optval, sizeof (optval)) < 0) { |
| fprintf (stderr, "\r%s: setsocket failed %s\n", progname, strerror (errno)); |
| close (packet); |
| return (-1); |
| } |
| |
| /* Set up broadcast address */ |
| sap.sin_family = AF_INET; |
| sap.sin_addr.s_addr = bc; /* broadcast address */ |
| sap.sin_port = htons(port); |
| #endif |
| |
| /* Build the message to send - 6 x 0xff then 16 x dest address */ |
| ptr = buf; |
| for (i = 0; i < 6; i++) |
| *ptr++ = 0xff; |
| for (j = 0; j < 16; j++) |
| for (i = 0; i < 6; i++) |
| *ptr++ = ethaddr [i]; |
| |
| /* Send the packet out */ |
| #ifdef WATTCP |
| sock_write( s, buf, 102 ); |
| sock_close( s ); |
| #else |
| if (sendto (packet, (char *)buf, 102, 0, (struct sockaddr *)&sap, sizeof (sap)) < 0) { |
| fprintf (stderr, "\r%s: sendto failed, %s\n", progname, strerror(errno)); |
| close (packet); |
| return (-1); |
| } |
| close (packet); |
| #endif |
| if (!quiet) fprintf (stderr, "\r%s: packet sent to %04X:%08lX-%s %s\n", |
| progname, port, (unsigned long)htonl(bc), dest, host); |
| if (twait > 0 ) { |
| delay (twait); |
| } |
| return (0); |
| } |
| |
