
lkn
|
alias socket_lknrss { sockclose lknrss | sockopen lknrss www.*****.net 80 }
on *:sockopen:lknrss: {
if ($sockerr) { echo -a Erreur de connexion au socket $sockname | halt }
else {
sockwrite -n lknrss GET /rss.php?******* HTTP/1.1
sockwrite -n lknrss Host: www.*****.net $+ $str($crlf ,2)
.remove *****-rss/category.txt
.remove *****-rss/titre.txt
.remove *****-rss/lien.txt
}
}
on *:sockread:lknrss: {
sockread %a
if (<category> isin %a) { write -il *****-rss/category.txt $remove(%a,<category>,</category>,$chr(9),',url=",type=video/mp4/>) }
if (<title> isin %a) { write -il *****-rss/titre.txt $remove(%a,<title>,$chr(9),</title>,<![CDATA[,],<,>),î,î,è,è,é,é,ç,ç,',',",",Ã,à,àª,ê,é,é,',',ç,ç,à,à,î,î,è,è,&2;,&,â,â) $+ $crlf }
if (<link> isin %a) { write -il *****-rss/lien.txt $remove(%a,<link>,</link>,$chr(9),',url=",type=video/mp4/>) }
}
on *:sockclose:lknrss: {
var %i = 0
while (%i <= 4, $lines) {
inc %i
}
timer 1 115 socket_lknrss
msg $active 4" *****.NET " 7[ $gettok($read(*****-rss/category.txt,%i),1-8,0)) ] 10 $gettok($read(*****-rss/titre.txt,%i),1-8,0)) 12 $gettok($read(*****-rss/lien.txt,%i),1-8,0)) } }
|