[sessions::irc::later] now just do a !get <id> in query

lib/sessions/irc.pm

@@ -118,9 +118,6 @@ sub setConf
 {
     commands::parser::setConf($irc, $dbh, $log, \%lastID);
 
-    $sessions::irc::later::irc = $irc;
-    $sessions::irc::later::log = $log;
-
     $sites::parser::irc = $irc;
     $sites::parser::log = $log;
 }

lib/sessions/irc/later.pm

 package sessions::irc::later;
 
 use lib "$FindBin::Bin/lib/";
-use utils::db;
-use utils::print;
-
-our $irc;
-our $log;
+use commands::get;
 
 sub consume
 {
 	my ($nick, $id) = @_;
 
-    my $dbh = utils::db::main_session();
-	my $sth = $dbh->prepare('SELECT url, sender, title FROM playbot WHERE id = ?');
-	$log->error("Couldn't prepare querie; aborting") unless (defined $sth);
-
-	$sth->execute($id)
-		or $log->error("Couldn't finish transaction: " . $dbh->errstr);
-
-	if ($sth->rows) {
-		my @donnees = $sth->fetchrow_array;
-
-		$irc->yield(privmsg => $nick => '['.$id.'] '.$donnees[2].' | '.$donnees[1]);
-		$irc->yield(privmsg => $nick => $donnees[0]);
-    
-        # save the content in the history
-        my $sth2 = $dbh->prepare('
-            INSERT INTO playbot_chan (content, chan, sender_irc)
-            VALUES (?,?,?)');
-        $log->error("Couldn't prepare querie; aborting") unless (defined $sth2);
-        $sth2->execute($id, $nick, $nick)
-            or $log->error("Couldn't finish transaction: " . $dbh->errstr);
-	}
-
-    $dbh->commit;
+    my @args = ($nick, [$nick], $id);
+    commands::get::exec(@args);
 }
 
 1;