12-14-2017, 03:17 +0100
Search result (40)
All posts by: elven
AuthorPost
Topic: Any feature suggestions/recommendations?   Forum: #tclsmalltalk      Goto post
elven  05-17-2008, 16:35 | Just some quick thoughts on this .. Jabber
security dept.
(Administrator)
Member since 03/2004
55 Posts
Quote by thommey on 04-11-2008, 01:20:
Should I add tcl binds for when the information is known or a user authes? Or both? (such as 'bind info' passing 'nick host hand chan login realname' and/or 'bind auth' passing 'nick host hand chan login')


I think this is the way to go.

All other approaches mentioned do not add informational value; they simply add crafted delays or produce other overhead to the system to make life simpler (but, in reality, they don't).
Refreshes at one minute are fine. Possibly provide a proc to trigger manual updates for a nick, and catch the results in a bind, resulting in async operation. I do not think that this is necessary, however.
The IRC protocol does not provide proper state in this matter, and as such, neither should eggdrop. Covering it up with fake marble will not improve matters.

irc.swordcoast.net
Topic: [Egg] Mediawiki/Wikipedia RC Announcer   Forum: workscript announcements      Goto post
elven  11-08-2006, 18:14 | [Egg] Mediawiki/Wikipedia RC Announcer Jabber
security dept.
(Administrator)
Member since 03/2004
55 Posts
$ svn co http://svn.swordcoast.net/tcl/trunk/mediawiki/

wikibot.tcl watches & announces the recent changes table on a MySQL-Mediawiki Installation.

irc.swordcoast.net
Topic: [QUIZ] #1: Abgaben   Forum: #tclchannel related questions      Goto post
elven  05-05-2006, 02:22 | Elven Jabber
security dept.
(Administrator)
Member since 03/2004
55 Posts
                                                                                                                              
001
002
003
004
005
006
007
008
009
010
011
012
013
014
015
016
017
018
019
020
021
022
023
024
025
026
027
028
029
030
031
032
033
034
035
036
037
038
039
040
041
042
043
044
045
046
047
048
049
050
051
052
053
054
055
056
057
058
059
060
061
062
063
064
065
066
067
068
069
070
071
072
073
074
075
076
077
078
079
080
081
082
083
084
085
086
087
088
089
090
091
092
093
094
095
096
097
098
099
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
#!/usr/bin/ruby -l -rsocket -ripaddr
# Short multiserver IRC clone thingy
# Arguments to pass: count of clones, nickname base, vhost list (,-delimited), host, port
# All arguments are mandatory. Use 0.0.0.0 for any available vhost.
#
# You can specify a "s" in front of any vhost to designate this vhost to be a SOCKS 4 proxy
# instead. This feature requires a port: sa.b.c.d:9050
#
### The rest of the arguments (one line per argument) gets autoperformed on connect.
#
# Examples:
#  connect directly:
#   ruby irc.rb 5 nick 0.0.0.0 $ip 6668 "JOIN #test"
#  connect through socks4 proxy at 10.42.1.2:9050:
#   ruby irc.rb 5 nick s10.42.1.2:9050 $ip 6668 "JOIN #test"
#
#
# Dev notes:
# the -l argument chomps \r\n off incoming text
# This is imperative for the script to work, but saves (.strip) on gets

# This will hold all running live threads.
# One thread per drone.
$d = {}

# Global nick/thread-counter.
$x = 0

c, $n, v, *$h = *ARGV.slice!(0, 5)

$e = Regexp.escape($n)

$v = v.split /[i][,][/i]/

$n.freeze; $h.freeze; $p.freeze; $e.freeze; $v.freeze #dbg

T = true
F = false

# begin debug output
class S < TCPSocket
def p *a
puts *a
end

#       alias_method :w2, :write #dbg
#       def write(*a) #dbg
#               $stdout.puts "> #{a[0].strip.inspect}" if a[0].strip != "" #dbg
#               w2(*a) #dbg
#       end #dbg
end

# opped drones
# b = boolean: return non-ops
def o b = F
$d.values.reject {|k,v| b ? k[:o] : !k[:o] }
end

# the connect thread
def d
h = $h.dup
$v[rand $v.size] =~ /(s)?(.+?):(.+)/

# use vhost to connect if not using proxy
$1 ? (h[0, 2] = $2, $3) : h << $2

# use socks = $1 == "s"
# vhost = $2
# port = $3

#print "connecting to: "; p h
s = S.new *h

# socks4
# XXX << might have broken it
s << "\x04\x01#{[$h[1].to_i, IPAddr.new($h[0]).to_i].pack "nN"}\x0" if $1 # == "s"
# socks5
#s.p "\x05\x02\x00\x02\x05\x01\x00\x01#{[IPAddr.new($h[0]).to_i, $h[1].to_i].pack "Nn"}" if $1 == "S"

x = ($x += 1)

t = Thread.new {
    begin
    s.p "USER i * * r\nNICK " + $n + x.to_s

    while s.gets

    #puts "#{x}: #{$_}" #dbg

    a = split " "

    case $_

    # sleep on error before reconnecting
    # assuming throttle
    when /[i]^E[/i]/
    sleep 99

    # pingpong
    when /[i]^P[/i]/
    s.p "PONG " + a[1]

    # Perform on End of/MOTD missing
    when /^:\S+ (422|375)/
    s.p ARGV.join "\n"

    # Invite kicked drones.
    when /^:\S+ KICK (.+) #{$e}(\d+) /
    s.p "INVITE #{$n}#{$2} #{$1}"

    # Join when invited by a drone
    when /^:\S+ INVITE #{$e+x.to_s} :(\S+)/
    s.p "JOIN #{$1}"

    # Op incoming drones.
    when /^:#{$e}(\d+)!\S+ JOIN :(\S+)/
    s.p "MODE #{$2} +o #{$n+$1}" if $d[x]

    when /[i]^:(.+?)!\S+ MODE #[/i]/
    # $1 = the one issuing the mode
    # t = $1
    # a[2] = the channel the mode is set on
    # e = $2

    l = T
    a[3].each_byte {|c|
        l = T if ?+ == c
        l = F if ?- == c

        # c != ?o ? l = (c == ?+) :
        if c == ?o
        if (v = a.slice! 4) =~ /[i]^#{$e + x.to_s}$[/i]/
        $d[x][0][:o] = l
        if l
        # op all others
        n = o(T).collect {|i| i[2] }

        while 0 < (y = n.slice! 0, 6).size
        s.p "MODE #{a[2]} +oooooo #{$n}#{y.join " "+$n}"
        end
        else
        # deop the sucker who deopped one of our drones!
        s.p "MODE #{a[2]} -o+o #{t} "+v
        end
        end
        # optional feat: auto-unban
        # if we are opped and someone sets a ban, remove it
        #elsif l && c == ?b && $d[x][0][:o]
        #       s.p "MODE #{a[2]} -b #{a.slice! 4}"
        end
    }
    end
    end
    rescue
    #Exception => e #dbg
    #puts e.to_s #dbg
    #puts e.backtrace.join "\n" #dbg
    #exit #dbg
    end

    # can be nilled?
    $d.delete x

    d
}
$d[x] = [t, s, x]
end

# Startup all drones.
c.to_i.times { d }

# Pass all arguments to all running threads.
while $stdin.gets
$d.each {|k,v|
    v[1].p $_
}
end


992 bytes.

irc.swordcoast.net
Topic: [QUIZ] #1: Abgaben   Forum: #tclchannel related questions      Goto post
elven  05-05-2006, 02:20 | Cybex Jabber
security dept.
(Administrator)
Member since 03/2004
55 Posts
                                                                                                                              
01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
#!/usr/bin/tclsh

rename rename b
b puts p
b proc a
b list l
b set s
b incr i
b if j
b expr e
b foreach g
b fileevent f
b lappend h
b llength t
b lindex u
b lreplace w
b lsearch x

a r {s {n ""}} {
    j {![eof $s]} {
        s r [gets $s t]
        j {$s=="stdin"} {
            j {[x $::l [s d [u $t 0]]]!=-1} {
                p $d [join [lrange [split $t] 1 end]]
            } {
                g c [file ch so*] {p $c $t}
            }
        } {
            j {$r==-1} {
                s ::l [w $::l [s p [x $::l $n]] $p]
                close $s
                after 10000 o
            }
            switch -g -- $t {
                "N*AU*:* Look*hostname" {
                    p $s "NICK $n"
                    p $s "USER $n h s :$n"
                }
                "PING *" {p $s "PONG [u $t 1]"}
                "* NOT* :on *[b]" - "[/b]* KICK *" {p $s "JOIN #cybex"}
                "* MODE * +o*" - "* MODE * -o*" {
                    # protect :)
                    s c [u $t 2]
                    g {1 2 3 4 5 6} $::l {p $s "MODE $c +oooooo $1 $2 $3 $4 $5 $6"}
                }
                "* JOIN :*" {
                    s c [string range [u $t 2] 1 end]
                    g {1 2 3 4 5 6} $::l {p $s "MODE $c +oooooo $1 $2 $3 $4 $5 $6"}
                }

            }
        }
    }
}
a o {} {
    s my [l 217.160.128.86 82.165.15.22 212.227.77.221 212.227.78.57 212.227.78.58 212.227.78.59 212.227.78.60 212.227.78.70 212.227.78.76]
    s ::myip [u $my [e {int(rand()*9)}]]
    s s [socket -async -myaddr $::myip irc.swordcoast.net 6667]
    fconfigure $s -blocking false -buffering line
    f $s readable [l r $s $s]
    h ::l $s
}
j {![string is digit -str $argv]} {exit}
h ::l CyBex
h ::l thommey
f stdin readable [l r stdin]
for {s i 0} {$i<$argv} {i i} {
    after [e 500*$i] o
}
vwait 1


irc.swordcoast.net
Topic: [QUIZ] #1: Abgaben   Forum: #tclchannel related questions      Goto post
elven  05-05-2006, 02:20 Jabber
security dept.
(Administrator)
Member since 03/2004
55 Posts
So, nachdem kein weiteres Interesse ueberhaupt stattfindet (und ich auch keine weitere Zeit mehr hatte) poste ich einfach mal alle vorhandenen Quellcodes .. 2. :}

