Skip to content
Extraits de code Groupes Projets
Valider c0b39597 rédigé par Alexandre Morignot's avatar Alexandre Morignot
Parcourir les fichiers

missing file

parent c06343d8
Aucune branche associée trouvée
Aucune étiquette associée trouvée
Aucune requête de fusion associée trouvée
...@@ -9,6 +9,7 @@ use zippy; ...@@ -9,6 +9,7 @@ use zippy;
use lib "$FindBin::Bin/lib/"; use lib "$FindBin::Bin/lib/";
use commands::parser; use commands::parser;
use commands::tag; use commands::tag;
use utils::print;
our $irc; our $irc;
our $dbh; our $dbh;
...@@ -79,23 +80,8 @@ sub parse { ...@@ -79,23 +80,8 @@ sub parse {
} }
# message sur irc # message sur irc
my $msg = '['.$id.'] '.$content{'title'}; $content{'id'} = $id,
if (defined $content{'author'}) { $irc->yield(privmsg => $chan => utils::print::print(\%content));
$msg .= ' | '.$content{'author'};
}
if (defined $content{'duration'}) {
my $h = int($content{'duration'} / 3600);
my $m = int(($content{'duration'} % 3600) / 60);
my $s = int(($content{'duration'} % 3600) % 60);
$msg .= ' (';
$msg .= sprintf("%02d:", $h) if ($h > 0);
$msg .= sprintf("%02d:", $m);
$msg .= sprintf("%02d", $s);
$msg .= ')';
}
$irc->yield(privmsg => $chan => $msg);
# insertion du chan # insertion du chan
my $sth = $dbh->prepare_cached(' my $sth = $dbh->prepare_cached('
......
0% Chargement en cours ou .
You are about to add 0 people to the discussion. Proceed with caution.
Veuillez vous inscrire ou vous pour commenter