[EchelonIRC-dev] CVS: echelon/system 550.als,1.10,1.11 550.mrc,1.6,1.7 850.als,1.5,1.6 aliases.als,1
Brought to you by:
raisk
Menu
▾
▴
[EchelonIRC-dev] CVS: echelon/system 550.als,1.10,1.11 550.mrc,1.6,1.7 850.als,1.5,1.6 aliases.als,1.5,1.6 auth.mrc,1.5,1.6 dcc_help.als,1.6,1.7 install.mrc,1.7,1.8 security.mrc,1.11,1.12
|
From: Wolfram K. <ra...@us...> - 2002-10-12 16:11:12
|
Update of /cvsroot/echelonirc/echelon/system
In directory usw-pr-cvs1:/tmp/cvs-serv10102/system
Modified Files:
550.als 550.mrc 850.als aliases.als auth.mrc dcc_help.als
install.mrc security.mrc
Log Message:
Echelon 1.0.08 Changes
Index: 550.als
===================================================================
RCS file: /cvsroot/echelonirc/echelon/system/550.als,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** 550.als 12 Oct 2002 12:56:40 -0000 1.10
--- 550.als 12 Oct 2002 16:11:09 -0000 1.11
***************
*** 8,11 ****
--- 8,12 ----
; VERSION
; WHO
+ ; WHOAMI
;=======================================
***************
*** 52,69 ****
if ($1 == .VERSION) DCC_VERSION
if ($1 == .WHO) DCC_WHO
else { msg =$nick ** Error: No such command }
}
DCC_AUTH {
! if ($nick_to_username($chat($nick))) { msg =$nick ** Error: You are already authenticated | halt }
if ($check_user_exists($1) == true) {
if ($check_user_pass($1,$2) == true) {
! guser 200 $nick 5 $read_user_db($1,User)
! if ($return_dcc_data($nick).username == $null) {
! write_dcc_list $nick $read_user_db($1,User)
! else { halt }
! }
! write_user_db $2 Last_Seen_Host $address($nick,5)
! write_user_db $2 Last_Seen $fulldate
msg =$nick ** Successfully authenticated as $+ $read_user_db($1,User)
msg =$nick ** You have been granted operator access level $+ $read_user_db($1,Oper)
--- 53,67 ----
if ($1 == .VERSION) DCC_VERSION
if ($1 == .WHO) DCC_WHO
+ if ($1 == .WHOAMI) DCC_WHOAMI
else { msg =$nick ** Error: No such command }
}
DCC_AUTH {
! if ($return_dcc_data($nick).username) { msg =$nick ** Error: You are already authenticated | halt }
if ($check_user_exists($1) == true) {
if ($check_user_pass($1,$2) == true) {
! write_user_db $1 Last_Seen $fulldate
! write_user_db $1 Last_Seen_Host $nick $+ !dcc@ $+ $chat($nick).ip
! write_dcc_list $nick $read_user_db($1,User)
msg =$nick ** Successfully authenticated as $+ $read_user_db($1,User)
msg =$nick ** You have been granted operator access level $+ $read_user_db($1,Oper)
***************
*** 76,82 ****
DCC_DEAUTH {
! if ($nick_to_username($chat($nick))) {
remove_dcc_list_entry $nick
- .ruser $address($chat($nick),5)
msg =$nick ** You are no longer authenticated
halt
--- 74,79 ----
DCC_DEAUTH {
! if ($return_dcc_data($nick).username) {
remove_dcc_list_entry $nick
msg =$nick ** You are no longer authenticated
halt
***************
*** 90,94 ****
var %totdcc $chat(0)
var %dccchat 1
- unset %dcc_ $+ [ $nick ]
:start
if (%dccchat > %totdcc) halt
--- 87,90 ----
***************
*** 110,113 ****
--- 106,110 ----
DCC_WHO {
+ check_dcc_oper_level 550
msg =$nick ** Nick------+-RegNick---+-Lvl--+-IP-Address-----
set %totdcc $chat(0)
***************
*** 138,148 ****
inc %count 1
}
! msg =$nick ** $chat(%dccchat) $+ %SpaceA $+ $chr(124) $return_dcc_data($chat(%dccchat)).username $+ %SpaceB $+ $chr(124) $return_dcc_data($chat(%dccchat)).operlevel $+ %SpaceC $+ $chr(124) $chat(%dccchat).ip }
! unset %SpaceA
! unset %SpaceB
! unset %SpaceC
}
inc %dccchat 1
goto start
}
--- 135,163 ----
inc %count 1
}
! if ([ $return_dcc_data( [ $chat( [ %dccchat ] ) ] ).username ] == $null) {
! msg =$nick ** $chat(%dccchat) $+ %SpaceA $+ $chr(124) <NotAuth> $chr(124) 0 $+ $chr(160) $+ $chr(160) $+ $chr(160) $+ $chr(160) $+ $chr(124) $chat(%dccchat).ip
! goto end
! }
! else {
! msg =$nick ** $chat(%dccchat) $+ %SpaceA $+ $chr(124) $return_dcc_data($chat(%dccchat)).username $+ %SpaceB $+ $chr(124) $return_dcc_data($chat(%dccchat)).operlevel $+ %SpaceC $+ $chr(124) $chat(%dccchat).ip
! }
! :end
! unset %SpaceA
! unset %SpaceB
! unset %SpaceC
! }
}
inc %dccchat 1
goto start
+ }
+
+ DCC_WHOAMI {
+ check_dcc_oper_level 550
+ msg =$nick ** User records for $nick $+ :
+ msg =$nick ** Nickname: $nick
+ msg =$nick ** Registered as: $return_dcc_data($nick).username
+ msg =$nick ** Last Seen: $read_user_db($return_dcc_data($nick).username,Last_Seen)
+ msg =$nick ** Last Seen Host: $read_user_db($return_dcc_data($nick).username,Last_Seen_Host)
+ msg =$nick ** End of user records
}
Index: 550.mrc
===================================================================
RCS file: /cvsroot/echelonirc/echelon/system/550.mrc,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** 550.mrc 1 Oct 2002 14:35:41 -0000 1.6
--- 550.mrc 12 Oct 2002 16:11:09 -0000 1.7
***************
*** 68,71 ****
on 1:EXIT:{ .remove database\dcc.txt }
-
-
--- 68,69 ----
Index: 850.als
===================================================================
RCS file: /cvsroot/echelonirc/echelon/system/850.als,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** 850.als 7 Oct 2002 14:20:16 -0000 1.5
--- 850.als 12 Oct 2002 16:11:09 -0000 1.6
***************
*** 12,18 ****
check_dcc_oper_level 850
set %listauth 1
msg =$nick ** Auth'd users list
! msg =$nick ** RegNick---+-Type-
! :listauth200
if ($ulist(*,200,%listauth)) {
var %len $len($ulist(*,200,[ %listauth ]).info)
--- 12,40 ----
check_dcc_oper_level 850
set %listauth 1
+ set %dccchat 1
msg =$nick ** Auth'd users list
! msg =$nick ** RegNick---+-OpLvl-+-Type-
! :oper
! if (%listauth > $lines(database\dcc.txt)) { set %listauth 1 | goto user200 }
! var %len $len( [ $return_dcc_data( [ $chat( [ %dccchat ] ) ] ).username ] )
! var %spaces $calc( 10 - [ %len ] )
! var %count 0
! while (%count < %spaces) {
! set %SpaceA [ %SpaceA ] $+ [ $chr(160) ]
! inc %count 1
! }
! var %len $len($return_dcc_data( [ $chat( [ %dccchat ] ) ] ).operlevel)
! var %spaces $calc( 6 - [ %len ] )
! var %count 0
! while (%count < %spaces) {
! set %SpaceB [ %SpaceB ] $+ [ $chr(160) ]
! inc %count 1
! }
! msg =$nick ** $return_dcc_data( [ $chat( [ %dccchat ] ) ] ).username $+ %SpaceA $+ $chr(124) $return_dcc_data( [ $chat( [ %dccchat ] ) ] ).operlevel $+ %SpaceB $+ $chr(124) DCC
! unset %SpaceA %SpaceB
! inc %listauth 1
! inc %dccchat 1
! goto oper
! :user200
if ($ulist(*,200,%listauth)) {
var %len $len($ulist(*,200,[ %listauth ]).info)
***************
*** 23,33 ****
inc %count 1
}
! msg =$nick ** $ulist(*,200,%listauth).info $+ %SpaceA $+ $chr(124) Oper
! unset %SpaceA
inc %listauth 1
! goto listauth200
}
! else { set %listauth 1 | goto listauth100 }
! :listauth100
if ($ulist(*,100,%listauth)) {
var %len $len($ulist(*,100,[ %listauth ]).info)
--- 45,62 ----
inc %count 1
}
! var %len $len( [ $read_user_db($ulist(*,200,[ %listauth ]).info,Oper) ] )
! var %spaces $calc( 5 - [ %len ] )
! var %count 0
! while (%count < %spaces) {
! set %SpaceB [ %SpaceB ] $+ [ $chr(160) ]
! inc %count 1
! }
! msg =$nick ** $ulist(*,200,%listauth).info $+ %SpaceA $+ $chr(124) $read_user_db($ulist(*,200,%listauth).info,Oper) $+ %SpaceB $chr(124) MSG
! unset %SpaceA %SpaceB
inc %listauth 1
! goto user200
}
! else { set %listauth 1 | goto user100 }
! :user100
if ($ulist(*,100,%listauth)) {
var %len $len($ulist(*,100,[ %listauth ]).info)
***************
*** 38,50 ****
inc %count 1
}
! msg =$nick ** $ulist(*,100,%listauth).info $+ %SpaceA $+ $chr(124) User
! unset %SpaceA
inc %listauth 1
! goto listauth100
}
else { goto end }
:end
unset %listauth
! msg =$nick ** ----------+------ | halt
}
--- 67,80 ----
inc %count 1
}
! set %SpaceB $chr(160) $+ $chr(160) $+ $chr(160) $+ $chr(160)
! msg =$nick ** $ulist(*,100,%listauth).info $+ %SpaceA $+ $chr(124) 0 $+ %SpaceB $chr(124) MSG
! unset %SpaceA %SpaceB
inc %listauth 1
! goto user100
}
else { goto end }
:end
unset %listauth
! msg =$nick ** ----------+-------+------ | halt
}
***************
*** 126,129 ****
else { msg =$nick ** Error: User doesn't exists | halt }
}
-
-
--- 156,157 ----
Index: aliases.als
===================================================================
RCS file: /cvsroot/echelonirc/echelon/system/aliases.als,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** aliases.als 7 Oct 2002 14:20:17 -0000 1.5
--- aliases.als 12 Oct 2002 16:11:09 -0000 1.6
***************
*** 180,183 ****
else { msg =$nick ** Error: $1 is not a channel name | halt }
}
-
-
--- 180,181 ----
Index: auth.mrc
===================================================================
RCS file: /cvsroot/echelonirc/echelon/system/auth.mrc,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** auth.mrc 7 Oct 2002 14:20:18 -0000 1.5
--- auth.mrc 12 Oct 2002 16:11:09 -0000 1.6
***************
*** 14,20 ****
if ($read_user_db($2,Oper)) {
guser 200 $nick 5 $read_user_db($2,User)
- if (($chat($nick)) && ($return_dcc_data($nick).username == $null)) {
- write_dcc_list $chat($nick) $read_user_db($2,User)
- }
notice $nick ** Successfully authenticated as $+ $read_user_db($2,User)
notice $nick ** You have been granted operator access level $+ $read_user_db($2,Oper)
--- 14,17 ----
***************
*** 42,46 ****
if ($1 == DEAUTH) {
if ($address($nick,5) == $ulist($address($nick,5),$ulevel,1)) {
- remove_dcc_list_entry $nick
.ruser $address($nick,5)
notice $nick ** You are no longer authenticated
--- 39,42 ----
***************
*** 59,63 ****
;===== DeAuth on Quit =====
! on 100:QUIT:{ ruser $ulist($nick $+ *,$ulevel,1) }
;===== DeAuth everyone on Disconnect =====
--- 55,61 ----
;===== DeAuth on Quit =====
! on 100:QUIT:{
! ruser $ulist($nick $+ *,$ulevel,1)
! }
;===== DeAuth everyone on Disconnect =====
***************
*** 69,72 ****
change_user_pass $nick $2 $3
}
-
-
--- 67,68 ----
Index: dcc_help.als
===================================================================
RCS file: /cvsroot/echelonirc/echelon/system/dcc_help.als,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** dcc_help.als 12 Oct 2002 12:56:40 -0000 1.6
--- dcc_help.als 12 Oct 2002 16:11:09 -0000 1.7
***************
*** 45,48 ****
--- 45,49 ----
elseif ($2- == VERSION) HELP_VERSION
elseif ($2- == WHO) HELP_WHO
+ elseif ($2- == WHOAMI) HELP_WHOAMI
else msg =$nick ** No help available on that command
}
***************
*** 53,57 ****
HELP_MAIN {
! msg =$nick Level 550 - AUTH, CHAT, DEAUTH, EXIT, VERSION, WHO.
msg =$nick Level 600 - CLEAR, CLEARBANS, CLEARMODES, CLEAROPS.
msg =$nick Level 650 - DEOP, CYCLE, DOMODE, OP.
--- 54,58 ----
HELP_MAIN {
! msg =$nick Level 550 - AUTH, CHAT, DEAUTH, EXIT, VERSION, WHO, WHOAMI.
msg =$nick Level 600 - CLEAR, CLEARBANS, CLEARMODES, CLEAROPS.
msg =$nick Level 650 - DEOP, CYCLE, DOMODE, OP.
***************
*** 96,99 ****
--- 97,105 ----
msg =$nick Command: WHO || Level: 550
msg =$nick Description: Shows all users that are connected to the DCC interface
+ }
+
+ HELP_WHOAMI {
+ msg =$nick Command: WHOAMI || Level: 550
+ msg =$nick Description: Shows you more info about your regnick
}
Index: install.mrc
===================================================================
RCS file: /cvsroot/echelonirc/echelon/system/install.mrc,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** install.mrc 12 Oct 2002 13:02:11 -0000 1.7
--- install.mrc 12 Oct 2002 16:11:09 -0000 1.8
***************
*** 7,11 ****
on 1:LOAD:{
! set %version v1.0.08
tempecho
tempecho Echelon %version installation script loaded...
--- 7,11 ----
on 1:LOAD:{
! set %version v1.0.07
tempecho
tempecho Echelon %version installation script loaded...
Index: security.mrc
===================================================================
RCS file: /cvsroot/echelonirc/echelon/system/security.mrc,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -d -r1.11 -r1.12
*** security.mrc 12 Oct 2002 13:02:11 -0000 1.11
--- security.mrc 12 Oct 2002 16:11:09 -0000 1.12
***************
*** 4,8 ****
on 1:START:{
! set %version v1.0.08
echo 3 -ts ** Echelon %version initialized
}
--- 4,8 ----
on 1:START:{
! set %version v1.0.07
echo 3 -ts ** Echelon %version initialized
}
|