irc.swordcoast.net
Topic: [QUIZ] #1: IRC clones in 1KB   Forum: #tclchannel related questions      Goto post
elven  03-28-2006, 21:13 | Abgabe-Verschiebung: Wochenende-Ende Jabber
security dept.
(Administrator)
Member since 03/2004
55 Posts
Ende des Wochenendes, ha-ha.

irc.swordcoast.net
Topic: [QUIZ] #1: Abgaben   Forum: #tclchannel related questions      Goto post
elven  03-25-2006, 13:02 | [QUIZ] #1: Abgaben Jabber
security dept.
(Administrator)
Member since 03/2004
55 Posts
Abgegebene Teilnahmen bis jetzt:

CyBex

irc.swordcoast.net
Topic: [QUIZ] #1: IRC clones in 1KB   Forum: #tclchannel related questions      Goto post
elven  03-25-2006, 11:45 | Abgabe Jabber
security dept.
(Administrator)
Member since 03/2004
55 Posts
Mittwoch, CET.  Spaetestens!

Alles per Mail an elveZIGn@swordZIGcoast.neZIGt.

irc.swordcoast.net
Topic: [QUIZ] #1: IRC clones in 1KB   Forum: #tclchannel related questions      Goto post
elven  03-20-2006, 16:54 | Perl Jabber
security dept.
(Administrator)
Member since 03/2004
55 Posts
Perl

