MODIFICATION ET TRADUCTION DU SCRIPT RHYTHMBOX XCHAT ANNOUNCER

#!/usr/bin/perl -w

# Rhythmbox XChat Announcer 0.3.1
# (c) Copyright 2006, 2007 - Tim Denholm <tim@codestorm.net>
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
############################################################################
# Traduction et modification TrHiL-KiL                                     #
# gsmtrhilkil@gmail.com                                                    #
############################################################################

use POSIX qw(strftime);

$script_name        = "Annonceur Rhythmbox XChat";
$script_version     = "0.3.2";
$script_description = "Annonce les informations en cours de lecture chanson de Rhythmbox dans XChat.";
$rhythmbox_traductionmodif = "Traduction et modification par TrHiLKiL";
$rhythmbox_version = `Rhythmbox --version`;
$rhythmbox_version =~ s/GNOME\srhythmbox\s//;
chop $rhythmbox_version;

Xchat::register($script_name,$script_version,$script_description,$rhythmbox_traduction,"");

Xchat::print("Loaded \002".$script_name."\002:");
Xchat::print("Utilisez \002 /rb_aide \002 pour afficher une liste de commandes.");

Xchat::hook_command("arb",		"arb");
Xchat::hook_command("rb",		"rb_announce");
Xchat::hook_command("rb_annonce",	"rb_announce");
Xchat::hook_command("rbtous",	        "rb_announceall");
Xchat::hook_command("rb_annoncetous",	"rb_announceall");
Xchat::hook_command("rb_repetition",   "rb_announcerep");
Xchat::hook_command("rb_rep",	         "rb_announcerep");
Xchat::hook_command("rb_suivant",	"rb_next");
Xchat::hook_command("rb_precedent",	"rb_prev");
Xchat::hook_command("rb_play",		"rb_play");
Xchat::hook_command("rb_pause",		"rb_pause");
Xchat::hook_command("rb_version",	"rb_version");
Xchat::hook_command("rb_aide",		"rb_help");

sub arb
{
	# Check if a rhythmbox process exists.	
	if (`ps -C rhythmbox` =~ /rhythmbox/) {
		# Get current playing song information.
		$song_info = `rhythmbox-client --print-playing-format %ta\\ -\\ %at\\ -\\ %tt\\ -\\ "(%te/%td)"`;
		chop $song_info;

		Xchat::command("ame est à l'écoute:: ".$song_info);
	} else {
		Xchat::print("Rhythmbox n'est pas en cours d'exécution.");
	}

	return 1;
}

sub rb_announce
{
	# Check if a rhythmbox process exists.	
	if (`ps -C rhythmbox` =~ /rhythmbox/) {
		# Get current playing song information.
		$song_info = `rhythmbox-client --print-playing-format %ta\\ -\\ %at\\ -\\ %tt\\ -\\ "(%te/%td)"`;
		chop $song_info;

		Xchat::command("me est à l'écoute: ".$song_info);
	} else {
		Xchat::print("Rhythmbox n'est pas en cours d'exécution.");
	}

	return 1;
}
sub rb_announcerepall
{
	# Check if a rhythmbox process exists.	
	if (`ps -C rhythmbox` =~ /rhythmbox/) {
		# Get current playing song information.
		$song_info = `rhythmbox-client --print-playing-format %ta\\ -\\ %at\\ -\\ %tt\\ -\\ "(%te/%td)"`;
		chop $song_info;

		Xchat::command("timer -repeat 0 1800  ame est à l'écoute: ".$song_info);
	} else {
		Xchat::print("Rhythmbox n'est pas en cours d'exécution.");
	}

	return 1;
}
sub rb_announceall
{
	# Check if a rhythmbox process exists.	
	if (`ps -C rhythmbox` =~ /rhythmbox/) {
		# Get current playing song information.
		$song_info = `rhythmbox-client --print-playing-format %ta\\ -\\ %at\\ -\\ %tt\\ -\\ "(%te/%td)"`;
		chop $song_info;

		Xchat::command("ame est à l'écoute: ".$song_info);
	} else {
		Xchat::print("Rhythmbox n'est pas en cours d'exécution.");
	}

	return 1;
}

sub rb_next
{
	# Skip to the next track.
	eval `rhythmbox-client --next`;
	Xchat::print("S'est arrêté à la piste suivante.");
	return 1;
}

sub rb_prev
{
	# Skip to the previous track.
	eval `rhythmbox-client --previous`;
	Xchat::print("S'est arrêté à la piste précédente..");
	return 1;
}

sub rb_play
{
	# Start playback.
	eval `rhythmbox-client --play`;
	Xchat::print("Commencé la lecture.");
	return 1;
}

sub rb_pause
{
	# Pause playback.
	eval `rhythmbox-client --pause`;
	Xchat::print("La lecture en pause.");
	return 1;
}

sub rb_version
{
	# Display version information to a channel.
	Xchat::command("me utilise ".$script_name." ".$script_version." avec Rhythmbox ".$rhythmbox_traductionmodif." ".$rhythmbox_version." et XChat ".Xchat::get_info("version"));
	return 1;
}

sub rb_help
{
	# Display help screen.
	Xchat::print("\002\037".$script_name." Help:\037\002");
	Xchat::print(" \002About:\002");
	Xchat::print("  * Author: Tim Denholm <tim\@codestrorm.net>");
	Xchat::print("  * URL:    http://www.ircfr.com/codes/MODIFICATION-TRADUCTION-SCRIPT-RHYTHMBOX-XCHAT-ANNOUNCER_52648.aspx");
        Xchat::print("  * Script Version:    ".$script_version);
        Xchat::print("  * traduction et modification:    ".$rhythmbox_traductionmodif);
	Xchat::print("  * Rhythmbox Version: ".$rhythmbox_version);
	Xchat::print("  * XChat Version:     ".Xchat::get_info("version"));
	Xchat::print(" \002Commands:\002");
	Xchat::print("  * /rb          - idem que /rb_announce.");
        Xchat::print("  * /rbtous      - idem que /rb_annoncetous.");
	Xchat::print("  * /rb_annonce - Afficher la chanson en cours de lecture à un canal.");
        Xchat::print("  * /rb_annoncetous - Afficher la chanson en cours de lecture à tout les canaux.");
        Xchat::print("  * /rb_rep - Timer qui affiche la chanson en cours de lecture à tout les canaux toute les 30 minutes.");
        Xchat::print("  * /rb_repetition - Timer qui affiche la chanson en cours de lecture à tout les canaux toute les 30 minutes.");
        Xchat::print("  * /rb_suivant     - Passer à la piste suivante.");
	Xchat::print("  * /rb_precedent     - Passer à la piste précédente.");
	Xchat::print("  * /rb_play     - Lancez la lecture.");
	Xchat::print("  * /rb_pause    - Pause de la lecture.");
	Xchat::print("  * /rb_version  - Affiche la version du script, Rhythmbox et XChat à un canal.");
	Xchat::print("  * /rb_aide     - Afficher cet écran d'aide.");
	return 1;
}