#       ::::::::  :::    ::: ::::::::::: :::            :::     :::       ::: :::::::::             ::::::::::: ::::    :::  :::::::: 
#     :+:    :+: :+:    :+:     :+:     :+:          :+: :+:   :+:       :+:      :+:                  :+:     :+:+:   :+: :+:    :+: 
#    +:+    +:+ +:+    +:+     +:+     +:+         +:+   +:+  +:+       +:+     +:+                   +:+     :+:+:+  +:+ +:+         
#   +#+    +:+ +#+    +:+     +#+     +#+        +#++:++#++: +#+  +:+  +#+    +#+                    +#+     +#+ +:+ +#+ +#+          
#  +#+    +#+ +#+    +#+     +#+     +#+        +#+     +#+ +#+ +#+#+ +#+   +#+                     +#+     +#+  +#+#+# +#+           
# #+#    #+# #+#    #+#     #+#     #+#        #+#     #+#  #+#+# #+#+#   #+#      #+#             #+#     #+#   #+#+# #+#    #+#     
# ########   ########      ###     ########## ###     ###   ###   ###   ######### ###         ########### ###    ####  ########       
#                                                                                                                                     
# simple rfi url catcher for mIRC v1 by fantasize.
# set %f $+(e:\catcher\,%date,-rfi.txt) - edit this line depending on how your drives are set up/where you want the urls to go.
# (remember you have to create the directory before mIRC will write to it.)
# irc.partyvan.fm #f & #fm
# kthx.
#

on 1:start:{ timer 0 120 /newday }
on *:text:*:*:{
  if (http isin $1-) && (php isin $1-) && ($chr(63) isin $1-) && (sql !isin $1-) && (lfi !isin $1-) {
    if ($regex($1-,/((?:http:\/\/)(?:www)?.*=)/iS)) {
      inc %ur
      set %date $replace($date,$chr(47),$chr(95))
      set %f $+(e:\catcher\,%date,-rfi.txt)
      write %f $+($token($regml(1),1,61),$iif($numtok($regml(1),61),=,$null),$chr(37),url??)
    }
  }
}
alias rfi {
  run %f
}
alias newday {
  if (%date != $replace($date,$chr(47),$chr(95))) { 
    set %ff %ur
    .timer 1 10 unset %ur
    halt
  }
  else {
    halt
  }
}
alias urls { say $date catcher has grabbed %ur urls today and %ff urls yesterday. }