436
@verb #7407:"receive_message" this none this rxdo #7407
@program #7407:"receive_message" this none this
{msg, from} = args
"if (typeof(from) == STR)"
"  return 0"
"else"
"  return pass(@args)"
"endif"
literalmsg = toliteral(msg)
if (`index(from, "astrology") ! ANY')
  return 0
  "elseif (`index(from, \"paypal\") ! ANY')"
  "  return 0;"
elseif (`index(from, "ebay.com") ! ANY')
  return 0
elseif (`index(from, "yahoo.com") ! ANY')
  return 0
elseif (`index(from, "lycos.com") ! ANY')
  return 0
elseif (`index(from, "excite.com") ! ANY')
  return 0
elseif (`index(from, "travelocity.com") ! ANY')
  return 0
elseif (`index(from, "att.net") ! ANY')
  return 0
elseif (`index(from, "bluestell") ! ANY')
  return 0
elseif (`index(literalmsg, "viagra") ! ANY')
  return 0
elseif (`index(literalmsg, "<img") ! ANY')
  return 0
elseif (`index(literalmsg, "Diploma") ! ANY')
  return 0
elseif (index(literalmsg, "Content-type: text/html"))
  return 0
endif
return pass(@args)
"Last modified by Cecil (#7407) on Tue Dec  6 18:25:45 2005 MST."
.

0