Method code for $string.strip_html()

[Turn off line numbering]

  1: arg str;
  2: var r, ra;
  3: 
  4: while ((r = "<" in str))
  5:     str = str.subrange(1, r - 1) + str.subrange((">" in str) + 1);
  6: str = strsub(str, "&lt;", "<");
  7: str = strsub(str, "&gt;", ">");
  8: str = strsub(str, "&nbsp;", " ");
  9: str = strsub(str, "&quot;", "\"");
 10: str = strsub(str, "&amp;", (ra = "/" + $code_lib.random_word() + "\"));
 11: while ((r = "&" in str))
 12:     str = str.subrange(1, r - 1) + "*" + str.subrange((";" in str) + 1);
 13: str = strsub(str, ra, "&");
 14: return str;

// Created 27-Mar-1995 as a part of ColdCore, see: @help Credit

Tlon