diff --git a/lib/sites/parser.pm b/lib/sites/parser.pm index fab14dedab37112f61ec805d9c3ab0725d517b92..1bcb2b37922dd4f40da032ab2f7bc70f41b3e3ad 100644 --- a/lib/sites/parser.pm +++ b/lib/sites/parser.pm @@ -9,6 +9,7 @@ use zippy; use lib "$FindBin::Bin/lib/"; use commands::parser; use commands::tag; +use utils::print; our $irc; our $dbh; @@ -79,23 +80,8 @@ sub parse { } # message sur irc - my $msg = '['.$id.'] '.$content{'title'}; - if (defined $content{'author'}) { - $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); + $content{'id'} = $id, + $irc->yield(privmsg => $chan => utils::print::print(\%content)); # insertion du chan my $sth = $dbh->prepare_cached('