1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
|
#!/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 strict;
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',
commands => '/np',
);
Irssi::settings_add_str("misc", "np_lang", "en");
Irssi::settings_add_int("misc", "show_npinfo", 1);
my $message;
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
my $raw = `lsof -S 2 -n -P -b | grep mpg123 | grep -i mp3 | grep REG | tail -n 1`;
### split after /
my @split = split(/\//,$raw);
### count the number of splits
my $pocet = $#split;
### filename into one variable & newline department
my $filename = "";
for (my $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?:)
my $artist = `mp3info -p %a "$filename" 2> /dev/null`;
my $song = `mp3info -p %t "$filename" 2> /dev/null`;
my $album = `mp3info -p %l "$filename" 2> /dev/null`;
if (!$album) { $album = "unknown album";}
my $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)
{
my $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/)";
}
my $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');
|
