use strict;

use Irssi;

use Irssi::TextUI;

use vars qw($VERSION %IRSSI);

$VERSION = '1.6';

%IRSSI = (

authors => 'legion',

contact => '[email protected]',

name => 'irssiBlaster',

description => 'Display the song played by mp3blaster in channels and statusbar. See the top of the file for usage.',

sbitems => 'blaster',

license => 'GNU GPLv2 or later',

changed => 'Fri Oct 31 12:22:08 CET 2003',

);

my (@all, @artist, @title, @album, @year, @name, @status, @comment, @mode, @format, @bitrate, @samplerate, @length, @next, @tot);

my ($name, $infofile, $status, $artist, $title, $year, $album, $comment, $format, $bitrate, $mode, $samplerate, $length, $next, $min, $sec, $secs, $prefix, $barprefix, $tot);

sub get_info {

my $infofile = Irssi::settings_get_str('blaster_infos_path');

open (FILE, "<", $infofile); # open and read file with infos

my @all = <FILE>;

close (FILE);

@artist = grep (/^artist/, @all); # get the lines with tag infos

@title = grep (/^title/, @all);

@album = grep (/^album/, @all);

@year = grep (/^year/, @all);

@name = grep (/^path/, @all); # get the line with filename

} ##

sub get_allinfo {

$infofile = Irssi::settings_get_str('blaster_infos_path');

open (FILE, "<", $infofile);

@all = <FILE>;

close (FILE);

@name = grep (/^path/, @all);

$name = $name[0];

$name =~ s/^path //;

chomp $name;

@status = grep (/^status/, @all);

$status = $status[0];

$status =~ s/^status //;

chomp $status;

@artist = grep (/^artist/, @all);

$artist = $artist[0];

$artist =~ s/^artist //;

chomp $artist;

@title = grep (/^title/, @all);

$title = $title[0];

$title =~ s/^title //;

chomp $title;

@album = grep (/^album/, @all);

$album = $album[0];

$album =~ s/^album //;

chomp $album;

@year = grep (/^year/, @all);

$year = $year[0];

$year =~ s/^year //;

chomp $year;

@comment = grep (/^comment/, @all);

$comment = $comment[0];

$comment =~ s/^comment //;

chomp $comment;

@mode = grep (/^mode/, @all);

$mode = $mode[0];

$mode =~ s/^mode //;

chomp $mode;

@format = grep (/^format/, @all);

$format = $format[0];

$format =~ s/^format //;

chomp $format;

@bitrate = grep (/^bitrate/, @all);

$bitrate = $bitrate[0];

$bitrate =~ s/^bitrate //;

chomp $bitrate;

@samplerate = grep (/^samplerate/, @all);

$samplerate = $samplerate[0];

$samplerate =~ s/^samplerate //;

chomp $samplerate;

@length = grep (/^length/, @all);

$length = $length[0];

$length =~ s/^length //;

chomp $length;

@next = grep (/^next/, @all);

$next = $next[0];

$next =~ s/^next //;

chomp $next;

} ##

sub get_status {

$infofile = Irssi::settings_get_str('blaster_infos_path');

open (FILE, "<", $infofile);

@all = <FILE>;

close (FILE);

@status = grep (/^status/, @all);

} ##

sub get_tag_info {

$artist = $artist[0]; # is an one-element array

$artist =~ s/^artist //; # remove prefixes

chomp $artist; # remove last char (for correct printing)

$title = $title[0];

$title =~ s/^title //;

chomp $title;

$album = $album[0];

$album =~ s/^album //;

chomp $album;

$year = $year[0];

$year =~ s/^year //;

chomp $year;

$prefix = Irssi::settings_get_str('blaster_prefix');

$barprefix = Irssi::settings_get_str('blaster_bar_prefix');

} ##

