DÉTECTION DE LIENS (AMÉLIORÉS, CODE MOIN LOURD, AUTEUR DIFFÉRENT! :P)

alias searchurl {
  set %searchurl $matchtok($1-,http://,1,32)
  if (%searchurl == $null) goto next
  while ($pos(%searchurl,$chr(44),1) != $null) {
    if (http:// isin $left(%searchurl,$pos(%searchurl,$chr(44),1))) {
      set %searchurl $remove(%searchurl,$right(%searchurl,$calc($len(%searchurl) - $pos(%searchurl,$chr(44),1) + 1)))
    }
    else {
      set %searchurl $remove(%searchurl,$left(%searchurl,$pos(%searchurl,$chr(44),1))))
    }
  }
  goto end
  :next
  set %searchurl $matchtok($1-,www,1,32)
  if (%searchurl == $null) return $null | halt
  while ($pos(%searchurl,$chr(44),1) != $null) {
    if (www isin $left(%searchurl,$pos(%searchurl,$chr(44),1))) {
      set %searchurl $remove(%searchurl,$right(%searchurl,$calc($len(%searchurl) - $pos(%searchurl,$chr(44),1) + 1)))
    }
    else {
      set %searchurl $remove(%searchurl,$left(%searchurl,$pos(%searchurl,$chr(44),1))))
    }
  }
  set %searchurl http:// $+ %searchurl
  :end
  return %searchurl
}