Doesn't matter I worked it out.. I think. Testing the attached now. If anyone wants to glance it over it feel free to give feedback. Please excuse my rusty Perl.
Regards, Lee #################################################################################### #!/usr/bin/perl # # Scan wireless interfaces for available networks. # Requires SSID broadcast is turned on in the AP # # Version 1.00 (10 March 2006) # # Copyright 2002, Lee Sanders <[EMAIL PROTECTED]> # # License: GNU GPL v2, see http://www.gnu.org/copyleft/gpl.html # # Some inspiration is taked from other mon monitors, specifically: # bgp.monitor by Marc Hauswirth, Safe Host SA <[EMAIL PROTECTED]> # fping.monitor by Jim Trocki, [EMAIL PROTECTED] #################################################################################### use strict; use warnings; use Getopt::Std; my %opt; getopts ("h:s:T", \%opt); sub usage { print <<EOF; usage: scanwireless.monitor [-h] -s ssid interface ... -h Print this help page -s ssid The SSID of the wireless network to search for EOF exit; } usage if ($opt{"h"}); my $network = $opt{"s"} || die "SSID Not specified with -s ssid"; my $found=0; my @scan; my $line; foreach my $interface (@ARGV) { @scan = `iwlist $interface scan`; # scan the wireless interface for networks # Parse the scan for our network on the for $line (@scan) { if ($line =~ /^\s+ESSID:"(.*)"\s*$/) { my $sid = $1; if ($sid eq $network) { $found=1; } } } } if ($#ARGV >= 0) { if (!$found) { print "--------- Scan for SSID $network ---------------------------\n"; print "@scan\n"; print "--------------------------------------------------------------\n"; exit 1; } } exit 0; ################################################## On Sat, 11 Mar 2006 10:44 pm, Jim Trocki wrote: > On Sat, 11 Mar 2006, Lee Sanders wrote: > > Is that all there is to it, any hints/tips ? > > very close. > > the first line of output from the monitor script is the summary of all > the failures, usually a list of hosts from the hostgroup that failed, > or alternatively some text that would be suitable to be put into the > subject of an email, or something sent to an alphanumeric pager. > > have a look at the slides from the mon talk for some examples: > > ftp://ftp.kernel.org/pub/software/admin/mon/mon-talk-0.4.tar.gz _______________________________________________ mon mailing list mon@linux.kernel.org http://linux.kernel.org/mailman/listinfo/mon