;; =================================================== ;; Script: hide-email-addresses.r ;; downloaded from: www.REBOL.org ;; on: 2-May-2024 ;; at: 21:20:56.170179 UTC ;; owner: gordon [script library member who can update ;; this script] ;; =================================================== ;; =================================================== ;; email address(es) have been munged to protect ;; them from spam harvesters. ;; If you were logged on the email addresses would not ;; be munged ;; =================================================== Rebol [ Author: "Gordon Raboud" File: %hide-email-addresses.r Date: 3-June-2005 Title: "Hide E-Mail Addresses by using Javascript" Purpose: {This will take a web page and find all the "mailto:%aaa--bbb" and convert the addresses to variables for use in Javascript. This effectively 'hides' the addressess from webbot e-mail address harvesters. Note: This script expects the opening tag () and the closing tag () to be on one or at most two lines. } Library: [ Level: 'beginner Platform: [all] Type: [tool] Domain: 'text Tested-under: 'W2K Support: none License: none ] Version: 1.0 ] QtStr: to-char 34 SearchStr: join "" If not CloseTag [ WebPageText: next WebPageText SearchLine: join SearchLine [first WebPageText] ] SearchLine: join SearchLine ["~~~~"] parse/all SearchLine [copy IndentStr some " " copy FirstPart to SearchStr SearchStr copy MTName to "@" "@" copy MTDomain to "." "." copy MTExt to QtStr thru ">" copy VisibleName to "" "" copy LastPart to "~~~~" ] FirstPart: join IndentStr [FirstPart] Write/append/lines OutFile FirstPart print join MTName ["@" MTDomain "." MTExt " - " VisibleName] NewMailTo: join IndentStr ["" ] Write/append OutFile NewMailTo Write/append/lines OutFile LastPart ] [ Write/append/lines OutFile SearchLine ] ]