Standarddistro. Kein CPAN.

irc.swordcoast.net
Topic: [QUIZ] #1: IRC clones in 1KB   Forum: #tclchannel related questions      Goto post
elven  03-20-2006, 16:54 | TCL Jabber
security dept.
(Administrator)
Member since 03/2004
55 Posts
TCL

Erlaubte Distro: Komplettes Source-Package von tcl.tk.  Keine weiteren Module.

package * zaehlt nicht.

irc.swordcoast.net
Topic: [QUIZ] #1: IRC clones in 1KB   Forum: #tclchannel related questions      Goto post
elven  03-20-2006, 14:17 | Ruby Jabber
security dept.
(Administrator)
Member since 03/2004
55 Posts
Ruby

Erlaubte Module/Extensions: Alles in der Standarddistro.

requires zaehlen nicht. Hint: ruby -r<mod> -r<mod> ..

irc.swordcoast.net
This post was edited 1 times, last on 03-20-2006, 14:17 by elven
Topic: [QUIZ] #1: IRC clones in 1KB   Forum: #tclchannel related questions      Goto post
elven  03-20-2006, 14:14 | Java Jabber
security dept.
(Administrator)
Member since 03/2004
55 Posts
Java

Erlaubte Classes: Alles in der Standardistro J2SE.

