Principales modif sur Remind.pm, tout le module a été recodé

pour mieux gérer les reminds

Core/ChangeNickController.pm

@@ -54,8 +54,6 @@ sub functions
 
 
 
-
-
 # ###
 #  register
 # Enregistre une fonction pour un changement de nom
@@ -92,6 +90,7 @@ sub change
 	$self->nicks->{$old_nick} = $new_nick;
 	
 	my $i = 0;
+	local $@;
 	foreach my $ref_function (@{$self->functions})
 	{
 		$@ = undef;
@@ -101,7 +100,7 @@ sub change
 		if($@)
 		{
 			# Peut-être faire quelque chose ici...
-			$Hook::conn->privmsg("#dynamiite_test", "Fuuuuuck $i !!!! ".$@);
+			$Hook::conn->privmsg($Config::owner, "Fuuuuuck $i !!!! ".$@);
 			warn $@;
 			undef $@;
 		}

Core/Config.pm

@@ -13,8 +13,12 @@ our $save_dir     = "./Vars/";
 our $modules_dir  = "./Modules/";
 # Endroit où on peut voir les commandes
 our $commands_dir = "./Modules/Commands/";
+
 # Endroit où on peut voir les logs
 our $logs_dir = "./Logs/";
+# Fichier de logs
+our $logfile = "./Logs/mainlogs";
+
 
 
 #
@@ -30,7 +34,7 @@ our $passwd = '';
 # Informations concernant le Bot :
 our $username = "NetIRC.Bot"; # En un seul mot...
 our $ircname  = $nick.' by TC';
-our $version  = '0.1.2';
+our $version  = '0.1.3';
 
 # Channel sur lequel on veut que le Bot aille dès la connexion :
 our $channel  = '#bots';
@@ -149,7 +153,7 @@ sub get_mysql_infos
 our $debug    = 0;
 
 # Le signe à mettre devant une commande
-our $command_sign = '!';
+our $command_sign = "'";
 
 
 1;

Core/Hook.pm

@@ -11,6 +11,7 @@ use Core::VarLoader;
 
 
 
+
 # On garde le nom du programme dans un coin
 our $nom_prog = $0;
 
@@ -360,7 +361,23 @@ sub on_topic
 	}
 } # Fin on_topic
 
+# On reçoit la liste des noms
+sub on_namreply
+{
+	my ($self, $event) = @_;
+	
+	use Data::Dumper; # TODO (prochaine version)
+	print Data::Dumper->Dump([$event], [qw(namreply_event)]);
+} # Fin on_namreply
+
+# On reçoit un indicateur de fin de liste de réponse pour les noms
+sub on_endofnames
+{
+	my ($self, $event) = @_;
 	
+	use Data::Dumper; # TODO (prochaine version)
+	print Data::Dumper->Dump([$event], [qw(endofnames_event)]);
+} # Fin on_endofnames
 
 
 

Core/Logging.pm

@@ -416,7 +416,7 @@ sub pending_in_file
 	{
 		if($self->right_align)
 		{
-			open LOG, ">", $self->file or return 0;
+			open LOG, ">>", $self->file or return 0;
 			printf LOG "%-90s", $text;
 			close LOG;
 			

Modules/Chans.pm

@@ -16,6 +16,7 @@ our %chans = ();
 
 
 
+
 # Commande accessible que par l'owner
 my $right = "owner";
 
@@ -176,6 +177,7 @@ sub parse_modes
 {
 	my ($chan, $modes) = @_;
 	$chan = lc $chan;
+	$modes =~ s/\s*$//;
 	
 	# On sépare les modes des paramètres
 	my @modes_changed = split /\s+/, $modes;

Modules/Debuglvl.pm

@@ -55,6 +55,9 @@ sub change_level
 		return 0;
 	}
 	
+	my $new_logfile = $Config::debug > 1 ? "STDOUT": $Config::logfile;
+	$conn->{"log"}->file($new_logfile);
+	
 	return 1;
 } # Fin change_level
 

Modules/Postit.pm

@@ -314,7 +314,7 @@ sub postit_save
 # ###
 sub postit_load
 {
-	shift;
+	shift; # Pas besoin de la connexion au serveur
 	my $folder = shift;
 	my $file_postit = "/postits".$Config::suffixe.".sav";
 	

bot.pl

@@ -57,7 +57,7 @@ use Core::Refresh;
 
 # On initialise le module en charge des logs
 our $logger = new Logging(
-						  $Config::debug > 1 ? "STDOUT": "Logs/mainlogs",
+						  $Config::debug > 1 ? "STDOUT": $Config::logfile,
 						  1,
 						  1
 						 );
@@ -84,6 +84,8 @@ $Hook::conn->add_handler('topic', \&Hook::on_topic);					# Quelqu'un vient de ch
 $Hook::conn->add_handler('311', \&Hook::on_whoisuser);					# On reçoit une réponse à un /whois
 $Hook::conn->add_handler('315', \&Hook::on_endofwho);					# Fin de la /who liste
 $Hook::conn->add_handler('352', \&Hook::on_whoreply);					# Une réponse à un /who
+$Hook::conn->add_handler('353', \&Hook::on_namreply);					# On vient de recevoir une liste de pseudos
+$Hook::conn->add_handler('366', \&Hook::on_endofnames);					# On vient de recevoir une liste de pseudos
 $Hook::conn->add_handler('401', \&Hook::on_nosuchnick);					# On envoie un truc à quelqu'un qui n'existe pas
 $Hook::conn->add_handler('404', \&Hook::on_cannotsendtochan);			# On ne peut pas envoyer sur le chan, dommage.
 $Hook::conn->add_handler('405', \&Hook::on_toomanychannels);			# On n'a déjà join un peu trop de chan