bansheeX-fr.pl

#!/usr/bin/perl -w

# BansheeX - Simple script for using Banshee in Xchat
# Copyright (C) 2013  Auze <twitter: @Auze_>
#
# 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 3 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, see <http://www.gnu.org/licenses/> .

use strict;
use Xchat qw( :all);

# Register plugin in Xchat
register('BansheeX', '1.0', 'Simple Script for using Banshee in Xchat');

# Welcome Message
command("echo ###########");
command("echo BansheeX Script 1.0");
command("echo Simple Script for using Banshee in Xchat");
command("echo Author : Auze @ Absylonia");
command("echo /bhelp pour la liste des commandes");
command("echo ###########");

# Command list and function
hook_command('bcur', \&bcur);
hook_command('bplay',\&bplay);
hook_command('bpause',\&bpause);
hook_command('bnext', \&bnext);
hook_command('bvers',\&bvers);
hook_command('bprev',\&bprev);
hook_command('brate',\&brate);
hook_command('babout',\&babout);
hook_command('btest',\&btest);
hook_command('bhelp', \&help);

 # Display current track if running
sub bcur {

	my $run = &btest();
	if ($run == 0) {

		my $rawtitle = substr(`banshee --query-title`, 7);
		my $title = substr($rawtitle,0, length($rawtitle) -1);

		my $rawartist = substr(`banshee --query-artist`, 8);
		my $artist = substr($rawartist,0,length($rawartist) -1);

		my $rawalbum = substr(`banshee --query-album`, 7);
		my $album= substr($rawalbum,0,length($rawalbum) -1);

		my $rawversion = `banshee --version`;
		my $version = substr($rawversion,0,11);

		my $rawstatus = substr(`banshee --query-current-state`, 15);
		my $status = substr($rawstatus,0,length($rawstatus) -1);

		my $score = &starScore();

		my $listening ="\cC24[\cC20$version : \cC18$status\cC24] \cC25$title"." \cC20par \cC25$artist"." \cC20sur \cC25$album "."\cC24(\cC25$score\cC24)";
		command("me  $listening");
	}
}

# Display stars for score instead of number
sub starScore() {
	my $run = &btest();
	if ($run == 0) {
		my $rawscore = substr(`banshee --query-rating`, 8);
		my $score =substr($rawscore,0,length($rawscore)-1);

		if ($score == 1) {
			my $starscore = "★☆☆☆☆";
			return $starscore;
		}
		if($score == 2) {
			 my $starscore="★★☆☆☆";
			 return $starscore;
		}
		if($score == 3) {
			my $starscore ="★★★☆☆";
			return $starscore;
		 }
		 if ($score == 4) {
			my $starscore ="★★★★☆";
			return $starscore;
		 }
		 if ($score == 5) {
			my $starscore ="★★★★★";
			return  $starscore;
		 }
		 else {
			my $starscore = "☆☆☆☆☆";
			return $starscore;
		 }
	}
}


# Play the current track
sub bplay {
	my $run = &btest();
	if ($run == 0) {
		`banshee --play`;
		command ("echo C'est parti !");
	}
}

# Pause Banshee
sub bpause {
	my $run = &btest();
	if ($run == 0) {
		`banshee --pause`;
		command("echo Banshee en pause");
	}
}

# Next track
sub bnext {
	my $run = &btest();
	if ($run == 0) {
		`banshee --next`;
		command("echo Morceau suivant");
	}
}

# Previous track
sub bprev {
	my $run = &btest();
	if ($run == 0) {
		`banshee --previous`;
		command("echo Morceau précédent")
	}
}

# Rating current track ( USAGE : /brate [rating] )
sub brate {
	my $run = &btest();
	if ($run == 0) {
		my $score = -1;
		my $score=$_[0][1];

		my $rawtitle = substr(`banshee --query-title`, 7);
		my $title = substr($rawtitle,0, length($rawtitle) -1);

		my $rawartist = substr(`banshee --query-artist`, 8);
		my $artist = substr($rawartist,0,length($rawartist) -1);

		if ($score eq 0) {
			`banshee --set-rating=$score`;
			command("echo $title de $artist a maintenant une note de $score");
			return;
		}

		if ($score == 1) {
			`banshee --set-rating=$score`;
			command("echo $title de $artist a maintenant une note de $score");
			return;
		}

		if ($score == 2) {
			`banshee --set-rating=$score`;
			command("echo $title de $artist a maintenant une note de $score");
			return;
		}

		if ($score == 3) {
			`banshee --set-rating=$score`;
			command("echo $title de $artist a maintenant une note de $score");
			return;
		}

		if ($score == 4) {
			`banshee --set-rating=$score`;
			command("echo $title de $artist a maintenant une note de $score");
			return;
		}

		if ($score == 5) {
			`banshee --set-rating=$score`;
			command("echo $title de $artist a maintenant une note de $score");
			return;
		}
		# | $score != 2 || $score != 3 || $score != 4 || $score != 5 || $score != 0
		if ($score eq undef || $score != 1 .. 5) {
			command("echo brate usage : /brate [rating]; Rating = [0 - 5]");
			return;
		}

		else {
			command("echo brate usage :  /brate [rating]; Rating = [0 - 5]");
			return;
		}
	}
}


# Display Banshee version
sub bvers {
	my $run = &btest();
	if ($run == 0) {
		my $rawversion = `banshee --version`;
		my $version = substr($rawversion,0,11);
		command("echo $version");
	}
}

# Test if Banshee currently running
sub btest {
	`pidof banshee`;
	my $btest = $?;
	if ($btest == 0) {
		return 0;
	}
	else {
		command("echo Banshee n'est pas lancé actuellement !");
		return 1;
	}
}

# The About function ;)
sub babout {
	command("me BansheeX 1.0- A simple perl script for using Banshee in Xchat - Auze")
}

# Display list of BansheeX command
sub help {
	command("echo Liste des commandes disponibles :");
	command("echo bhelp - Affiche cette page d'aide");
	command("echo bcur - Affiche la piste en cours de lecture");
	command("echo bplay - Lire le morceau");
	command("echo bpause - Mettre le lecteur en pause");
	command("echo bnext - Passe au morceau suivant");
	command("echo bprev - Retourne au morceau précédent");
	command("echo brate [rate] - Note la morceau en cours de [rate]");
	command("echo bvers - Affiche la version de banshee");
	command("echo babout - Affiche la version du Script et son Auteur");
	command("echo btest - Vérifie le lancement de Banshee (0 Si lancé)");
}