summaryrefslogtreecommitdiffstats
path: root/scripts/xmms2.pl
blob: ce2c9d8578c5d421987eba2cf65f7167550dfe22 (plain)
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
# XMMS/InfoPipe script for the Irssi client. You need a few things
# installed before this script will work...
#    1) Irssi,          http://irssi.org/
#    2) XMMS,           http://www.xmms.org/
#    3) InfoPipe,       http://www.beastwithin.org
#                       /users/wwwwolf/code/xmms/infopipe.html
#
# xmms2.pl is a version of xmms.pl slightly modified by Sir Robin,
# sir@robsku.cjb.net / http://robsku.cjb.net/
#
# The script now outputs by default to the active window, instead of
# status window. Also removed percentage meter as it didn't work. Only
# two lines were modified and the original lines still exist, just
# commented out.
#
# If you have trouble installing any of these, consult the READMEs that
# come with the software, thank you.
#
# Fixed a few vital things adviced by kodgehopper at netscape dot net.
# Very appreciated as I had no chance of testing a few of these things
# myself. I hope everything works as it should now.
#
# Visit http://scripts.irssi.de/
#
# simon at blueshell dot dk
use Irssi;
use vars qw($VERSION %IRSSI);
use strict;

$VERSION = '1.1.3+1';
%IRSSI = (
  authors     => 'simon',
  contact     => 'simon\@blueshell.dk',
  name        => 'XMMS-InfoPipe Script',
  description => 'Returns XMMS-InfoPipe data',
  license     => 'Public Domain',
  url         => 'http://irssi.dk/',
  changed     => 'Mon Nov 27 18:00:00 CET 2006',
  commands    => '/np',
  note        => 'Make sure InfoPipe is configured!'
);

sub cmd_xmms {
  my ($args, $server, $target) = @_;
  $args =~ s/\s+$//; #fix unneeded whitespaces after output dest.

  my (@t, $t, $ttotal, @pos, $pos, $postotal, $title);
  open xmms, "<", '/tmp/xmms-info' || die; # if nothing happens, it probably
                                      # failed here!

  while(<xmms>) {
    if(/^Time: (.*)$/) {
      @t = split(/:/, $1);
      $t = $1;
      $t =~ s/^([0-9]*):([0-9]{2})$/\1m\2s/; # convert to nice format
      $ttotal = $t[0] + $t[1]*60;
    }
    if(/^Position: (.*)$/) { 
      @pos = split(/:/, $1);
      $postotal = $pos[0] + $pos[1]*60;
    }
    if(/^Title: (.*)$/) { $title = $1; }
  }
  close xmms;

  if(!$ttotal || !$postotal) {
    Irssi::print "An error occurred. Check if XMMS is running and your";
    Irssi::print "InfoPipe module is running properly. If not, read how";
    Irssi::print "to get these up and running by reading the script source";
    die;
  }

  $pos = sprintf("%.0f", $postotal / $ttotal * 100); # calc. position
# my $output = "np: $title ($pos% of $t)";
  my $output = "np: $title ($t)";
  $output =~ s/[\r\n]/ /g; # remove newline characters
  if(!$server || !$server->{connected}) { # are we even connected?
    Irssi::print $output;
    return
  }
  if($args) { $server->command("msg $args $output"); }
  else { Irssi::active_win()->command('say ' . $output); }
# else { Irssi::print $output; }
}

Irssi::command_bind('np', 'cmd_xmms');