Imports zaehlen nicht.
Static Imports zaehlen nicht.
Aller class code zaehlt.

irc.swordcoast.net
Topic: [QUIZ] #1: IRC clones in 1KB   Forum: #tclchannel related questions      Goto post
elven  03-20-2006, 14:12 | Pike Jabber
security dept.
(Administrator)
Member since 03/2004
55 Posts
Pike

Erlaubte Module: Alles was in der Source Distro ist.  Bei debian pike7.x-meta.

#includes zaehlen nicht.
#defines zaehlen.

irc.swordcoast.net
Topic: [QUIZ] #1: IRC clones in 1KB   Forum: #tclchannel related questions      Goto post
elven  03-20-2006, 01:00 Jabber
security dept.
(Administrator)
Member since 03/2004
55 Posts
Addendum:

Endgueltige Abgaben an elveZIGn@swordZIGcoast.neZIGt MAILEN!  Ja, Email.
Nur die letzteingetroffene Version zaehlt (also darf man noch 5.7 Sekunden vor Abgabe eine weitere einschicken).

Bei Unklarheiten bez. der Richtlinien hier posten.  Ausnutzen von Loopholes wird nur in den seltensten Faellen positiv honoriert.

irc.swordcoast.net
This post was edited 1 times, last on 03-25-2006, 11:46 by elven
Topic: [QUIZ] #1: IRC clones in 1KB   Forum: #tclchannel related questions      Goto post
elven  03-20-2006, 00:57 | [QUIZ] #1: IRC clones in 1KB Jabber
security dept.
(Administrator)
Member since 03/2004
55 Posts
Hi und hallo zum ersten Quiz hier in #tcl(.intern).

Es wird wohl fortlaufend Quizze dieser Art geben - mit Rangliste usw, wenn Interesse bestehen wird.  Aber gleich zum Thema:

Allgemein, fuer alle Quizze gueltige Regeln, soweit nicht anders vermerkt
+ In einer Scriptsprache deiner Wahl von den in den unten einzelnen Posts genannten.  Jede oeffentlich verfuegbare Version der genannten Sprachen darf benutzt werden.  Bugs in der jeweiligen Sprachversion duerfen gnadenlos zum eigenen Vorteil ausgenutzt werden.  Auf Anfrage (und Pruefung) andere natuerlich.
+ Das abgegebene Resultat darf auf keinen Fall mehr als 1024 Byte gross sein.  Bei Compilersprachen zaehlt der Quellcode.  Mehr als 1024 Byte (non-unicode!) fuehren zum Ausschluss.  Gezaehlt werden NUR printables - kein Whitespace.  Kommentare werden NICHT gezaehlt, einschliesslich der ein- und ausleitenden Kommentarliterale.  Shebang bei Scripten wird nicht gezaehlt.  Include-Direktiven werden gezaehlt, es sei denn, sie koennen auf der Command Line angebracht werden - dies ist erlaubt.  Auf der Command Line darf kein aktiver Code angegeben werden.  Den Quellcode dynamisch dekomprimieren ist erlaubt, aber unfein - inwiefern das auf die Wertung einfliesst, ueberlege ich mir noch.  :rolleyes:
+ Nur die in der Standarddistribution der Sprache mitgegebenen libs und includes duerfen verwendet werden.  Keine eigenen Libs.  Kein CPAN.  Kein RAA.
+ Die Sprachwahl fliesst nicht in die Wertung ein.
+ Alle erforderten Features muessen erfuellt sein.  Zusatzfeatures koennen positiv angerechnet werden, muessen aber nicht.
+ Bugs wollen wir nicht sehen.  Bugs, die Features verhindern = Ausschluss.

Jetzt aber zum ..
Quiz #1: Muhstik lite

