wmnet-1.06/ 40755 2376 2442 0 7104417303 10675 5ustar kaoskaoswmnet-1.06/README100644 2376 2442 10054 7104415112 11666 0ustar kaoskaoswmnet -- network monitor for WindowMaker using kernel IP accounting for Linux, FreeBSD, and OpenBSD. version 1.06 Jesse B. Off 8/9/1998 Katharine Osborne 4/5/2000 This little program polls network statistics and does a few things with the data it gets. It has small blinking lights for the rx and tx of IP packets, a digital speedometer of your polled stat's current speed and a bar graph like xload et. al which has a tx speed graph from bottom-up and rx speed graph from the top-down. The speedometer keeps track of the current speed per second and shows it in a color corresponding to which of rx or tx that has the highest speed at the moment. Also, the graph is drawn in a way that the highest speed is drawn on top of the other while the other is in the background. Depending on whether you are running ppp or ethernet connections, you should set the -x parameter to about 1.5 times the high speed of your connection... the default is 6000 which will be stupid if you're on a ethernet line with a max of about 800 kb/sec. I've found the best for an ethernet line is '-x 10000000 -l' Having the logarithmic scale lets you see any speed of traffic from a telnet session to downloadeding something from across the hall at 600 kb/sec. I tried to keep this is as small and efficient as possible CPU time on my K5 PR100 with the default poll time of 25000 microseconds (1 microsecond == 1 millionth of a second.) is less than 20 seconds per 24 hours Which is less than even wmmixer uses for me. wmnet now uses drivers to get stats. The existing stat driver from previous versions has been moved to the ipfwadm driver. To get some generic IP accounting rules using ipfwadm: ipfwadm -A in -i -S 0.0.0.0/0 ipfwadm -A out -i -D 0.0.0.0/0 I have also included a couple drivers for Linux 2.1. You can either use ipchains or general device stats received from /proc/net/dev. If you don't want to fool around with IP chains, use the devstats driver and specify the interface to monitor useing the --device option. To get a generic set of ip chains rules for the ipchains driver: ipchains -N acctin ipchains -N acctout ipchains -I input 1 -j acctin ipchains -I output 1 -j acctout ipchains -I acctin 1 ipchains -I acctout 1 There is also the pppstats driver available for both Linux 2.0 and 2.1. If you just want general monitoring of your ppp devices, use this driver. In version 1.04+ I have added (among others) the --promisc option. This makes your IP accounting rules apply across the whole of your network segment. This could be useful for monitoring your whole subnet traffic bandwidth. However, using this option as a normal user requires wmnet to be suid root, which is something many people dispise so it is not suid by default. To make wmnet suid, as root: chmod u+s /usr/X11R6/bin/wmnet Please only do this if you need to. I did write this program with it possibly being suid in mind so I am fairly confident that this can be suid without any security concerns. But then again, thats what they all say. Read the code then judge for yourself if need be, I WONT have it done automatically for you. Really the only 'if' is the GNU libc getopt_long() function. For those afterstep users out there using wmnet, you may have noticed that when wmnet is swallowed, the whole thing is not visible. This is due to the afterstep wharf's inability to swallow a dock.app as large as wmnet. (Sorry guys, theres nothing I can do about that!) Theres supposedly an unofficial patch around for afterstep that allows it to fully display, consult your local afterstep guru on the what and where. Much thanks goes to Vladimir Popov for writing the OpenBSD patch. Consult the man page for additional documentation. homepage for wmnet: http://www.digitalkaos.net/linux/wmnet/ TO INSTALL from tar.gz: tar xfzv wmnet-1.06.tar.gz cd wmnet-1.06 xmkmf make strip wmnet make install make install.man NOTE: you may wanna change config.h to change the compiled in drivers. ideas/comments/bug reports -----> kaos@digitalkaos.net http://www.digitalkaos.net/linux/wmnet/ wmnet-1.06/XPM/ 40755 2376 2442 0 6541756171 11356 5ustar kaoskaoswmnet-1.06/XPM/arrow.xbm100644 2376 2442 307 6540560031 13260 0ustar kaoskaos#define arrow_width 14 #define arrow_height 9 static unsigned char arrow_bits[] = { 0x08, 0x04, 0x1c, 0x04, 0x3e, 0x04, 0x7f, 0x04, 0x08, 0x04, 0x88, 0x3f, 0x08, 0x1f, 0x08, 0x0e, 0x08, 0x04}; wmnet-1.06/Changelog100644 2376 2442 3147 7104415340 12610 0ustar kaoskaos 3/24/1998 -- First release, wrote this yesterday, so it may have some bugs. 3/25/1998 -- added logarithmic scaling. some touch ups on the updateSpeedometer() to be a little more helpful added a little more width to the speedometer display from a report that the text sometimes was drawn off the scale (couldnt confirm, is it fixed?) fixed prob for speeds > 9.9 megabytes per second (I think... I can't go that fast myself Made default maxspeed 6000 which I assume is better for modems. 5/11/1998 -- I witnessed the little problem with the speedometer going off into the main window so I set a clipmask Still don't understand how it could go off..I'm using a fixed size font... 5/13/1998 -- Modified the way it gets its stats from /proc/net/ip_acct You now have to give it explicit accounting rule numbers through the -T and -R options or else it defaults to the fist two in tx, rx order, best just to make sure you set the -T and -R options. 5/15/1998 -- Completed interface rewrite, definitely have more graphing space, but I dont know if I like it yet. 5/16/1998 -- Added shaded graphs, xload style. Its a lot prettier! 8/6/1998 -- Put in the stat driver interface and some drivers 5/4/2000 -- Added support for OpenBSD, thanks to Vladimir Popov wmnet-1.06/wmnet.c100644 2376 2442 64015 7104416532 12321 0ustar kaoskaos/* wmnet -- X IP accounting monitor * Copyright 1998 Jesse B. Off * Copyright 2000 Katharine Osborne * * $Id: wmnet.c,v 1.28 1998/10/07 03:42:28 joff Exp joff $ * * This software is released under the GNU Public License agreement. * No warranties, whatever.... you know the usuals.... this is free * software. if you use it, great... if you wanna make a change to it, * great, but please send me the diff. * * CHANGELOG: * 3/24/1998 -- First release, wrote this yesterday, so it may have * some bugs. * 3/25/1998 -- added logarithmic scaling. * some touch ups on the updateSpeedometer() to be a * little more helpful * added a little more width to the speedometer display * from a report that the text sometimes was drawn off * the scale (couldnt confirm, is it fixed?) * fixed prob for speeds > 9.9 megabytes per second (I * think... I can't go that fast myself * Made default maxspeed 6000 which I assume is better * for modems. * 5/11/1998 -- I witnessed the little problem with the speedometer * going off into the main window so I set a clipmask * Still don't understand how it could go off..I'm * using a fixed size font... * 5/13/1998 -- Modified the way it gets its stats from /proc/net/ip_acct * You now have to give it explicit accounting rule numbers * through the -T and -R options or else it defaults to the * fist two in tx, rx order, best just to make sure * you set the -T and -R options. * 5/15/1998 -- Completed interface rewrite, definitely have more graphing * space, but I dont know if I like it yet. * 5/16/1998 -- Added shaded graphs, xload style. Its a lot prettier! * 5/20/1998 -- Fixed afterstep wharfability problem... should also atleast * display in other WM's * 6/16/1998 -- Fixed handling of WM_DELETE_WINDOW, strtol() to strtoul(), * and now uses getopt_long. * 6/16/1998 -- Put in --withdrawn and --normalstate options to explicitly * set the type. Still tries to auto-detect wmaker though. * 6/16/1998 -- Put in --execute and --promisc options. * 6/17/1998 -- Some code clean-ups. * 6/18/1998 -- Implemented a labeling mechanism. * 6/18/1998 -- Slowed down the speedometer display... it was getting annoying. * 6/23/1998 -- Split up to wmnet.c and wmnet.h * 8/5/1998 -- New options --device and --driver * 5/4/2000 -- Support added for OpenBSD */ #include #include #include #include #include #include #if defined (__FreeBSD__) || defined (__OpenBSD__) # include # include"getopt.h" #else # include #endif #include #include #include #include #include #include #include #include #include #include #include #include "XPM/arrow.xbm" #include "wmnet.h" /* Called on exit() from atexit() */ void exit_func(void) { XCloseDisplay(dpy); } /* Generic signal handler, if its a SIGCHLD, do a wait() to remove the zombie */ void got_signal(int x) { if(x == SIGCHLD) { wait(NULL); return; } else exit(7); } /* Does generic setting up of wmnet, (option parsing) and calls setupX() */ void setup_wmnet(int argc, char **argv) { int c; XColor thecolor; struct sigaction signal_action; char *txcolorString = NULL, *rxcolorString = NULL, *labelfgcolorString = NULL, *labelbgcolorString = NULL; char *parser = NULL; #ifdef linux const struct option long_options[19] = { #else const struct option long_options[17] = { #endif {"device", required_argument, NULL, 'W'}, {"label", required_argument, NULL, 'L'}, {"labelfg", required_argument, NULL, 'F'}, {"labelbg", required_argument, NULL, 'B'}, {"logscale", no_argument, NULL, 'l'}, {"help", no_argument, NULL, 'h'}, {"execute", required_argument, NULL, 'e'}, #ifdef linux {"txrule", required_argument, NULL, 'T'}, {"rxrule", required_argument, NULL, 'R'}, #endif {"txcolor", required_argument, NULL, 't'}, {"rxcolor", required_argument, NULL, 'r'}, {"maxrate", required_argument, NULL, 'x'}, {"withdrawn", no_argument, NULL, 'w'}, {"normalstate", no_argument, NULL, 'n'}, {"promisc", required_argument, NULL, 'p'}, {"unpromisc", required_argument, NULL, 'u'}, {"driver", required_argument, NULL, 'D'}, {"version", no_argument, NULL, 'v'}, {0, 0, 0, 0} }; /* Get options */ #ifdef linux while((c = getopt_long(argc, argv, "W:F:B:L:vp:u:wnle:R:T:r:t:D:d:x:h", long_options, NULL)) != EOF) { #else while((c = getopt_long(argc, argv, "W:F:B:L:vp:u:wnle:r:t:D:d:x:h", long_options, NULL)) != EOF) { #endif switch(c) { case 'v': printf("wmnet 1.06\n" "Copyright (C) 1998, 2000 Jesse B. Off, Katharine Osborne \n" "This program is released under the terms of the GNU Public License.\n"); exit(14); break; case 'W': device = strdup(optarg); break; case 'D': parser = strdup(optarg); break; #ifdef linux case 'T': out_rule = strtoul(optarg, NULL, 10); out_rule_string = strdup(optarg); break; case 'R': in_rule = strtoul(optarg, NULL, 10); in_rule_string = strdup(optarg); break; #endif case 'L': graphbox_height = 35; if (label == NULL) { label = strdup(optarg); } else { fprintf(stderr, "wmnet: duplicate --label\n"); exit(22); } break; case 'B': if (labelbgcolorString == NULL) { labelbgcolorString = (char *)alloca(strlen(optarg)+1); strncpy(labelbgcolorString, optarg, strlen(optarg)+1); } else { fprintf(stderr, "wmnet: duplicate --labelbg\n"); exit(23); } break; case 'F': if (labelfgcolorString == NULL) { labelfgcolorString = (char *)alloca(strlen(optarg)+1); strncpy(labelfgcolorString, optarg, strlen(optarg)+1); } else { fprintf(stderr, "wmnet: duplicate --labelfg\n"); exit(23); } break; case 'l': logscale = True; break; case 'r': if (rxcolorString == NULL) { rxcolorString = (char *)alloca(strlen(optarg)+1); strncpy(rxcolorString, optarg, strlen(optarg)+1); } else { fprintf(stderr, "wmnet: duplicate --rxcolor\n"); exit(18); } break; case 't': if (txcolorString == NULL) { txcolorString = (char *)alloca(strlen(optarg)+1); strncpy(txcolorString, optarg, strlen(optarg)+1); } else { fprintf(stderr, "wmnet: duplicate --rxcolor\n"); exit(19); } break; case 'x': maxRate = strtoul(optarg, NULL, 10); break; case 'd': delayTime = strtoul(optarg, NULL, 10); /* Having delayTime > 950000 causes some weirdness */ delayTime = delayTime > 950000 ? 950000 : delayTime; break; case 'e': if (click_command == NULL) { click_command = strdup(optarg); } else { fprintf(stderr, "wmnet: duplicate --execute\n"); exit(17); } break; case 'w': specified_state = WithdrawnState; break; case 'n': specified_state = NormalState; break; case 'u': { int fds; struct ifreq ifr; strncpy(ifr.ifr_name, optarg, IFNAMSIZ ); ifr.ifr_name[IFNAMSIZ-1] = 0; if ((fds = socket(AF_INET, SOCK_DGRAM, 0)) == -1 || ioctl(fds, SIOCGIFFLAGS, &ifr) == -1 ) { perror("wmnet"); exit(20); } if ((ifr.ifr_flags & IFF_PROMISC) != 0) { /* Is promiscuous mode not already unset? */ ifr.ifr_flags &= ~IFF_PROMISC; if (geteuid() != 0) { fprintf(stderr, "wmnet: this must be suid or you must be root!\n"); } if(ioctl(fds, SIOCSIFFLAGS, &ifr) != 0) { fprintf(stderr, "wmnet: cannot unset promiscuous mode on %s\n", optarg); exit(21); } } close(fds); } break; case 'p': { int fds; struct ifreq ifr; strncpy(ifr.ifr_name, optarg, IFNAMSIZ ); ifr.ifr_name[IFNAMSIZ-1] = 0; if ((fds = socket(AF_INET, SOCK_DGRAM, 0)) == -1 || ioctl(fds, SIOCGIFFLAGS, &ifr) == -1 ) { perror("wmnet"); exit(16); } if ((ifr.ifr_flags & IFF_PROMISC) == 0) { /* Is promiscuous mode not already set? */ ifr.ifr_flags |= IFF_PROMISC; if (geteuid() != 0) { fprintf(stderr, "wmnet: this must be suid or you must be root!\n"); } if(ioctl(fds, SIOCSIFFLAGS, &ifr) != 0) { fprintf(stderr, "wmnet: cannot set promiscuous mode on %s\n", optarg); exit(13); } } close(fds); } break; default: printf("wmnet-- v1.06 Katharine Osborne \n" "http://www.digitalkaos.net/linux/wmnet/\n" "-----------------------------------------------------\n" " -h, --help this help\n" " -v, --version display version information\n" " -L, --label=LABEL display LABEL on bottom of window\n" " -F, --labelfg=COLOR foreground color for the label\n" " -B, --labelbg=COLOR background color for the label\n" " -e, --execute=COMMAND run COMMAND on click\n" #ifdef linux " -T, --txrule=RULE accounting rule number (ipfwadm) or\n" " IP chain name (ipchains) to monitor for tx\n" " -R, --rxrule=RULE accounting rule number (ipfwadm) or\n" " IP chain name (ipchains) to monitor for rx\n" #endif " -W, --device=DEVICE monitor DEVICE for stats (devstats,kmem,pppstats)\n" " -w, --withdrawn start up in withdrawn state\n" " -n, --normalstate start up in normal, shaped state\n" " -t, --txcolor=COLOR color for tx\n" " -r, --rxcolor=COLOR color for rx\n" " -x, --maxrate=BYTES max transfer rate for graph scale (default 6000)\n" " -p, --promisc=DEVICE put DEVICE into promiscuous mode to apply\n" " accounting rules to all network packets\n" " -u, --unpromisc=DEVICE turn off promiscuous mode on DEVICE\n" " -D, --driver=DRIVER use DRIVER to get statistics\n" " -l, --logscale use a logarithmic scale (great for ethernet\n" " connections with -x 10000000)\n" " -d DELAY delay time for polling statistics\n" " in microseconds (default 25000)\n" "\n"); printf("Compiled in drivers: [%s]\n\n", available_drivers()); printf("Report bugs to joff@iastate.edu\n"); exit(3); } } /* Relinquish suid privileges if there */ seteuid(getuid()); stat_gather = setup_driver(parser); if (txcolorString == NULL) txcolorString = "white"; if (rxcolorString == NULL) rxcolorString = "red"; if (labelfgcolorString == NULL) labelfgcolorString = "white"; if (labelbgcolorString == NULL) labelbgcolorString = "black"; /* Change dir to /, security precaution, and common courtesy */ if (chdir("/") == -1) { perror("wmnet: chdir()"); exit(16); } /* Open X Display */ if ((dpy = XOpenDisplay(NULL)) == NULL) { fprintf(stderr,"wmnet: doh...can't connect to X server, giving up\n"); exit(1); } /* assure ourself for a graceful exit */ if (atexit(exit_func)) { fprintf(stderr,"wmnet: atexit() failed\n"); exit(6); } signal_action.sa_handler = got_signal; sigemptyset(&signal_action.sa_mask); signal_action.sa_flags = (SA_NOCLDSTOP|SA_RESTART); #ifdef linux signal_action.sa_restorer = NULL; #endif if ((sigaction(SIGCHLD, &signal_action, NULL) == -1) || (sigaction(SIGINT, &signal_action, NULL) == -1) || (sigaction(SIGTERM, &signal_action, NULL) == -1)) { fprintf(stderr,"wmnet: couldn't set signal handler\n"); exit(8); } /* Setup initial foreground color */ if(rxcolorString) { if(!XParseColor(dpy, DefaultColormap(dpy, screen), rxcolorString, &thecolor)) { fprintf(stderr, "wmnet: what the heck is %s for a color?\n", rxcolorString); exit(12); } shadesOf(&thecolor, rx_pixel); } if(txcolorString) { if(!XParseColor(dpy, DefaultColormap(dpy, screen), txcolorString, &thecolor)) { fprintf(stderr, "wmnet: what the heck is %s for a color?\n", txcolorString); exit(5); } shadesOf(&thecolor, tx_pixel); } if(labelfgcolorString) { if(!XParseColor(dpy, DefaultColormap(dpy, screen), labelfgcolorString, &thecolor)) { fprintf(stderr, "wmnet: what the heck is %s for a color?\n", labelfgcolorString); exit(24); } XAllocColor(dpy, DefaultColormap(dpy, screen), &thecolor); labelfg_pixel = thecolor.pixel; } if(labelbgcolorString) { if(!XParseColor(dpy, DefaultColormap(dpy, screen), labelbgcolorString, &thecolor)) { fprintf(stderr, "wmnet: what the heck is %s for a color?\n", labelbgcolorString); exit(25); } XAllocColor(dpy, DefaultColormap(dpy, screen), &thecolor); labelbg_pixel = thecolor.pixel; } /* usleep() in between polls to /proc/net/ip_acct */ if (delayTime <= 0) delayTime = 25000; /* Setup the X windows, GC's, initial states, etc */ setupX(); XSetCommand(dpy, main_window, argv, argc); /* Get the initial stats for startup */ stat_gather(); /* Rock n Roll */ XMapWindow(dpy, main_window); } /* Called from setup_wmnet() to initialize the X windows stuff */ void setupX(void) { XWMHints hints; XSizeHints shints; XGCValues gcv; XColor color; XRectangle bound = { 0, 0, 56, 56 }; screen = DefaultScreen(dpy); delete_atom = XInternAtom(dpy, "WM_DELETE_WINDOW", False); if (delete_atom == None) { fprintf(stderr,"wmnet: I need WindowMaker running! (or at least some window manager)\n"); exit(2); } if (XInternAtom(dpy,"_WINDOWMAKER_WM_FUNCTION", True) != None) { if (specified_state == -1) specified_state = WithdrawnState; } else { if (specified_state == -1) specified_state = NormalState; } root_window = DefaultRootWindow(dpy); createWin(&main_window); color.red = color.green = color.blue = 12000; XAllocColor(dpy, DefaultColormap(dpy, screen), &color); darkgrey_pixel = color.pixel; color.red = color.green = color.blue = 32000; XAllocColor(dpy, DefaultColormap(dpy, screen), &color); grey_pixel = color.pixel; if ((arrow = XCreateBitmapFromData(dpy, root_window, arrow_bits, arrow_width, arrow_height)) == None) { fprintf(stderr, "wmnet: unable to create arrow bitmap\n"); exit(11); } gcv.graphics_exposures = False; gcv.foreground = tx_pixel[HIGH_INTENSITY]; gcv.background = darkgrey_pixel; gcv.font = XLoadFont(dpy, "5x8"); graphics_context = XCreateGC(dpy, root_window, (GCFont|GCGraphicsExposures|GCForeground|GCBackground), &gcv); black_pixel = BlackPixel(dpy, screen); white_pixel = WhitePixel(dpy, screen); hints.window_group = main_window; hints.initial_state = specified_state; if (specified_state == WithdrawnState) { createWin(&icon_window); visible_window = &icon_window; hints.icon_window = icon_window; } else { visible_window = &main_window; hints.icon_window = None; } hints.flags = WindowGroupHint | StateHint | IconWindowHint; XSetWMHints(dpy,main_window,&hints); XSetWMProtocols(dpy, main_window, &delete_atom, 1); shints.min_width = 64; shints.min_height = 64; shints.max_width = 64; shints.max_height = 64; shints.flags = PMinSize | PMaxSize; XSetWMNormalHints(dpy, main_window, &shints); XStoreName(dpy, main_window, "wmnet"); XShapeCombineRectangles(dpy, *visible_window, ShapeBounding, 4, 4, &bound, 1, ShapeBounding, 0); XSelectInput(dpy, *visible_window, (ExposureMask|ButtonPressMask)); XMapSubwindows(dpy, *visible_window); } /* Utility function to create a window for setupX() */ void createWin(Window *win) { XClassHint classHint; XSetWindowAttributes windowAttrib; *win = XCreateSimpleWindow(dpy, root_window, 10, 10, 64, 64, 0, 0, 0); classHint.res_name = "wmnet"; classHint.res_class = "WMNET"; windowAttrib.background_pixmap = ParentRelative; XChangeWindowAttributes(dpy, *win, CWBackPixmap, &windowAttrib); XSetClassHint(dpy, *win, &classHint); } /* Handles Expose events, repaints the window */ void redraw(XExposeEvent *ee) { static XRectangle cliprect = { 4, 51, 56, 9 }; XSetForeground(dpy, graphics_context, darkgrey_pixel); /* if (wmaker_present == False) XFillRectangle(dpy, *visible_window, graphics_context, 0, 0, 64, 64); */ XFillRectangle(dpy, *visible_window, graphics_context, GRAPHBOX_X, GRAPHBOX_Y, GRAPHBOX_WIDTH, GRAPHBOX_HEIGHT); XSetForeground(dpy, graphics_context, black_pixel); XFillRectangle(dpy, *visible_window, graphics_context, TOPBOX_X, TOPBOX_Y, TOPBOX_WIDTH, TOPBOX_HEIGHT); XDrawLine(dpy, *visible_window, graphics_context, GRAPHBOX_X_LEFT, GRAPHBOX_Y_TOP, GRAPHBOX_X_LEFT, GRAPHBOX_Y_BOTTOM); XDrawPoint(dpy, *visible_window, graphics_context, GRAPHBOX_X_RIGHT, GRAPHBOX_Y_TOP); if (label) { XSetForeground(dpy, graphics_context, labelbg_pixel); XFillRectangle(dpy, *visible_window, graphics_context, LABEL_X, LABEL_Y, LABEL_WIDTH, LABEL_HEIGHT); XSetClipRectangles(dpy, graphics_context, 0, 0, &cliprect, 1, Unsorted); XSetForeground(dpy, graphics_context, labelfg_pixel); XDrawString(dpy, *visible_window, graphics_context, 5, 58, label, strlen(label)); XSetClipMask(dpy, graphics_context, None); } XSetForeground(dpy, graphics_context, white_pixel); XDrawLine(dpy, *visible_window, graphics_context, GRAPHBOX_X_RIGHT, GRAPHBOX_Y_BOTTOM, GRAPHBOX_X_RIGHT, (GRAPHBOX_Y_TOP + 1)); XDrawLine(dpy, *visible_window, graphics_context, GRAPHBOX_X_LEFT, GRAPHBOX_Y_BOTTOM, GRAPHBOX_X_RIGHT, GRAPHBOX_Y_BOTTOM); XSetForeground(dpy, graphics_context, grey_pixel); XSetBackground(dpy, graphics_context, black_pixel); XCopyPlane(dpy, arrow, *visible_window, graphics_context, 7, 0, 7, 9, 53, 5, 1); XCopyPlane(dpy, arrow, *visible_window, graphics_context, 0, 0, 7, 9, 46, 5, 1); } /* Main loop that is called every delaytime. This calls stat_gather() and updateSpeedometer() when needed * and takes care of the displaying and scrolling the graph */ void tock(void) { unsigned long since; int y, yy; unsigned long rate_rx, rate_tx; double percent_tx, percent_rx; /* static array containing the last 8 samples... for use in averaging and smoothing the graph a little */ static unsigned long lifo_in[8] = { 0, 0, 0, 0, 0, 0, 0, 0 }; static unsigned long lifo_out[8] = { 0, 0, 0, 0, 0, 0, 0, 0 }; static unsigned int t = 0, blank = 0; if (gettimeofday(&timenow, NULL)) { perror("wmnet: gettimeofday()"); exit(10); } since = (timenow.tv_sec * 1000000L + timenow.tv_usec) - (timelast.tv_sec * 1000000L + timelast.tv_usec); if (since > displayDelay) { lifo_in[t] = diffbytes_in * (1000000L / since); lifo_out[t] = diffbytes_out * (1000000L / since); t = (t + 1) % 8; /* in */ rate_rx = (lifo_in[0] + lifo_in[1] + lifo_in[2] + lifo_in[3] + lifo_in[4] + lifo_in[5] + lifo_in[6] + lifo_in[7]) / (unsigned long)8; if(logscale) percent_rx = (log10( ((rate_rx * 10000/ maxRate) < 1) ? 1 : ((double)rate_rx / (double)maxRate) * 10000.) / 4.); else percent_rx = (double)(rate_rx) / maxRate; y = GRAPH_Y_BOTTOM - (GRAPH_HEIGHT * percent_rx) ; y = y < GRAPH_Y_UPPER ? GRAPH_Y_UPPER : y; /* out */ rate_tx = (lifo_out[0] + lifo_out[1] + lifo_out[2] + lifo_out[3] + lifo_out[4] + lifo_out[5] + lifo_out[6] + lifo_out[7]) / (unsigned long)8; if(logscale) percent_tx = (log10( ((rate_tx * 10000 / maxRate ) < 1) ? 1 : ((double)rate_tx / (double)maxRate * 10000.)) / 4.); else percent_tx = (double)(rate_tx) / maxRate; yy = GRAPH_Y_UPPER + (GRAPH_HEIGHT * percent_tx) ; yy = yy > GRAPH_Y_BOTTOM ? GRAPH_Y_BOTTOM : yy; /* only update the speedometer every 7th displayDelay */ if (t == 7) updateSpeedometer(rate_rx, rate_tx); /* blank var is just for stopping executing the X* funcs when the disp is all black */ if ((y == GRAPH_Y_BOTTOM && yy == GRAPH_Y_UPPER) && (diffbytes_in + diffbytes_out) == 0) blank++; else blank = 0; if (blank < (GRAPH_WIDTH + 1) ) { XCopyArea(dpy, *visible_window, *visible_window, graphics_context, GRAPH_X + 1, GRAPH_Y, GRAPH_WIDTH - 1, GRAPH_HEIGHT, GRAPH_X, GRAPH_Y); XSetForeground(dpy, graphics_context, darkgrey_pixel); XDrawLine(dpy, *visible_window, graphics_context, GRAPH_X_RIGHT, y, GRAPH_X_RIGHT, yy); if (( (yy == GRAPH_Y_UPPER && diffbytes_out > 0 && rate_rx > rate_tx) || (rate_rx >= rate_tx && yy != GRAPH_Y_UPPER)) ) { drawColoredLine(GRAPH_Y_UPPER, yy, tx_pixel); } if ( y != GRAPH_Y_BOTTOM || diffbytes_in > 0) { drawColoredLine(GRAPH_Y_BOTTOM, y, rx_pixel); } if (( (yy == GRAPH_Y_UPPER && diffbytes_out > 0) || (rate_rx < rate_tx && yy != GRAPH_Y_UPPER)) ) { drawColoredLine(GRAPH_Y_UPPER, yy, tx_pixel); } } diffbytes_in = diffbytes_out = 0; timelast = timenow; } if (!stat_gather()) { /* Anything change? */ current_rx = rx; current_tx = tx; XSetBackground(dpy, graphics_context, black_pixel); if(current_tx == True) { XSetForeground(dpy, graphics_context, tx_pixel[HIGH_INTENSITY]); XCopyPlane(dpy, arrow, *visible_window, graphics_context, 7, 0, 7, 9, 53, 5, 1); /* XFillRectangle(dpy, *visible_window, graphics_context, 55, 5, 4, 4); */ } else { XSetForeground(dpy, graphics_context, grey_pixel); XCopyPlane(dpy, arrow, *visible_window, graphics_context, 7, 0, 7, 9, 53, 5, 1); } if(current_rx == True) { XSetForeground(dpy, graphics_context, rx_pixel[HIGH_INTENSITY]); XCopyPlane(dpy, arrow, *visible_window, graphics_context, 0, 0, 7, 9, 46, 5, 1); /* XFillRectangle(dpy, *visible_window, graphics_context, 55, 12, 4, 4); */ } else { XSetForeground(dpy, graphics_context, grey_pixel); XCopyPlane(dpy, arrow, *visible_window, graphics_context, 0, 0, 7, 9, 46, 5, 1); } } } /* paints the speedometer area with whichever is greater, rxRate or txRate */ int updateSpeedometer(int rxRate, int txRate) { double rate; char astring[10]; unsigned long color; static XRectangle cliprect = { 4, 5, 37, 8 }; static int rxRate_last = 0 , txRate_last = 0; static Bool clear = True, collectandreturn = True; /* This is ugly, I don't like this, but it slows the speedometer down a touch */ if (collectandreturn == True) { txRate_last = txRate; rxRate_last = rxRate; collectandreturn = False; return 1; } collectandreturn = True; if (txRate > rxRate) { rate = (txRate + txRate_last) / 2000.; color = tx_pixel[HIGH_INTENSITY]; } else { rate = (rxRate + rxRate_last) / 2000.; color = rx_pixel[HIGH_INTENSITY]; } if (!clear) { XSetForeground(dpy, graphics_context, black_pixel); XFillRectangle(dpy, *visible_window, graphics_context, 4, 5, 37, 9); } if (rate < .1) { clear = True; return(1); } else if (rate < 1.) { snprintf(astring, 10, "%db/s", (unsigned int)(rate * 1000.)); } else if (rate >= 1. && rate < 10.) snprintf(astring, 10, "%1.2fk/s", rate); else if (rate >= 10. && rate < 100.) snprintf(astring, 10, "%2.1fk/s", rate); else if (rate >= 100. && rate < 1000.) snprintf(astring, 10, "%dk/s", (unsigned int)rate); else if (rate > 1000. && rate < 10000.) snprintf(astring, 10, "%1.2fM/s", (rate / 1000.)); else if (rate > 10000. && rate < 100000.) snprintf(astring, 10, "%2.1fM/s", (rate / 1000.)); else sprintf(astring, "XXXX"); XSetForeground(dpy, graphics_context, color); XSetClipRectangles(dpy, graphics_context, 0, 0, &cliprect, 1, Unsorted); XDrawString(dpy, *visible_window, graphics_context, 4, 13, astring, strlen(astring)); XSetClipMask(dpy, graphics_context, None); clear = False; return(0); } /* called from within tock to draw the shaded lines making up our bar-graph */ void drawColoredLine(int y1, int y2, unsigned long *shadecolor) { int subline[4], i; static unsigned int linebreaks[3] = { 50, 90, 100 }; subline[0] = y1; for(i = 0; i < 3; i++) { if (y1 > y2) subline[i+1] = y1 - (((y1 - y2) * linebreaks[i]) / 100); else subline[i+1] = y1 + (((y2 - y1) * linebreaks[i]) / 100); XSetForeground(dpy, graphics_context, shadecolor[i]); XDrawLine(dpy, *visible_window, graphics_context, GRAPH_X_RIGHT, subline[i], GRAPH_X_RIGHT, subline[i+1]); } } /* Returns in returnarray a 3 value array containing 3 shades (low, normal, and high) of XColor shade. * Called from setup_wmnet on startup and never called again. */ void shadesOf(XColor *shade, unsigned long *returnarray) { XAllocColor(dpy, DefaultColormap(dpy, screen), shade); returnarray[HIGH_INTENSITY] = shade->pixel; shade->red = (8 * shade->red / 10); shade->green = (8 * shade->green / 10); shade->blue = (8 * shade->blue / 10); XAllocColor(dpy, DefaultColormap(dpy, screen), shade); returnarray[NORMAL_INTENSITY] = shade->pixel; shade->red = 8 * shade->red / 10; shade->green = 8 * shade->green / 10; shade->blue = 8 * shade->blue / 10; XAllocColor(dpy, DefaultColormap(dpy, screen), shade); returnarray[LOW_INTENSITY] = shade->pixel; } /* Here is main, clear at the bottom. Handles the event loop and calls tock() every delayTime milliseconds */ int main(int argc, char ** argv) { unsigned int done = False; XEvent event; setup_wmnet(argc, argv); while(!done) { while(XPending(dpy)) { XNextEvent(dpy, &event); switch(event.type) { case Expose: redraw((XExposeEvent *)&event); break; case ClientMessage: if(event.xclient.data.l[0] == delete_atom) done = True; break; case ButtonPress: if(event.xbutton.button == Button1 && click_command != NULL) { if (fork() == 0) { execl("/bin/sh", "sh", "-c", click_command, NULL); perror("wmnet: execl()"); exit(15); } } break; } } /* Wait for a bit, updating is done in tock() */ usleep(delayTime); tock(); } return 0; } wmnet-1.06/wmnet.h100644 2376 2442 6771 7104416642 12315 0ustar kaoskaos/* wmnet -- X IP accounting monitor * Copyright 1998, 2000 Jesse B. Off, Katharine Osborne * * * $Id: wmnet.h,v 1.2 1998/10/06 00:06:12 joff Exp $ * * This software is released under the GNU Public License agreement. * No warranties, whatever.... you know the usuals.... this is free * software. if you use it, great... if you wanna make a change to it, * great, but please send me the diff. If you put it on a distributed * CD, great... I'd appreciate a copy of the CD though ;). * */ #define TOPBOX_X 4 #define TOPBOX_Y 4 #define TOPBOX_WIDTH 56 #define TOPBOX_HEIGHT 11 /* Graphing area extents */ #define GRAPHBOX_X 4 #define GRAPHBOX_Y 15 #define GRAPHBOX_WIDTH 56 #define GRAPHBOX_HEIGHT graphbox_height #define GRAPHBOX_X_RIGHT (GRAPHBOX_X + GRAPHBOX_WIDTH - 1) #define GRAPHBOX_X_LEFT (GRAPHBOX_X) #define GRAPHBOX_Y_TOP (GRAPHBOX_Y) #define GRAPHBOX_Y_BOTTOM (GRAPHBOX_Y + GRAPHBOX_HEIGHT - 1) /* Graphing area minus the borders */ #define GRAPH_X (GRAPHBOX_X + 1) #define GRAPH_Y (GRAPHBOX_Y) #define GRAPH_WIDTH (GRAPHBOX_WIDTH - 2) #define GRAPH_HEIGHT (GRAPHBOX_HEIGHT - 1) #define GRAPH_X_LEFT (GRAPH_X) #define GRAPH_X_RIGHT (GRAPH_X + GRAPH_WIDTH - 1) #define GRAPH_Y_UPPER (GRAPH_Y) #define GRAPH_Y_BOTTOM (GRAPH_Y + GRAPH_HEIGHT - 1) /* Label area box */ #define LABEL_X (GRAPHBOX_X_LEFT) #define LABEL_Y (GRAPHBOX_Y_BOTTOM + 1) #define LABEL_WIDTH (GRAPHBOX_WIDTH) #define LABEL_HEIGHT 11 #define LABEL_X_LEFT (LABEL_X_LEFT) #define LABEL_X_RIGHT (LABEL_X_LEFT + LABEL_WIDTH - 1) #define LABEL_Y_TOP (LABEL_Y) #define LABEL_Y_BOTTOM (LABEL_Y + LABEL_HEIGHT - 1) #define LOW_INTENSITY 0 #define NORMAL_INTENSITY 1 #define HIGH_INTENSITY 2 /* X Stuff */ Display *dpy; Window root_window, main_window, icon_window, *visible_window; Font thefont; Pixmap arrow; Atom delete_atom; int screen, specified_state = -1; GC graphics_context; unsigned long tx_pixel[3], rx_pixel[3], labelfg_pixel, labelbg_pixel, black_pixel, white_pixel, darkgrey_pixel, grey_pixel; typedef int (*parser_func)(void); /* I know statically declared buffers are against GNU coding standards, so sue me */ char buffer[256], *click_command = NULL, *label = NULL; struct timeval timenow, timelast; unsigned long totalbytes_in, totalbytes_out, lastbytes_in, lastbytes_out; unsigned long totalpackets_in, totalpackets_out, lastpackets_in, lastpackets_out; unsigned int diffpackets_in, diffpackets_out, diffbytes_in, diffbytes_out; unsigned int delayTime = 25000, displayDelay = 55000, maxRate = 6000; unsigned int out_rule = 2, in_rule = 1, graphbox_height = 44; /* number of rule in /proc/net/ip_acct to use */ char *in_rule_string = NULL, *out_rule_string = NULL, *device=NULL; Bool current_tx = False, current_rx = False, rx, tx, logscale = False; parser_func stat_gather; void exit_func(void); void got_signal(int x); void setup_wmnet(int argc, char **argv); void setupX(void); void createWin(Window *win); int updateStats(void); void redraw(XExposeEvent *ee); void tock(void); int updateSpeedometer(int rxRate, int txRate); void drawColoredLine(int y1, int y2, unsigned long *shadecolor); void shadesOf(XColor *shade, unsigned long *returnarray); extern parser_func setup_driver(char *parser); extern char * available_drivers(void); wmnet-1.06/Imakefile100644 2376 2442 1163 7104413425 12605 0ustar kaoskaosDEPLIBS = $(DEPXLIB) CC = gcc -Wall #ifdef LinuxArchitecture STD_DEFINES = -Dlinux DEFINES = -Dlinux_libc5 #if LinuxCLibMajorVersion > 5 DEFINES = -Dlinux_libc6 #endif LOCAL_LIBRARIES = $(XLIB) -lm #endif #if defined (FreeBSDArchitecture) || defined (OpenBSDArchitecture) LOCAL_LIBRARIES = $(XLIB) -lm -lkvm INSTPGMFLAGS = -s -g kmem -m 2755 #endif LINTLIBS = $(LINTXLIB) #if defined (FreeBSDArchitecture) || defined (OpenBSDArchitecture) SRCS = wmnet.c drivers.c getopt.c getopt1.c OBJS = wmnet.o drivers.o getopt.o getopt1.o #else SRCS = wmnet.c drivers.c OBJS = wmnet.o drivers.o #endif ComplexProgramTarget(wmnet) wmnet-1.06/wmnet.man100644 2376 2442 15232 7104414467 12654 0ustar kaoskaos.\" -*-Nroff-*- .\" .TH wmnet 1x "4 May 2000" .SH NAME wmnet \- an IP accounting monitoring tool .SH SYNOPSIS .B wmnet .RB [\| -h,--help \|] .RB [\| -v,--version \|] .RB [\| -T,--txrule=\fINUM \|] .RB [\| -R,--rxrule=\fINUM \|] .RB [\| -l,--logscale \|] .RB [\| -t,--txcolor=\fICOLOR \|] .RB [\| -r,--rxcolor=\fICOLOR \|] .RB [\| -d\ \fIDELAY \|] .RB [\| -x,--maxrate=\fIBYTES \|] .RB [\| -F,--labelfg=\fICOLOR \|] .RB [\| -B,--labelbg=\fICOLOR \|] .RB [\| -L,--label=\fILABEL \|] .RB [\| -e,--execute=\fICOMMAND \|] .RB [\| -p,--promisc=\fIDEVICE \|] .RB [\| -u,--unpromisc=\fIDEVICE \|] .RB [\| -w,--withdrawn\ |\ -n,--normalstate \|] .RB [\| -D,--driver=\fIDRIVER \|] .RB [\| -W,--device=\fIDEVICE \|] .SH DESCRIPTION \fBwmnet\fP polls network statistics and does a few things with the data it gets. It has small blinking lights for the rx and tx of IP packets, a digital speedometer of your networks current speed and a bar graph like xload plotting your throughput. It has a tx speed graph from bottom-up and rx speed graph from the top-down. The speedometer keeps track of the current speed per second and shows it in a color corresponding to which of rx or tx that has the highest speed at the moment. Also, the graph is drawn in a way that the highest speed is drawn on top of the other while the other is in the background. .SS OPTIONS .TP .B \-h,--help displays a brief help message .TP .B -v,--version displays version information .TP .B \-T,--txrule=\fINUM or NAME in the case of the ipfwadm driver, this is the accounting rule number to monitor for tx. For the ipchains driver, this is the chain name to watch. .TP .B \-R,--rxrule=\fINUM or NAME in the case of the ipfwadm driver, this is the accounting rule number to monitor for rx. For the ipchains, this is the chain name to watch. .TP .B \-t,--txcolor=\fICOLOR specifies the tx color .TP .B \-r,--rxcolor=\fICOLOR specifies the rx color .TP .B \-x,--maxrate=\fIBYTES maximum transfer rate for graph scale. Defaults to 6000, which should be in the right area for modem connections. The key is to experiment with this setting and the --logscale option to get the kind of graph that fits your connection type. A general rule of thumb is to set this to 4 to 5 times greater than your maximum throughput. The author finds using --logscale and --maxrate=10000000 to work nicely for the entire range of his dorms ethernet based connection to the internet. .TP .B \-l,--logscale sets logarithmic scale, which is good for fast connections. This will allow, for example, the graph still being informative at extremely low speeds (telnet), and extremely fast speeds (local FTP) simultaneously without the scale constantly being blank or solid at those respective extremes. .TP .B -L,--label=\fILABEL prints a given text label on the bottom of the window .TP .B -F,--labelfg=\fICOLOR specifies the color for the text of the label .TP .B -B,--labelbg=\fICOLOR specifies the color for the background of the label text .TP .B --withdrawn .TP .B --normalstate sets the initial state of wmnet. WMnet tries to automatically determine which state to start up in by starting up in withdrawn state if a WindowMaker defined atom is present, and in normalstate otherwise. This behavior is overriden by specifying one of these options. .TP .B -e,--execute=\fICOMMAND executes \fICOMMAND \fPon a single click from button 1 (left mouse button). .TP .B -u,--unpromisc=\fIDEVICE .TP .B -p,--promisc=\fIDEVICE put \fIDEVICE \fPin promiscuous mode to start applying accounting rules to all network packets on your network segment. You either need to be root or have the wmnet binary suid root to use this feature. This option may be given more than once on the command line to specify more than one device. .TP .B \-d \fIDELAY delay time for polling /proc/net/ip_account (in microseconds). Defaults to 25000, that is 0.025 seconds, or 40 Hz .TP .B -D,--driver=\fIDRIVER use \fIDRIVER \fP to get the stats we monitor. Compiled in drivers can be listed with the -h switch. .TP .B -W,--device=\fIDEVICE watch statistics for \fIDEVICE \fP. This option is only used for certain stat drivers, namely: kmem, devstats, and pppstats. The ipchains and ipfwadm stat drivers do not use this parameter. .SH STAT DRIVERS wmnet uses different stat drivers to get the stats it needs to monitor your network. Exactly what drivers are available is determined at compile time. The driver wmnet ultimately uses at runtime is dependent on your system. There are 4 drivers specific to Linux and 1 to *BSD. The driver used can be overridden by the --driver option. The available drivers are \fIpppstats, devstats, ipfwadm, ipchains\fP and \fIkmem\fP. .TP .B pppstats this driver works on Linux 2.0 or Linux 2.1 for ONLY ppp type devices. Specify the \fI--device\fP option for the interface to monitor. By default it uses interface ppp0. Please note, that if the ppp device is not available or active, wmnet will continue to try in the hopes that it is only temporarily offline. .TP .B devstats use this driver on Linux 2.1 kernels for any interface. Pass the \fI--device\fP option for the device you want monitored, otherwise, the default is eth0. This will be available for ONLY Linux 2.1 kernels and will always be there on those kernels. .TP .B ipfwadm use this driver on Linux 2.0 kernels compiled with IP accounting. It won't work on Linux 2.1. You'll also need to specify the \fI--txrule\fP and \fI--rxrule\fP options. By default, wmnet uses the first two rules it finds. .TP .B ipchains this driver will only work in Linux 2.1 kernels with IP chains compiled in. You'll want to also specify the \fI--txrule\fP and \fI--rxrule\fP options and specify the chain names. By default it uses the chains "acctin" and "acctout" There must be at least one rule on the named ipchain, if there is more than one rule in the specified chain, it uses the first. The chain must not immediately return to the parent chain, it has to pass through a rule first. Otherwise, the kernel will not collect the stats we need. .TP .B kmem this driver is available on FreeBSD and OpenBSD systems and must be passed a device through the \fI--device\fP option. By default, it uses ec0 but will accept any valid device name. .SH FILES .TP .I /proc/net/ip_acct /proc/net/dev /proc/net/ipchains kernel net accounting information .SH AUTHORS \fBwmnet\fP was created by \fIJesse B. Off \fP and is maintained by \fIKatharine Osborne \fP. This manpange was originally written by \fIMarcelo Magallon \fP for the \fIDebian Project\fP, and is GNU Copyright 1998 Marcelo Magallon and later modifed by \fIJesse Off\fP and \fIKatharine Osborne\fP for WMnet versions 1.05 and above. .SH "SEE ALSO" .BR wmaker (1x) wmnet-1.06/drivers.c100644 2376 2442 33231 7104413425 12637 0ustar kaoskaos/* wmnet -- X IP accounting monitor * Copyright 1998 Jesse B. Off * * $Id: drivers.c,v 1.1 1998/10/07 03:42:21 joff Exp joff $ * * This software is released under the GNU Public License agreement. * No warranties, whatever.... you know the usuals.... this is free * software. if you use it, great... if you wanna make a change to it, * great, but please send me the diff. */ #include #include #include #include #include #include #include #include #include #include"config.h" /* For FreeBSD */ #ifdef USE_KVM #include #include #include kvm_t *kvmfd; struct nlist symbols[] = { { "_ifnet" }, { NULL } }; unsigned long ifnet_savedaddr; int kvm_test(void); int kvm_updateStats(void); #endif /* USE_KVM */ #ifdef USE_LINUX_PPP #include #ifdef linux_libc5 # include #else # include #endif #include int pppfd; int ppp_test(void); int updateStats_ppp(void); static struct ifpppstatsreq ppp_stats_req; #endif #define ACCOUNT_IN_FOUND 1 #define ACCOUNT_OUT_FOUND 2 extern char buffer[256]; extern char *in_rule_string, *out_rule_string, *device; extern unsigned long totalbytes_in, totalbytes_out, lastbytes_in, lastbytes_out; extern unsigned long totalpackets_in, totalpackets_out, lastpackets_in, lastpackets_out; extern unsigned int diffpackets_in, diffpackets_out, diffbytes_in, diffbytes_out; extern unsigned int out_rule, in_rule; /* number of rule in /proc/net/ip_acct to use */ extern Bool current_tx, current_rx, rx, tx; char *available_drivers(void); #ifdef USE_IPFWADM int updateStats_ipfwadm(void); int ipfwadm_test(void); #endif #ifdef USE_IPCHAINS int updateStats_ipchains(void); int ipchains_test(void); #endif #ifdef USE_2_1_DEV int updateStats_dev(void); int dev_test(void); #endif typedef int (*parser_func)(void); static struct drivers_struct { char * name; parser_func function; parser_func test; } drivers[] = { #ifdef USE_2_1_DEV {"devstats", updateStats_dev, dev_test}, #endif #ifdef USE_IPFWADM {"ipfwadm", updateStats_ipfwadm, ipfwadm_test}, #endif #ifdef USE_IPCHAINS {"ipchains", updateStats_ipchains, ipchains_test}, #endif #ifdef USE_LINUX_PPP {"pppstats",updateStats_ppp, ppp_test}, #endif #ifdef USE_KVM {"kmem",kvm_updateStats, kvm_test}, #endif {NULL, NULL} }; char* available_drivers(void) { int ind = 0; int len = 0; char *string, *ptr; while(drivers[ind].name != NULL) { len += strlen(drivers[ind].name) + 1; ind++; } ptr = string = (char *)malloc(len); *string = '\0'; ind = 0; while(drivers[ind].name != NULL) { strcpy(string, drivers[ind].name); string += strlen(drivers[ind].name); *string++ = ','; ind++; } *(--string) = '\0'; return ptr; } parser_func find_driver(void) { int ind = 0; while(drivers[ind].name != NULL) { if(drivers[ind].test()) { return drivers[ind].function; } ind++; } fprintf(stderr, "wmnet: no appropriate stat driver found\n"); exit(30); } parser_func setup_driver(char * parser_name) { int ind = 0; if (parser_name == NULL) return find_driver(); while(drivers[ind].name != NULL) { if(!strcmp(parser_name, drivers[ind].name)) { if (drivers[ind].test()) return drivers[ind].function; fprintf(stderr, "wmnet: driver %s not appropriate for this machine\n", parser_name); exit(18); } ind++; } fprintf(stderr, "wmnet: no driver %s\n", parser_name); exit(18); } #ifdef linux /* All the data gathering is done in here. * Return True if no change to tx/rx. * Return False if display will need to be updated. */ #ifdef USE_IPFWADM int ipfwadm_test(void) { if(open("/proc/net/ip_acct", O_RDONLY) == -1) return False; fprintf(stderr, "wmnet: using ipfwadm driver to monitor accounting rules %d and %d\n", in_rule, out_rule); return True; } int updateStats_ipfwadm(void) { FILE *ip_acct; unsigned int flag = 0, lineno = 0; unsigned int offset = 37; char *ptr; rx = False; tx = False; if ((ip_acct = fopen("/proc/net/ip_acct", "r")) == NULL) { fprintf(stderr, "wmnet: /proc/net/ip_acct unavailable\n" "You either don't have IP accounting compiled in, or this isn't a 2.0 linux kernel.\n"); exit(4); } /* IP Accounting Rules for 2.0.x linux kernels*/ while(flag != (ACCOUNT_IN_FOUND|ACCOUNT_OUT_FOUND) && fgets(buffer, 256, ip_acct)) { switch(lineno == out_rule ? ACCOUNT_OUT_FOUND : ( lineno == in_rule ? ACCOUNT_IN_FOUND : -1 ) ) { case ACCOUNT_IN_FOUND: /* accounting in */ flag |= ACCOUNT_IN_FOUND; while(buffer[offset++] != ' '); offset += 18; totalpackets_in = strtoul(&buffer[offset], &ptr, 10); if (totalpackets_in == lastpackets_in) break; totalbytes_in = strtoul(ptr, NULL, 10); diffpackets_in += totalpackets_in - lastpackets_in; diffbytes_in += totalbytes_in - lastbytes_in; lastpackets_in = totalpackets_in; lastbytes_in = totalbytes_in; rx = True; break; case ACCOUNT_OUT_FOUND: /* accounting out */ flag |= ACCOUNT_OUT_FOUND; while(buffer[offset++] != ' '); offset += 18; totalpackets_out = strtoul(&buffer[offset], &ptr, 10); if (totalpackets_out == lastpackets_out) break; totalbytes_out = strtoul(ptr, NULL, 10); diffpackets_out += totalpackets_out - lastpackets_out; diffbytes_out += totalbytes_out - lastbytes_out; lastpackets_out = totalpackets_out; lastbytes_out = totalbytes_out; tx = True; break; } lineno++; offset = 37; } if(flag != (ACCOUNT_IN_FOUND|ACCOUNT_OUT_FOUND)) { fprintf(stderr,"wmnet: couldn't find %s accounting rule to monitor in /proc/net/ip_acct\n", (flag == ACCOUNT_IN_FOUND) ? "the TX" : ((flag == ACCOUNT_OUT_FOUND) ? "the RX" : "a single")); exit(4); } fclose(ip_acct); /* return True if no change to tx/rx * return False if display will need to be updated */ return((rx == current_rx) && (tx == current_tx)); } #endif /* USE_IPFWADM */ #ifdef USE_IPCHAINS int ipchains_test(void) { if (open("/proc/net/ip_fwchains",O_RDONLY) == -1) return False; if (in_rule_string == NULL) in_rule_string = "acctin"; if (out_rule_string == NULL) out_rule_string = "acctout"; fprintf(stderr, "wmnet: using ipchains driver to monitor chains %s and %s\n", in_rule_string, out_rule_string); return True; } /* ipchains parser mostly from Bjoern Kriews */ int updateStats_ipchains(void) { FILE *ip_acct; unsigned int flag = 0; static char name[32]; unsigned long pack, bytes; rx = False; tx = False; if ((ip_acct = fopen("/proc/net/ip_fwchains", "r")) == NULL) { fprintf(stderr, "/proc/net/ip_fwchains does not exist?\n" "Do you have IP accounting in your kernel?\n"); exit(4); } /* IP Chain Rules for Linux kernel 2_1.x */ while(flag != (ACCOUNT_IN_FOUND|ACCOUNT_OUT_FOUND) && fgets(buffer, 256, ip_acct)) { *name = 0; sscanf(buffer, "%30s %*s - %*d %*d %*d %*d %lu %*d %lu", name, &pack, &bytes); if(strcmp(name, in_rule_string) == 0) { flag |= ACCOUNT_IN_FOUND; totalpackets_in = pack; if (totalpackets_in != lastpackets_in) { totalbytes_in = bytes; diffpackets_in += totalpackets_in - lastpackets_in; diffbytes_in += totalbytes_in - lastbytes_in; lastpackets_in = totalpackets_in; lastbytes_in = totalbytes_in; rx = True; } } else if (strcmp(name, out_rule_string) == 0) { flag |= ACCOUNT_OUT_FOUND; totalpackets_out = pack; if (totalpackets_out != lastpackets_out) { totalbytes_out = bytes; diffpackets_out += totalpackets_out - lastpackets_out; diffbytes_out += totalbytes_out - lastbytes_out; lastpackets_out = totalpackets_out; lastbytes_out = totalbytes_out; tx = True; } } } if(flag != (ACCOUNT_IN_FOUND|ACCOUNT_OUT_FOUND)) { fprintf(stderr,"I couldn't find %s IP chain to monitor in /proc/net/ip_fwchains.\n", (flag == ACCOUNT_IN_FOUND) ? "the TX" : ((flag == ACCOUNT_OUT_FOUND) ? "the RX" : "a single")); exit(4); } fclose(ip_acct); /* return True if no change to tx/rx * return False if display will need to be updated */ return((rx == current_rx) && (tx == current_tx)); } #endif /* USE_IPCHAINS */ #ifdef USE_2_1_DEV int updateStats_dev(void) { FILE *dev; char *ptr; unsigned int flag = 0; char *name; rx = False; tx = False; if ((dev = fopen("/proc/net/dev", "r")) == NULL) { fprintf(stderr, "/proc/net/dev does not exist?\n" "Perhaps we are not running Linux?\n"); exit(4); } /* the first two lines we can skip */ fgets(buffer, 256, dev); fgets(buffer, 256, dev); /* IP Chain Rules for Linux kernel 2_1.x */ while(flag != (ACCOUNT_IN_FOUND|ACCOUNT_OUT_FOUND) && fgets(buffer, 256, dev)) { ptr = buffer; while(*ptr == ' ') ptr++; name = ptr; while(*ptr != ':') ptr++; *ptr = '\0'; if (!strcmp(name, device)) { flag = (ACCOUNT_IN_FOUND|ACCOUNT_OUT_FOUND); totalpackets_in = strtoul(&buffer[15], NULL, 10); if (totalpackets_in != lastpackets_in) { totalbytes_in = strtoul(&buffer[7], NULL, 10); diffpackets_in += totalpackets_in - lastpackets_in; diffbytes_in += totalbytes_in - lastbytes_in; lastpackets_in = totalpackets_in; lastbytes_in = totalbytes_in; rx = True; } totalpackets_out = strtoul(&buffer[74], NULL, 10); if (totalpackets_out != lastpackets_out) { totalbytes_out = strtoul(&buffer[66], NULL, 10); diffpackets_out += totalpackets_out - lastpackets_out; diffbytes_out += totalbytes_out - lastbytes_out; lastpackets_out = totalpackets_out; lastbytes_out = totalbytes_out; tx = True; } } } fclose(dev); /* return True if no change to tx/rx * return False if display will need to be updated */ return((rx == current_rx) && (tx == current_tx)); } int dev_test(void) { int devfd; if((devfd = open("/proc/net/dev", O_RDONLY)) == -1) return False; read(devfd, buffer, 36); if(buffer[35] == '|') return False; if(device == NULL) device = "eth0"; fprintf(stderr, "wmnet: using devstats driver to monitor %s\n", device); return True; } #endif /* USE_2_1_DEV */ #ifdef USE_LINUX_PPP int ppp_test(void) { pppfd = socket(AF_INET, SOCK_DGRAM, 0); if(device == NULL) device = "ppp0"; strncpy(ppp_stats_req.ifr__name, device, 15); ppp_stats_req.stats_ptr =(caddr_t) &ppp_stats_req.stats; fprintf(stderr, "wmnet: using pppstats driver to monitor %s\n", device); return True; } int updateStats_ppp(void) { if(ioctl(pppfd, SIOCGPPPSTATS, &ppp_stats_req) != 0) { return False; } totalpackets_in = ppp_stats_req.stats.p.ppp_ipackets; if (totalpackets_in != lastpackets_in) { totalbytes_in = ppp_stats_req.stats.p.ppp_ibytes; diffpackets_in += totalpackets_in - lastpackets_in; diffbytes_in += totalbytes_in - lastbytes_in; lastpackets_in = totalpackets_in; lastbytes_in = totalbytes_in; rx = True; } totalpackets_out = ppp_stats_req.stats.p.ppp_opackets; if (totalpackets_out != lastpackets_out) { totalbytes_out =ppp_stats_req.stats.p.ppp_obytes; diffpackets_out += totalpackets_out - lastpackets_out; diffbytes_out += totalbytes_out - lastbytes_out; lastpackets_out = totalpackets_out; lastbytes_out = totalbytes_out; tx = True; } /* return True if no change to tx/rx * return False if display will need to be updated */ return((rx == current_rx) && (tx == current_tx)); } #endif /* USE_LINUX_PPP */ #endif /* linux */ #ifdef USE_KVM int kvm_test(void) { if (((kvmfd = kvm_open(NULL, NULL, NULL, O_RDONLY, buffer)) == NULL) || (kvm_nlist(kvmfd, symbols) < 0) || kvm_read(kvmfd, (unsigned long)symbols[0].n_value, &ifnet_savedaddr, sizeof(unsigned long)) == -1 ) return False; if(device == NULL) device = "ec0"; fprintf(stderr, "wmnet: using kmem driver to monitor %s\n", device); return True; } int kvm_updateStats(void) { struct ifnet * ifnet = (struct ifnet *)buffer; unsigned long ifnet_addr = ifnet_savedaddr; char devname[16]; int flag = 0; while (ifnet_addr && flag != (ACCOUNT_IN_FOUND|ACCOUNT_OUT_FOUND)) { kvm_read(kvmfd, ifnet_addr, buffer, sizeof(struct ifnet)); #ifdef __OpenBSD__ snprintf(devname, 15, "%s", ifnet->if_xname); #else kvm_read(kvmfd, (unsigned long)ifnet->if_name, devname, 15); snprintf(devname, 15, "%s%d", devname, ifnet->if_unit); #endif if(!strncmp(devname, device, strlen(device))) { /* we found our struct */ totalpackets_in =ifnet->if_ipackets; if (totalpackets_in != lastpackets_in) { totalbytes_in = ifnet->if_ibytes; diffpackets_in += totalpackets_in - lastpackets_in; diffbytes_in += totalbytes_in - lastbytes_in; lastpackets_in = totalpackets_in; lastbytes_in = totalbytes_in; rx = True; } totalpackets_out = ifnet->if_opackets; if (totalpackets_out != lastpackets_out) { totalbytes_out =ifnet->if_obytes; diffpackets_out += totalpackets_out - lastpackets_out; diffbytes_out += totalbytes_out - lastbytes_out; lastpackets_out = totalpackets_out; lastbytes_out = totalbytes_out; tx = True; } flag = (ACCOUNT_IN_FOUND|ACCOUNT_OUT_FOUND); } else { #ifdef __OpenBSD__ ifnet_addr = (unsigned long)ifnet->if_list.tqe_next; #else ifnet_addr = (unsigned long)ifnet->if_next; #endif } } /* return True if no change to tx/rx * return False if display will need to be updated */ return((rx == current_rx) && (tx == current_tx)); } #endif wmnet-1.06/config.h100644 2376 2442 3432 7104413425 12413 0ustar kaoskaos#if defined (__FreeBSD__) || defined (__OpenBSD__) /* Our only FreeBSD driver, this goes straight into kernel memory * and reads the raw structures from right underneath the kernel using the * kvm library. This made the code a require a little more thought, but * the end result is a statistics driver thats faster than the linux ones * (with the possible exception of the LINUX_PPP driver). However, none * of them really vary by any appreciable amount. You can monitor whole * interfaces only with this driver. */ # define USE_KVM #endif #ifdef linux /* this driver uses a socket ioctl() to get stats from a ppp type interface * Define this if you will be using wmnet mostly to watch your ppp stats. * The advantage to this driver is that you don't need to mess around with * IP accounting rules. */ #define USE_LINUX_PPP /* This driver uses the 2.0 kernel's IP accounting rules to gather data * You set two rules up using the ipfwadm command and wmnet will watch * them. You DO need a 2.0 kernel and IP accounting enabled in your kernel */ #define USE_IPFWADM /* If you have a 2.1 kernel, you've probably noticed that IP accounting * and the ipfwadm command won't work anymore. These have been superceded * by the ipchains mechanism. Define this if you want IP chains support, * you have a 2.1 kernel, and you have set up two chains (read README) */ #define USE_IPCHAINS /* Define this if you have a 2.1 kernel and wish to use the stats from * /proc/net/dev. In the 2.1 kernels, /proc/net/dev now has a bytes field * (2.0 only had a packets field) which enables us to use this driver as * a generic interface watcher. With this, you don't have to fool around with * ipchains if you don't want to or haven't it enabled */ #define USE_2_1_DEV #endif /* linux */ wmnet-1.06/getopt.h100644 2376 2442 10754 6607317205 12503 0ustar kaoskaos/* Declarations for getopt. Copyright (C) 1989,90,91,92,93,94,96,97 Free Software Foundation, Inc. This file is part of the GNU C Library. The GNU C Library is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. The GNU C Library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Library General Public License for more details. You should have received a copy of the GNU Library General Public License along with the GNU C Library; see the file COPYING.LIB. If not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #ifndef _GETOPT_H #define _GETOPT_H 1 #ifdef __cplusplus extern "C" { #endif /* For communication from `getopt' to the caller. When `getopt' finds an option that takes an argument, the argument value is returned here. Also, when `ordering' is RETURN_IN_ORDER, each non-option ARGV-element is returned here. */ extern char *optarg; /* Index in ARGV of the next element to be scanned. This is used for communication to and from the caller and for communication between successive calls to `getopt'. On entry to `getopt', zero means this is the first call; initialize. When `getopt' returns -1, this is the index of the first of the non-option elements that the caller should itself scan. Otherwise, `optind' communicates from one call to the next how much of ARGV has been scanned so far. */ extern int optind; /* Callers store zero here to inhibit the error message `getopt' prints for unrecognized options. */ extern int opterr; /* Set to an option character which was unrecognized. */ extern int optopt; /* Describe the long-named options requested by the application. The LONG_OPTIONS argument to getopt_long or getopt_long_only is a vector of `struct option' terminated by an element containing a name which is zero. The field `has_arg' is: no_argument (or 0) if the option does not take an argument, required_argument (or 1) if the option requires an argument, optional_argument (or 2) if the option takes an optional argument. If the field `flag' is not NULL, it points to a variable that is set to the value given in the field `val' when the option is found, but left unchanged if the option is not found. To have a long-named option do something other than set an `int' to a compiled-in constant, such as set a value from `optarg', set the option's `flag' field to zero and its `val' field to a nonzero value (the equivalent single-letter option character, if there is one). For long options that have a zero `flag' field, `getopt' returns the contents of the `val' field. */ struct option { #if defined (__STDC__) && __STDC__ const char *name; #else char *name; #endif /* has_arg can't be an enum because some compilers complain about type mismatches in all the code that assumes it is an int. */ int has_arg; int *flag; int val; }; /* Names for the values of the `has_arg' field of `struct option'. */ #define no_argument 0 #define required_argument 1 #define optional_argument 2 #if defined (__STDC__) && __STDC__ #ifdef __GNU_LIBRARY__ /* Many other libraries have conflicting prototypes for getopt, with differences in the consts, in stdlib.h. To avoid compilation errors, only prototype getopt for the GNU C library. */ extern int getopt (int argc, char *const *argv, const char *shortopts); #else /* not __GNU_LIBRARY__ */ extern int getopt (); #endif /* __GNU_LIBRARY__ */ extern int getopt_long (int argc, char *const *argv, const char *shortopts, const struct option *longopts, int *longind); extern int getopt_long_only (int argc, char *const *argv, const char *shortopts, const struct option *longopts, int *longind); /* Internal only. Users should not call this directly. */ extern int _getopt_internal (int argc, char *const *argv, const char *shortopts, const struct option *longopts, int *longind, int long_only); #else /* not __STDC__ */ extern int getopt (); extern int getopt_long (); extern int getopt_long_only (); extern int _getopt_internal (); #endif /* __STDC__ */ #ifdef __cplusplus } #endif #endif /* _GETOPT_H */ wmnet-1.06/getopt.c100644 2376 2442 72763 6607332064 12506 0ustar kaoskaos/* Getopt for GNU. NOTE: getopt is now part of the C library, so if you don't know what "Keep this file name-space clean" means, talk to roland@gnu.ai.mit.edu before changing it! Copyright (C) 1987, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97 Free Software Foundation, Inc. The GNU C Library is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. The GNU C Library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Library General Public License for more details. You should have received a copy of the GNU Library General Public License along with the GNU C Library; see the file COPYING.LIB. If not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* This tells Alpha OSF/1 not to define a getopt prototype in . Ditto for AIX 3.2 and . */ #ifndef _NO_PROTO #define _NO_PROTO #endif #ifdef HAVE_CONFIG_H #include #endif #if !defined (__STDC__) || !__STDC__ /* This is a separate conditional since some stdc systems reject `defined (const)'. */ #ifndef const #define const #endif #endif #include /* Comment out all this code if we are using the GNU C Library, and are not actually compiling the library itself. This code is part of the GNU C Library, but also included in many other GNU distributions. Compiling and linking in this code is a waste when using the GNU C library (especially if it is a shared library). Rather than having every GNU program understand `configure --with-gnu-libc' and omit the object files, it is simpler to just do this in the source for each such file. */ #define GETOPT_INTERFACE_VERSION 2 #if !defined (_LIBC) && defined (__GLIBC__) && __GLIBC__ >= 2 #include #if _GNU_GETOPT_INTERFACE_VERSION == GETOPT_INTERFACE_VERSION #define ELIDE_CODE #endif #endif #ifndef ELIDE_CODE /* This needs to come after some library #include to get __GNU_LIBRARY__ defined. */ #ifdef __GNU_LIBRARY__ /* Don't include stdlib.h for non-GNU C libraries because some of them contain conflicting prototypes for getopt. */ #include #include #endif /* GNU C library. */ #ifdef VMS #include #if HAVE_STRING_H - 0 #include #endif #endif #if defined (WIN32) && !defined (__CYGWIN32__) /* It's not Unix, really. See? Capital letters. */ #include #define getpid() GetCurrentProcessId() #endif #ifndef _ /* This is for other GNU distributions with internationalized messages. When compiling libc, the _ macro is predefined. */ #ifdef HAVE_LIBINTL_H # include # define _(msgid) gettext (msgid) #else # define _(msgid) (msgid) #endif #endif /* This version of `getopt' appears to the caller like standard Unix `getopt' but it behaves differently for the user, since it allows the user to intersperse the options with the other arguments. As `getopt' works, it permutes the elements of ARGV so that, when it is done, all the options precede everything else. Thus all application programs are extended to handle flexible argument order. Setting the environment variable POSIXLY_CORRECT disables permutation. Then the behavior is completely standard. GNU application programs can use a third alternative mode in which they can distinguish the relative order of options and other arguments. */ #include "getopt.h" /* For communication from `getopt' to the caller. When `getopt' finds an option that takes an argument, the argument value is returned here. Also, when `ordering' is RETURN_IN_ORDER, each non-option ARGV-element is returned here. */ char *optarg = NULL; /* Index in ARGV of the next element to be scanned. This is used for communication to and from the caller and for communication between successive calls to `getopt'. On entry to `getopt', zero means this is the first call; initialize. When `getopt' returns -1, this is the index of the first of the non-option elements that the caller should itself scan. Otherwise, `optind' communicates from one call to the next how much of ARGV has been scanned so far. */ /* 1003.2 says this must be 1 before any call. */ int optind = 1; /* Formerly, initialization of getopt depended on optind==0, which causes problems with re-calling getopt as programs generally don't know that. */ int __getopt_initialized = 0; /* The next char to be scanned in the option-element in which the last option character we returned was found. This allows us to pick up the scan where we left off. If this is zero, or a null string, it means resume the scan by advancing to the next ARGV-element. */ static char *nextchar; /* Callers store zero here to inhibit the error message for unrecognized options. */ int opterr = 1; /* Set to an option character which was unrecognized. This must be initialized on some systems to avoid linking in the system's own getopt implementation. */ int optopt = '?'; /* Describe how to deal with options that follow non-option ARGV-elements. If the caller did not specify anything, the default is REQUIRE_ORDER if the environment variable POSIXLY_CORRECT is defined, PERMUTE otherwise. REQUIRE_ORDER means don't recognize them as options; stop option processing when the first non-option is seen. This is what Unix does. This mode of operation is selected by either setting the environment variable POSIXLY_CORRECT, or using `+' as the first character of the list of option characters. PERMUTE is the default. We permute the contents of ARGV as we scan, so that eventually all the non-options are at the end. This allows options to be given in any order, even with programs that were not written to expect this. RETURN_IN_ORDER is an option available to programs that were written to expect options and other ARGV-elements in any order and that care about the ordering of the two. We describe each non-option ARGV-element as if it were the argument of an option with character code 1. Using `-' as the first character of the list of option characters selects this mode of operation. The special argument `--' forces an end of option-scanning regardless of the value of `ordering'. In the case of RETURN_IN_ORDER, only `--' can cause `getopt' to return -1 with `optind' != ARGC. */ static enum { REQUIRE_ORDER, PERMUTE, RETURN_IN_ORDER } ordering; /* Value of POSIXLY_CORRECT environment variable. */ static char *posixly_correct; #ifdef __GNU_LIBRARY__ /* We want to avoid inclusion of string.h with non-GNU libraries because there are many ways it can cause trouble. On some systems, it contains special magic macros that don't work in GCC. */ #include #define my_index strchr #else /* Avoid depending on library functions or files whose names are inconsistent. */ char *getenv (); extern int strncmp(const char *s1, const char *s2, size_t len); static char * my_index (str, chr) const char *str; int chr; { while (*str) { if (*str == chr) return (char *) str; str++; } return 0; } /* If using GCC, we can safely declare strlen this way. If not using GCC, it is ok not to declare it. */ #ifdef __GNUC__ /* Note that Motorola Delta 68k R3V7 comes with GCC but not stddef.h. That was relevant to code that was here before. */ #if !defined (__STDC__) || !__STDC__ /* gcc with -traditional declares the built-in strlen to return int, and has done so at least since version 2.4.5. -- rms. */ extern int strlen (const char *); #endif /* not __STDC__ */ #endif /* __GNUC__ */ #endif /* not __GNU_LIBRARY__ */ /* Handle permutation of arguments. */ /* Describe the part of ARGV that contains non-options that have been skipped. `first_nonopt' is the index in ARGV of the first of them; `last_nonopt' is the index after the last of them. */ static int first_nonopt; static int last_nonopt; #ifdef _LIBC /* Bash 2.0 gives us an environment variable containing flags indicating ARGV elements that should not be considered arguments. */ /* Defined in getopt_init.c */ extern char *__getopt_nonoption_flags; static int nonoption_flags_max_len; static int nonoption_flags_len; static int original_argc; static char *const *original_argv; extern pid_t __libc_pid; /* Make sure the environment variable bash 2.0 puts in the environment is valid for the getopt call we must make sure that the ARGV passed to getopt is that one passed to the process. */ static void __attribute__ ((unused)) store_args_and_env (int argc, char *const *argv) { /* XXX This is no good solution. We should rather copy the args so that we can compare them later. But we must not use malloc(3). */ original_argc = argc; original_argv = argv; } text_set_element (__libc_subinit, store_args_and_env); # define SWAP_FLAGS(ch1, ch2) \ if (nonoption_flags_len > 0) \ { \ char __tmp = __getopt_nonoption_flags[ch1]; \ __getopt_nonoption_flags[ch1] = __getopt_nonoption_flags[ch2]; \ __getopt_nonoption_flags[ch2] = __tmp; \ } #else /* !_LIBC */ # define SWAP_FLAGS(ch1, ch2) #endif /* _LIBC */ /* Exchange two adjacent subsequences of ARGV. One subsequence is elements [first_nonopt,last_nonopt) which contains all the non-options that have been skipped so far. The other is elements [last_nonopt,optind), which contains all the options processed since those non-options were skipped. `first_nonopt' and `last_nonopt' are relocated so that they describe the new indices of the non-options in ARGV after they are moved. */ #if defined (__STDC__) && __STDC__ static void exchange (char **); #endif static void exchange (argv) char **argv; { int bottom = first_nonopt; int middle = last_nonopt; int top = optind; char *tem; /* Exchange the shorter segment with the far end of the longer segment. That puts the shorter segment into the right place. It leaves the longer segment in the right place overall, but it consists of two parts that need to be swapped next. */ #ifdef _LIBC /* First make sure the handling of the `__getopt_nonoption_flags' string can work normally. Our top argument must be in the range of the string. */ if (nonoption_flags_len > 0 && top >= nonoption_flags_max_len) { /* We must extend the array. The user plays games with us and presents new arguments. */ char *new_str = malloc (top + 1); if (new_str == NULL) nonoption_flags_len = nonoption_flags_max_len = 0; else { memcpy (new_str, __getopt_nonoption_flags, nonoption_flags_max_len); memset (&new_str[nonoption_flags_max_len], '\0', top + 1 - nonoption_flags_max_len); nonoption_flags_max_len = top + 1; __getopt_nonoption_flags = new_str; } } #endif while (top > middle && middle > bottom) { if (top - middle > middle - bottom) { /* Bottom segment is the short one. */ int len = middle - bottom; register int i; /* Swap it with the top part of the top segment. */ for (i = 0; i < len; i++) { tem = argv[bottom + i]; argv[bottom + i] = argv[top - (middle - bottom) + i]; argv[top - (middle - bottom) + i] = tem; SWAP_FLAGS (bottom + i, top - (middle - bottom) + i); } /* Exclude the moved bottom segment from further swapping. */ top -= len; } else { /* Top segment is the short one. */ int len = top - middle; register int i; /* Swap it with the bottom part of the bottom segment. */ for (i = 0; i < len; i++) { tem = argv[bottom + i]; argv[bottom + i] = argv[middle + i]; argv[middle + i] = tem; SWAP_FLAGS (bottom + i, middle + i); } /* Exclude the moved top segment from further swapping. */ bottom += len; } } /* Update records for the slots the non-options now occupy. */ first_nonopt += (optind - last_nonopt); last_nonopt = optind; } /* Initialize the internal data when the first call is made. */ #if defined (__STDC__) && __STDC__ static const char *_getopt_initialize (int, char *const *, const char *); #endif static const char * _getopt_initialize (argc, argv, optstring) int argc; char *const *argv; const char *optstring; { /* Start processing options with ARGV-element 1 (since ARGV-element 0 is the program name); the sequence of previously skipped non-option ARGV-elements is empty. */ first_nonopt = last_nonopt = optind; nextchar = NULL; posixly_correct = getenv ("POSIXLY_CORRECT"); /* Determine how to handle the ordering of options and nonoptions. */ if (optstring[0] == '-') { ordering = RETURN_IN_ORDER; ++optstring; } else if (optstring[0] == '+') { ordering = REQUIRE_ORDER; ++optstring; } else if (posixly_correct != NULL) ordering = REQUIRE_ORDER; else ordering = PERMUTE; #ifdef _LIBC if (posixly_correct == NULL && argc == original_argc && argv == original_argv) { if (nonoption_flags_max_len == 0) { if (__getopt_nonoption_flags == NULL || __getopt_nonoption_flags[0] == '\0') nonoption_flags_max_len = -1; else { const char *orig_str = __getopt_nonoption_flags; int len = nonoption_flags_max_len = strlen (orig_str); if (nonoption_flags_max_len < argc) nonoption_flags_max_len = argc; __getopt_nonoption_flags = (char *) malloc (nonoption_flags_max_len); if (__getopt_nonoption_flags == NULL) nonoption_flags_max_len = -1; else { memcpy (__getopt_nonoption_flags, orig_str, len); memset (&__getopt_nonoption_flags[len], '\0', nonoption_flags_max_len - len); } } } nonoption_flags_len = nonoption_flags_max_len; } else nonoption_flags_len = 0; #endif return optstring; } /* Scan elements of ARGV (whose length is ARGC) for option characters given in OPTSTRING. If an element of ARGV starts with '-', and is not exactly "-" or "--", then it is an option element. The characters of this element (aside from the initial '-') are option characters. If `getopt' is called repeatedly, it returns successively each of the option characters from each of the option elements. If `getopt' finds another option character, it returns that character, updating `optind' and `nextchar' so that the next call to `getopt' can resume the scan with the following option character or ARGV-element. If there are no more option characters, `getopt' returns -1. Then `optind' is the index in ARGV of the first ARGV-element that is not an option. (The ARGV-elements have been permuted so that those that are not options now come last.) OPTSTRING is a string containing the legitimate option characters. If an option character is seen that is not listed in OPTSTRING, return '?' after printing an error message. If you set `opterr' to zero, the error message is suppressed but we still return '?'. If a char in OPTSTRING is followed by a colon, that means it wants an arg, so the following text in the same ARGV-element, or the text of the following ARGV-element, is returned in `optarg'. Two colons mean an option that wants an optional arg; if there is text in the current ARGV-element, it is returned in `optarg', otherwise `optarg' is set to zero. If OPTSTRING starts with `-' or `+', it requests different methods of handling the non-option ARGV-elements. See the comments about RETURN_IN_ORDER and REQUIRE_ORDER, above. Long-named options begin with `--' instead of `-'. Their names may be abbreviated as long as the abbreviation is unique or is an exact match for some defined option. If they have an argument, it follows the option name in the same ARGV-element, separated from the option name by a `=', or else the in next ARGV-element. When `getopt' finds a long-named option, it returns 0 if that option's `flag' field is nonzero, the value of the option's `val' field if the `flag' field is zero. The elements of ARGV aren't really const, because we permute them. But we pretend they're const in the prototype to be compatible with other systems. LONGOPTS is a vector of `struct option' terminated by an element containing a name which is zero. LONGIND returns the index in LONGOPT of the long-named option found. It is only valid when a long-named option has been found by the most recent call. If LONG_ONLY is nonzero, '-' as well as '--' can introduce long-named options. */ int _getopt_internal (argc, argv, optstring, longopts, longind, long_only) int argc; char *const *argv; const char *optstring; const struct option *longopts; int *longind; int long_only; { optarg = NULL; if (optind == 0 || !__getopt_initialized) { if (optind == 0) optind = 1; /* Don't scan ARGV[0], the program name. */ optstring = _getopt_initialize (argc, argv, optstring); __getopt_initialized = 1; } /* Test whether ARGV[optind] points to a non-option argument. Either it does not have option syntax, or there is an environment flag from the shell indicating it is not an option. The later information is only used when the used in the GNU libc. */ #ifdef _LIBC #define NONOPTION_P (argv[optind][0] != '-' || argv[optind][1] == '\0' \ || (optind < nonoption_flags_len \ && __getopt_nonoption_flags[optind] == '1')) #else #define NONOPTION_P (argv[optind][0] != '-' || argv[optind][1] == '\0') #endif if (nextchar == NULL || *nextchar == '\0') { /* Advance to the next ARGV-element. */ /* Give FIRST_NONOPT & LAST_NONOPT rational values if OPTIND has been moved back by the user (who may also have changed the arguments). */ if (last_nonopt > optind) last_nonopt = optind; if (first_nonopt > optind) first_nonopt = optind; if (ordering == PERMUTE) { /* If we have just processed some options following some non-options, exchange them so that the options come first. */ if (first_nonopt != last_nonopt && last_nonopt != optind) exchange ((char **) argv); else if (last_nonopt != optind) first_nonopt = optind; /* Skip any additional non-options and extend the range of non-options previously skipped. */ while (optind < argc && NONOPTION_P) optind++; last_nonopt = optind; } /* The special ARGV-element `--' means premature end of options. Skip it like a null option, then exchange with previous non-options as if it were an option, then skip everything else like a non-option. */ if (optind != argc && !strcmp (argv[optind], "--")) { optind++; if (first_nonopt != last_nonopt && last_nonopt != optind) exchange ((char **) argv); else if (first_nonopt == last_nonopt) first_nonopt = optind; last_nonopt = argc; optind = argc; } /* If we have done all the ARGV-elements, stop the scan and back over any non-options that we skipped and permuted. */ if (optind == argc) { /* Set the next-arg-index to point at the non-options that we previously skipped, so the caller will digest them. */ if (first_nonopt != last_nonopt) optind = first_nonopt; return -1; } /* If we have come to a non-option and did not permute it, either stop the scan or describe it to the caller and pass it by. */ if (NONOPTION_P) { if (ordering == REQUIRE_ORDER) return -1; optarg = argv[optind++]; return 1; } /* We have found another option-ARGV-element. Skip the initial punctuation. */ nextchar = (argv[optind] + 1 + (longopts != NULL && argv[optind][1] == '-')); } /* Decode the current option-ARGV-element. */ /* Check whether the ARGV-element is a long option. If long_only and the ARGV-element has the form "-f", where f is a valid short option, don't consider it an abbreviated form of a long option that starts with f. Otherwise there would be no way to give the -f short option. On the other hand, if there's a long option "fubar" and the ARGV-element is "-fu", do consider that an abbreviation of the long option, just like "--fu", and not "-f" with arg "u". This distinction seems to be the most useful approach. */ if (longopts != NULL && (argv[optind][1] == '-' || (long_only && (argv[optind][2] || !my_index (optstring, argv[optind][1]))))) { char *nameend; const struct option *p; const struct option *pfound = NULL; int exact = 0; int ambig = 0; int indfound = -1; int option_index; for (nameend = nextchar; *nameend && *nameend != '='; nameend++) /* Do nothing. */ ; /* Test all long options for either exact match or abbreviated matches. */ for (p = longopts, option_index = 0; p->name; p++, option_index++) if (!strncmp (p->name, nextchar, nameend - nextchar)) { if ((unsigned int) (nameend - nextchar) == (unsigned int) strlen (p->name)) { /* Exact match found. */ pfound = p; indfound = option_index; exact = 1; break; } else if (pfound == NULL) { /* First nonexact match found. */ pfound = p; indfound = option_index; } else /* Second or later nonexact match found. */ ambig = 1; } if (ambig && !exact) { if (opterr) fprintf (stderr, _("%s: option `%s' is ambiguous\n"), argv[0], argv[optind]); nextchar += strlen (nextchar); optind++; optopt = 0; return '?'; } if (pfound != NULL) { option_index = indfound; optind++; if (*nameend) { /* Don't test has_arg with >, because some C compilers don't allow it to be used on enums. */ if (pfound->has_arg) optarg = nameend + 1; else { if (opterr) if (argv[optind - 1][1] == '-') /* --option */ fprintf (stderr, _("%s: option `--%s' doesn't allow an argument\n"), argv[0], pfound->name); else /* +option or -option */ fprintf (stderr, _("%s: option `%c%s' doesn't allow an argument\n"), argv[0], argv[optind - 1][0], pfound->name); nextchar += strlen (nextchar); optopt = pfound->val; return '?'; } } else if (pfound->has_arg == 1) { if (optind < argc) optarg = argv[optind++]; else { if (opterr) fprintf (stderr, _("%s: option `%s' requires an argument\n"), argv[0], argv[optind - 1]); nextchar += strlen (nextchar); optopt = pfound->val; return optstring[0] == ':' ? ':' : '?'; } } nextchar += strlen (nextchar); if (longind != NULL) *longind = option_index; if (pfound->flag) { *(pfound->flag) = pfound->val; return 0; } return pfound->val; } /* Can't find it as a long option. If this is not getopt_long_only, or the option starts with '--' or is not a valid short option, then it's an error. Otherwise interpret it as a short option. */ if (!long_only || argv[optind][1] == '-' || my_index (optstring, *nextchar) == NULL) { if (opterr) { if (argv[optind][1] == '-') /* --option */ fprintf (stderr, _("%s: unrecognized option `--%s'\n"), argv[0], nextchar); else /* +option or -option */ fprintf (stderr, _("%s: unrecognized option `%c%s'\n"), argv[0], argv[optind][0], nextchar); } nextchar = (char *) ""; optind++; optopt = 0; return '?'; } } /* Look at and handle the next short option-character. */ { char c = *nextchar++; char *temp = my_index (optstring, c); /* Increment `optind' when we start to process its last character. */ if (*nextchar == '\0') ++optind; if (temp == NULL || c == ':') { if (opterr) { if (posixly_correct) /* 1003.2 specifies the format of this message. */ fprintf (stderr, _("%s: illegal option -- %c\n"), argv[0], c); else fprintf (stderr, _("%s: invalid option -- %c\n"), argv[0], c); } optopt = c; return '?'; } /* Convenience. Treat POSIX -W foo same as long option --foo */ if (temp[0] == 'W' && temp[1] == ';') { char *nameend; const struct option *p; const struct option *pfound = NULL; int exact = 0; int ambig = 0; int indfound = 0; int option_index; /* This is an option that requires an argument. */ if (*nextchar != '\0') { optarg = nextchar; /* If we end this ARGV-element by taking the rest as an arg, we must advance to the next element now. */ optind++; } else if (optind == argc) { if (opterr) { /* 1003.2 specifies the format of this message. */ fprintf (stderr, _("%s: option requires an argument -- %c\n"), argv[0], c); } optopt = c; if (optstring[0] == ':') c = ':'; else c = '?'; return c; } else /* We already incremented `optind' once; increment it again when taking next ARGV-elt as argument. */ optarg = argv[optind++]; /* optarg is now the argument, see if it's in the table of longopts. */ for (nextchar = nameend = optarg; *nameend && *nameend != '='; nameend++) /* Do nothing. */ ; /* Test all long options for either exact match or abbreviated matches. */ for (p = longopts, option_index = 0; p->name; p++, option_index++) if (!strncmp (p->name, nextchar, nameend - nextchar)) { if ((unsigned int) (nameend - nextchar) == strlen (p->name)) { /* Exact match found. */ pfound = p; indfound = option_index; exact = 1; break; } else if (pfound == NULL) { /* First nonexact match found. */ pfound = p; indfound = option_index; } else /* Second or later nonexact match found. */ ambig = 1; } if (ambig && !exact) { if (opterr) fprintf (stderr, _("%s: option `-W %s' is ambiguous\n"), argv[0], argv[optind]); nextchar += strlen (nextchar); optind++; return '?'; } if (pfound != NULL) { option_index = indfound; if (*nameend) { /* Don't test has_arg with >, because some C compilers don't allow it to be used on enums. */ if (pfound->has_arg) optarg = nameend + 1; else { if (opterr) fprintf (stderr, _("\ %s: option `-W %s' doesn't allow an argument\n"), argv[0], pfound->name); nextchar += strlen (nextchar); return '?'; } } else if (pfound->has_arg == 1) { if (optind < argc) optarg = argv[optind++]; else { if (opterr) fprintf (stderr, _("%s: option `%s' requires an argument\n"), argv[0], argv[optind - 1]); nextchar += strlen (nextchar); return optstring[0] == ':' ? ':' : '?'; } } nextchar += strlen (nextchar); if (longind != NULL) *longind = option_index; if (pfound->flag) { *(pfound->flag) = pfound->val; return 0; } return pfound->val; } nextchar = NULL; return 'W'; /* Let the application handle it. */ } if (temp[1] == ':') { if (temp[2] == ':') { /* This is an option that accepts an argument optionally. */ if (*nextchar != '\0') { optarg = nextchar; optind++; } else optarg = NULL; nextchar = NULL; } else { /* This is an option that requires an argument. */ if (*nextchar != '\0') { optarg = nextchar; /* If we end this ARGV-element by taking the rest as an arg, we must advance to the next element now. */ optind++; } else if (optind == argc) { if (opterr) { /* 1003.2 specifies the format of this message. */ fprintf (stderr, _("%s: option requires an argument -- %c\n"), argv[0], c); } optopt = c; if (optstring[0] == ':') c = ':'; else c = '?'; } else /* We already incremented `optind' once; increment it again when taking next ARGV-elt as argument. */ optarg = argv[optind++]; nextchar = NULL; } } return c; } } int getopt (argc, argv, optstring) int argc; char *const *argv; const char *optstring; { return _getopt_internal (argc, argv, optstring, (const struct option *) 0, (int *) 0, 0); } #endif /* Not ELIDE_CODE. */ #ifdef TEST /* Compile with -DTEST to make an executable for use in testing the above definition of `getopt'. */ int main (argc, argv) int argc; char **argv; { int c; int digit_optind = 0; while (1) { int this_option_optind = optind ? optind : 1; c = getopt (argc, argv, "abc:d:0123456789"); if (c == -1) break; switch (c) { case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': if (digit_optind != 0 && digit_optind != this_option_optind) printf ("digits occur in two different argv-elements.\n"); digit_optind = this_option_optind; printf ("option %c\n", c); break; case 'a': printf ("option a\n"); break; case 'b': printf ("option b\n"); break; case 'c': printf ("option c with value `%s'\n", optarg); break; case '?': break; default: printf ("?? getopt returned character code 0%o ??\n", c); } } if (optind < argc) { printf ("non-option ARGV-elements: "); while (optind < argc) printf ("%s ", argv[optind++]); printf ("\n"); } exit (0); } #endif /* TEST */ wmnet-1.06/getopt1.c100644 2376 2442 10704 6607324241 12550 0ustar kaoskaos/* getopt_long and getopt_long_only entry points for GNU getopt. Copyright (C) 1987,88,89,90,91,92,93,94,96,97 Free Software Foundation, Inc. This file is part of the GNU C Library. The GNU C Library is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. The GNU C Library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Library General Public License for more details. You should have received a copy of the GNU Library General Public License along with the GNU C Library; see the file COPYING.LIB. If not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #ifdef HAVE_CONFIG_H #include #endif #include "getopt.h" #if !defined (__STDC__) || !__STDC__ /* This is a separate conditional since some stdc systems reject `defined (const)'. */ #ifndef const #define const #endif #endif #include /* Comment out all this code if we are using the GNU C Library, and are not actually compiling the library itself. This code is part of the GNU C Library, but also included in many other GNU distributions. Compiling and linking in this code is a waste when using the GNU C library (especially if it is a shared library). Rather than having every GNU program understand `configure --with-gnu-libc' and omit the object files, it is simpler to just do this in the source for each such file. */ #define GETOPT_INTERFACE_VERSION 2 #if !defined (_LIBC) && defined (__GLIBC__) && __GLIBC__ >= 2 #include #if _GNU_GETOPT_INTERFACE_VERSION == GETOPT_INTERFACE_VERSION #define ELIDE_CODE #endif #endif #ifndef ELIDE_CODE /* This needs to come after some library #include to get __GNU_LIBRARY__ defined. */ #ifdef __GNU_LIBRARY__ #include #endif #ifndef NULL #define NULL 0 #endif int getopt_long (argc, argv, options, long_options, opt_index) int argc; char *const *argv; const char *options; const struct option *long_options; int *opt_index; { return _getopt_internal (argc, argv, options, long_options, opt_index, 0); } /* Like getopt_long, but '-' as well as '--' can indicate a long option. If an option that starts with '-' (not '--') doesn't match a long option, but does match a short option, it is parsed as a short option instead. */ int getopt_long_only (argc, argv, options, long_options, opt_index) int argc; char *const *argv; const char *options; const struct option *long_options; int *opt_index; { return _getopt_internal (argc, argv, options, long_options, opt_index, 1); } #endif /* Not ELIDE_CODE. */ #ifdef TEST #include int main (argc, argv) int argc; char **argv; { int c; int digit_optind = 0; while (1) { int this_option_optind = optind ? optind : 1; int option_index = 0; static struct option long_options[] = { {"add", 1, 0, 0}, {"append", 0, 0, 0}, {"delete", 1, 0, 0}, {"verbose", 0, 0, 0}, {"create", 0, 0, 0}, {"file", 1, 0, 0}, {0, 0, 0, 0} }; c = getopt_long (argc, argv, "abc:d:0123456789", long_options, &option_index); if (c == -1) break; switch (c) { case 0: printf ("option %s", long_options[option_index].name); if (optarg) printf (" with arg %s", optarg); printf ("\n"); break; case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': if (digit_optind != 0 && digit_optind != this_option_optind) printf ("digits occur in two different argv-elements.\n"); digit_optind = this_option_optind; printf ("option %c\n", c); break; case 'a': printf ("option a\n"); break; case 'b': printf ("option b\n"); break; case 'c': printf ("option c with value `%s'\n", optarg); break; case 'd': printf ("option d with value `%s'\n", optarg); break; case '?': break; default: printf ("?? getopt returned character code 0%o ??\n", c); } } if (optind < argc) { printf ("non-option ARGV-elements: "); while (optind < argc) printf ("%s ", argv[optind++]); printf ("\n"); } exit (0); } #endif /* TEST */