peercast-enqueue-in-xmms.pl

来自「P2P应用 ： Peercast的源代码」· PL 代码 · 共 19 行

#!/usr/bin/perl

# Peercact URL handler for xmms.
# By Romain Beauxis <[e-mail]>

# Usage: peercast-enqueue-in-xmms.pl <peercast://foo>
# This script search for a string in the following mask: peercast://pls/HASHNUMBER
# And then call xmms to enqueue the URL: http://127.0.0.1:7144/stream/HASHNUMBER
# WARNING: this does not handle any parametrs like ?foo after the HASH, 
# But xmms seems to accept it.

my $args = shift;

$args =~ /peercast:\/\/pls\/(\w*)/;

my $regex = $1;

exec("xmms --enqueue \"http://127.0.0.1:7144/stream/$regex\"")