Schreibe ein Script, das eine beim Start angegebene Anzahl Clones auf einen ebenfalls angegebenen IRC-Server und Port schickt.
Wenn ein Clone die Verbindung verliert so soll er wieder verbinden.  Flood control ist nicht notwendig, aber ein Plus.  Die Clones sollen ueber die Command Line steuerbar sein - alle zusammen, Einzelkontrolle ist nicht notwendig, aber ein Plus.
Die Clones sollen sich selbst gegenseitig op'en, sobald die Moeglichkeit dazu besteht, und auf sich gegenseitig aufpassen (das ist deine Auslegungssache).
Fuer die mit viel zuviel Platz uebrig:  Die Clones sollen einen angegebenen User beschuetzen wie die eigenen Clones.
Weitere sinnvolle Features werden positiv angerechnet.

Haut rein.

Abgabeschluss: Wenn keiner mehr was zu sagen hat.   Maximal eine Woche, in etwa, denke ich.

irc.swordcoast.net
This post was edited 4 times, last on 07-23-2006, 10:58 by CyBex
Topic: Random numbers (Better randomish numbers depending on the underlying kernel)   Forum: #tclcode snippets      Goto post
elven  12-07-2005, 18:22 | Random numbers Jabber
security dept.
(Administrator)
Member since 03/2004
55 Posts
                                                                                                                              
01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
if {![file exists "/dev/urandom"]} {
    error "This library needs to run on a urandom-enabled unixoid to work, such as Linux."
}

# Returns urandom data as a string.
# [++n++] bytes to read
# [++cast++] Cast arguments to a list of int
#
# Note: This *might* block on some systems, but
# really shouldn't.
proc urandom {{n 1} {cast 1}} {
    set n [expr int($n)]
    if {$n < 1 || $n > 65535} { set n 1 }
    set f [open /dev/urandom r]
    set b [read $f $n]
    close $f
    if {$cast == 1} {
        set x [list]
        foreach i [split $b ""] {
            scan $i "%c" n; lappend x $n
        };
        set b $x
    }
    return $b
}

# gives a completely random floating point number
# this is an evil hack, but works for now
proc urandf {} {
    while {1} {
        binary scan [urandom 4] f d
        if {[set d] != "nan"} { break }
    }
    return $d
}


irc.swordcoast.net
This post was edited 1 times, last on 08-14-2009, 04:19 by thommey
Topic: [Site] Paste site   Forum: workscript announcements      Goto post
elven  12-06-2005, 03:47 Jabber
security dept.
(Administrator)
Member since 03/2004
55 Posts
Looks good, thanks.

irc.swordcoast.net
Topic: Mouse event Bindings, Sharing widget properties   Forum: workimminent problem solving      Goto post
elven  12-03-2005, 21:38 Jabber
security dept.
(Administrator)
Member since 03/2004
55 Posts
Hi Pedro.

First off, i cannot help you with those bind problems, since i have never ever tried Tk, funnily enough. :)
However, i have got an idea concerning the keypress.