sub get_name_info {

$name = $name[0];

$name =~ s/^path //; # remove prefix

$name =~ s/\.mp3$//i; # remove extensions

$name =~ s/\.ogg$//i;

$name =~ s/_/ /g; # change underscores to spaces

chomp $name;

$prefix = Irssi::settings_get_str('blaster_prefix');

$barprefix = Irssi::settings_get_str('blaster_bar_prefix');

} ##

sub noinfo_error {

$infofile = Irssi::settings_get_str('blaster_infos_path');

# print help if the info file is not valid

Irssi::print(

"%9IrssiBlaster:%_ \"$infofile\" is not a valid info file. %9Make sure%_ %Rmp3blaster -f $infofile%n %9is running!!!%_\n".

"%9IrssiBlaster:%_ (Hint: put %9alias mp3blaster='mp3blaster -f $infofile'%_ in your ~/.bashrc )"

, MSGLEVEL_CRAP);

} ##

sub cmd_np { # /np stuff

get_info;

if (@artist && @title) { # if file has a an id3tag

get_tag_info;

my ($comment, $server, $witem) = @_; # np: blabla in current window (copied from other scripts..)

if ($witem && ($witem->{type} eq "CHANNEL" || $witem->{type} eq "QUERY")) {

$witem->command("me $prefix $artist - $title $comment");

}

else {

Irssi::print("$prefix $artist - $title $comment", MSGLEVEL_CRAP); # or print in client level if no active channel/query

}

}

elsif (@name) { # if there isn't id3tag we use the filename

get_name_info;

my ($comment, $server, $witem) = @_;

if ($witem && ($witem->{type} eq "CHANNEL" || $witem->{type} eq "QUERY")) {

$witem->command("me $prefix $name $comment");

}

else {

Irssi::print("$prefix $name $comment", MSGLEVEL_CRAP);

}

}

else { noinfo_error; }

} ##

sub cmd_npall { # /anp stuff

get_info;

if (@artist && @title) {

get_tag_info;

my ($comment, $server, $witem) = @_;

Irssi::command("foreach channel /me $prefix $artist - $title $comment");

}

elsif (@name) {

get_name_info;

my ($comment, $server, $witem) = @_;

Irssi::command("foreach channel /me $prefix $name $comment");

}

else { noinfo_error; }

} ##

sub cmd_npalbum { # /npa stuff

if (@artist && @album) {

get_tag_info;

if ($year) { $year = "[$year]"; }

my ($comment, $server, $witem) = @_;

if ($witem && ($witem->{type} eq "CHANNEL" || $witem->{type} eq "QUERY")) {

$witem->command("me $prefix $artist - $album $year $comment");

}

else {

Irssi::print("$prefix $artist - $album $year $comment", MSGLEVEL_CRAP);

}

}

else {

Irssi::print("%9IrssiBlaster:%_ filename has no album tag.", MSGLEVEL_CRAP);

}

} ##

sub cmd_npalbumall { # /anpa stuff

get_info;

if (@artist && @album) {

get_tag_info;

if ($year) { $year = "[$year]"; }

my ($comment, $server, $witem) = @_;

Irssi::command("foreach channel /me $prefix $artist - $album $year $comment");

}

else {

Irssi::print("%9IrssiBlaster:%_ filename has no album tag.", MSGLEVEL_CRAP);

}

} ##

