[Netpass-devel] NetPass/bin rogue-dhcp-detect.pl,1.1,1.2

[rcolantuoni <rco...@us...>]

Update of /cvsroot/netpass/NetPass/bin
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19949

Modified Files:
	rogue-dhcp-detect.pl 
Log Message:
Added comments, standard option checking


Index: rogue-dhcp-detect.pl
===================================================================
RCS file: /cvsroot/netpass/NetPass/bin/rogue-dhcp-detect.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- rogue-dhcp-detect.pl	25 Apr 2005 19:08:13 -0000	1.1
+++ rogue-dhcp-detect.pl	25 Apr 2005 20:03:35 -0000	1.2
@@ -1,6 +1,60 @@
 #!/opt/perl/bin/perl -w
+#
+#   $Header$
+#
+#   (c) 2004 University at Buffalo.
+#   Available under the "Artistic License"
+#   http://www.gnu.org/licenses/license-list.html#ArtisticLicense
+
+=head1 NAME
+
+rogue-dhcp-detect.pl - sniffs NetPass interfaces for traffic from rogue dhcp servers.
+
+=head1 SYNOPSIS
+
+ rogue-dhcp-detect.pl [-q] [-D] [-c cstr] [-U dbuser/dbpass]
+     -q             be quiet. exit status only.
+     -D             enable debugging
+     -c             db connect string
+     -U             db user[/pass]
+
+=head1 OPTIONS
+
+=over 8
+
+=item B<-q>
+
+Be quiet, don't print anything. Just exit with non-zero status if
+an error occurred. Otherwise, exit with zero status.
+
+=item B<-D>
+
+Enable debugging output.
+
+=item B<-c cstr>
+
+Connect to alternate database.
+
+=item B<-U user/pass>
+
+Credentials to connect to the database with.
+
+=back
+
+=head1 DESCRIPTION
+
+This script fetches all configured interfaces (see L<netpass.conf>) and will continuously
+scan each interface for dhcp server traffic from unknown devices.
+If an invalid device is sending dhcp server traffic, the port is disabled.
+
+=head1 AUTHOR
+
+Rob Colantuoni <rg...@bu...>
+
+=cut
 
 use strict;
+use threads;
 use Getopt::Std;
 use Pod::Usage;
 
@@ -12,9 +66,12 @@
 use FileHandle;
 use IO::Select;
 
-#NetPass::LOG::init [ 'reset', 'local0' ]; #*STDOUT;
+BEGIN {
+    use Config;
+    $Config{useithreads} or die "Recompile Perl with threads to run this program.";
+}
 
-#$SIG{CHLD} = "IGNORE";
+#NetPass::LOG::init [ 'rogue-dhcp', 'local0' ]; #*STDOUT;
 
 my %opts;