Auth-Update - Revision history

Vliedel: added link to v2

2008-06-28T12:54:11Z

added link to v2

← Older revision		Revision as of 12:54, 28 June 2008
Line 1:		Line 1:
			This snippet is an old version of [[Auth-Update2\|Auth_update2]]
	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; AUTH_UPDATE ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;		;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; AUTH_UPDATE ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	;		;

Vliedel: $isid check for alias auth

2008-01-30T23:15:49Z

$isid check for alias auth

← Older revision		Revision as of 23:15, 30 January 2008
Line 130:		Line 130:
	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ALIAS AUTH ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;		;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ALIAS AUTH ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	alias auth {		alias auth {
	if ($1 == $null) \|\| (($2 !== $null) && (!$scid($2))) { return }		if (!$isid) { $iif($show,.auth,auth) $1- \| return }
			if ($1 == $null) \|\| (($2 !== $null) && ((!$scid($2)) \|\| (!$2))) { return }
	return $hget(auths. $+ $iif($2 !== $null,$2,$cid),$1)		return $hget(auths. $+ $iif($2 !== $null,$2,$cid),$1)
	}		}

Vliedel: restore old version

2008-01-30T23:15:02Z

restore old version

Show changes

Vliedel: /auth used by qnet

2008-01-30T22:45:16Z

/auth used by qnet

Show changes

Vliedel: version 1.1

2007-03-29T12:07:05Z

version 1.1

Show changes

Vliedel: version 1.02

2007-03-13T17:39:14Z

version 1.02

Show changes

Vliedel: version update

2007-03-09T11:47:08Z

version update

← Older revision		Revision as of 11:47, 9 March 2007
Line 3:		Line 3:
	;		;
	; by Vliedel -- #vliedel @ QuakeNet		; by Vliedel -- #vliedel @ QuakeNet
	; version 1.0 (written and tested on mIRC 6.2)		; version 1.01 (written and tested on mIRC 6.2)
	; made for Quakenet (used some tricks that may not work on other networks)		; made for Quakenet (used some tricks that may not work on other networks)
	;		;
Line 9:		Line 9:
	;What does this script do?		;What does this script do?
	;		;
	; - updates the auths of nicks and stores them in a hash table ~~(auths.$cid)~~		; - updates the auths of nicks and stores them in a hash table
	; - if a channel is too big, /who nick1,nick2,nick3 etc is done untill the auths for the channel is updated		; - if a channel is too big, /who nick1,nick2,nick3 etc is done untill the auths for the channel is updated
	; - users with host auth.users.quakenet.org will be saved without a /who		; - users with host auth.users.quakenet.org will be saved without a /who
	; - users who are not authed (auth 0) will be checked every x time to see if they are authed yet		; - users who are not authed (auth 0) will be checked every x time to see if they are authed yet
	; - script updates from ~~biggest~~ to the smallest channel		; - script updates from largest to the smallest channel
	;		;
	;		;
	;How to use this script?		;How to use this script?
	;		;
			; - config the options below
	; - /load -rs auth_update.mrc to load the script		; - /load -rs auth_update.mrc to load the script
	~~; - config the options below~~
	; - script starts on load or on connect		; - script starts on load or on connect
	; - to get a nicks auth use: $~~hget~~(~~auths. $+~~ $cid~~,nick~~)		; - to get a nicks auth use: $auth(nick) or $auth(nick,cid)
	; - /authupdate.next <nick> [nick] [nick] ... can be used to get auths of those nicks as soon as possible		; - /authupdate.next <nick> [nick] [nick] ... can be used to get auths of those nicks as soon as possible
	; please note that this will use a bit less efficient way to get the auths.		; please note that this will use a bit less efficient way to get the auths.
	; ~~you~~ can use the next script to see when a nick is updated		; You can use the next script to see when such a nick is updated
	; on *:SIGNAL:authupdate:{		; on *:SIGNAL:authupdate:{
	; if ($2 == $null) { echo -a $1 is not on a common channel }		; if ($2 == $null) { echo -a $1 is not on a common channel }
Line 84:		Line 84:
	; wait N seconds to do the next /who check triggered by authupdate.next after the last /who check triggered by authupdate.next		; wait N seconds to do the next /who check triggered by authupdate.next after the last /who check triggered by authupdate.next
	return 10		return 10
			}


			;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ALIAS AUTH ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
			alias auth {
			if ($1 == $null) \|\| (($2 !== $null) && (!$scid($2))) { return }
			return $hget(auths. $+ $iif($2 !== $null,$2,$cid),$1)
	}		}

