Command !fav corrections

 - new arg $nick to exec()
 - better regex
 - remove useless $irc

lib/commands/fav.pm

@@ -4,11 +4,10 @@ require Exporter;
 our @ISA = qw(Exporter);
 our @EXPORT_OK = qw(exec);
 
-our $irc;
 our $dbh;
 
 sub exec {
-    my $id = shift;
+    my ($nick, $id) = @_;
 
     my $sth = $dbh->prepare_cached('SELECT user FROM playbot_codes WHERE nick = ?');
     $sth->execute($nick)
@@ -23,3 +22,5 @@ sub exec {
 	        or $log->error("Couldn't finish transaction: " . $dbh->errstr);
     }
 }
+
+1;

lib/commands/parser.pm

@@ -19,10 +19,11 @@ sub exec {
 	my ($kernel, $user, $chan, $msg) = @_;
 	my ($nick,$mask) = split(/!/,$user);
 
-    if ($msg =~ /^!fav( ([0-9]+))?/) {
-        $commands::fav::irc = $irc;
+    if ($msg =~ /^!fav(?: ([0-9]+))?/) {
+        $id = ($1) ? $1 : $lastID;
+
         $commands::fav::dbh = $dbh;
-        commands::fav::exec($2)
+        commands::fav::exec($nick, $id)
 	}
 	elsif ($msg =~ /^!later(?: ([0-9]+))?(?: in ([0-9]*)?(h|m|s)?)?/) {
         my $id = ($1) ? $1 : $lastID;