peercast-enqueue-in-xmms.pl.svn-base

这是和p2p相关的一份源码

#!/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\"")