$regex / $regml url logging.

Print Thread

#155842 09/08/06 07:26 PM

Joined: Feb 2006

Posts: 164

vexed

Vogon poet

vexed

Vogon poet

Joined: Feb 2006

Posts: 164

Ok i have this to log urls pasted in a channel, then realised that if the same url is pasted twice it still logs it, then i end up with a huge text file.
Can anyone help me so that it if a url matches one already in the text file (Matches every single character) It skips it?

Code:

on ^1:TEXT:*:#: { 
  var %input = $1-
  var %url $regml($regex(%input,/((?:ftp:\/\/|https?:\/\/|www2?\.)[^&lt;&gt;\.\s]+(?:\.[^&lt;&gt;\.\s]+)+(?:\/[^&lt;&gt;\.\s]+)*)/g))
  if ( $regml($regex(%input,/((?:ftp:\/\/|https?:\/\/|www2?\.)[^&lt;&gt;\.\s]+(?:\.[^&lt;&gt;\.\s]+)+(?:\/[^&lt;&gt;\.\s]+)*)/g)) &amp;&amp; ( ($len(%url) &gt; 51) )  ) { /tinyurl $regml($regex(%input,/((?:ftp:\/\/|https?:\/\/|www2?\.)[^&lt;&gt;\.\s]+(?:\.[^&lt;&gt;\.\s]+)+(?:\/[^&lt;&gt;\.\s]+)*)/g))
    write system\url.txt $regml(1)  
    echo -a $bit Url logged:00 $regml(1)  
    haltdef
  }
}

Thanks in advance.

Re: $regex / $regml url logging. #155843 09/08/06 11:39 PM
Joined: Feb 2005 Posts: 342 R Rand Fjord artisan
Rand Fjord artisan R Joined: Feb 2005 Posts: 342	Code: if ($read(system\url.txt,w,$regml(1)) == $null) { write system\url.txt $regml(1) }

Re: $regex / $regml url logging. #155844 10/08/06 12:33 PM
Joined: Feb 2006 Posts: 164 V vexed OP Vogon poet
OP vexed Vogon poet V Joined: Feb 2006 Posts: 164	Excellent, thanks for that!

Link Copied to Clipboard

Forums Scripts & Popups $regex / $regml url logging.