====== Script irssi pour afficher ce que joue MOC ======

===== Introduction =====
Ceci est un petit script Perl pour [[doc:reseau:irssi|irssi]] inspiré du script //[[https://github.com/irssi/scripts.irssi.org/blob/gh-pages/scripts/listen.pl|listen.pl]]// qui permet aux utilisateurs de [[doc:media:moc|MOC]] de partager avec les membres d'un salon IRC la chanson en cours de lecture dans ce chouette petit lecteur audio.

===== Installation =====
Copiez le code suivant dans le dossier //$HOME/.irssi/scripts// :
<file perl mocp.pl>
use strict;
use Irssi;
use Irssi::Irc;

use vars qw($VERSION %IRSSI);
$VERSION = "0.1";
%IRSSI = (
   authors         => "sogal",
   contact         => "sogal\@member.fsf.org",
   name            => "mocp",
   description     => "A script that show others what MOC is currently playing",
   license         => "GNU GPLv2 or later",
   changed         => "Tue Mar 22 16:51:40 CET 2016"
);

# Usage:
# 1: load the script
# 2: use /moc

$ENV{'PATH'} = '/usr/bin';

sub do_getmocinfo {
# set up variables
  my $song;
  my $outtext;

# getting the info from mocp
  $song=`mocp -Q "%song par %artist sur %album"`;

# setting up variables
  my ($data, $server, $witem) = @_;

  $outtext="ME "."écoute ".$song;

# tell the worl what's your listening to
  if ($witem && ($witem->{type} eq "CHANNEL" || $witem->{type} eq "QUERY")) {
    $witem->command($outtext);
  }
}

# setting irssi environment
Irssi::command_bind("moc", "do_getmocinfo");

print CLIENTCRAP "%B>>%n ".$IRSSI{name}." v".$VERSION." loaded... (command: /moc)";
</file>

S'il n'existe pas, créez un dossier //$HOME/.irssi/scripts/autorun// et y créez un lien pointant vers ce script :
<code user>ln -s $HOME/.irssi/scripts/mocp.pl $HOME/.irssi/scripts/autorun/mocp.pl
</code>
===== Utilisation =====

Le module devrait être automatiquement chargé si vous avez créé le lien, sinon le charger à la main :
<code>/script load mocp</code>

Dans un salon, pour partager ce que vous écoutez dans MOC, lancez simplement la commande :
<code>/moc</code>

Et ça donne ça :

{{https://debian-facile.org/images/file-R7091914dbc372a1cacc4efee4db0b5b3.png}}

 --- 

//[[sogal@member.fsf.org|Sogal Boogalsky]] 22/03/2016 17:59//