RSS Reader

on *:connect: {
;Timer til at checke hver 5 min efter en nyhed
.timerGETNeWS 0 300 Get:NEWS
}

alias Get:NEWS:again {
unset %Link.H %Link.M %Link.S
get:news
}

alias Get:NEWS {
;Logo
set %logo 7,0[NeWS]1,0
;Lukker sockets hvis en skulle være åben ved en fejl
sockclose GetNEWS_M
sockclose GetNEWS_H
sockclose GetNEWS_S
sockclose GetNEWS_F
sockclose GetNEWS_C
sockclose GetNEWS_R

;Åbner sockets med 5 sekunders mellemrum så de ikke overskriver hinanden.
sockopen GetNEWS_H www.HLTV.org 80
.timer 1 5 sockopen GetNEWS_M www.myMYM.com 80
.timer 1 10 sockopen GetNEWS_S www.sk-gaming.com 80
.timer 1 15 sockopen GetNEWS_F www.fnatic.com 80
}

on *:sockopen:GetNEWS*:{
;Hvad socket er markeret med et bogstav i enden af navnet for at vi kan identificere dem i det videre forløb..
if ($right($sockname,1) = M) {
;Vi henter info fra www.myMYm.com/en/rss/news/cs.xml
sockwrite -n $sockname GET /en/rss/news/cs.xml HTTP/1.1
;/en/archiv.html?game=cs&author=0&after=dd-mm-yyyy&before=dd-mm-yyyy&n_mainnews=0&am p;am p;submit=Filter
sockwrite -n $sockname Host: www.myMYm.com $+ $crlf $+ $crlf
}
if ($right($sockname,1) = S) {
;Vi henter info fra www.sk-gaming.com/rss/news/cs
sockwrite -n $sockname GET /rss/channel/cs HTTP/1.1
sockwrite -n $sockname Host: www.sk-gaming.com $+ $crlf $+ $crlf
}
if ($right($sockname,1) = H) {
;Vi henter info fra www.hltv.org/
sockwrite -n $sockname GET /news.rss.php HTTP/1.1
sockwrite -n $sockname Host: www.hltv.org $+ $crlf $+ $crlf
}
if ($right($sockname,1) = F) {
;Vi henter info fra www.fnatic.com/
sockwrite -n $sockname GET /fnatic/teamnews?format=xml HTTP/1.1
sockwrite -n $sockname Host: http://feeds.feedburner.com $+ $crlf $+ $crlf
}
if ($right($sockname,1) = C) {
;Vi henter info fra www.cadred.org/
sockwrite -n $sockname GET /Rss/Channel/1/ HTTP/1.1
sockwrite -n $sockname Host: http://www.cadred.org $+ $crlf $+ $crlf
}
if ($right($sockname,1) = R) {
;Vi henter info fra www.rakaka.se/
sockwrite -n $sockname GET /Rakakasweden?format=xml HTTP/1.1
sockwrite -n $sockname Host: http://feeds.feedburner.com $+ $crlf $+ $crlf


on *:sockread:GetNEWS*:{
;Unset %x hvis der skulle være sket en fejl.
unset %x
;henter info fra socket til variable: %x
sockread %x
;Vi bruger markeringen til at identifisere hvilken hjemmeside der læses fra. (M = MyMyM)
if ($right($sockname,1) = M) {
;Vi checker socket efter nogle forskellige dataer og henter den info vi skal bruge som gemmes i %Tekst %Link og %Title og det hele spyttes ud i et window..
if (<title> isin $gettok(%x,1,32)) {
if (%Des) {
set %Title $left($right(%x,-9),-9)
}
}
elseif (<link> isin $gettok(%x,1,32)) {
if (%Des) {
set %Link $left($right(%x,-8),-8)
}
}
elseif (<description> isin $gettok(%x,1,32)) {
if (%Des) {
unset %Des
set %Tekst $left($right(%x,-15),-15)
if (%Link = %Link.M) { goto done1 }
set %Link.M %Link
msg #Trier1337 %logo www.myMyM.com %logo $time $date %logo
msg #Trier1337 %Logo %Title %Logo %Tekst %logo %Link %logo
:done1
sockclose $sockname
unset %x %link %title %des %tekst
halt
}
else { set -u5 %Des 1 }
}
}


if ($right($sockname,1) = S) {
set %x $remove(%x,![CDATA[)
if (<title> isin $gettok(%x,1,32)) {
if (%Des = 2) {
set %Title $left($right(%x,-11),-11)
}
else { inc %Des 1 }
}
elseif (<link> isin $gettok(%x,1,32)) {
if (%Des = 2) {
set %Link $left($right(%x,-9),-7)
}
}
elseif (<description> isin $gettok(%x,1,32)) {
if (%Des = 2) {
set %Tekst $remove($left($gettok(%x,3,62),-2),&quot;))
if (%Link = %Link.S) { goto done3 }
set %Link.S %Link
msg #Trier1337 %Logo www.SK-Gaming.com %logo $time $date %logo
msg #Trier1337 %logo %Title %Logo %Tekst %logo %Link %logo
:done3
sockclose $sockname
unset %x %link %title %des %tekst
halt
}
}
}



if ($right($sockname,1) = F) {
set %x $remove(%x,![CDATA[)
if (<title> isin $gettok(%x,1,32)) {
if (%Des = 2) {
set %Title $left($right(%x,-11),-11)
}
else { inc %Des 1 }
}
elseif (<link> isin $gettok(%x,1,32)) {
if (%Des = 2) {
set %Link $left($right(%x,-9),-7)
}
}
elseif (<description> isin $gettok(%x,1,32)) {
if (%Des = 2) {
set %Tekst $remove($left($gettok(%x,3,62),-2),&quot;))
if (%Link = %Link.S) { goto done3 }
set %Link.S %Link

msg #Trier1337 %Logo www.fnatic.com %logo $time $date %logo
msg #Trier1337 %logo %Title %Logo %Tekst %logo %Link %logo
:done3
sockclose $sockname
unset %x %link %title %des %tekst
halt
}
}
}



if ($right($sockname,1) = C) {
set %x $remove(%x,![CDATA[)
if (<title> isin $gettok(%x,1,32)) {
if (%Des = 2) {
set %Title $left($right(%x,-11),-11)
}
else { inc %Des 1 }
}
elseif (<link> isin $gettok(%x,1,32)) {
if (%Des = 2) {
set %Link $left($right(%x,-9),-7)
}
}
elseif (<description> isin $gettok(%x,1,32)) {
if (%Des = 2) {
set %Tekst $remove($left($gettok(%x,3,62),-2),&quot;))
if (%Link = %Link.S) { goto done3 }
set %Link.S %Link

msg #Trier1337 %Logo www.cadred.org %logo $time $date %logo
msg #Trier1337 %logo %Title %Logo %Tekst %logo %Link %logo
:done3
sockclose $sockname
unset %x %link %title %des %tekst
halt
}
}
}


if ($right($sockname,1) = R) {
set %x $remove(%x,![CDATA[)
if (<title> isin $gettok(%x,1,32)) {
if (%Des = 2) {
set %Title $left($right(%x,-11),-11)
}
else { inc %Des 1 }
}
elseif (<link> isin $gettok(%x,1,32)) {
if (%Des = 2) {
set %Link $left($right(%x,-9),-7)
}
}
elseif (<description> isin $gettok(%x,1,32)) {
if (%Des = 2) {
set %Tekst $remove($left($gettok(%x,3,62),-2),&quot;))
if (%Link = %Link.S) { goto done3 }
set %Link.S %Link

msg #Trier1337 %Logo www.rakaka.se %logo $time $date %logo
msg #Trier1337 %logo %Title %Logo %Tekst %logo %Link %logo
:done3
sockclose $sockname
unset %x %link %title %des %tekst
halt
}
}
}




if ($right($sockname,1) = H) {
if (%Temp.Data >= 1) {
if (!$gettok(%x,16,34)) {
unset %Temp.data
;echo -a INTET
sockclose GetNEWS_H
sockopen GetNEWS_H www.HLTV.org 80
;set %Temp.data 0
halt
}
set %Link $remove($gettok(%x,12,34),amp;)
if (%Link = %Link.H) { goto DONE2 }
set %Link.H %Link
msg #Trier1337 %Logo www.HLTV.org %logo $time $date %logo
msg #Trier1337 %Logo $gettok(%x,16,34) %logo www.HLTV.org $+ %Link %logo
:DONE2
dec %Temp.data
unset %x %link
sockclose $sockname
}
elseif (*<div*class=*newsRight*>* iswm %x) {
set -u5 %Temp.data 1
}
}
unset %x
}
}
}