RSS

  elseif ($devent == sclick) {
    if ($did == 6) {
      if ($did(3)) && ($did(4)) {
        var %u = $replace($did(4),$chr(32),% $+ 20)
        if (%rss.edit) {
          var %editurl 1, %edittitle 1
          if (%u == $wd(%rss.edit,1,32)) %editurl = 0
          if ($did(3) == $wd(%rss.edit,2-,32)) %edittitle = 0
          if ($hget(rss,%u) != $null) && (%editurl) { errdialog The URL you edited %u already exists with the name $wd($hget(rss,%u),2-,32) $+ ! | halt }
          elseif (%edittitle) && ($hfind(rss,& $did(3),0,w).data) { errdialog The title you edited $did(3) already exists with the url $v1 $+ ! | halt }
          else {
            var %n = $encode($did(3),m),%v = $cell(feedr,3,1)),%e = %v $+ 
*
            while ($hfind(rssdone,%e,1,w)) {
              var %i = $v1
              hadd rssdone $+(%n,
,$wd(%i,2,1)) 1
              hdel rssdone %i
            }
            hadd rssdone SHA1: $+ %n $hget(rssdone,SHA1: $+ %v)
            hdel rssdone SHA1: $+ %v
            hdel rss %rss.edit
            hadd rss %u $calc($wd($did(feedr,3).seltext,5,32) -1) $did(3)
            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) { errdialog The URL %u already exists! | halt }
        elseif ($hfind(rss,& $did(3),0,w).data) { errdialog The name $did(3) already exists! | halt }
        else {
          hadd rss %u 0 $did(3)
          mdxunsel feedr 3
          did -ac feedr 3 1 + 0 0 1 $did(3) $+  + 0 0 0 %u
        }
        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 }
    }
  }
}