[Xchat] XMMS script werkt niet?

[Verwijderd]

Jah nelske ik heb gezocht, zelf op irc channels nagraagd, niemand kan mij helpen het gaat om dit script:

code:

use Xmms::Remote ();

IRC::register ("XMMS-node", "1.0", "", "");

IRC::add_command_handler("xmms", "xmms_handler");

$xmms_remote = Xmms::Remote->new();

sub xmms_handler {
  $title = $xmms_remote->get_playlist_title;
  $title =~ s/_[^_]*_[^_]*_/ - /;
  IRC::command("/me listens to $title");
  return 1;
}

als ik die laad krijg ik de volgende error:

Errors loading file /root/XMMS-node-1.0.pl:
Can't locate Xmms/Remote.pm in @INC (@INC contains: /usr/lib/perl5/5.6.0/i386-linux /usr/lib/perl5/5.6.0 /usr/lib/perl5/site_perl/5.6.0/i386-linux /usr/lib/perl5/site_perl/5.6.0 /usr/lib/perl5/site_perl .) at (eval 6) line 1.
BEGIN failed--compilation aborted at (eval 6) line 1.

Error compiling script
Usage:
/LOAD <file>, loads a Perl script

is er iets mis met mijn Perl/Xchat of XMMS?

[jep]

Ik laat gewoon met die os change plugin een artiest en titel naar .song schrijven en Xchat haalt 'm met /exec -o cat .song in mn channel

[CyBeR]

je moet eerst zorgen dat die xmms functies bestaan
hij kan ze zoals het nu is gewoon niet laden
heb je gekeken of de capitalisation goed is?
XMMS ipv Xmms bijvoorbeeld
en of die modules uberhaubt wel bestaan?

[Verwijderd]

Op zaterdag 19 januari 2002 22:47 schreef CyB3R het volgende:
je moet eerst zorgen dat die xmms functies bestaan
hij kan ze zoals het nu is gewoon niet laden
heb je gekeken of de capitalisation goed is?
XMMS ipv Xmms bijvoorbeeld
en of die modules uberhaubt wel bestaan?

met mijn vestand van perl en wat zoek werk:
perl -MCPAN -e 'install Bundle::Xmms'

hijs nu bezig
perl -MCPAN -e 'install Remote::Xmms'
gaf een error

okeej geeft ook een error, hij kan steeds Makefilee.PL nie een los packgae dat ik vond: er staat alleen Makefile.PL hoe compile ik die dan?

owja: perl 5.6.1

okeej Bundle::Xmms is geinstalleerd nu zegt ie:

Errors loading file /root/xmms.pl:
Can't locate auto/Xmms/Remote/new.al in @INC (@INC contains: /usr/lib/perl5/5.6.0/i386-linux /usr/lib/perl5/5.6.0 /usr/lib/perl5/site_perl/5.6.0/i386-linux /usr/lib/perl5/site_perl/5.6.0 /usr/lib/perl5/site_perl .) at (eval 25) line 7

Error compiling script
Usage:
/LOAD <file>, loads a Perl script

[Verwijderd]

Op zaterdag 19 januari 2002 22:41 schreef j3p het volgende:
Ik laat gewoon met die os change plugin een artiest en titel naar .song schrijven en Xchat haalt 'm met /exec -o cat .song in mn channel

ey jep, hoe doe je dat precies?

[odysseus]

Op zondag 20 januari 2002 21:04 schreef DJ_PP het volgende:

[..]

ey jep, hoe doe je dat precies?

Je kunt met die change plugin dingen wegschrijven als dat er een lied wordt gestart (en welk). Als je dan in xmms met een shellaanroep (/exec) het bestand waarnaar wordt uitgevoerd gaat catten (en de output door de -o naar xmms stuurt) krijg je dat netjes in beeld.
Ik vraag me overigens af of je ook gewoon tail -f zou kunnen gebruiken, dan krijg je gewoon standaard die dingen in beeld zonder dat je er iets voor hoeft te doen. En dan is er binnen xchat ook nog een script wat zoiets moet kunnen, maar daar heb ik eigenlijk nooit echt naar gekeken.

[Verwijderd]

voor iedereen die perl net zo kut vind als ik:
code in c xmms.c:

code:

#include <xmms/xmmsctrl.h>
#include <string.h>

int main ()    {

int session, time, ttime, num, tnum,rate, freq, nch;
char *title;

session = 0;
title = xmms_remote_get_playlist_title(session, xmms_remote_get_playlist_pos(session));
time = xmms_remote_get_output_time(session)/1000;
ttime = xmms_remote_get_playlist_time(session,xmms_remote_get_playlist_pos(session))/1000;
num = xmms_remote_get_playlist_pos(session)+1;
tnum = xmms_remote_get_playlist_length(session);
xmms_remote_get_info(session, &rate, &freq, &nch);


  printf("XMMS 1.2.6: %s (%d:%02d/%d:%02d) (%03dkbps) (%d/%d)",title,time/60,time%60,ttime/60,ttime%60,rate / 1000,num,tnum);
 return 0;
}

compilen met

code:

gcc `gtk-config --cflags` -lxmms -o xmms xmms.c

en gebruiken met:

code:

#!/usr/bin/perl -w

IRC::register("XMMStat", "0.1", "", "");
IRC::add_command_handler("xmms", "xmms_query");

$PROG = "/path/naar/netge/xmms";


sub xmms_query

{
IRC::command("/exec -o $PROG");
return 1;
}