line len

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@920 c11ca15a-4712-0410-83d8-924469b57eb5

diff --git a/src/IRC/Irc.pl b/src/IRC/Irc.pl
index f230cf7b6b0d2811d3c96ea8fdf5297849e87a52..8b974c0b7f8fab9ef091d3eec4808753210c3c49 100644 (file)
--- a/src/IRC/Irc.pl
+++ b/src/IRC/Irc.pl
@@ -18,6 +18,7 @@ use vars qw($b_blue $ob);
 use vars qw(@ircServers);
 
 $nickserv      = 0;
+$maxlinelen    = 400;
 
 sub ircloop {
     my $error  = 0;
@@ -109,12 +110,14 @@ sub irc {
        &ERROR("If this is still a problem, please contact the maintainer.");
        return 1;
     }
+    $conn->maxlinelen($maxlinelen);
 
     if ($param{'ircNick2'}) {
        # prep for real multiple nick/server connects
        # FIXME: all code should get nick/server out of self, not config
        $args{'Nick'} = $param{'ircNick2'};
        my $conn = $irc->newconn(%args);
+       $conn->maxlinelen($maxlinelen);
     }
 
     if ($param{'ircNick3'}) {
@@ -122,6 +125,7 @@ sub irc {
        # FIXME: all code should get nick/server out of self, not config
        $args{'Nick'} = $param{'ircNick3'};
        my $conn = $irc->newconn(%args);
+       $conn->maxlinelen($maxlinelen);
     }
 
     &clearIRCVars();