use strict;
use warnings;
use vars qw($VERSION %IRSSI);
use Irssi 20020324;

$VERSION = "0.01";
%IRSSI = (
  name        => "dnserror",
  description => "don't stop reconnecting on a dns error",
  url         => "http://explodingferret.com/linux/dnserror.pl",
  authors     => "ferret",
  contact     => "ferret(tA)explodingferret(moCtoD)",
  licence     => "Public Domain",
  changed     => "2007-10-10",
  changes     => "",
  modules     => "",
  commands    => "",
);

Irssi::print "$IRSSI{name} version $VERSION loaded.";

sub sig_scf {
  my ($server) = @_;
  $server->{dns_error} and print "DNS error with $server->{tag}";
}

Irssi::signal_add_first( 'server connect failed'     => \&sig_scf      );