sub cmd_info {

get_allinfo;

$tot = $length/60; # calculating minutes:seconds

@tot = split(/\./, $tot);

$min = $tot[0];

$sec = $min*60;

$secs = $length-$sec;

Irssi::print("\n%9IrssiBlaster - File Info:%_", MSGLEVEL_CRAP);

Irssi::print("%9F%_ile%9:%_ $name", MSGLEVEL_CRAP);

Irssi::print("%9S%_tatus%9:%_ $status", MSGLEVEL_CRAP);

if ($artist) { Irssi::print("%9A%_rtist%9:%_ $artist", MSGLEVEL_CRAP); }

if ($title) { Irssi::print("%9T%_itle%9:%_ $title", MSGLEVEL_CRAP); }

if ($album) { Irssi::print("%9A%_lbum%9:%_ $album", MSGLEVEL_CRAP); }

if ($year) { Irssi::print("%9Y%_ear%9:%_ $year", MSGLEVEL_CRAP); }

if ($comment) { Irssi::print("%9C%_omment%9:%_ $comment", MSGLEVEL_CRAP); }

Irssi::print("%9-%_----------%9-%_", MSGLEVEL_CRAP);

if ($secs =~ /^.{1}$/) { Irssi::print("%9L%_ength%9:%_ $min\:0$secs", MSGLEVEL_CRAP); }

else { Irssi::print("%9L%_ength%9:%_ $min\:$secs", MSGLEVEL_CRAP); }

if ($format =~ /0$/) { Irssi::print("%9F%_iletype%9:%_ $format (Ogg/Vorbis?)", MSGLEVEL_CRAP); }

else { Irssi::print("%9F%_iletype%9:%_ $format", MSGLEVEL_CRAP); }

Irssi::print("%9R%_ate%9:%_ $bitrate\kb/$samplerate\Khz", MSGLEVEL_CRAP);

if ($mode) { Irssi::print("%9M%_ode%9:%_ $mode", MSGLEVEL_CRAP); }

if ($next) { Irssi::print("%9N%_ext in playlist%9:%_ $next", MSGLEVEL_CRAP); }

} ##

sub bar_np { # statusbar stuff

my ($item, $get_size_only) = @_;

my $bar_activation = Irssi::settings_get_str('blaster_bar');

if ($bar_activation =~ /^on$/i) { # display in bar only if /set blaster_bar = ON

get_info;

if (@artist && @title) {

get_tag_info;

# print in statusbar

$item->default_handler($get_size_only, "{sb $barprefix $artist - $title}", undef, 1);

}

elsif (@name) {

get_name_info;

$item->default_handler($get_size_only, "{sb $barprefix $name}", undef, 1);

}

else {

$item->default_handler($get_size_only, undef, undef, 1);

}

}

} ##

sub refresh {

Irssi::statusbar_items_redraw('blaster'); # refresh statusbar

Irssi::statusbars_recreate_items();

} ##

sub cmd_cleanbar { # /cleanbar stuff

my $infofile = Irssi::settings_get_str('blaster_infos_path');

unlink $infofile;

} ##

sub cmd_send { # /npsend stuff

get_info;

my @name = grep (/^path/, @all);

my $name = $name[0];

$name =~ s/path //;

chomp $name;

# get the full path of the file from 'lsof' (i have lsof 4.64)

my @open_files = grep (/$name$/, `lsof -c mp3blaste -F n`);

$open_files[0] =~ s/^n//;

my $filename = $open_files[0];

chomp $filename;

my ($target, $server, $witem) = @_;

$server->command("DCC SEND $target \"$filename\""); # /dcc send

} ##

Irssi::settings_add_str('irssiBlaster', 'blaster_infos_path', '/tmp/irssiblaster'); # register settings

Irssi::settings_add_str('irssiBlaster', 'blaster_prefix', 'np:');

Irssi::settings_add_str('irssiBlaster', 'blaster_bar_prefix', 'playing:');

Irssi::settings_add_str('irssiBlaster', 'blaster_bar', 'OFF');

Irssi::command_bind('np', 'cmd_np'); # register /commands

Irssi::command_bind('anp', 'cmd_npall');

Irssi::command_bind('npa', 'cmd_npalbum');

Irssi::command_bind('anpa', 'cmd_npalbumall');

Irssi::command_bind('npinfo', 'cmd_info');

Irssi::command_bind('cleanbar', 'cmd_cleanbar');

Irssi::command_bind('npsend', 'cmd_send');

Irssi::statusbar_item_register('blaster', undef, 'bar_np'); # register statusbar item

Irssi::timeout_add(1000, 'refresh', undef); # refresh every 1 second