Your "timed" bind: bind for mouse movement and record the first coordinates - then discard all further bind events until a reasonable amount of time (200ms?) has passed. Do that either by unbinding and rebinding with "after" (again, never worked with Tk, so i do not know if that is possible) or an if-block that returns (whatever works best, performance-wise.
Then check again - if the coords have not changed and the cursor happens to be under some word with definition, show hint/popup.

Thats of course just a somewhat crude hack, but it is all i got to offer. I think it is more comfortable than pressing a key.

Regards

irc.swordcoast.net
Topic: Read this first please (Important information that might safe your life contained within.    Then again, maybe not.)   Forum: workJob Offers & Requests      Goto post
elven  12-03-2005, 00:14 | Read this first please Jabber
security dept.
(Administrator)
Member since 03/2004
55 Posts
Hey!

This forum is for Serious Offers/Requests only.

Serious Offers/Requests are regarded (as in guideline) as follows:
  • a clear outline on what has to be done, in the case of a script request
  • expected/targeted payment or if you want it done for free
  • preferably Jobs that would warrant a business contract
  • possibly a timeframe

This does NOT exclude changes/revisions to existing scripts; the difference being to posts in the IPS forum is simple, Ask yourself "Would my client mind  paying for that if it were a regular task in my daytime job?" and if you can answer that with yes, this here is for you.

Do not post here if your request or offer does not meet the above criteria - go to the "immediate problem solving" forum instead, please.

The staff retains the right to rename and/or move topics at their discretion.

Now that we're all that spunk over with - have fun :)

Regards,
Elven

irc.swordcoast.net
This post was edited 1 times, last on 12-03-2005, 21:58 by elven
Topic: all procs in a file   Forum: workimminent problem solving      Goto post
elven  07-27-2005, 16:00 Jabber
security dept.
(Administrator)
Member since 03/2004
55 Posts
You *could* source the file into a seperate, safe interpreter and execute info procs * over there - but that bears lots of potential problems, since the script might not like it.
The only viable way I can think of is grepping the file for proc header definitions, eg /proc\s+(\S+)\s+\{\s*((?:\S+)(?:\s*))*\s*}\s+\{/ or sth like that :)

Elven

irc.swordcoast.net
Topic: [EGG] Helper procs for colourful messages   Forum: #tclcode snippets      Goto post
elven  03-28-2005, 22:04 | [EGG] Helper procs for colourful messages Jabber
security dept.
(Administrator)
Member since 03/2004
55 Posts
                                                                                                                              
01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
proc b {str} {
    return "\002${str}\002"
}

proc u {str} {
    return "\037${str}\037"
}

proc r {str} {
    return "\026${str}\026"
}

proc c {str fg {bg -1}} {
    if {$bg != -1} {
        return "\003${fg},${bg}${str}\003"
    } {
        return "\003${fg}${str}\003"
    }
}

# Usage:

putmsg $channel "Hi there, [u "This is underlined, [b "and this bold"]"]"
# Yes, those weird doublequotes work.


irc.swordcoast.net
This post was edited 2 times, last on 08-12-2009, 22:15 by thommey
Topic: [TCL] get the calling proc   Forum: #tclcode snippets      Goto post
elven  03-28-2005, 16:02 | Example Jabber
security dept.
(Administrator)
Member since 03/2004
55 Posts
                                                                                                                              
1
elven@avariel tmp $ cat strace.tcl
                                                                                                                              
01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
proc strace {} {
    set ret {}
    set r [catch {expr [info level] - 1} l]
    if {$r} { return {""} }
    while {$l > -1} {
        incr l -1
        lappend ret [info level $l]
    }
    return $ret
}

proc ll4 {} {
    set trace [strace]
    puts "Trace:"
    foreach t $trace {
        puts "* ${t}"
    }
}

proc ll3 {} {
    ll4
}

proc ll2 {} {
    ll3
}

proc ll1 {} {
    ll2
}

proc ll0 {} {
    ll1
}


ll0


                                                                                                                              
1
2
3
4
5
6
7
8
9
elven@avariel tmp $ tclsh strace.tcl
Trace:
  • ll3
  • ll2
  • ll1
  • ll0
  • strace
  • ll4
elven@avariel tmp $


irc.swordcoast.net
This post was edited 1 times, last on 08-12-2009, 22:29 by thommey
Topic: [TCL] get the calling proc   Forum: #tclcode snippets      Goto post
elven  03-28-2005, 15:54 | [TCL] get the calling proc Jabber
security dept.
(Administrator)
Member since 03/2004
55 Posts
                                                                                                                              
1
2
3
4
5
6
7
8
proc logCaller {} {
    set r [catch {info level [expr [info level] - 1]} e]
    if {$r} {
        putlog "Called directly by the interpreter (e.g.: .tcl on the partyline)."
    } {
        putlog "Called by ${e}."
    }
}


irc.swordcoast.net
This post was edited 1 times, last on 08-12-2009, 22:27 by thommey
Topic: Probleme mit qbot.tcl [german]   Forum: workimminent problem solving      Goto post
elven  03-28-2005, 14:34 Jabber
security dept.
(Administrator)
Member since 03/2004
55 Posts
Mit der TCL-version von 8.3 auf 8.4 hat sich die regsub-Syntax leicht geaendert. Dein windrop wird wohl zur neuen Version gelinkt sein, waehrend deine linux-box noch die alten libs hat. -> Upgraden, oder Script anpassen.

http://www.tcl.tk/man/tcl8.3/TclCmd/regsub.htm
http://www.tcl.tk/man/tcl8.4/TclCmd/regsub.htm

irc.swordcoast.net
Topic: Test   Forum: #tclsmalltalk      Goto post
elven  03-26-2005, 19:10 Jabber
security dept.
(Administrator)
Member since 03/2004
55 Posts
Hallo, Gast.

Funktioniert das nun?

irc.swordcoast.net
Topic: Test   Forum: #tclsmalltalk      Goto post
elven  03-26-2005, 12:24 Jabber
security dept.
(Administrator)
Member since 03/2004
55 Posts
Ganz dem Thread-Titel nach ist dies ein Test.

irc.swordcoast.net
Topic: Test   Forum: #tclsmalltalk      Goto post
elven  03-22-2005, 21:20 Jabber
security dept.
(Administrator)
Member since 03/2004
55 Posts
Silicon oder Silizium?

irc.swordcoast.net
Topic: Test   Forum: #tclsmalltalk      Goto post
elven  03-22-2005, 20:58 Jabber
security dept.
(Administrator)
Member since 03/2004
55 Posts
Silizion.

irc.swordcoast.net
Topic: Test   Forum: #tclsmalltalk      Goto post
elven  03-22-2005, 20:42 Jabber
security dept.
(Administrator)
Member since 03/2004
55 Posts
Oh, on the contrary.

Das Internet ist Kabel, Router, Rechner, PCs, etc ..

Das Internet ist voller Menschen, voller Ideen, voller Kreativitaet, voller Langeweile, voller Ignoranz, voller Blogs (iiiieeeergh!), voller Idiotismus :)

