Link Saver

on *:text:*:#:{
  if (http:// isin $1-) {
    set %lastlink.test $wildtok($1-,http://*,1,32)
    if (%lastlink.test != %lastlink) {
      set %lastlink $wildtok($1-,http://*,1,32)
      write Link-History.txt %lastlink - $time - $nick
      echo -ta New Link Saved! - %lastlink ( $+ $chan $+ ( $+ $lines(Link-History.txt) $+ ))
    }
    else halt
  }
  elseif (www. isin $1-) {
    set %lastlink.test $wildtok($1-,www.*,1,32)
    if (%lastlink.test != %lastlink) {
      set %lastlink $wildtok($1-,www.*,1,32)
      write Link-History.txt %lastlink - $time - $nick
      echo -ta New Link Saved! - %lastlink ( $+ $chan $+ ( $+ $lines(Link-History.txt) $+ ))
    }
    else halt
  }
}
alias runlast {
  echo -ta Running %lastlink $+ ...
  run %lastlink
}
alias showlinks {
  run Link-History.txt
}