Gentoo: libspf2 DNS response buffer overflow

2 More Discussions You Might Find Interesting

1. AIX

nim mksysb buffer overflow error

Hi, I am trying to backup a system ("client") through a slow network using "nim mksysb" on a nim server ("master") The backup starts, but doesn't success. Thanks if you can help me to resolve this problem : Creating information file (/image.data) for rootvg... Creating list of files to...

2. UNIX for Dummies Questions & Answers

Printer buffer overflow

I have an Oki-Page 14ex with 4MB of RAM. Whenever I print large documents or a several small documents, I get a buffer overflow. Can anyone help? Thanks. If there is any additional information you need, please feel free to ask. Tim

LEARN ABOUT DEBIAN

poe::component::irc::cookbook::resolver

POE::Component::IRC::Cookbook::Resolver(3pm)		User Contributed Perl Documentation	      POE::Component::IRC::Cookbook::Resolver(3pm)

NAME

       POE::Component::IRC::Cookbook::Resolver - A bot that can resolve DNS records

SYNOPSIS

       This bot uses POE::Component::Client::DNS to DNS records for channel members.

DESCRIPTION

	#!/usr/bin/env perl

	use strict;
	use warnings;
	use IRC::Utils qw(parse_user);
	use POE;
	use POE::Component::Client::DNS;
	use POE::Component::IRC::State;
	use POE::Component::IRC::Plugin::AutoJoin;
	use POE::Component::IRC::Plugin::BotCommand;

	POE::Session->create(
	    package_states => [
		main => [ qw(_start irc_botcmd_resolve dns_response) ]
	    ],
	);

	$poe_kernel->run();

	sub _start {
	    my $heap = $_[HEAP];
	    my $irc = POE::Component::IRC::State->spawn(
		Nick   => 'resolver_bot',
		Server => 'irc.freenode.net',
	    );
	    $heap->{irc} = $irc;

	    $irc->plugin_add('AutoJoin', POE::Component::IRC::Plugin::AutoJoin->new(
		Channels => [ '#test_channel1', '#test_channel2' ]
	    ));

	    $irc->plugin_add('BotCommand', POE::Component::IRC::Plugin::BotCommand->new(
		Commands => {
		   resolve => 'Usage: resolve <host>'
		}
	    ));

	    $heap->{dns} = POE::Component::Client::DNS->spawn();

	    $irc->yield(register => 'botcmd_resolve');
	    $irc->yield('connect');
	    return;
	}

	sub irc_botcmd_resolve {
	    my $dns = $_[HEAP]->{dns};
	    my $nick = parse_user( $_[ARG0] );
	    my ($channel, $host) = @_[ARG1, ARG2];

	    my $res = $dns->resolve(
		event => 'dns_response',
		host => $host,
		context => {
		    channel => $channel,
		    nick    => $nick,
		},
	    );

	    $poe_kernel->yield(dns_response => $res) if $res;
	    return;
	}

	sub dns_response {
	    my $irc = $_[HEAP]->{irc};
	    my $res = $_[ARG0];
	    my @answers = $res->{response}
		? map { $_->rdatastr } $res->{response}->answer()
		: ();

	    $irc->yield(
		'privmsg',
		$res->{context}->{channel},
		$res->{context}->{nick} . (@answers
		    ? ": @answers"
		    : ': no answers for "' . $res->{host} . '"')
	    );

	    return;
	}

AUTHOR

       Hinrik Oern Sigur`sson, hinrik.sig@gmail.com

perl v5.14.2							    2011-12-07			      POE::Component::IRC::Cookbook::Resolver(3pm)

Security Advisories (RSS)