proc pub:news {nick uhost hand chan text} {
        putserv "PRIVMSG $chan :Fetching current news from NintendoXG.com"
	## get the url and cleanup our token
	set data [::http::data [set tok [::http::geturl "http://site.nintendoxg.com/"]]]; ::http::cleanup $tok
	## get our news items from the html
        foreach {x id title} [regexp -all -inline -- {<a href\=\'news\.php\?mode\=article\&id\=(.+?)\'>(.+?)</a>} $data] {
            ## show the info to irc...all we got from the regex was the id...so let's fill in the rest of the link
            puthelp "PRIVMSG $chan :$title \< http://site.nintendoxg.com/news.php\?mode=article\&id=$id \>"
        }
	## that's it...we are done
}
bind pub - @news pub:news