alias regextest {
var %text = door.net <a href="http://www.url.com/cowheadcheese.html"> http://cat.dog.net/dogcatcher/frogsnatcher/ http://car.mart.org chorn.com that.mouse.net ftp://hrm.farkwad.com butter.bowl.turkey myspace.com/scorpwanna http://horse.net scorpwanna.com sub.domain.co.uk ford car.org
;var %text = $1-
echo $color(info) -aeg ---------------------------------
;looking only for: *://this.that.com
var %fullurl = $regex(fullurl,%text,/((?:http|https|ftp):\/\/+(?:|\w+\.)\w+\.(?:com|net|org|ca|au|co.uk|name|us|biz|info)(?:[^\s]*|\/+\w[^\s]*))/ig)
;below built for only [fullurl]
var %i = 1
var %blah = $regml(fullurl,0)
echo -ag %fullurl possible full url name(s) found.
while (%i <= %blah) {
echo -ag %i $regml(fullurl,%i)
var %urlreplace = $replace($regml(fullurl,%i),:,$chr(32) $+ colon $+ $chr(32),.,$chr(32) $+ dot $+ $chr(32))
%text = $replace(%text,$regml(fullurl,%i),%urlreplace)
inc %i
}
echo $color(info) -ag ---------------------------------
;looking only for: this.that.com
var %subdomain = $regex(subdomain,%text,/((?:^|\s)+\w+\.\w+\.(?:com|net|org|ca|au|co.uk|name|us|biz|info)(?:[^\s]*|\/+\w[^\s]*))/ig)
;below built for only [subdomain]
var %i = 1
var %blah = $regml(subdomain,0)
echo -ag %subdomain possible subdomain name(s) found.
while (%i <= %blah) {
echo -ag %i $regml(subdomain,%i)
var %urlreplace = $replace($regml(subdomain,%i),.,$chr(32) $+ dot $+ $chr(32))
%text = $replace(%text,$regml(subdomain,%i),%urlreplace)
inc %i
}
echo $color(info) -ae ---------------------------------
;looking only for: that.com
var %domain = $regex(domain,%text,/((?:^|\s)+\w+\.(?:com|net|org|ca|au|co.uk|name|us|biz|info)(?:[^\s]*|\/+\w[^\s]*))/ig)
;below built for only [domain]
var %i = 1
var %blah = $regml(domain,0)
echo -ag %domain possible domain name(s) found.
while (%i <= %blah) {
echo -ag %i $regml(domain,%i)
var %urlreplace = $replace($regml(domain,%i),.,$chr(32) $+ dot $+ $chr(32))
%text = $replace(%text,$regml(domain,%i),%urlreplace)
inc %i
}
echo -aeg %fullurl url(s) found, %subdomain possible subdomain name(s) found and %domain possible domain name(s) found.
;return %text
}