From bf87c30badc4f947dc550f86b9d2892b88e1fc35 Mon Sep 17 00:00:00 2001
From: Aorimn <aorimn@gmail.com>
Date: Sat, 14 Nov 2015 23:02:37 +0100
Subject: [PATCH] =?UTF-8?q?Diminution=20de=20la=20taille=20des=20messages?=
 =?UTF-8?q?=20envoy=C3=A9s?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Permet d'avoir les messages entiers lors de split, ce malgré le mask
potentiellement mis en jeu par le serveur
---
 bot.pl | 36 ++++++++++++++++++------------------
 1 file changed, 18 insertions(+), 18 deletions(-)

diff --git a/bot.pl b/bot.pl
index 5c7d1a6..55215e5 100755
--- a/bot.pl
+++ b/bot.pl
@@ -1,37 +1,37 @@
 #!/usr/bin/perl
 
-# 
+#
 # Bot IRC
-# 
+#
 # @author   TC (aka Romain Coltel)
 # @date     2010-03-26 - First release
-# 
-# 
+#
+#
 
 BEGIN {
 	use strict;
 	use warnings;
-	
-	
+
+
 	use Data::Dumper;
-	
+
 	use Core::Command_line_args;
 	use Core::Config;
 	use Core::Getpass;
 	use Core::Logging;
-	
-	
+
+
 	# Ça c'est pour utiliser nos librairies avant celles installées sur le système
 	# Ça sert notamment pour Net::IRC, vu que je l'ai patchée (http://coltel.iiens.net/patch_Net_IRC)
 	my $incpath = pop @INC;
 	unshift @INC, $incpath;
-	
-	
+
+
 	# On vérifie qu'on n'a pas trop de droits
 	open ID, "id |" or die "Unable to run `id`\n";
 	my $id = <ID>;
 	close ID;
-	
+
 	if($id =~ /uid=(\d+)\(([A-Za-z]+)\)/)
 	{
 		if($1 == 0 || $2 eq "root")
@@ -40,27 +40,27 @@ BEGIN {
 			exit 2;
 		}
 	}
-	
-	
+
+
 	# On regarde les arguments passés en ligne de commande ensuite
 	if($#ARGV != -1)
 	{
 		# S'il y a des arguments, on jette un oeil dessus
 		Command_line_args::process_args(\@ARGV);
 	}
-	
+
 	# On initialise le module en charge des logs
 	our $logger = new Logging(
 							$Config::debug > 1 ? "STDOUT": $Config::logfile,
 							1
 							);
 	$logger->utf8(1);
-	
+
 	if($Config::want_nick_register)
 	{
 		# Récupérons notre mdp Nickserv de celui qui lance le bignouf
 		my $pass = Getpass::get_pass("NickServ");
-		
+
 		$Config::passwd = $pass;
 	}
 }
@@ -115,7 +115,7 @@ $logger->info($Hook::handlers_routines_done);
 # Le serveur irc sur irc.iiens.net rajoute ":nick!user@host " au début des messages que les personnes envoient
 # Donc lorsque le bot répond, il faut enlever cette longueur de la ligne, sinon le message est tronqué
 my $hostname = hostfqdn();
-my $new_msg_len = $Hook::conn->maxlinelen - length($Config::nick) - length($ENV{USER}) - length($hostname) - 4;
+my $new_msg_len = $Hook::conn->maxlinelen - length($Config::nick) - length($ENV{USER}) - length($hostname) - 10;
 
 $logger->debug("New maxlinelen: $new_msg_len");
 $Hook::conn->maxlinelen($new_msg_len);
-- 
GitLab