RSS

    elseif ($devent == sclick) {
    if ($did == 6) {
      if ($did(3)) && ($did(4)) {
        var %u = $replace($did(4),$chr(32),% $+ 20)
        if (%rss.edit) {
          var %n = $encode($did(3),m),%v = $cell(feedr,3,1)),%e = %v $+ $chr(1) $+ *
          while ($hfind(rssdone,%e,1,w)) {
            var %i = $v1
            hadd rssdone $+(%n,$chr(1),$wd(%i,2,1)) 1
            hdel rssdone %i
          }
          hadd rssdone SHA1: $+ %n $hget(rssdone,SHA1: $+ %v)
          hdel rssdone SHA1: $+ %v
          hadd rss %u $calc($wd($did(feedr,3).seltext,5,32) -1) $did(3)
          hdel rss %rss.edit
          did -co feedr 3 $did(feedr,3).sel 1 +fs 0 0 $wd($did(feedr,3).seltext,5,32) $did(3) $+    + 0 0 0 %u
        }
        elseif ($hget(rss,%u) != $null) { idialog The %u URL already exists! }
        else {
          hadd rss %u 0 $did(3)
          mdxunsel feedr 3
          did -ac feedr 3 1 + 0 0 1 $did(3) $+  + 0 0 0 %u
        }
        hsave -ob rss $_tabdir(rss.tbl)
        did $iif($did(feedr,3).sel,-e,-b) feedr 6,8,24,26
        did $iif($did(feedr,3).lines >= 1,-e,-b) feedr 7
      }
      else { beep.error | halt }
    }
  }