ws

[infobot.git] / src / IRC / Irc.pl

diff --git a/src/IRC/Irc.pl b/src/IRC/Irc.pl
index fda552156605c9f7498480bf45014c194cd95046..ad557ae6cc9dd8ec75037aedc794193fada20894 100644 (file)
--- a/src/IRC/Irc.pl
+++ b/src/IRC/Irc.pl
@@ -17,15 +17,6 @@ use vars qw($notcount $nottime $notsize $msgcount $msgtime $msgsize
 use vars qw($b_blue $ob);
 use vars qw(@joinchan @ircServers);
 
-# static scalar variables.
-$mask{ip}      = '(\d+)\.(\d+)\.(\d+)\.(\d+)';
-$mask{host}    = '[\d\w\_\-\/]+\.[\.\d\w\_\-\/]+';
-$mask{chan}    = '[\#\&]\S*|_default';
-my $isnick1    = 'a-zA-Z\[\]\{\}\_\`\^\|\\\\';
-my $isnick2    = '0-9\-';
-$mask{nick}    = "[$isnick1]{1}[$isnick1$isnick2]*";
-$mask{nuh}     = '\S*!\S*\@\S*';
-
 $nickserv      = 0;
 
 sub ircloop {
@@ -111,7 +102,11 @@ sub irc {
     $conn = $irc->newconn(%args);
 
     if (!defined $conn) {
-       &ERROR("internal: perl IRC connection object does not exist.");
+       &ERROR("IRC: connection failed.");
+       &ERROR("add \"set ircHost 0.0.0.0\" to your config. If that does not work");
+       &ERROR("Please check /etc/hosts to see if you have a localhost line like:");
+       &ERROR("127.0.0.1   localhost    localhost");
+       &ERROR("If this is still a problem, please contact the maintainer.");
        return 1;
     }
 
@@ -830,7 +825,7 @@ sub closeDCC {
 
     foreach $type (keys %dcc) {
        next if ($type ne uc($type));
- 
+
        my $nick;
        foreach $nick (keys %{ $dcc{$type} }) {
            next unless (defined $nick);