diff options
Diffstat (limited to 'scripts/perl/xmms.pl')
| -rw-r--r-- | scripts/perl/xmms.pl | 64 |
1 files changed, 64 insertions, 0 deletions
diff --git a/scripts/perl/xmms.pl b/scripts/perl/xmms.pl new file mode 100644 index 000000000..92e89fd66 --- /dev/null +++ b/scripts/perl/xmms.pl @@ -0,0 +1,64 @@ +##################################################################### +# xmms perl script for weechat # +# # +# Displays some useless xmms-infopipe values # +# (c) 2006 by Cédric Chalier <llinkz@gmail.com> # +# # +# 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 (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, write to the Free Software # +# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, # +# MA 02110-1301, USA. # +# # +##################################################################### +# db[x] variables are: # +# ----------------------------------------------------------- # +# | 0 | XMMS protocol version | 7 | uSecTime # +# | 1 | InfoPipe Plugin version | 8 | Time # +# | 2 | Status | 9 | Current bitrate # +# | 3 | Tunes in playlist | 10 | Samping Frequency # +# | 4 | Currently playing | 11 | Channels # +# | 5 | uSecPosition | 12 | Title # +# | 6 | Position | 13 | File # +# # +##################################################################### + +weechat::register ("xmms", "1.1", "", "xmms info script (usage: /xmms)"); +weechat::add_command_handler ("xmms", xmmsinfo); + +sub xmmsinfo { + if (! -e "/tmp/xmms-info") + {} + else + { + open (fi, "/tmp/xmms-info"); + @db2 = <fi>; + foreach $l (0 .. 14) + { + ($c,$tmp) = split(": " ,$db2[$l]); + chomp($tmp); + push @db,$tmp; + } + } + if (($db[7]!=-1) && ($db[7]!=0)) + { + weechat::command("/me np: $db[12]"); + } + else + { + weechat::command("/me np: $db[12] ($db[13])"); + } + @db = (); + @db2 = (); + close (fi); +} +# $id: xmms-weechat.pl,v 1.1 2006/05/23 00:50:10 linkz Exp $ |