[EchelonIRC-dev] CVS: echelon/system 50.als,1.6,1.7 550.als,1.13,1.14 550.mrc,1.7,1.8 850.als,1.6,1.
Brought to you by:
raisk
Menu
▾
▴
[EchelonIRC-dev] CVS: echelon/system 50.als,1.6,1.7 550.als,1.13,1.14 550.mrc,1.7,1.8 850.als,1.6,1.7 aliases.als,1.6,1.7 auth.mrc,1.7,1.8 dcc_help.als,1.7,1.8 security.mrc,1.15,1.16
|
From: Wolfram K. <ra...@us...> - 2003-10-07 10:40:59
|
Update of /cvsroot/echelonirc/echelon/system
In directory sc8-pr-cvs1:/tmp/cvs-serv1169/system
Modified Files:
50.als 550.als 550.mrc 850.als aliases.als auth.mrc
dcc_help.als security.mrc
Log Message:
Echelon 1.0.10 Changes
Index: 50.als
===================================================================
RCS file: /cvsroot/echelonirc/echelon/system/50.als,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** 50.als 7 Oct 2002 14:20:13 -0000 1.6
--- 50.als 7 Oct 2003 10:40:52 -0000 1.7
***************
*** 81,91 ****
XWHOIS {
! if ($nick_to_username($1)) {
! notice $nick ** $1 ( $+ $remove($address($1,5),$1 $+ !) $+ ) has authenticated as $nick_to_username($1)
! if ($read_user_db($nick_to_username($1),Oper)) {
! notice $nick ** $nick_to_username($1) is a level $read_user_db($nick_to_username($1),Oper) operator
}
}
! else { notice $nick ** $1 ( $+ $remove($address($1,5),$1 $+ !) $+ ) has not authenticated }
}
--- 81,94 ----
XWHOIS {
! if ($address($1,5)) {
! if ($nick_to_username($1)) {
! notice $nick ** $1 ( $+ $remove($address($1,5),$1 $+ !) $+ ) has authenticated as $nick_to_username($1)
! if ($read_user_db($nick_to_username($1),Oper)) {
! notice $nick ** $nick_to_username($1) is a level $read_user_db($nick_to_username($1),Oper) operator
! }
}
+ else { notice $nick ** $1 ( $+ $remove($address($1,5),$1 $+ !) $+ ) has not authenticated }
}
! else { notice $nick ** Unable to recognize user: $1 }
}
Index: 550.als
===================================================================
RCS file: /cvsroot/echelonirc/echelon/system/550.als,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -d -r1.13 -r1.14
*** 550.als 26 Feb 2003 08:43:27 -0000 1.13
--- 550.als 7 Oct 2003 10:40:52 -0000 1.14
***************
*** 168,173 ****
:start
if (%dccchat > %totdcc) halt
! else msg = $+ $chat(%dccchat) !WALLOPS! ** $1-
inc %dccchat 1
goto start
}
--- 168,175 ----
:start
if (%dccchat > %totdcc) halt
! else msg = $+ $chat(%dccchat) !NOTICE! ** $1-
inc %dccchat 1
goto start
}
+
+
Index: 550.mrc
===================================================================
RCS file: /cvsroot/echelonirc/echelon/system/550.mrc,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** 550.mrc 12 Oct 2002 16:11:09 -0000 1.7
--- 550.mrc 7 Oct 2003 10:40:52 -0000 1.8
***************
*** 68,69 ****
--- 68,71 ----
on 1:EXIT:{ .remove database\dcc.txt }
+
+
Index: 850.als
===================================================================
RCS file: /cvsroot/echelonirc/echelon/system/850.als,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** 850.als 12 Oct 2002 16:11:09 -0000 1.6
--- 850.als 7 Oct 2003 10:40:52 -0000 1.7
***************
*** 127,134 ****
if ($read_user_list($1)) {
msg =$nick ** RegNick info for $read_user_db($1,User)
! msg =$nick ** ----------------------------------
! msg =$nick ** Last Seen: $read_user_db($1,Last_Seen)
! msg =$nick ** Last Seen Host: $read_user_db($1,Last_Seen_Host)
!
var %gaccess 1
var %lines [ $lines(database\channels.txt) ]
--- 127,134 ----
if ($read_user_list($1)) {
msg =$nick ** RegNick info for $read_user_db($1,User)
! msg =$nick ** ----------------------------------------
! msg =$nick ** Last Seen . . .: $read_user_db($1,Last_Seen)
! msg =$nick ** Last Seen Host : $read_user_db($1,Last_Seen_Host)
! msg =$nick ** ----------------------------------------
var %gaccess 1
var %lines [ $lines(database\channels.txt) ]
***************
*** 139,143 ****
if ($read_chan_db([ $return_chan_list(%gaccess) ],User_ $+ $1)) {
var %empty 1
! if (%gaccess1) { msg =$nick ** Access list: | unset %gaccess1 | goto continue }
:continue
msg =$nick ** $return_chan_list(%gaccess) - $read_chan_db($return_chan_list(%gaccess),User_ $+ $1)
--- 139,143 ----
if ($read_chan_db([ $return_chan_list(%gaccess) ],User_ $+ $1)) {
var %empty 1
! if (%gaccess1) { msg =$nick ** Channel access list: | unset %gaccess1 | goto continue }
:continue
msg =$nick ** $return_chan_list(%gaccess) - $read_chan_db($return_chan_list(%gaccess),User_ $+ $1)
***************
*** 148,157 ****
else { inc %gaccess 1 | goto start }
:end
! if (%empty == $null) { msg =$nick ** Access list is empty }
! else { msg =$nick ** Total channels: %count | msg =$nick ** End of access list }
! msg =$nick ** ----------------------------------
! msg =$nick ** End of RegNick info for $read_user_db($1,User)
halt
}
else { msg =$nick ** Error: User doesn't exists | halt }
}
--- 148,158 ----
else { inc %gaccess 1 | goto start }
:end
! if (%empty == $null) { msg =$nick ** Access List is empty }
! else { msg =$nick ** Total Channels: %count }
! msg =$nick ** ----------------------------------------
halt
}
else { msg =$nick ** Error: User doesn't exists | halt }
}
+
+
Index: aliases.als
===================================================================
RCS file: /cvsroot/echelonirc/echelon/system/aliases.als,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** aliases.als 12 Oct 2002 16:11:09 -0000 1.6
--- aliases.als 7 Oct 2003 10:40:52 -0000 1.7
***************
*** 180,181 ****
--- 180,183 ----
else { msg =$nick ** Error: $1 is not a channel name | halt }
}
+
+
Index: auth.mrc
===================================================================
RCS file: /cvsroot/echelonirc/echelon/system/auth.mrc,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** auth.mrc 14 Oct 2002 12:53:40 -0000 1.7
--- auth.mrc 7 Oct 2003 10:40:52 -0000 1.8
***************
*** 66,67 ****
--- 66,69 ----
change_user_pass $nick $2 $3
}
+
+
Index: dcc_help.als
===================================================================
RCS file: /cvsroot/echelonirc/echelon/system/dcc_help.als,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** dcc_help.als 12 Oct 2002 16:11:09 -0000 1.7
--- dcc_help.als 7 Oct 2003 10:40:52 -0000 1.8
***************
*** 309,310 ****
--- 309,312 ----
; End of help system
;
+
+
Index: security.mrc
===================================================================
RCS file: /cvsroot/echelonirc/echelon/system/security.mrc,v
retrieving revision 1.15
retrieving revision 1.16
diff -C2 -d -r1.15 -r1.16
*** security.mrc 7 Oct 2003 09:26:17 -0000 1.15
--- security.mrc 7 Oct 2003 10:40:52 -0000 1.16
***************
*** 4,7 ****
--- 4,8 ----
on 1:START:{
+ .remove database\dcc.txt
set %version v1.0.10
echo 3 -ts ** Echelon %version initialized
|
