Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
2.8script	2.49 KB	-rw-r--r--
2.9script	954 B	-rw-r--r--
action	2.56 KB	-rw-r--r--
alias	895 B	-rw-r--r--
autoop	3.14 KB	-rw-r--r--
autoquery	2.54 KB	-rw-r--r--
basical	1.08 KB	-rw-r--r--
bigcheese	4.84 KB	-rw-r--r--
brc	2.33 KB	-rw-r--r--
channel	199 B	-rw-r--r--
columns	1.06 KB	-rw-r--r--
commander	1.29 KB	-rw-r--r--
compl.mods	12.63 KB	-rw-r--r--
complete	7.35 KB	-rw-r--r--
cursor	264 B	-rw-r--r--
dccchan	7.04 KB	-rw-r--r--
default	3.26 KB	-rw-r--r--
deutsch	381 B	-rw-r--r--
disc	225 B	-rw-r--r--
dmsg	419 B	-rw-r--r--
edit	1.02 KB	-rw-r--r--
english	480 B	-rw-r--r--
events	848 B	-rw-r--r--
extensions	498 B	-rw-r--r--
finger	1.08 KB	-rw-r--r--
fkeys	5.15 KB	-rw-r--r--
flood	171 B	-rw-r--r--
fnet	5.38 KB	-rw-r--r--
functions	5.52 KB	-rw-r--r--
global	387 B	-rw-r--r--
help	308 B	-rw-r--r--
history	1.72 KB	-rw-r--r--
history-match	1.46 KB	-rw-r--r--
icb	1.28 KB	-rw-r--r--
imap	8.33 KB	-rw-r--r--
ircIIhelp	344 B	-rw-r--r--
ircprimer	2.98 KB	-rw-r--r--
ircrc	154 B	-rw-r--r--
kickmenu	1.82 KB	-rw-r--r--
killpath	1009 B	-rw-r--r--
kpstat	1.29 KB	-rw-r--r--
list	224 B	-rw-r--r--
listidle	5.07 KB	-rw-r--r--
log	370 B	-rw-r--r--
lynx_ircrc	173 B	-rw-r--r--
meta1	179 B	-rw-r--r--
meta2	140 B	-rw-r--r--
msg	368 B	-rw-r--r--
mudlike	1.69 KB	-rw-r--r--
multichan	2.29 KB	-rw-r--r--
nemesis	501 B	-rw-r--r--
netsplit	4.2 KB	-rw-r--r--
newaway	899 B	-rw-r--r--
newformat	5.54 KB	-rw-r--r--
nicks	367 B	-rw-r--r--
nicksearch	1.72 KB	-rw-r--r--
nocolour	1.67 KB	-rw-r--r--
oldping	1.6 KB	-rw-r--r--
oper	453 B	-rw-r--r--
otherstatus	802 B	-rw-r--r--
ping	400 B	-rw-r--r--
prefix	268 B	-rw-r--r--
recursion	2.07 KB	-rw-r--r--
redirx	5.19 KB	-rw-r--r--
repeat	354 B	-rw-r--r--
screen	1.87 KB	-rw-r--r--
service	734 B	-rw-r--r--
shell	730 B	-rw-r--r--
silent	874 B	-rw-r--r--
smileys	320 B	-rw-r--r--
tabkey	3.62 KB	-rw-r--r--
time	734 B	-rw-r--r--
times	497 B	-rw-r--r--
traces	2.23 KB	-rw-r--r--
troy	7.01 KB	-rw-r--r--
uhnotify	1.74 KB	-rw-r--r--
undernet	484 B	-rw-r--r--
version	53 B	-rw-r--r--
voice	365 B	-rw-r--r--
wallopstat	1.36 KB	-rw-r--r--
whowas	1.77 KB	-rw-r--r--
window	453 B	-rw-r--r--

Code Editor : netsplit

#	$eterna: netsplit,v 1.3 2003/12/08 05:05:59 mrg Exp $
#
# NETSPLIT 7 - This script does its best to suppress the excessive 
# joins and signoffs due ONLY to netsplits.  It should pass regular
# signoffs.   Need at least ircII2.2pre6
# Version II  handles multiple channels. 
# Version III ignores bogus signoff messages
# Version IV  handles multiple splits.
# Version V   handles multiple splits and ignores bogus signoff messages. also
#             adds timestamps to split/join messages
# Version VI  For ircII2.2pre8 and beyond. Uses encode() and decode() 
# Version VII Fixed a problem with encode() and decode() and case
#             sensitive channel names, + adding lformat()
#
# This one by Daemon
# CONVERTED for ircII2.2pre8
# Version V by poxaV (cgw@unt.edu), from Daemon's code
# modified last 7-03-93

