Import scripts from scripts.irssi.org

1 files changed, 130 insertions, 0 deletions

diff --git a/scripts/orphamp.pl b/scripts/orphamp.pl
new file mode 100644
index 0000000..386a5dc
--- /dev/null
+++ b/scripts/orphamp.pl
@@ -0,0 +1,130 @@
+#!/usr/bin/perl
+
+
+# You can freely redistribute this script, but don't change the IRSSI string
+# ------------------------------------------------------------------------------
+# now playing script for irssi and Orpheus mp3 player (recommended 1.4 or higher)
+# lsof needed critically! (with correct permissions)
+# mp3info needed, not cricital, but recommended (http://ibiblio.org/mp3info/)
+# script painfully made by Wohmatak :)
+# ------------------------------------------------------------------------------
+
+
+use Irssi;
+use vars qw($VERSION %IRSSI);  
+
+$VERSION = '0.9';
+
+%IRSSI = (
+        authors         => 'Wohmatak',
+        contact         => 'wohmatak@iglu.cz',
+        name            => 'orphamp',
+        description     => 'Displays the song played by orpheus',
+        license         => 'GPL',
+        url             => 'http://irssi.org/',
+        changed         => 'Wed',
+        command         => '/np',
+	
+); 
+
+Irssi::settings_add_str("misc", "np_lang", "en");
+Irssi::settings_add_int("misc", "show_npinfo", 1); 
+
+sub info {
+### onload message
+print "--- Wohmatak's Orpheus now playing script loaded! ---\nTo show now playing song, use /np command";
+print "You need lsof and mp3info in order to use orphamp script.";
+### feedback
+print "Feedback appreciated at wohmatak <at> iglu.cz, ICQ 70713105 or on IRCnet...";
+### should I show info?
+print "-----------------------------------------------------";
+print "If you don't want to see this welcome message anymore, check show_npinfo irssi setting";
+print "If you want now playing sentence in czech, check np_land irssi setting (currently en/cz supported)";
+print "-----------------------------------------------------";
+}
+
+sub void {
+
+### check, whether lsof works
+if (!`lsof -Fc -b -S 2`) { die "lsof command hasn't been found on your computer! Please check whether it is installed & has correct permissions... Orphamp deactivated";}
+### lsof command
+$raw = `lsof -S 2 -n -P -b | grep mpg123 | grep -i mp3 | grep REG | tail -n 1`;
+### split after /
+@split = split(/\//,$raw);
+### count the number of splits
+$pocet = $#split;
+### filename into one variable & newline department
+$filename = "";
+for ($i=1; $i<=$pocet; ++$i) {
+$filename .= "/";
+$filename .= @split[$i];
+}
+chomp($filename);
+
+### check, whether mp3info is installed
+if (`mp3info` && $filename) {
+
+    ## mp3info command, std_err to /dev/null 
+    ## (we don't want those ugly error messages in irssi window, do we?:)
+    $artist = `mp3info -p %a "$filename" 2> /dev/null`;
+    $song = `mp3info -p %t "$filename" 2> /dev/null`;
+    $album = `mp3info -p %l "$filename" 2> /dev/null`;
+    if (!$album) { $album = "unknown album";}
+    $year = `mp3info -p %y "$filename" 2> /dev/null`;
+    if (!$year) { $year = "unknown year";}
+
+
+    ## if there's no artist and song, display info from orpheus infopipe file (orpheus 1.4 needed)
+    if (!$artist && !$song) 
+    {
+	    $nazev = `cat ~/.orpheus/currently_playing`;
+	    $message = "prehrava ".$nazev.""; 
+    }
+    
+    else 
+    {
+	if (Irssi::settings_get_str("np_lang")  eq"en") 
+	{
+		     $message = "listens to ".$song." by ".$artist." ([".$year."] ".$album.")";
+	}
+	elsif (Irssi::settings_get_str("np_lang")  eq "cz") 
+	{
+		$message = "posloucha ".$song." od ".$artist." ([".$year."] ".$album.")";
+	}
+    }
+
+
+}
+
+
+### mp3info is not present (or we're playing a CD track)
+else {
+    if ($filename) 
+    {
+		 print "mp3info is not installed! please get it if you want to use orphamp script (http://ibiblio.org/mp3info/)"; 
+    }
+
+    $nazev = `cat ~/.orpheus/currently_playing`;
+    	if (Irssi::settings_get_str("np_lang") eq "en") 
+	{
+		     $message = "listens to ".$nazev.""; 
+	}
+	elsif (Irssi::settings_get_str("np_lang")  eq "cz") 
+	{
+		$message = "posloucha ".$nazev.""; 
+	}
+}
+
+### echo the message to channel
+my ($data, $server, $witem) = @_;
+if ($witem && ($witem->{type} eq "CHANNEL" || $witem->{type} eq "QUERY"))
+    { $witem->command("/me $message"); } 
+    else { print "* ".$message;}
+}
+
+if (Irssi::settings_get_int("show_npinfo")) {
+		info();
+		}
+
+Irssi::command_bind('np','void');
+Irssi::command_bind('npinfo','info');