#
#
#
### Save urls from the channel. (part from the CountEr)
#/on -public "* % http://*" exec netscape $NETDISP -noraise -remote "openurl\($word($match(http://* $strip(` $2-)) noth $strip(` $2-))\)"
alias stack.push {
^assign stack.$0[$stack[$0]] $1-
^assign -linkurl[$stack[$0]]
^assign stack.$0 $right(3 ${000 ## stack[$0] + 1})
if ([$stack[$0]]>[999]){
^assign stack.$0 000
}
}
alias stack.clear {
^assign stack.$0 000
foreach stack.$0 jj {
^assign -stack.$0.$jj
}
}
alias stack.print {
echo - pos = $stack[$0]
foreach stack.$0 jj {
if ([$jj]>=[$stack[$0]]){
echo $0\[$jj\] = $stack[$0][$jj]
}
}
foreach stack.$0 jj {
if ([$jj]<[$stack[$0]]){
echo $0\[$jj\] = $stack[$0][$jj]
}
}
}
alias starturl {
stack.clear url
restarturl
}
alias stack.push.anon {
^assign cnt $stack[url]
if ([$redir[$encode($4)]] != [DMGJGHGOGPHCGFDO]){
if (![$urlen[$redir[$encode($4)]]]){
echo URL $4 unset $urlen[$redir[$encode($4)]].
notice $4 URLs said on this channel are archived publically.
notice $4 If you don't want this, do "/ctcp counter urlen off"
^assign urlen.$redir[$encode($4)] on
}{
echo URL $4 set $urlen[$redir[$encode($4)]].
}
# A bit hacky... urlrs set from here is irrelevant... overwritten later
if ( [$urlen[$redir[$encode($4)]]]!=[on] ){
^assign urlrs.$cnt _ $cnt SET OFF from $4 . $decode($redir[$encode($4)])
}{
^assign -urlrs.$cnt
}
stack.push $0-
^assign cc 499
@ cnt = stack.url - 1
while ( cc > 0 ){
@ cc = cc - 1
if (cnt == 000){
@ cnt = 999
}{
^assign cnt $right(3 ${000 ## cnt - 1})
}
if ([$word(0 $stack[url][$cnt])] == [$1]) {
@ myt = time() - word(1 $stack[url][$cnt])
@ cc = -1
notice $4 Note: This url was already mentioned$hms.do($myt) ago by $word(3 $stack[url][$cnt]).
}
}
}{
^assign urlrs.$cnt \# $cnt by an ignored person.
stack.push $0 $1 $2 1 ? $5 $(${[$3]+5})
}
}
alias stack.push.priv {
^assign cnt $stack[url]
if ([$redir[$encode($4)]] != [DMGJGHGOGPHCGFDO]){
if (![$urlen[$redir[$encode($4)]]]){
echo URL $4 unset $urlen[$redir[$encode($4)]].
notice $4 URLs said on this channel are archived publically.
notice $4 If you don't want this, do "/ctcp counter urlen off"
^assign urlen.$redir[$encode($4)] on
}{
echo URL $4 set $urlen[$redir[$encode($4)]].
}
# A bit hacky... urlrs set from here is irrelevant... overwritten later
if ( [$urlen[$redir[$encode($4)]]]!=[on] ){
^assign urlrs.$cnt _ $cnt SET OFF from $4 . $decode($redir[$encode($4)])
}{
^assign urlrs.$cnt _ $cnt SET ON,priv from $4 . $decode($redir[$encode($4)])
}
stack.push $0-
}{
^assign urlrs.$cnt \# $cnt by an ignored person.
stack.push $0 $1 $2 1 ? $5 $(${[$3]+5})
}
}
alias restarturl {
^on #^public 77 "% * http://*" {
^assign tt $match(http://* $2-)
stack.push.anon url $word($tt dummy $2-) $time() $tt $*
}
^on #^action 77 "% * http://*" {
^assign tt $match(http://* $2-)
stack.push.anon url $word($tt dummy $2-) $time() $tt $*
}
^on #^public 77 "% * https://*" {
^assign tt $match(https://* $2-)
stack.push.anon url $word($tt dummy $2-) $time() $tt $*
}
^on #^action 77 "% * https://*" {
^assign tt $match(https://* $2-)
stack.push.anon url $word($tt dummy $2-) $time() $tt $*
}
^on #^public 77 "% * www.*" {
^assign tt $match(www.* $2-)
stack.push.priv url http://$word($tt dummy $2-) $time() $tt $*
}
^on #^action 77 "% * www.*" {
^assign tt $match(www.* $2-)
stack.push.priv url http://$word($tt dummy $2-) $time() $tt $*
}
^on #^public 77 "% * <%@%>" {
^assign tt $match(<%@%> $2-)
stack.push.anon url http://groups.google.com/groups?selm=$strip(<> $word($tt dummy $2-)) $time() $tt $*
}
^on #^action 77 "% * <%@%>" {
^assign tt $match(<%@%> $2-)
stack.push.anon url http://groups.google.com/groups?selm=$strip(<> $word($tt dummy $2-)) $time() $tt $*
}
}
eval assign httpd.get.$encode(/url) 1
alias httpd.get./url {
if ([$httpd[$0.host]]!=[nohost]){
@ url.yday = []
httpd.title3nc $0 The list'o Urls...
if ([$1]==[all]) {
httpd.$0 Warning: This list is disabled if you come from a Searchengine.
# httpd.$0
# url.listall $0
}{
url.listsome $0 $1
}
httpd.$0
httpd.end $0
}{
httpd.$0 Function eliminated, refer to hoeni or ray.
httpd.$0
-- Sec, 14.11.01
}
}
eval assign httpd.get.$encode(/url/rss-1.xml) 1
eval assign httpd.ctype.$encode(/url/rss-1.xml) text/xml
alias httpd.get./url/rss-1.xml {
@ url.yday = []
@ cc = 1
httpd.title.rss $0 The URLfeed
url.listsome.xml $0 $1
httpd.$0
}
eval assign httpd.get.$encode(/url/rss-2.xml) 1
eval assign httpd.ctype.$encode(/url/rss-2.xml) text/xml
alias httpd.get./url/rss-2.xml {
@ url.yday = []
@ cc = 2
httpd.title.rss $0 The URLfeed
url.listsome.xml $0 $1
httpd.$0
}
eval assign httpd.get.$encode(/url/rss-3.xml) 1
eval assign httpd.ctype.$encode(/url/rss-3.xml) text/xml
alias httpd.get./url/rss-3.xml {
@ url.yday = []
@ cc = 3
httpd.title.rss $0 The URLfeed
url.listsome.xml $0 $1
httpd.$0
}
eval assign httpd.get.$encode(/url-a) 1
eval assign httpd.open.$encode(/url-a) auth
eval assign httpd.auth.$encode(/url-a) %
eval assign httpd.err.$encode(/url-a)
Go here for the public version of this page.
alias httpd.get./url-a {
httpd.get./url $0-
}
eval assign httpd.get.$encode(/url-a/rss-1.xml) 1
eval assign httpd.ctype.$encode(/url-a/rss-1.xml) text/xml
alias httpd.get./url-a/rss-1.xml {
if ([$1]) {
^assign auth 1
httpd.get./url/rss-1.xml $0-
}{
httpd.$0 Errr, no.
}
}
eval assign httpd.get.$encode(/url-a/rss-2.xml) 1
eval assign httpd.ctype.$encode(/url-a/rss-2.xml) text/xml
alias httpd.get./url-a/rss-2.xml {
if ([$1]) {
^assign auth 1
httpd.get./url/rss-2.xml $0-
}{
httpd.$0 Errr, no.
}
}
eval assign httpd.get.$encode(/url-a/rss-3.xml) 1
eval assign httpd.ctype.$encode(/url-a/rss-3.xml) text/xml
alias httpd.get./url-a/rss-3.xml {
if ([$1]) {
^assign auth 1
httpd.get./url/rss-3.xml $0-
}{
httpd.$0 Errr, no.
}
}
alias url.listall {
foreach stack.url jj {
if ([$jj]>=[$stack[url]]){
httpd.$0 $linkurl($stack[url][$jj])
}
}
foreach stack.url jj {
if ([$jj]<[$stack[url]]){
httpd.$0 $linkurl($stack[url][$jj])
}
}
}
alias url.listsome {
^assign tt $stime($time())
@ url.yday = mid(8 2 $tt) ## [.] ## mid(4 3 $tt) ## [.] ## mid(20 4 $tt)
@ myt = time()
@ cnt = stack.url
^assign -cc
^assign cc $1
@ cc = cc + 0
if ( cc < 1){@ cc = 10}
if ( cc > 999){@ cc = 10}
httpd.$0
httpd.$0
httpd.$0
httpd.$0
httpd.$0
if (auth) {
httpd.$0
httpd.$0
httpd.$0
}{
httpd.$0
httpd.$0
httpd.$0
}
httpd.$0
httpd.$0 These are the $cc most recent additions. You may also choose to see a
longer list.
httpd.$0
httpd.$0 - $url.yday
while ( cc > 0 ){
@ cc = cc - 1
if (cnt == 000){
@ cnt = 999
}{
^assign cnt $right(3 ${000 ## cnt - 1})
}
@ myot = myt
@ myt = words(2 $stack[url][$cnt])
if (![$linkurl[$cnt]]){
# echo URL $cnt gets cached @ $stime($myt)
assign linkurl.$cnt $linkurl($stack[url][$cnt])
}
# { httpd.$0 }
if ( (![$urlrs[$cnt]]) || auth ){
httpd.$0 $linkurl[$cnt]
}{
;
# httpd.$0
}
}
}
alias url.listsome.xml {
^assign tt $stime($time())
@ url.yday = mid(8 2 $tt) ## [.] ## mid(4 3 $tt) ## [.] ## mid(20 4 $tt)
@ myt = time()
@ cnt = stack.url
@ cc = cc + 0
@ cct = 0
@ maxno = 40
if ( cc < 1){@ cc = 1}
if ( cc > 3){@ cc = 3}
httpd.$0 An RSS stream of the list of URLs
# httpd.$0 - Welcome to the testjavascript:alert(document.location)
while ( cc > 0 && maxno > 0){
@ maxno = maxno - 1
if (cnt == 000){
@ cnt = 999
}{
^assign cnt $right(3 ${000 ## cnt - 1})
}
@ myot = myt
@ myt = words(2 $stack[url][$cnt])
assign localcache $linkurl.xml($stack[url][$cnt])
if ( (![$urlrs[$cnt]]) || auth ){
if (cc > 0) {
@ cct = 1
httpd.$0 $localcache
}
}{
httpd.$0
}
}
if ( cct < 1 ){
httpd.$0 - No URLs yet, as of $mid(11 5 $stime($time()))x
}
}
# http://www.foo.org/ 938000340 3 Sec #blafasel i love www.foo.org !
alias linkurl {
if ( [$urlen[$redir[$encode($3)]]]!=[on] ){
if ( [$urlen[$redir[$encode($3)]]]){
^assign urlrs.$cnt \# $cnt SET OFF from $3
}{
^assign urlrs.$cnt \# $cnt unset from $3
}
}{
# ^assign -urlrs.$cnt
}
if ( (![$urlrs[$cnt]]) ){
@ a.1 = []
@ a.2 = []
}{
@ a.1 = []
@ a.2 = []
}
@ tto = stime($myot)
@ url.yday = mid(8 2 $tto) ## [.] ## mid(4 3 $tto) ## [.] ## mid(20 4 $tto)
@ tt = stime($1)
@ url.day = mid(8 2 $tt) ## [.] ## mid(4 3 $tt) ## [.] ## mid(20 4 $tt)
@ url.hm = mid(11 5 $tt)
@ fr = []
if (url.day != url.yday){
# echo URL Added day: $url.day to it.
@ fr = fr ## [
] ## url.day ## [
]
}
@ fr = fr ## [- <\;$a.1$fix(HTML $3)$a.2] ## [>\; ]
if ([$2] > 1){
@ fr = fr ## [$fix(HTML $(5-${[$2]+3})) ]
}
@ fr = fr ## [$fix(HTML $(${[$2]+4}))]
if ([$2] < rmatch($~ $5-)){
@ fr = fr ## [ $fix(HTML $(${[$2]+5}-))]
}
@ fr = fr ## [ \[] ## url.hm ## [\]]
@ function_return = fr
@ url.yday = url.day
}
alias linkurl.xml {
if ( [$urlen[$redir[$encode($3)]]]!=[on] ){
if ( [$urlen[$redir[$encode($3)]]]){
^assign urlrs.$cnt \# $cnt SET OFF from $3
}{
^assign urlrs.$cnt \# $cnt unset from $3
}
}{
# ^assign -urlrs.$cnt
}
if ( (![$urlrs[$cnt]]) ){
@ a.1 = []
@ a.2 = []
}{
@ a.1 = [#]
@ a.2 = []
}
@ tto = stime($myot)
@ url.yday = mid(8 2 $tto) ## [.] ## mid(4 3 $tto) ## [.] ## mid(20 4 $tto)
@ tt = stime($1)
@ url.day = mid(8 2 $tt) ## [.] ## mid(4 3 $tt) ## [.] ## mid(20 4 $tt)
@ url.hm = mid(11 5 $tt)
@ fr = [
- ]
if (url.day != url.yday){
@ cc = cc - 1
@ fr = fr ## [---- ] ## url.day ## [x
- ]
}
@ fr = fr ## [$fix(XML $0)]
@ fr = fr ## [\[] ## url.hm ## [\]]
@ fr = fr ## [ $a.1$fix(XML $3)$a.2] ## [: ]
if ([$2] > 1){
@ fr = fr ## [$fix(XML $(5-${[$2]+3})) ]
}
@ tmp = mid(${index(/ $0) + 2} 99 $0)
@ tmp.dom = left($index(/ $tmp) $tmp)
@ tmp.dom = fix(XML $tmp.dom)
if ( index(? $tmp) > 0 ) {
@ tmp = mid(0 ${index(? $tmp) + 1} $tmp)
}
@ tmp = mid(${rindex(/ $tmp) + 1} 99 $tmp)
@ tmp = fix(XML $tmp)
@ fr = fr ## tmp.dom ## [/...] ## tmp
# @ fr = fr ## [$strip(<> $(${[$2]+4}))]
# @ fr = fr ## [_]
if ([$2] < rmatch($~ $5-)){
@ fr = fr ## [ $fix(XML $(${[$2]+5}-))]
}
@ fr = fr ## [
]
@ function_return = fr
# @ url.yday = url.day
}
on -timer "00:01" url.fixcache
alias url.fixcache {
^assign tt $stime($time())
@ url.yday = mid(8 2 $tt) ## [.] ## mid(4 3 $tt) ## [.] ## mid(20 4 $tt)
@ cnt = stack.url - 1
^assign cnt $right(3 ${000 ## cnt - 1})
echo ... url.fixcache: $cnt
^assign -linkurl.$cnt
# ^assign linkurl.$cnt $linkurl($stack[url][$cnt])
}
alias url.clearcache {
foreach linkurl jj {
^assign -linkurl.$jj
}
}
# The $words(index string) function. (index may be a range)
alias words ^assign function_return $($0)
# The fix() function is in "httpd"