#shows the current time in HH:MM:SS format
^alias currtime @ function_return = word(3 $stime($time()))

# This function tests for bogus splits.
^alias isbogus {
	^if ([$3]) { @ function_return = 1 }
	^if (rmatch(.$1. $isbogus.pats *..*)) { @ function_return = 1 }
	^if (rmatch(.$2. $isbogus.pats *..*)) { @ function_return = 1 }
}

# Add patterns.. like /boguspat *bonk* *thud* *haha*
# that will NOT be treated as server names..
^alias boguspat ^assign isbogus.pats $isbogus.pats $0-;echo $0- added

# Next two are pretty obvious
^alias boguslist echo Pats: $isbogus.pats
^alias bogusclear ^assign -isbogus.pats;echo Bogus list clean

# If first word in Signoff contains a period then assume servername
# and thus a a split.  Stash in assoc array.
^ON ^CHANNEL_SIGNOFF "% % %.% %.%" {
	if (isbogus($1-)) 
		{ echo *** Signoff: $1 $$2-$ }
		{ ^netbroke $encode($tolower($0)) $encode($1) $encode($2).$encode($3) $2 $3 }
}

# Stuff array. Tell us what server broke and set split flag.
^alias netbroke {
  @ signcross[$2][$0][$1] = 1
  @ signoffs[$0][$1] = [$2]
  @ splittime[$2] = time()
  ^if ( isbroke[$2] )
  {
  }
  {
    xecho -level OPNOTES *** Netsplit at $currtime() $$3-$
    @ isbroke[$2] = 1
    @ splitname[$2] = [$3-]
  }
}

# When a person joins a channel.. Check them against the array.
# If they are in array, then remove silently.  Otherwards echo normally
^ON ^JOIN * {
  ^netjoined $encode($tolower($1)) $encode($0) $1 $0 $USERHOST()
}

# Unset the split flag
^alias netjoined {
  if ( signoffs[$0][$1] )
  {
    ^if ( isbroke[$signoffs[$0][$1]] )
    {
      xecho -level OPNOTES *** Netjoined at $currtime() $$splitname[$signoffs[$0][$1]]$
    }
    ^assign -isbroke[$signoffs[$0][$1]]
    ^assign -signcross[$signoffs[$0][$1]][$0][$1]
    ^assign -signoffs[$0][$1]
  }
  {
    echo *** $3 $$4-$ has joined channel $2
  }
}

# Clear the array every 10 minutes to prevent excess garbage
^on #^timer 70 * netclean
^alias netclean {
  foreach splittime ii
  {
    foreach splittime.$ii jj
    {
      if ( time() - splittime[$ii][$jj] > 300 )
      {
      	foreach signcross.$(ii).$jj xx
      	{
          foreach signcross.$(ii).$(jj).$xx yy
          {
            ^assign -signcross[$ii][$jj][$xx][$yy]
            ^assign -signoffs[$xx][$yy]
          }
      	}
	^assign -xx
	^assign -yy
       	^assign -isbroke[$ii][$jj]
	^assign -splitname[$ii][$jj]
       	^assign -splittime[$ii][$jj]
      }
    }
  }
  ^assign -ii
  ^assign -jj
}

^alias netpurge {
  purge isbroke
  purge splitname
  purge splittime
  purge signcross
  purge signoffs
}

# If you want to supress mode changes by servers.. (ussually after a split)
# then uncomment next line
# ^on ^mode "%.%" #

# If you want to look an array.. Type /show <arrayname>
# Lists keys and contents
^alias showsplit {
  if ( [$($0)] )
  {
    echo $0 $($0)
  }
  foreach $0 ii
  {
    showsplit $0.$ii
  }
  ^assign -ii
}

^alias purge {
  foreach $0 ii
  {
    purge $0.$ii
  }
  ^assign -ii
  ^assign -$0
}

^alias wholeft {
  foreach signoffs ii
  {
    foreach signoffs.$ii jj
    {
      echo $lformat(15 $decode($ii)) $lformat(10 $decode($jj)) $splitname[$signoffs[$ii][$jj]]
    }
  }
  ^assign -ii
  ^assign -jj
}

# format and lformat differ from $[-num]var and $[num]var in that
# They don't chop off the string if it is too long.

alias lformat {
	@ IRCII.word = [$1-]
	if (@IRCII.word < [$0]) 
		{ @ function_return = [$([$0]IRCII.word)] } 
		{ @ function_return = [$IRCII.word] } 
}

${this.title}

Code Editor : netsplit