radio.tcl Scrip pour la radio web MIXX radio

Ce script est fait pour la lecture des tires qui passe sur la radio web MIXX radio.
Les commandes sont simple comme !titre pour la lecture du titre en cours et !suivant pour la lecture du titre à venir sur la radio
Le script vas être lancé sur l'un de mes bots sur le réseau Ircube dans le chan #MIXXradio.

Voilà donc la source du script à nommé radio.tcl:

###### radio.tc Titre de la radio web MixX Radio

bind pub - !titre mixx:get_titre
bind dcc m mixx mixx:dccget

proc mixx:get_titre  {nick uhost hand chan rest} {
  putserv "PRIVMSG $chan :ACTION : [ mixx:actuel ] "
}

proc mixx:dccget {handle idx arg} {
	putlog [mixx:actuel]
}

proc mixx:actuel {} {

	append htmlUrl "http://glup59.free.fr/titre2.txt"

	if { [catch { ::http::geturl $htmlUrl} token]} {
		putlog "Error $htmlUrl : $token"
		return
	}

	if { [::http::status $token] == "ok"} {
		puts "Page $htmlUrl received"
	} else {
		puts "Error $htmlUrl : [::http::code $token]"
	}

	putlog "code=[::http::code $token]"

	set htmlFile [::http::data $token]
	

	foreach c [split $htmlFile \n] { 
		  return $htmlFile
	}
     
}

#######################################

bind pub - !suivant abf:get_titre
bind dcc m abf abf:dccget

proc abf:get_titre  {nick uhost hand chan rest} {
  putserv "PRIVMSG $chan :ACTION : [ abf:actuel ] "
}

proc abf:dccget {handle idx arg} {
	putlog [f3:actuel]
}

proc abf:actuel {} {

	append htmlUrl "http://glup59.free.fr/titrelive.txt"

	if { [catch { ::http::geturl $htmlUrl} token]} {
		putlog "Error $htmlUrl : bad URL or no network"
		return
	}

	if { [::http::status $token] == "ok"} {
		puts "Page $htmlUrl received"
	} else {
		puts "Error $htmlUrl : [::http::code $token]"
	}

	putlog "code=[::http::code $token]"

	set htmlFile [::http::data $token]
	

	foreach c [split $htmlFile \n] { 
		  return $htmlFile
	}
     
}

putlog "radio.tcl Script de MixX Radio"

La source en téléchargement aussi pour les feignants :

Ajouter un commentaire

Les commentaires peuvent être formatés en utilisant une syntaxe wiki simplifiée.

Fil des commentaires de ce billet