Wann kommt Nivea wieder vorbei, und wo ist meine Teetasse?

irc.swordcoast.net
Topic: Test   Forum: #tclsmalltalk      Goto post
elven  03-22-2005, 20:33 Jabber
security dept.
(Administrator)
Member since 03/2004
55 Posts
Amuesement ist grundsaetzlich zu begruessen, vor allem im trockenen Internet .. :)

irc.swordcoast.net
Topic: Test   Forum: #tclsmalltalk      Goto post
elven  03-22-2005, 07:21 Jabber
security dept.
(Administrator)
Member since 03/2004
55 Posts
Finde ich gar keine Uannehmlichkeit, ehrlichgesagt. Ich sehe nur Vorteile[ in meinem Fall] bei der Verwendung von VPN - ich hab alle meine Kisten in einem "lokalen" Netzwerk und sie sind nach aussen entsprechend abgesichert.

Ja, perfekt ausgeruestet: Ein Wurm (Agobot zb) findet den RPC-Exploit (einen der Vielen (so Viele, dass es sogar gross geschrieben werden muss)) und installiert sich prompt selbst.  Phatbot/Agobot kennt wohl jeder zur Genuege, als dass ich ihn gross beschreiben muesste. :)

Eine Welt wo Windowsrechner ungepa..? Huh?   Doc!
Ernsthaft, Windows ist ein OS das schon vom Design angehend fehlerhaft ist (ja, auch andere Systeme haben Macken, aber Windows - was das Internet betrifft - besonders); sowas sollte nie direkt ans Netz, meiner Meinung nach.

M\$: "WindowsXP(c), designed for the internet."
$hacker: "The internet, designed for unixoids."

irc.swordcoast.net
Topic: Test   Forum: #tclsmalltalk      Goto post
elven  03-21-2005, 23:20 Jabber
security dept.
(Administrator)
Member since 03/2004
55 Posts
Gegen die ssh-Wut gibts portknocking und VPN[, unter anderem].

Und untersuchen, mm.. ich mach das immer ueber VMWare, waehrend ich davor sitze oder im selben Raum bin. Hab ein paar Massnahmen mit denen ich das ziemlich schnell mitbekomme wenn da was los ist.
Faellt uebrigens nicht weiter schwer, diesen Zustand zu erreichen: Eine ungepatchte Windows-XP Box ist im Durchschnitt nach 11 Minuten gerootet (!!).

irc.swordcoast.net
Topic: Test   Forum: #tclsmalltalk      Goto post
elven  03-21-2005, 23:07 Jabber
security dept.
(Administrator)
Member since 03/2004
55 Posts
Damit meinst du wohl Scriptkids .. und die sind so oder so keine Gefahr, wage ich mal zu behaupten.

