mIRC Home    About    Download    Register    News    Help

Print Thread
Ident Clone Scanner - Cleaner and unsetting issue #202202 17/07/08 05:02 PM
Joined: Jul 2008
Posts: 24
W
WhipLash Offline OP
Ameglian cow
OP Offline
Ameglian cow
W
Joined: Jul 2008
Posts: 24
Hey folks,
We have a University that makes use of our network via a CGI client. They all connect through the same proxy, but CGI numbers differ from PC to PC. So to prevent them from creating clones i wrote a script to check idents on join and added it to my current on JOIN script.

Code:
alias ccheck {
  unset %ccchan
  var %c = 1, %b = $nick($chan, 0)
  While (%c <= %b) {
    set %ccuser $nick($chan, %c)
    Var %i = 1, %s = $nick($chan, 0)
    While (%i <= %s) {
      if ($address($nick($chan, %i),3) == $address(%ccuser, 3)) {
        if ($nick($chan, %i) != %ccuser) && ($nick($chan,%i) !isin %ccchan) {
          set %ccchan %ccchan $nick($chan, %i) &
        }
      }
      inc %i
    }
    inc %c
  }
  unset %ccuser
  if (%ccchan == $null) {
    return
  }
  else { 
    return [3I14dent 3C14lones: $left(%ccchan,$calc($len(%ccchan) - 2)) $+ ] 
    unset %ccchan* 
  }
}


Now you'll notice that there are two places where i attempt to unset the variable. The one at the start of the script unsets it, but the one at the end doesnt. Why is this? I think its fairly neat, but if anyone has a better what of doing this, please let me know.

Final thing. In order for this script to work, the IAL has to be fulled. So its current set to enable when the command is issued and the IAL is filled. Any thing to add to this to make it better?


=======================
Count WhipLash
Services Administrator
KnightNet
=======================
Re: Ident Clone Scanner - Cleaner and unsetting issue [Re: WhipLash] #202203 17/07/08 05:05 PM
Joined: Jun 2008
Posts: 58
P
Pivo Offline
Babel fish
Offline
Babel fish
P
Joined: Jun 2008
Posts: 58
I do not know a way to make this work without the IAL being filled.
But your unset isn't executed because return simply halts the current script. /help /return
You only have to replace the unset- and return-line in the else-block.

Re: Ident Clone Scanner - Cleaner and unsetting issue [Re: Pivo] #202204 17/07/08 05:16 PM
Joined: Jul 2008
Posts: 24
W
WhipLash Offline OP
Ameglian cow
OP Offline
Ameglian cow
W
Joined: Jul 2008
Posts: 24
Im assuming return is the best to use in this case, but surely swapping the return and the unset would unset the variable before it's return, thus returning null?


=======================
Count WhipLash
Services Administrator
KnightNet
=======================
Re: Ident Clone Scanner - Cleaner and unsetting issue [Re: WhipLash] #202205 17/07/08 05:29 PM
Joined: Jan 2003
Posts: 2,523
Q
qwerty Offline
Hoopy frood
Offline
Hoopy frood
Q
Joined: Jan 2003
Posts: 2,523
Why not just make %ccchan a local variable (like you did with %c and %b)?


/.timerQ 1 0 echo /.timerQ 1 0 $timer(Q).com
Re: Ident Clone Scanner - Cleaner and unsetting issue [Re: qwerty] #202206 17/07/08 05:36 PM
Joined: Jul 2008
Posts: 24
W
WhipLash Offline OP
Ameglian cow
OP Offline
Ameglian cow
W
Joined: Jul 2008
Posts: 24
I had tried to do this with only one set of local variables, and it didnt work, so i assumed i'd have to use global variables if i wanted to use them inside and outside of the while loops.. But i'll give it a try. Thanks qwerty smile


=======================
Count WhipLash
Services Administrator
KnightNet
=======================
Re: Ident Clone Scanner - Cleaner and unsetting issue [Re: WhipLash] #202246 18/07/08 04:21 PM
Joined: Jun 2008
Posts: 58
P
Pivo Offline
Babel fish
Offline
Babel fish
P
Joined: Jun 2008
Posts: 58
Originally Posted By: WhipLash
Im assuming return is the best to use in this case, but surely swapping the return and the unset would unset the variable before it's return, thus returning null?


Oh, indeed, you're using the variable in the message... sorry shocked
Anyway, a local variable should work in that case, both in- and outside a while loop.

Re: Ident Clone Scanner - Cleaner and unsetting issue [Re: Pivo] #202372 20/07/08 09:25 PM
Joined: Jul 2008
Posts: 24
W
WhipLash Offline OP
Ameglian cow
OP Offline
Ameglian cow
W
Joined: Jul 2008
Posts: 24
Thanks guys,
I set it as a local variable and all seems to be running smoothly.


=======================
Count WhipLash
Services Administrator
KnightNet
=======================