Version imprimable
Bonjour,
Je voudrez pouvoir kicker un serveur shoutcast avec perl j'ai donc fait :
my $source = get("http://leliens:leport/admin.cgi?pass=lepass&mode=kicksrc" );
print $source;
Mais cela fonctionne pas car cela me donne :
ICY 404 Resource Not Found
icy-notice1:<BR>SHOUTcast Distributed Network Audio Server/Linux<BR>
icy-notice2:The resource requested was not found<BR>
Au lieu de kicker !
Quelque soit le problème, ici, ce n'est pas un problème perl. La requête a bien été envoyé et le serveur répond qu'il ne sait pas quoi faire de cette demande.
Maintenant, n'étant pas spécialiste du kickage de serveur shoutcast, je ne saurais pas dire pourquoi ça ne le kicke pas, mais ce n'est pas dans ce forum qu'une aide pertinente vous sera fournie (ou alors ce sera un hasard).
Au passage, la méthode générale pour traiter ce genre de problème, c'est de le faire avec une interface classique, vérifier dans les logs du serveur ou même avec un sniffeur ce qui est réellement envoyé, et reproduire la chose dans le script.