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 : redirx

# redirx.irc v1.3
# Automatically shortens URLs seen, using the redirx service.
# tristan+irc@ethereal.net 24jul2003, 7jul2006

# to do:
# - replace long urls on output, too

# server to connect to:
@ redirx.host = [redirx.com]
@ redirx.port = 5313

# if response not received within this many seconds, assume server is
# dead
@ redirx.timeout = 5

# try to connect again after this many seconds, if connection is lost
@ redirx.retry = 120

# only shorten URLs at least this many characters long:
@ redirx.minlength = 60

# suppress original non-changed output?
# must reload script after changing this!
@ redirx.replace = 1

# show connect/disconnect/etc. information
@ redirx.debug = 1

alias redirx.debug {
  if (redirx.debug) {
    echo *** $*
  }
}

alias redirx.close {
  if (redirx.fd) {
    ^dcc close raw $redirx.fd
    redirx.debug Redirx connection on fd $redirx.fd closed
    ^assign -redirx.fd
    ^assign -redirx.ready
  }
}

alias redirx.open {
  redirx.close
  @ connect($redirx.host $redirx.port)
  @ redirx.counter = 0
  @ redirx.queuepos = 0
}

alias redirx.send {
  if (redirx.fd && redirx.ready) {
    if (match(http://redirx.com/* $0)) {
      redirx.debug Not sending already-shortened URL
    } {
      dcc raw $redirx.fd $redirx.host $0
      @ redirx.counter = redirx.counter + 1
      @ function_return = 1
    }
  } {
    redirx.debug Redirx not ready
  }
}

alias redirx.timeouthandler {
  if (redirx.queue[$redirx.counter]) {
    xecho -window $redirx.queue[$redirx.counter] [redirx] timeout
    ^assign -redirx.queue.$redirx.counter
    redirx.open
  }
}

alias redirx.search {
  if (!rmatch([redirx] $1-)) {
    @ redirx.search.line = [$1-]
    @ redirx.search.numwords = #redirx.search.line
    @ redirx.search.count = 0
    while (redirx.search.count < redirx.search.numwords) {
      @ redirx.search.curword = word($redirx.search.count $redirx.search.line)
      if (match(http://* $redirx.search.curword) || match(https://* $redirx.search.curword)) {
#        redirx.debug Found URL
        if (!redirx.search.didit && @redirx.search.curword >= redirx.minlength && !match(http://redirx.com/* $redirx.search.curword) && redirx.send($redirx.search.curword)) {
          @ redirx.search.didit = 1
          ^assign redirx.queue.$redirx.counter $*
          timer $redirx.timeout redirx.timeouthandler $redirx.counter
        }
      }
      @ redirx.search.count = redirx.search.count + 1
    }
    ^assign -redirx.search.line
    ^assign -redirx.search.numwords
    ^assign -redirx.search.count
    ^assign -redirx.search.curword
  }
  if (!redirx.search.didit && redirx.replace) {
    xecho -window $*
  }
  ^assign -redirx.search.didit
}

alias redirx {
  if (![$0] || [$1]!=[]) {
    echo *** Usage: ${K}redirx <URL>
  } {
    redirx.send $*
  }
}

on ^dcc_raw * #

eval on #-dcc_raw 54 "% $redirx.host E $redirx.port" {
  @ redirx.fd = [$0]
  redirx.debug Redirx connection opened on fd $0
}

eval on #-dcc_raw 54 "% $redirx.host D *" {
  if ([$3]==[OK]) {
    @ redirx.queuepos = redirx.queuepos + 1
    if (redirx.queue[$redirx.queuepos]) {
      @ redirx.replace.line = redirx.queue[$redirx.queuepos]
      @ redirx.replace.numwords = #redirx.replace.line
      @ redirx.replace.count = 0
      while (redirx.replace.count < redirx.replace.numwords) {
        @ redirx.replace.curword = word($redirx.replace.count $redirx.replace.line)
        if ((match(http://* $redirx.replace.curword) || match(https://* $redirx.replace.curword)) && @redirx.replace.curword >= redirx.minlength && !match(http://redirx.com/* $redirx.replace.curword) && !redirx.replace.didit) {
          if (redirx.replace.newline) {
            @ redirx.replace.newline = [$redirx.replace.newline $4]
          } {
            @ redirx.replace.newline = [$4]
          }
          @ redirx.replace.didit = 1
        } {
          if (redirx.replace.newline) {
            @ redirx.replace.newline = [$redirx.replace.newline $redirx.replace.curword]
          } {
            @ redirx.replace.newline = redirx.replace.curword
          }
        }
        @ redirx.replace.count = redirx.replace.count + 1
      }
      xecho -window $redirx.replace.newline
      ^assign -redirx.queue.$redirx.queuepos
      ^assign -redirx.replace.line
      ^assign -redirx.replace.numwords
      ^assign -redirx.replace.count
      ^assign -redirx.replace.curword
      ^assign -redirx.replace.newline
      ^assign -redirx.replace.didit
    } {
      echo *** Shortened URL: $4-
    }
  } {
    if ([$3]==[ERROR]) {
      @ redirx.queuepos = redirx.queuepos + 1
      echo *** Redirx error: $4-
    } {
      if ([$3]==[REDIRXD] && match(V*.* $4)) {
        redirx.debug Redirx protocol OK
        @ redirx.ready = 1
      } {
        redirx.debug Redirx: $3-
      }
    }
  }
}

eval on #-dcc_raw 54 "% $redirx.host C" {
  redirx.debug Redirx connection on fd $0 lost!
  ^assign -redirx.fd
  ^assign -redirx.ready
  timer -refnum 54 $redirx.retry redirx.open
}

if (redirx.replace) {
  on #-window 54 -"% *http://*"
  on #-window 54 -"% *https://*"
  on ^window "% *http://*" redirx.search $$*
  on ^window "% *https://*" redirx.search $$*
} {
  on ^window -"% *http://*"
  on ^window -"% *https://*"
  on #-window 54 "% *http://*" redirx.search $$*
  on #-window 54 "% *https://*" redirx.search $$*
}

redirx.open

${this.title}

Code Editor : redirx