Re: [Mon-devel] [Mon-commit] mon/mon.d dns-query.monitor, 1.1.1.1, 1.2

[Augie S. <aug...@gm...>]

Pretty trivial; I just needed a DNS monitor for both UDP and TCP; the
changes below add a '-T' flag for TCP queries.  --Augie

On Feb 7, 2008 2:31 PM, Augie Schwer <as...@us...> wrote:
> Update of /cvsroot/mon/mon/mon.d
> In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv1090/mon.d
>
> Modified Files:
>         dns-query.monitor
> Log Message:
> Add support for TCP queries.
>
> Index: dns-query.monitor
> ===================================================================
> RCS file: /cvsroot/mon/mon/mon.d/dns-query.monitor,v
> retrieving revision 1.1.1.1
> retrieving revision 1.2
> diff -C2 -d -r1.1.1.1 -r1.2
> *** dns-query.monitor   9 Jun 2004 05:18:06 -0000       1.1.1.1
> --- dns-query.monitor   7 Feb 2008 22:31:31 -0000       1.2
> ***************
> *** 6,9 ****
> --- 6,10 ----
>   #       -t timeout         timeout (defaults to 5 seconds)
>   #       -n name            name to query, defaults to "mailhost"
> + #     -T                 Use TCP instead of default UDP.
>   #
>   # $Id$
> ***************
> *** 31,38 ****
>
>   my %opt;
> ! getopts ("t:n:", \%opt);
>
>   my $TIMEOUT = defined $opt{"t"} ? $opt{"t"} : 5;
>   my $NAME = $opt{"n"} || "mailhost";
>
>   my $r = Net::DNS::Resolver->new;
> --- 32,40 ----
>
>   my %opt;
> ! getopts ("t:n:T", \%opt);
>
>   my $TIMEOUT = defined $opt{"t"} ? $opt{"t"} : 5;
>   my $NAME = $opt{"n"} || "mailhost";
> + my $USETCP = $opt{'T'};
>
>   my $r = Net::DNS::Resolver->new;
> ***************
> *** 43,47 ****
>   }
>
> ! $r->udp_timeout ($TIMEOUT);
>
>   my (%good, %bad);
> --- 45,57 ----
>   }
>
> ! if ($USETCP)
> ! {
> !       $r->tcp_timeout ($TIMEOUT);
> !       $r->usevc (1);
> ! }
> ! else
> ! {
> !       $r->udp_timeout ($TIMEOUT);
> ! }
>
>   my (%good, %bad);
>
>
> -------------------------------------------------------------------------
> This SF.net email is sponsored by: Microsoft
> Defy all challenges. Microsoft(R) Visual Studio 2008.
> http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/
> _______________________________________________
> Mon-commit mailing list
> Mon...@li...
> https://lists.sourceforge.net/lists/listinfo/mon-commit
>



-- 
Augie Schwer    -    Augie@Schwer.us    -    http://schwer.us
Key fingerprint = 9815 AE19 AFD1 1FE7 5DEE 2AC3 CB99 2784 27B0 C072