name : Marino Andrès.
mail address : [EMAIL PROTECTED]
preferred user-ID on CPAN : igrec
I create this module to manage my icecast server!
Name : Net::Icecast
DSLI :
Development : the module is finished, and compressed in a
NetIcecast.tar.gz file
Language used : perl
Description : A perl module. This oriented object program permit
you to
use lot off the icecast commands in your
perl programm,
and configure your icecast server.
Exemple of what you can do whtih this module :
my $session =
Net::Icecast->new("icecast.computer.host",$port?,"ADMIN_Password");
$session->set_oper("OPER_Password\n");
my %sources = $session->sources;
print "Sources:\n";
foreach $key (keys %sources)
{
#If you want you print the IP address, the song title, mount point...
print "Id : $key, host : $sources{$key}->{host}\n";
}
my %clients = $session->listeners;
print "Clients:\n";
foreach $key (keys %clients)
{
#If you want you print the source id, the mount point...
print "Id : $key, host : $clients{$key}->{host}\n";
}
#And if you want to change the admin_password or client_password:
$session->set("admin_password my_new_password");
$session->set("client_password secret_password");
#And you can test the other functions in the same way that you test this
one!
#Isn't it very simple to use it :).
