2cb
@verb #8165:"killdup" this none this rxdo #8165
@program #8165:"killdup" this none this
for lists in ($evil.duplicateTopics)
  main = lists[1]
  dups = lists[2..length(lists)]
  mainparsed = $su:explode(main, "!")
  mainobj = toobj(mainparsed[1])
  maintext = mainobj:fileread(mainparsed[2])
  go = 1
  for line in (maintext)
    go = go && !index(line, "redirect target")
  endfor
  if (go)
    for dup in (dups)
      dupparsed = $su:explode(dup, "!")
      dupobj = toobj(dupparsed[1])
      dupobj:filewrite(dupparsed[2], {"<help>", "<redirect target=\"" + mainparsed[2] + "\" />", "</help>"})
    endfor
  endif
endfor
"Last modified by Mandos (#8165) on Sat Sep 18 21:36:35 2004 MDT."
.

0