Line 181:		Line 188:
	var %nicks = $addtok(%nicks,%n,44) , %n = $gettok($hget(%t.n,%n),2,32)		var %nicks = $addtok(%nicks,%n,44) , %n = $gettok($hget(%t.n,%n),2,32)
	}		}

	var %sorted = $auth_update.sort , %i = $numtok(%sorted,32) , %time = $calc($ctime - $queue.repeat.who)		var %sorted = $auth_update.sort , %i = $numtok(%sorted,32) , %time = $calc($ctime - $queue.repeat.who)
	while (%i) {		while (%i) {
Line 230:		Line 237:
	dec %i		dec %i
	}		}

	var %i = $comchan($me,0)		var %i = $comchan($me,0)
	while (%i) {		while (%i) {
Line 447:		Line 454:
	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ALIAS AUTH.ADD ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;		;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ALIAS AUTH.ADD ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	alias -l auth.add {		alias -l auth.add {
	; $1 = nick $2 = auth		; $1 = nick $2 = auth
	if (!$hget(auths. $+ $cid)) { return }		if (!$hget(auths. $+ $cid)) { return }
	hadd auths. $+ $cid $1 $2		hadd auths. $+ $cid $1 $2
Line 669:		Line 676:
	}		}
	}		}


	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ALIAS AUTH.Q.NICK ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;		;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ALIAS AUTH.Q.NICK ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Vliedel at 11:40, 26 October 2006

2006-10-26T11:40:39Z

← Older revision		Revision as of 11:40, 26 October 2006
Line 18:		Line 18:
	;How to use this script?		;How to use this script?
	;		;
			; - /load -rs auth_update.mrc to load the script
	; - config the options below		; - config the options below
	; - script starts on load or on ~~join~~		; - script starts on load or on connect
	; - to get a nicks auth use: $hget(auths. $+ $cid,nick)		; - to get a nicks auth use: $hget(auths. $+ $cid,nick)
	; - /authupdate.next <nick> [nick] [nick] ... can be used to get auths of those nicks as soon as possible		; - /authupdate.next <nick> [nick] [nick] ... can be used to get auths of those nicks as soon as possible
Line 530:		Line 531:
	alias -l auth.l.rem.chan.all {		alias -l auth.l.rem.chan.all {
	; $1 = chan		; $1 = chan
			if (!$hget(auths.l. $+ $cid)) { return }
	hdel -w auths.l. $+ $cid $chan($1).wid $+ .*		hdel -w auths.l. $+ $cid $chan($1).wid $+ .*
	}		}

Vliedel: reversed chan order

2006-10-23T21:45:00Z

reversed chan order

← Older revision		Revision as of 21:45, 23 October 2006
Line 13:		Line 13:
	; - users with host auth.users.quakenet.org will be saved without a /who		; - users with host auth.users.quakenet.org will be saved without a /who
	; - users who are not authed (auth 0) will be checked every x time to see if they are authed yet		; - users who are not authed (auth 0) will be checked every x time to see if they are authed yet
	; - script updates from ~~smallest~~ to the ~~biggest~~ channel		; - script updates from biggest to the smallest channel
	;		;
	;		;
Line 159:		Line 159:
	dec %i		dec %i
	}		}
	return $sorttok(%chans,32,rn)		return $sorttok(%chans,32,n)
	}		}

Vliedel: changed default settings

2006-10-22T17:43:29Z

changed default settings

← Older revision		Revision as of 17:43, 22 October 2006
Line 62:		Line 62:
	alias -l repeat.who {		alias -l repeat.who {
	; wait N seconds after doing /who to do the next check and /who		; wait N seconds after doing /who to do the next check and /who
	return 10		return 20
	}		}

Line 77:		Line 77:
	alias -l queue.repeat.who {		alias -l queue.repeat.who {
	; number of seconds to do the next /who to check if someone who wasn't authed is now authed		; number of seconds to do the next /who to check if someone who wasn't authed is now authed
	return ~~300~~		return 600
	}		}

	alias -l next.wait {		alias -l next.wait {
	; wait N seconds to do the next /who check triggered by authupdate.next after the last /who check triggered by authupdate.next		; wait N seconds to do the next /who check triggered by authupdate.next after the last /who check triggered by authupdate.next
	return 5		return 10
	}		}