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