- alias warenhuis-gaming {
- if ($sock(warenhuis-gaming.net)) { echo $colour(info) -ea warenhuis-gaming.net >> /warenhuis-gaming.net.net is already in use! | return }
- if (($1) && ($1 !isnum) && (!$istok(news,$1,32))) { echo $colour(info) -ea warenhuis-gaming.net >> $+(",$1,") is an invalid type. | return }
- set %wnet.type $iif($1 !isnum,$1)
- set %wnet.limit $iif($1 isnum,$1,$2)
- sockopen warenhuis-gaming www.warenhuis-gaming.net 80
- }
- on *:sockopen:warenhuis-gaming: {
- sockwrite -n $sockname GET $+(/v2/rss.php?type=,%wnet.type,&limit=,%wnet.limit) HTTP/1.1
- sockwrite -n $sockname Host: $sock($sockname).ip
- sockwrite -n $sockname Accept: */*
- sockwrite -n $sockname Connection: close
- sockwrite -n $sockname $crlf
- }
- on *:sockread:warenhuis-gaming:{
- var %wnet.data
- sockread %wnet.data
- if ($regex(%wnet.data,/</channel>/i)) set %wnet 1
- if ($regex(%wnet.data,/<title>(.*)</title>/i) && (%wnet)) .signal -n warenhuis-gaming title: $regml(1)
- if ($regex(%wnet.data,/<link>(.*)</link>/i) && (%wnet)) .signal -n warenhuis-gaming url: $+($chr(31),$chr(3),$colour(info),$replace($regml(1),$sock($sockname).ip,www.warenhuis-gaming.net),$chr(15))
- if ($regex(%wnet.data,/<description>(.*)</description>/i) && (%wnet)) .signal -n warenhuis-gaming desc: $regml(1)
- if ($regex(%wnet.data,/</item>/i) && (%wnet)) linesep -a
- ;echo -a mnet -> %mnet.data
- }
- on *:sockclose:warenhuis-gaming:unset %wnet*
- on *:signal:warenhuis-gaming:echo $colour(own) -a $signal >> $1-
Undefined
By: biggie | Date: Jan 11 2007 13:45 | Format: None | Expires: never | Size: 1.48 KB | Hits: 1411
Latest pastes
1 days ago
2 days ago
5 days ago
6 days ago
6 days ago