summaryrefslogtreecommitdiffstats
path: root/scripts/irssiBlaster.pl
diff options
context:
space:
mode:
authorDaniel Baumann <daniel.baumann@progress-linux.org>2024-04-15 20:19:02 +0000
committerDaniel Baumann <daniel.baumann@progress-linux.org>2024-04-15 20:19:02 +0000
commit03929dac2a29664878d2c971648a4fe1fb698462 (patch)
tree02c5e2b3e006234aa29545f7a93a1ce01b291a8b /scripts/irssiBlaster.pl
parentInitial commit. (diff)
downloadirssi-scripts-03929dac2a29664878d2c971648a4fe1fb698462.tar.xz
irssi-scripts-03929dac2a29664878d2c971648a4fe1fb698462.zip
Adding upstream version 20231031.upstream/20231031upstream
Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
Diffstat (limited to 'scripts/irssiBlaster.pl')
-rw-r--r--scripts/irssiBlaster.pl446
1 files changed, 446 insertions, 0 deletions
diff --git a/scripts/irssiBlaster.pl b/scripts/irssiBlaster.pl
new file mode 100644
index 0000000..1775763
--- /dev/null
+++ b/scripts/irssiBlaster.pl
@@ -0,0 +1,446 @@
+# irssiBlaster 1.6
+# Copyright (C) 2003 legion
+#
+# "Now Playing" (mp3blaster) in Irssi and more.
+#
+# - mp3blaster (http://www.stack.nl/~brama/mp3blaster.html)
+# - irssi (http://irssi.org)
+# for /npsend (EXPERIMENTAL):
+# - lsof (ftp://vic.cc.purdue.edu/pub/tools/unix/lsof/)
+#
+# NOTE: these applications are available in any linux distribution.
+#
+# should work with any version (i'm using irssi 0.8.8 & mp3blaster 3.2.0)
+# bug reports,features requests or comments -> a.lepore@email.it
+#
+# License:
+# 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 any later version. www.gnu.org
+#
+#################################################################################
+# *** USAGE:
+#
+# /np : display the "Artist - Song" played in current window,
+# any argument is printed after the song name (i.e. you own comment).
+#
+# /npa : like /np, but prints "Artist - Album [Year]".
+# If there isn't an appropriate album tag,print nothing.
+#
+# /anp : /np in all channels.
+#
+# /anpa : /npa in all channels.
+#
+# /npinfo : display all available info for the current file.
+#
+# /cleanbar : clean the statubar item (until the next song).
+#
+# /npsend NICK : *EXPERIMENTAL* (irssi often CRASH)
+# send the current played file to NICK user.
+# maybe it will be usable in version 2.0.
+#
+#
+# *** SETTINGS:
+#
+# blaster_bar ON/OFF : statusbar item activation.
+# ATTENTION:
+# you also have to add the item 'blaster' to your statusbar.
+# see: http://irssi.org/?page=docs&doc=startup-HOWTO#c12
+# example:
+# /statusbar window add -priority "-10" -alignment right blaster
+#
+# blaster_infos_path FILE : the file with infos (mp3blaster -f FILE).
+# default is ~/.infoz
+#
+# blaster_bar_prefix STRING : the bar prefix to filename. default is "playing:"
+#
+# blaster_prefix : the /np prefix to filename. default is "np:"
+#
+#################################################################################
+# Changelog:
+#
+# 1.6:
+# - /npinfo.
+# - /cleanbar.
+# - /anpa.
+# - /npa.
+# - help fixes. $infofile is now /tmp/irssiblaster.
+# - /npsend (EXPERIMENTAL).
+# - /np [comment].
+# - /anp.
+# - BUGFIX: no spaces at the end of the filenames.
+# - added code comments.
+# - prefixes can be changed.
+# - statusbar realtime print.
+# - 'mp3blaster_infos_path' is now 'blaster_infos_path'.
+#
+# 1.0:
+# - initial release.
+#
+# TODO:
+# - working /npsend
+# - (automatic) /cleanbar
+# - support for others stuff (album,time..)
+# - /help
+# - use strict;
+#################################################################################
+
+use strict;
+use Irssi;
+use Irssi::TextUI;
+use vars qw($VERSION %IRSSI);
+
+$VERSION = '1.6';
+%IRSSI = (
+ authors => 'legion',
+ contact => 'a.lepore@email.it',
+ 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',
+);
+
+# TODO get rid of all those globals. This script needs some serious rework.
+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