home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / ircu210.zip / ADD-TO-IRCRC < prev    next >
Text File  |  1997-07-13  |  8KB  |  286 lines
  1. ##############################################################################
  2. #
  3. # UnderNet specific commands (by Run, carlo@runaway.xs4all.nl)
  4. #
  5. ##############################################################################
  6. #
  7. # SILENCE command
  8. #
  9. # Usage:
  10. #
  11. # /SILENCE [<nick>]
  12. # Shows the silence list of <nick> (default, your nick) as known by
  13. # your server.  (This list only known/visible on the servers that needed it).
  14. # 
  15. # Or:
  16. #
  17. # /SILENCE +<nick!user@host.mask>
  18. # /SILENCE -<nick!user@host.mask>
  19. #
  20. # To add or remove masks, works much like the channel ban list.
  21. #
  22. # After adding a mask to your list, *EVERY* private message from someone
  23. # matching that mask will be stopped at the server LOCAL to THAT person.
  24. # This includes: /MSG, /NOTICE, /CTCP, /NOTE SEND, /INVITE
  25. #
  26. ALIAS SILENCE QUOTE SILENCE
  27. ALIAS SILE QUOTE SILENCE
  28. ON ^RAW_IRC "% SILENCE %" echo *** $*
  29.  
  30. ##############################################################################
  31. #
  32. # MAP command
  33. #
  34. # Usage: 
  35. # 
  36. # /MAP [<server.mask>]
  37. #
  38. # Shows a map of the servers and how they are linked, as seen from your local
  39. # server. The optional <server.mask> can be used to filter out some servers.
  40. #
  41. ALIAS MAP QUOTE MAP
  42.  
  43. #############################################################################
  44. #
  45. # IRC Oper only commands:
  46. #
  47. #############################################################################
  48. #
  49. # RPING command
  50. #
  51. # Usage:
  52. #
  53. # /RPING <pinged server(mask)> [<start server(mask)>]
  54. #
  55. # Returns the ping time between <start server> (local server is default)
  56. # and <pinged server> in miliseconds.
  57. #
  58. ALIAS RPING QUOTE RPING
  59. ON ^RAW_IRC "% RPONG *" {
  60.   echo *R* RPING: $STRIPU($0) - $STRIPU($3) : $4 ms
  61. }
  62.  
  63. #############################################################################
  64. #
  65. # UPING command
  66. #
  67. # Usage:
  68. #
  69. # /UPING <pinged server(mask)> [<port>] [<start server(mask)>] [<number>]
  70. #
  71. # Returns statistics about udp ping between <start server(mask)> (local server
  72. # is default) and <pinged server>. Uses <port>, default is 7007 but in some
  73. # cases you can use the unix echo daemon at port 7. <number> is the number
  74. # of packets sent, default is 5, maximum is 20 packets.
  75. #
  76. ALIAS UPING QUOTE UPING
  77. ON ^RAW_IRC "%.% NOTICE % :Sending % pings to *" {
  78.   echo *U* Sending $4-6 $STRIPU($GETNAME($7)) $8- \($STRIPU($0)\)
  79. }
  80. ON ^RAW_IRC "%.% NOTICE % :UPING *" {
  81.   if ([$4]==[Stats:]) {
  82.     echo *U* $4-
  83.   } {
  84.     echo *U* $STRIPU($0) -> $STRIPU($4) : $5- ms
  85.   }
  86. }
  87.  
  88. #############################################################################
  89. #
  90. # SETTIME command
  91. #
  92. # Usage:
  93. #
  94. # /SETTIME <new UTC> [<remote server>]
  95. #
  96. # This corrects the TimeStamp clock on your server (use /TIME to see it).
  97. # If you use <remote server>, the clock of that server is set equal to
  98. # the clock of it's uplink, not to the value you give. Use only if you
  99. # know what you are doing !
  100. #
  101. ALIAS SETTIME QUOTE SETTIME
  102.  
  103. #############################################################################
  104. #
  105. # Formatting:
  106. #
  107.  
  108. #############################################################################
  109. # '/HIDE' will suppress client connect/disconnect notices when you are opered
  110. # '/SHOW' will start showing them again
  111. #
  112. on ^server_notice "% % NOTICE -- CLIENT*" if (hideit != 1) {echo *N* $2-}
  113. on ^server_notice "% % NOTICE -- Invalid username:*" if (hideit != 1) {echo *N* $2-}
  114. alias show @ hideit = 0;echo *** You can now see clients connecting/exiting
  115. alias hide @ hideit = 1;echo *** You will no longer see clients connecting/exiting
  116.  
  117. #############################################################################
  118. #
  119. # Ban info
  120. #
  121. on ^367 * {
  122.   if ([$4] != []) {
  123.     echo 367 $1 \($3 - $stime($4)) $2
  124.   } {
  125.     echo 367 $1-
  126.   }
  127. }
  128.  
  129. #############################################################################
  130. #
  131. # Topic info
  132. #
  133. on ^333 * echo 333 Topic for $1 set by $2 on $stime($3)
  134.  
  135. #############################################################################
  136. #
  137. # Signon info
  138. #
  139. on ^317 * {
  140.   if (index(012345679 $3) != -1) {
  141.     echo 317 $1 has been idle for $2 seconds. Signon at $stime($3)
  142.   } {
  143.     echo 317 $1 has been idle for $2 seconds.
  144.   }
  145. }
  146.  
  147. #############################################################################
  148. #
  149. # Show channel creation times
  150. #
  151. ON ^329 * echo 329 $1 : created $stime($2)
  152.  
  153. #############################################################################
  154. #
  155. # No such channel
  156. #
  157. ON ^403 * echo *** $1: $2-
  158.  
  159. #############################################################################
  160. #
  161. # 'layout' script by Run (carlo@runaway.xs4all.nl):
  162. #
  163.  
  164. ALIAS STRIPU {
  165.     IF (MATCH(*.undernet.org $0)) {
  166.         ASSIGN F_R $LEFT($RINDEX(. $LEFT($RINDEX(. $0) $0)) $0).*; } {
  167.         ASSIGN F_R $0; }
  168.     IF (STRLEN($F_R)>16) {
  169.         @ DUMMY = STRLEN($F_R)-15;
  170.         ASSIGN FUNCTION_RETURN $LEFT(${INDEX(. $F_R)-DUMMY} $F_R)*$MID($INDEX(. $F_R) 64 $F_R); } {
  171.         ASSIGN FUNCTION_RETURN $F_R; }
  172. }
  173.  
  174. ALIAS WRD {
  175.     ASSIGN FUNCTION_RETURN $*; }
  176.  
  177. ALIAS STRLEN {
  178.     ASSIGN DUMMY $0M
  179.     @ FUNCTION_RETURN = RINDEX(M $DUMMY) }
  180.  
  181. ALIAS GETNAME {
  182.     IF (RIGHT(1 $0)==[.] || RIGHT(1 $0)==[,]) {
  183.         ASSIGN CLNME $LEFT(${STRLEN($0)-1} $0); } {
  184.         ASSIGN CLNME $0; }
  185.     IF (INDEX([ $0)>0) {
  186.         ASSIGN DUMMY $LEFT($INDEX([ $0) $0);
  187.         ASSIGN CLNME $MID(${INDEX([ $0)+1} ${RINDEX(] $0)-(INDEX([ $0)+1)} $0);
  188.         IF (INDEX(@ $CLNME)) {
  189.             ASSIGN FUNCTION_RETURN $DUMMY; } {
  190.             IF (INDEX(@ $DUMMY)) {
  191.                 ASSIGN FUNCTION_RETURN $CLNME; } {
  192.                 IF (STRIP(.0123456789 $DUMMY)==[]) {
  193.                     ASSIGN FUNCTION_RETURN $CLNME; } {
  194.                     ASSIGN FUNCTION_RETURN $DUMMY; } } } } {
  195.         ASSIGN FUNCTION_RETURN $CLNME; } }
  196.     
  197. ON ^364 * {
  198.     ECHO $[16]STRIPU($1) $[8]LEFT($INDEX(. $2) $2) $[52]3-; }
  199.  
  200. ON ^200 * {
  201.     ECHO 200 $[53]WRD($STRIPU($0) \($2\)) ==> $STRIPU($4); }
  202.  
  203. ON ^201 * {
  204.     ECHO 201 $[16]STRIPU($0) ==> $1\[$2\] $3-; }
  205.  
  206. ON ^202 * {
  207.     ECHO 202 $[16]STRIPU($0) ==> $1\[$2\] $3-; }
  208.  
  209. ON ^203 * {
  210.     ECHO 203 $[16]STRIPU($0) ==> $1\[$2\] $3-; }
  211.  
  212. ON ^204 * {
  213.     ECHO 204 $[16]STRIPU($0) ==> $1\[$2\] $3-; }
  214.  
  215. ON ^205 * {
  216.     ECHO 205 $[16]STRIPU($0) ==> $1\[$2\] $3-; }
  217.  
  218. ON ^206 * {
  219.     ASSIGN NROS $LEFT(${STRLEN($3)-1} $3)
  220.     ECHO 206 $[16]STRIPU($0) ==> $[10]WRD($1\[$2]) $[16]STRIPU($GETNAME($5)) ==> ${NROS-1}S $4 $7-; }
  221.  
  222. ON ^207 * {
  223.     ECHO 207 $[16]STRIPU($0) ==> $1\[$2\] $3-; }
  224.  
  225. ON ^208 * {
  226.     ECHO 208 $[16]STRIPU($0) ==> $1\[$2\] $3-; }
  227.  
  228. ON ^209 * {
  229.     ECHO 209 $[16]STRIPU($0) $3 of $1\[$2\] $4-; }
  230.  
  231. ON ^SERVER_NOTICE "% ??? Notice -- Unauthorized connection from *" {
  232.   SET STATUS_USER  $7-: $4 $5
  233. }
  234.  
  235. ON ^SERVER_NOTICE "% ??? Notice -- Net junction: *" {
  236.   echo * $4-
  237. }
  238.  
  239. ON ^SERVER_NOTICE "% ??? Notice -- Net break: *" {
  240.   echo * $4-
  241. }
  242.  
  243. ON ^SERVER_NOTICE "% ??? Notice -- HACK(4): *" {
  244.   SET STATUS_USER  Uworld: $6-
  245. }
  246.  
  247. ON ^SERVER_NOTICE "% ??? Notice -- IP# Mismatch: % != *" {
  248.   SET STATUS_USER  Uworld: $6-
  249. }
  250.  
  251. ON ^SERVER_NOTICE "% ??? Notice -- Nick collision on *" {
  252.   SET STATUS_USER  Uworld: Nick coll: $7-
  253. }
  254.  
  255. ON ^SERVER_NOTICE "% ??? Notice -- Can't open for write: *" {
  256. }
  257.  
  258. ON ^SERVER_NOTICE "% ??? Notice -- Cannot accept connections: *" {
  259. }
  260.  
  261. ON ^SERVER_NOTICE "% ??? Notice -- *" {
  262.   echo *N* $4-
  263. }
  264.  
  265. # this'll fix what those nasty global scripts do with the /stats k report. -Kev
  266. on ^216 * {@tmp = [$*];eval echo $n.o($H 216) $1:$2:$$${[3-]##(#tmp-4)}:$$${#tmp-3}:$$${#tmp-2}:$$${#tmp-1}}
  267.  
  268. # For this to work, you need Run's color client...
  269. on ^211 * {
  270.   if ([$1] == [SendQ]) {
  271.       echo $n.o($H ***) \;40mConnection                                Avg Send        Avg Recvd
  272.       echo     $[10]1 $[10]2 $[10]3 $[10]4 $[12]5 $6-
  273.   } {
  274.     if ([$1] == [Connection]) {
  275.       echo $n.o($H ***) \;40m$[40]1  Avg Send        Avg Recvd
  276.       echo     $[10]2 $[10]3 $[10]4 $[10]5 $[12]6 $7-
  277.     } {
  278.       ^assign SKB $4
  279.       ^assign RKB $6
  280.       ^assign SINCE $7
  281.       echo $n.o($H ***) $[40]1\; ${SKB * 86400 / SINCE} Kb/day    ${RKB * 86400 / SINCE} Kb/day
  282.       echo     $[10]2 $[10]3 $[10]4 $[10]5 $[12]6 $7-
  283.     }
  284.   }
  285. }
  286.