Zu zweiterem stimme ich zu, das kann lustig sein :) (-> "Root this Box!")

irc.swordcoast.net
Topic: Test   Forum: #tclsmalltalk      Goto post
elven  03-21-2005, 22:58 Jabber
security dept.
(Administrator)
Member since 03/2004
55 Posts
Wieso sollte jemand sowas tun wollen?  Waere doch nur Selbstluege ..

EDIT ist ja soviel einfacher als post... habt ihr sonst nix zu tun? //never
EDIT ist aber soviel langweiliger .. nein! //Elven

irc.swordcoast.net
This post was edited 1 times, last on 03-21-2005, 23:06 by unknown
Topic: Test   Forum: #tclsmalltalk      Goto post
elven  03-21-2005, 22:54 Jabber
security dept.
(Administrator)
Member since 03/2004
55 Posts
Naja, -grsec ist ja ein *Hauch* von Andeutung dass manche Leute nachgedacht haben und es auf laengere Zeit ausgelegt haben .. :)

irc.swordcoast.net
Topic: Test   Forum: #tclsmalltalk      Goto post
elven  03-21-2005, 22:51 Jabber
security dept.
(Administrator)
Member since 03/2004
55 Posts
158 Tage uptime? Au weia. Das ist entweder ein kritischer Produktionsserver oder es ist mit Sicherheit nicht weit her :)

irc.swordcoast.net
Topic: Test   Forum: #tclsmalltalk      Goto post
elven  03-21-2005, 22:45 Jabber
security dept.
(Administrator)
Member since 03/2004
55 Posts
Ausser meinem Avatar?

On a completely different note:
Was hat mirage verschluckt wenn er so fish-bot-ig mooed? :(

irc.swordcoast.net
Topic: Test   Forum: #tclsmalltalk      Goto post
elven  03-21-2005, 22:37 Jabber
security dept.
(Administrator)
Member since 03/2004
55 Posts
Ich zitiere grundsaetzlich keine Filme, oder Plagiate.

puts "${witty_response}"

irc.swordcoast.net
Topic: Test   Forum: #tclsmalltalk      Goto post
elven  03-21-2005, 22:08 Jabber
security dept.
(Administrator)
Member since 03/2004
55 Posts
Ooookay .. move along folks, nothing to see here.

irc.swordcoast.net
Topic: [EGG] strip control codes (bold/underline/color) & Generic message handler to deal with chanmode +c   Forum: #tclcode snippets      Goto post
elven  06-13-2004, 14:44 Jabber
security dept.
(Administrator)
Member since 03/2004
55 Posts
The most convenient way is a regular expression:

TCL 8.4 (and greater)                                                                                                                               
1
2
3
proc stripcode {str} {
    return [regsub -all -- {\002|\037|\026|\003(\d{1,2})?(,\d{1,2})?} $str ""]
}

TCL 8.3:                                                                                                                               
1
2
3
4
proc stripcode {str} {
    regsub -all -- {\002|\037|\026|\003(\d{1,2})?(,\d{1,2})?} $str "" str
    return $str
}


To use it:                                                                                                                               
1
set strippedtext [stripcode $mycolorfulltextvariable]

or simple:                                                                                                                               
1
set text [stripcode $text]


Gotisch:
Be aware though that eggdrop already has a internal command for that(since 1.6.17):

                                                                                                                              
01
02
03
04
05
06
07
08
09
10
stripcodes <strip-flags> <string>
Description: strips specified control characters from the string given. Strip-flags can be any combination of the following:
b-remove all boldface codes
c-remove all color codes
r-remove all reverse video codes
u-remove all underline codes
a-remove all ANSI codes
g-remove all ctrl-g (bell) codes
Returns: the stripped string
Module: core


irc.swordcoast.net
This post was edited 5 times, last on 08-14-2007, 18:00 by thommey
Go to forum
Unclassified NewsBoard 1.5.3-d | © 2003-4 by Yves Goergen | Time: 1021.2 msec, CPU time: 244 msec, 166 Database queries in 207.7 msec | 18 kB (143.7 kB) | Timezone: +0100