RSS Feed Script (SRU EDiT)

;*****************************************************************************************************************************************************************************************************************
;*** ######   #####   #####
;*** #     # #     # #     #           ####  ######  ####  ##### #  ####  #    #
;*** #     # #       #                #      #      #    #   #   # #    # ##   #
;*** ######   #####   #####            ####  #####  #        #   # #    # # #  #
;*** #   #         #       #               # #      #        #   # #    # #  # #
;*** #    #  #     # #     #          #    # #      #    #   #   # #    # #   ##
;*** #     #  #####   #####            ####  ######  ####    #   #  ####  #    #
;*****************************************************************************************************************************************************************************************************************
;*** RSS Feed Script by Ford_Lawnmower ( Original download from: http://www.hawkee.com/snippet/5925/ )

on @*:TEXT:!RSS*Status:#: { var %timer.num = $timer(0),%timer.timer = 1 | while (%timer.num) { $iif($left($timer(%timer.num),3) == rss,.timer 1 %timer.timer .msg $iif($nick !isop $chan,$nick,#) $+($replace($timer(%timer.num).com,RSS.Feed,[07RSS] 5Name:4,http,2http,$+($chr(32),$chr(35)), 14-4#14- 5Output: 3#),sec delay) 5Next Check: $duration($timer(%timer.num).secs) seconds away) | inc %timer.timer | dec %timer.num } }
on @*:TEXT:!RSS*HELP:#: { msg # [7RSS-7CMDS] !RSS HELP 14-4#14- !RSS LiST 14-4#14- !RSS STATUS 15ooO( Will give you status over which RSS Feeds are added and when next update is 15) }
on @*:TEXT:!RSS*LiST:#: {
  msg # [7RSS-7LiST] 5PM'iNG $nick 5the full list
  .msg $nick ToTT 15(2http://www.tokeofthetown.com/rss.xml15) | .msg $nick Ohh 15(2http://ohhburn.com/feed/15)
  .msg $nick HighTimes 15(2http://hightimes.com/feeds/home.xml15) | .msg $nick IToTD 15(2http://feeds.feedburner.com/InterestingThingOfTheDay15)
  .msg $nick BT 15(2http://www.bt.dk/bt/seneste/rss15) | .msg $nick EkstraBladet 15(2http://ekstrabladet.dk/rss2/?mode=normal15)
  .msg $nick FOX 15(2http://feeds.feedburner.com/foxnews/latest15) | .msg $nick Tech 15(2http://techcrunch.com/feed/15)
  .msg $nick MOViE 15(2http://blog.moviefone.com/rss.xml15) | .msg $nick TRAiLER 15(2http://trailers.apple.com/trailers/home/rss/newtrailers.rss15)
  .msg $nick CNN 15(2http://rss.cnn.com/rss/edition.rss15) | .msg $nick FARK 15(2http://www.fark.com/fark.rss15)
  .msg $nick Boing 15(2http://feeds.boingboing.net/boingboing/iBag15) | .msg $nick Hawkee 15(2http://www.hawkee.com/comment.rss.php15)

}
;************************************************************************************************************************************************************************************************************************
menu * {
  -
  .RSSFeed1.0
  ..Dialogs:RSS1.0
  ..List Feeds:RSS.Status
  -
}
;************************************************************************************************************************************************************************************************************************
on *:sockopen:RSS: {
  ;  echo -at There has been opend a connection to $+(%RSSsite,%RSSurl)
  sockwrite -nt $sockname GET %RSSurl HTTP/1.0
  sockwrite -n $sockname User-Agent: Opera 9.6
  sockwrite -n $sockname Host: %RSSsite $+ $CRLF $+ $CRLF
}
;************************************************************************************************************************************************************************************************************************
on *:sockread:RSS: {
  if ($sockerr > 0) { echo -at There has been an error... >RSS1.0<>Sock Error< |  RSS.clear }
  else { var %RSSvar |  sockread %RSSvar
    if (<entry> isin %RSSvar) { set %RSS.Start on }
    if (</entry> isin %RSSvar) || (</item> isin %RSSvar) { set %RSS.Dup Off
      ;*** SETTiNG FiNAL OUTPUT
      set -u3 %MSG $replace(%RSS.Name,HighTimes,9_\|/_8HighTimes9_\|/_,ToTT,9_\|/_15ToTT9_\|/_,BAKED,9_\|/_15Good14&15Baked9_\|/_,Ohh,3_\|/_15OhhhBurn3_\|/_,Tech,/15Tech14Church\,IToTD,2\7IToTD2/7,Hawkee,14/4Hawkee14\13,Boing,$+(5/4,$chr(44),1boingboing5\7),MOViE,$+(/4,$chr(44),0MOViEFONE\7),TRAiLER,/5mTRAiLER\7,FOX,0\2FOX15News0/7,CNN,\4CNN15News/7,FARK,\14FARK15News/7,BT,\4BT15News/4,EkstraBladet,$+(\0,$chr(44),4EkstraBladet/4)) $&
        $+($iif(%RSS.Name != Hawkee,),$replacex($mLiNK-ReplaceR($remove(%RSS.Title,&amp;,&quot;,&gt;)),$+($chr(32),commented on), commented on,$+(mIRC Snippet:,$chr(32)),$+(m,IRC Snippet:,$chr(32),7),$+(:,$chr(32)),$+(:,$chr(32),7)),) $&
        $+(15,$chr(40),2,$strip($replace($nospace(%RSS.Link),$chr(32),$+($chr(37),20))),15,$chr(41),)
      ;*************************************************************************************************************************************************
      if ($hfind(%RSSsite,$right($remove(%RSS.title,$chr(32)),70))) { set %RSS.Dup ON }
      if (%RSS.Dup == Off) && (%RSS.Count <= %RSS.Max) { set %RSS.Output 1
        while $gettok(%RSS.Chans,%RSS.Output,44) {
          if ($gettok(%RSS.Chans,%RSS.Output,44) ischan) {
            .msg $gettok(%RSS.Chans,%RSS.Output,44) %MSG
          }
          inc %RSS.Output
        }
        inc %RSS.Count
      }
      hadd %RSSsite $right($remove(%RSS.title,$chr(32)),70) %RSS.Link $+ $chr(7) $+ %RSS.Title $+ $chr(7) $+ %RSS.Date $+ $chr(7)
    }
    ;*** TiTLE
    if (<title> isin %RSSvar) { set %RSS.Title $remove($gettok($replace(%RSSvar,<title>,$chr(7),</title>,$chr(7)),2,7),<![CDATA[,]]>)) }
    if ($left(%RSSvar,7) == <title>) { set %RSS.Title $remove(%RSSvar,<title>,</title>,<![CDATA[,]]>) }
    ;*** LiNK
    if (<link href=" isin %RSSvar) { set %RSS.Link $nospace($remove(%RSSvar,<link href="," />)) }
    if (<link> isin %RSSvar) { set %RSS.Link $gettok($replace(%RSSvar,<link>,$chr(7),</link>,$chr(7)),2,7) }
    if ($left(%RSSvar,6) == <link>) { set %RSS.Link $remove(%RSSvar,<link>,</link>) }
    ;*** DATE
    if  (<updated> isin %RSSvar) { set %RSS.Date $gettok($replace(%RSSvar,<updated>,$chr(7),</updated>,$chr(7)),2,7) }
    if ($left(%RSSvar,9) == <updated>) { set %RSS.Date $remove(%RSSvar,<updated>,</updated>) }
    if (<pubdate> isin %RSSvar) { set %RSS.Date $gettok($replace(%RSSvar,<pubdate>,$chr(7),</pubdate>,$chr(7)),2,7) }
    if ($left(%RSSvar,9) == <pubdate>) { set %RSS.Date $remove(%RSSvar,<pubdate>,</pubdate>) }
    ;*** CLEAR
    if (</feed> isin %RSSvar) || (</rss> isin %RSSvar) || (</channel> isin %RSSvar) { RSS.Clear }
  }
}
;************************************************************************************************************************************************************************************************************************
on *:Connect: { $iif(!$hget(RSSFeed),hmake RSSFeed 5) | RSS.StartUp }
on *:Start: { $iif(!$hget(RSSFeed),hmake RSSFeed 5) | $iif($isfile(RSSFeed.hsh),hload -s RSSFeed RSSFeed.hsh) }
on *:Exit: { $iif($hget(RSSFeed),hsave RSSFeed RSSFeed.hsh) | hfree RSSFeed }
on *:Disconnect: { $iif($hget(RSSFeed),hsave RSSFeed RSSFeed.hsh) }
on *:Unload: { hfree RSSFeed }
;************************************************************************************************************************************************************************************************************************
;*** Dialog
alias RSS1.0 { dialog -m RSSFeed1 RSSFeed1 }
;***********************************************
dialog RSSFeed1 {
  title "RSS Feed 1.0"
  size -1 -1 104 136
  option dbu
  list 1, 8 16 90 82
  button "Add", 2, 8 104 29 12
  button "Delete", 3, 40 104 29 12
  button "Edit", 4, 72 104 29 12
  button "Close", 5, 8 120 93 12, ok cancel
  text "Click Add or Click a feed to Edit/Del ", 6, 8 8 89 8, center
}
;***********************************************
dialog RSSFeed2 {
  title "RSS Feed 1.0 Add/Edit"
  size -1 -1 104 104
  option dbu
  edit "", 1, 8 16 42 10, autohs
  text "RSS Name", 2, 8 8 41 8, center
  edit "", 3, 8 40 90 10, autohs
  edit "", 4, 56 16 42 10, autohs
  text "Delay in Seconds", 5, 56 8 41 8, center
  text "RSS Feed Link - ie http://Rss.Bla", 6, 8 32 89 8, center
  edit "", 7, 8 64 90 10, autohs
  text "Chans for Feed Separate  w/Space", 8, 8 56 89 8
  button "Accept", 9, 8 80 37 12, ok
  button "Cancel", 10, 60 80 37 12, cancel
}
;***********************************************
on *:dialog:RSSFeed1:init:*: { didtok RSSFeed1 1 32 %Global.Feed.List }
;***********************************************
on *:dialog:RSSFeed2:init:*: {
  did -a RSSFeed2 1 %Feed.Name
  did -a RSSFeed2 3 %Feed.Link
  did -a RSSFeed2 4 %Feed.Delay
  did -a RSSFeed2 7 %Feed.Chans
}
;***********************************************
on *:dialog:RSSFeed1:Sclick:*: {
  if ($did == 2) {
    dialog -x RSSFeed1
    dialog -m RSSFeed2 RSSFeed2
  }
  if ($did == 3) {
    if ($did(1).sel) {
      .timerRSS [ $+ [ $gettok($hget(rssfeed,$did(1).seltext),1,32) ]  ] off
      hdel  RSSFeed $did(1).seltext
      did -d RSSFeed1 1 $did(1).sel
      set %Global.Feed.List $didtok(RSSFeed1,1,32)
      else { return }
    }
  }
  if ($did == 4) {
    if ($did(1).sel) {
      set %Feed.Name $did(1).seltext
      set %Feed.Link $gettok($hget(rssfeed,$did(1).seltext),1,32)
      set %Feed.Chans $gettok($hget(rssfeed,$did(1).seltext),2,32)
      set %Feed.Delay $gettok($hget(rssfeed,$did(1).seltext),3,32)
      dialog -x RSSFeed1
      dialog -m RSSFeed2 RSSFeed2
    }
    else { halt }
  }
}
;***********************************************
on *:dialog:RSSFeed2:Sclick:*: {
  if ($did == 9) {
    if ($hget(rssfeed,%Feed.Name)) {
      .timerRSS [ $+ [ $gettok($hget(rssfeed,%Feed.Name),1,32) ]  ] off
      hdel RSSFeed %Feed.Name
      set %Global.Feed.List $remove(%Global.Feed.List,$replace(%Feed.Name,$chr(32),-))
    }
    if (%Feed.Name.Temp) {
      if ($hget(rssfeed,$replace(%Feed.Name.Temp,$chr(32),-))) {
        .timerRSS [ $+ [ $gettok($hget(rssfeed,%Feed.Name.Temp),1,32) ]  ] off
        hdel RSSFeed %Feed.Name.Temp
        set %Global.Feed.List $remove(%Global.Feed.List,$replace(%Feed.Name.Temp,$chr(32),-))
      }
      set %Feed.Name %Feed.Name.Temp
    }
    if (%Feed.Link.Temp) { set %Feed.Link %Feed.Link.Temp }
    if (%Feed.Delay.Temp) { set %Feed.Delay %Feed.Delay.Temp }
    if (%Feed.Chans.Temp) { set %Feed.Chans %Feed.Chans.Temp }
    if (!%Feed.Name) || (!%Feed.Link) || (!%Feed.Delay) || (!%Feed.Chans) { echo -a You must fill in all the boxes!!! | dialog RSSFeed2 | halt }
    unset *.Temp
    if (!$hget(RSSFeed)) { hmake RSSFeed 5 }
    hadd RSSFeed $replace(%Feed.Name,$chr(32),-) $remove(%Feed.Link,$chr(32)) $replace(%Feed.Chans,$chr(32),$chr(44)) $remove(%Feed.Delay,$chr(32))
    RSS.Feed $replace(%Feed.Name,$chr(32),-) $remove(%Feed.Link,$chr(32)) $replace(%Feed.Chans,$chr(32),$chr(44)) $remove(%Feed.Delay,$chr(32))
    set %Global.Feed.List %Global.Feed.List $replace(%Feed.Name,$chr(32),-)
  }
  unset %Feed.*
  dialog -m RSSFeed1 RSSFeed1
}
;***********************************************
if ($did == 10) { unset *.Temp %Feed.* | dialog -m RSSFeed1 RSSFeed1 }
;***********************************************
on *:dialog:RSSFeed2:edit:*: {
  if ($did == 1) { set %Feed.Name.Temp $did(RSSFeed2,1) }
  if ($did == 3) { set %Feed.Link.Temp $did(RSSFeed2,3) }
  if ($did == 4) { set %Feed.Delay.Temp $did(RSSFeed2,4) }
  if ($did == 7) { set %Feed.Chans.Temp $did(RSSFeed2,7) }
}
;************************************************************************************************************************************************************************************************************************