One suggest...
Use other format to GetOptions ...
#-- don´t need default values (you use boolean check)
my ( $listfile, $rbllist, $debug );
GetOptions(
'listfile=s' => \$listfile,
'rbllist=s' => \$rbllist,
'debug' => \$debug,
);
Usualy you can check valid of parameters sequence
It have the same effect, but you don´t need to use %opt hash.
my $optOk GetOptions( ... , 'help' => \$help );
unless ( $optOk || $help ) {
print $usage, "\n";
exit 1;
}
Your script is very good !! But I´m an perl monger ;)
2007/7/3, Ed Ravin <[EMAIL PROTECTED]>:
I've rewritten the prototype rbl.monitor that was submitted by Tim
Hanes a while back. This version uses asynchronous DNS requests
(using Net::DNS), and allows for an external list of the RBL zones
to check. It also has a master timeout in case it gets stuck on
any of the DNS queries.
Please let me know what you think of it. I haven't put this in
Sourceforge yet, I want to make sure it runs in at least one other
environment besides mine.
-- Ed
_______________________________________________
mon mailing list
mon@linux.kernel.org
http://linux.kernel.org/mailman/listinfo/mon
_______________________________________________
mon mailing list
mon@linux.kernel.org
http://linux.kernel.org/mailman/listinfo/mon
