New method commands::parser:setConf()

PlayBot.pl

@@ -59,8 +59,7 @@ my $dbh = DBI->connect('DBI:mysql:'.$conf->{'bdd'}.';host='.$conf->{'host'}, $co
 	})
 	or die("Couldn't connect to database: ".DBI->errstr);
 
-$commands::parser::irc = $irc;
-$commands::parser::dbh = $dbh;
+$commands::parser::setConf($irc, $dbh);
 
 # Evenements que le bot va gérer
 POE::Session->create(
@@ -141,8 +140,7 @@ sub cycle
 
     Module::Refresh->refresh;
 
-    $commands::parser::irc = $irc;
-    $commands::parser::dbh = $dbh;
+    $commands::parser::setConf($irc, $dbh);
     $commands::parser::lastID = $lastID;
 }
 

lib/commands/parser.pm

@@ -7,14 +7,21 @@ our @EXPORT_OK = qw(exec);
 use lib "$FindBin::Bin/lib/";
 use commands::fav;
 use commands::later;
-#use later;
-#use tag;
-#use help;
+use commands::tag;
 
-our $irc;
-our $dbh;
 our $lastID;
 
+my $irc;
+
+sub setConf {
+    my ($ircNew, $dbh) = @_;
+
+    $commands::fav::dbh = $dbh;
+    $commands::tag::dbh = $dbh;
+
+    $irc = $ircNew;
+}
+
 sub exec {
 	my ($kernel, $user, $chan, $msg) = @_;
 	my ($nick,$mask) = split(/!/,$user);