09-09-2010, 03:24 +0200
Back Overview Members Search Help
Not logged in. Register
Search result (40)
All posts by: elven
AuthorPost
Topic: Any feature suggestions/recommendations?   Forum: #tcl › smalltalk      Goto post
elven  05-17-2008, 15:35 | Just some quick thoughts on this .. Jabber
security dept.
(Administrator)
Member since 03/2004
55 Posts
Quote by thommey on 04-11-2008, 00: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: work › script announcements      Goto post
elven  11-08-2006, 17: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: #tcl › channel related questions      Goto post
elven  05-05-2006, 01:22 | Elven Jabber
security dept.
(Administrator)
Member since 03/2004
55 Posts
1  #!/usr/bin/ruby -l -rsocket -ripaddr
2  # Short multiserver IRC clone thingy
3  # Arguments to pass: count of clones, nickname base, vhost list (,-delimited), host, port
4  # All arguments are mandatory. Use 0.0.0.0 for any available vhost.
5  #
6  # You can specify a "s" in front of any vhost to designate this vhost to be a SOCKS 4 proxy
7  # instead. This feature requires a port: sa.b.c.d:9050
8  #
9  ### The rest of the arguments (one line per argument) gets autoperformed on connect.
10  #
11  # Examples:
12  #  connect directly:
13  #   ruby irc.rb 5 nick 0.0.0.0 $ip 6668 "JOIN #test"
14  #  connect through socks4 proxy at 10.42.1.2:9050:
15  #   ruby irc.rb 5 nick s10.42.1.2:9050 $ip 6668 "JOIN #test"
16  #
17  #
18  # Dev notes:
19  # the -l argument chomps \r\n off incoming text
20  # This is imperative for the script to work, but saves (.strip) on gets
21  
22  # This will hold all running live threads.
23  # One thread per drone.
24  $d = {}
25  
26  # Global nick/thread-counter.
27  $x = 0
28  
29  c, $n, v, *$h = *ARGV.slice!(0, 5)
30  
31  $e = Regexp.escape($n)
32  
33  $v = v.split /[i][,][/i]/
34  
35  $n.freeze; $h.freeze; $p.freeze; $e.freeze; $v.freeze #dbg
36  
37  T = true
38  F = false
39  
40  # begin debug output
41  class S < TCPSocket
42          def p *a
43                  puts *a
44          end
45  
46  #       alias_method :w2, :write #dbg
47  #       def write(*a) #dbg
48  #               $stdout.puts "> #{a[0].strip.inspect}" if a[0].strip != "" #dbg
49  #               w2(*a) #dbg
50  #       end #dbg
51  end
52  
53  # opped drones
54  # b = boolean: return non-ops
55  def o b = F
56          $d.values.reject {|k,v| b ? k[:o] : !k[:o] }
57  end
58  
59  # the connect thread
60  def d
61          h = $h.dup
62          $v[rand $v.size] =~ /(s)?(.+?):(.+)/
63  
64          # use vhost to connect if not using proxy
65          $1 ? (h[0, 2] = $2, $3) : h << $2
66  
67          # use socks = $1 == "s"
68          # vhost = $2
69          # port = $3
70  
71          #print "connecting to: "; p h
72          s = S.new *h
73  
74          # socks4
75          # XXX << might have broken it
76          s << "\x04\x01#{[$h[1].to_i, IPAddr.new($h[0]).to_i].pack "nN"}\x0" if $1 # == "s"
77          # socks5
78          #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"
79  
80          x = ($x += 1)
81  
82          t = Thread.new {
83                  begin
84                  s.p "USER i * * r\nNICK " + $n + x.to_s
85  
86                  while s.gets
87  
88                          #puts "#{x}: #{$_}" #dbg
89  
90                          a = split " "
91  
92                          case $_
93  
94                          # sleep on error before reconnecting
95                          # assuming throttle
96                          when /[i]^E[/i]/
97                                  sleep 99
98  
99                          # pingpong
100                          when /[i]^P[/i]/
101                                  s.p "PONG " + a[1]
102  
103                          # Perform on End of/MOTD missing
104                          when /^:\S+ (422|375)/
105                                  s.p ARGV.join "\n"
106  
107                          # Invite kicked drones.
108                          when /^:\S+ KICK (.+) #{$e}(\d+) /
109                                  s.p "INVITE #{$n}#{$2} #{$1}"
110  
111                          # Join when invited by a drone
112                          when /^:\S+ INVITE #{$e+x.to_s} :(\S+)/
113                                  s.p "JOIN #{$1}"
114  
115                          # Op incoming drones.
116                          when /^:#{$e}(\d+)!\S+ JOIN :(\S+)/
117                                  s.p "MODE #{$2} +o #{$n+$1}" if $d[x]
118  
119                          when /[i]^:(.+?)!\S+ MODE #[/i]/
120                                  # $1 = the one issuing the mode
121                                  # t = $1
122                                  # a[2] = the channel the mode is set on
123                                  # e = $2
124  
125                                  l = T
126                                  a[3].each_byte {|c|
127                                          l = T if ?+ == c
128                                          l = F if ?- == c
129  
130                                          # c != ?o ? l = (c == ?+) :
131                                          if c == ?o
132                                                  if (v = a.slice! 4) =~ /[i]^#{$e + x.to_s}$[/i]/
133                                                          $d[x][0][:o] = l
134                                                          if l
135                                                                  # op all others
136                                                                  n = o(T).collect {|i| i[2] }
137  
138                                                                  while 0 < (y = n.slice! 0, 6).size
139                                                                          s.p "MODE #{a[2]} +oooooo #{$n}#{y.join " "+$n}"
140                                                                  end
141                                                          else
142                                                                  # deop the sucker who deopped one of our drones!
143                                                                  s.p "MODE #{a[2]} -o+o #{t} "+v
144                                                          end
145                                                  end
146                                          # optional feat: auto-unban
147                                          # if we are opped and someone sets a ban, remove it
148                                          #elsif l && c == ?b && $d[x][0][:o]
149                                          #       s.p "MODE #{a[2]} -b #{a.slice! 4}"
150                                          end
151                                  }
152                          end
153                  end
154                  rescue
155                          #Exception => e #dbg
156                          #puts e.to_s #dbg
157                          #puts e.backtrace.join "\n" #dbg
158                          #exit #dbg
159                  end
160  
161                  # can be nilled?
162                  $d.delete x
163  
164                  d
165          }
166          $d[x] = [t, s, x]
167  end
168  
169  # Startup all drones.
170  c.to_i.times { d }
171  
172  # Pass all arguments to all running threads.
173  while $stdin.gets
174          $d.each {|k,v|
175                  v[1].p $_
176          }
177  end

992 bytes.

irc.swordcoast.net
Topic: [QUIZ] #1: Abgaben   Forum: #tcl › channel related questions      Goto post
elven  05-05-2006, 01:20 | Cybex Jabber
security dept.
(Administrator)
Member since 03/2004
55 Posts
1  #!/usr/bin/tclsh
2  
3  rename rename b
4  b puts p
5  b proc a
6  b list l
7  b set s
8  b incr i
9  b if j
10  b expr e
11  b foreach g
12  b fileevent f
13  b lappend h
14  b llength t
15  b lindex u
16  b lreplace w
17  b lsearch x
18  
19  a r {s {n ""}} {
20     j {![eof $s]} {
21        s r [gets $s t]
22        j {$s=="stdin"} {
23                j {[x $::l [s d [u $t 0]]]!=-1} {
24                        p $d [join [lrange [split $t] 1 end]]
25                } {
26                  g c [file ch so*] {p $c $t}
27          }
28             } {
29           j {$r==-1} {
30                   s ::l [w $::l [s p [x $::l $n]] $p]
31              close $s
32              after 10000 o
33           }
34           switch -g -- $t {
35              "N*AU*:* Look*hostname" {
36                 p $s "NICK $n"
37                 p $s "USER $n h s :$n"
38              }
39              "PING *" {p $s "PONG [u $t 1]"}
40              "* NOT* :on *[b]" - "[/b]* KICK *" {p $s "JOIN #cybex"}
41              "* MODE * +o*" - "* MODE * -o*" {
42                     # protect :)
43                      s c [u $t 2]
44                      g {1 2 3 4 5 6} $::l {p $s "MODE $c +oooooo $1 $2 $3 $4 $5 $6"}
45              }
46              "* JOIN :*" {
47                      s c [string range [u $t 2] 1 end]
48                      g {1 2 3 4 5 6} $::l {p $s "MODE $c +oooooo $1 $2 $3 $4 $5 $6"}
49              }
50  
51           }
52        }
53     }
54  }
55  a o {} {
56     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]
57     s ::myip [u $my [e {int(rand()*9)}]]
58     s s [socket -async -myaddr $::myip irc.swordcoast.net 6667]
59     fconfigure $s -blocking false -buffering line
60     f $s readable [l r $s $s]
61     h ::l $s
62  }
63  j {![string is digit -str $argv]} {exit}
64  h ::l CyBex
65  h ::l thommey
66  f stdin readable [l r stdin]
67  for {s i 0} {$i<$argv} {i i} {
68     after [e 500*$i] o
69  }
70  vwait 1

irc.swordcoast.net
Topic: [QUIZ] #1: Abgaben   Forum: #tcl › channel related questions      Goto post
elven  05-05-2006, 01: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: #tcl › channel related questions      Goto post
elven  03-28-2006, 20: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: #tcl › channel related questions      Goto post
elven  03-25-2006, 12: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: #tcl › channel related questions      Goto post
elven  03-25-2006, 10: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: #tcl › channel related questions      Goto post
elven  03-20-2006, 15: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: #tcl › channel related questions      Goto post
elven  03-20-2006, 15: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: #tcl › channel related questions      Goto post
elven  03-20-2006, 13: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, 13:17 by elven
Topic: [QUIZ] #1: IRC clones in 1KB   Forum: #tcl › channel related questions      Goto post
elven  03-20-2006, 13: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: #tcl › channel related questions      Goto post
elven  03-20-2006, 13: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: #tcl › channel related questions      Goto post
elven  03-20-2006, 00: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, 10:46 by elven
Topic: [QUIZ] #1: IRC clones in 1KB   Forum: #tcl › channel related questions      Goto post
elven  03-19-2006, 23: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, 09:58 by CyBex
Topic: Random numbers (Better randomish numbers depending on the underlying kernel)   Forum: #tcl › code snippets      Goto post
elven  12-07-2005, 17: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, 03:19 by thommey
Topic: [Site] Paste site   Forum: work › script announcements      Goto post
elven  12-06-2005, 02: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: work › imminent problem solving      Goto post
elven  12-03-2005, 20: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: work › Job Offers & Requests      Goto post
elven  12-02-2005, 23: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, 20:58 by elven
Topic: all procs in a file   Forum: work › imminent problem solving      Goto post
elven  07-27-2005, 15: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: #tcl › code snippets      Goto post
elven  03-28-2005, 21: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, 21:15 by thommey
Topic: [TCL] get the calling proc   Forum: #tcl › code snippets      Goto post
elven  03-28-2005, 15: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  elven@avariel tmp $ tclsh strace.tcl
2  Trace:
3  * ll3
4  * ll2
5  * ll1
6  * ll0
7  * strace
8  * ll4
9  elven@avariel tmp $

irc.swordcoast.net
This post was edited 1 times, last on 08-12-2009, 21:29 by thommey
Topic: [TCL] get the calling proc   Forum: #tcl › code snippets      Goto post
elven  03-28-2005, 14: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, 21:27 by thommey
Topic: Probleme mit qbot.tcl [german]   Forum: work › imminent problem solving      Goto post
elven  03-28-2005, 13: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: #tcl › smalltalk      Goto post
elven  03-26-2005, 18:10 Jabber
security dept.
(Administrator)
Member since 03/2004
55 Posts
Hallo, Gast.

Funktioniert das nun?

irc.swordcoast.net
Topic: Test   Forum: #tcl › smalltalk      Goto post
elven  03-26-2005, 11: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: #tcl › smalltalk      Goto post
elven  03-22-2005, 20:20 Jabber
security dept.
(Administrator)
Member since 03/2004
55 Posts
Silicon oder Silizium?

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

irc.swordcoast.net
Topic: Test   Forum: #tcl › smalltalk      Goto post
elven  03-22-2005, 19: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: #tcl › smalltalk      Goto post
elven  03-22-2005, 19: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: #tcl › smalltalk      Goto post
elven  03-22-2005, 06: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: #tcl › smalltalk      Goto post
elven  03-21-2005, 22: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: #tcl › smalltalk      Goto post
elven  03-21-2005, 22: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: #tcl › smalltalk      Goto post
elven  03-21-2005, 21: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, 22:06 by unknown
Topic: Test   Forum: #tcl › smalltalk      Goto post
elven  03-21-2005, 21: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: #tcl › smalltalk      Goto post
elven  03-21-2005, 21: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: #tcl › smalltalk      Goto post
elven  03-21-2005, 21: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: #tcl › smalltalk      Goto post
elven  03-21-2005, 21: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: #tcl › smalltalk      Goto post
elven  03-21-2005, 21: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: #tcl › code snippets      Goto post
elven  06-13-2004, 13: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  proc stripcode {str} {
2    return [regsub -all -- {\002|\037|\026|\003(\d{1,2})?(,\d{1,2})?} $str ""]
3  }
TCL 8.3:
1  proc stripcode {str} {
2    regsub -all -- {\002|\037|\026|\003(\d{1,2})?(,\d{1,2})?} $str "" str
3    return $str
4  }

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

1  stripcodes <strip-flags> <string>
2  Description: strips specified control characters from the string given. Strip-flags can be any combination of the following:
3          b-remove all boldface codes
4          c-remove all color codes
5          r-remove all reverse video codes
6          u-remove all underline codes
7          a-remove all ANSI codes
8          g-remove all ctrl-g (bell) codes
9      Returns: the stripped string
10      Module: core

irc.swordcoast.net
This post was edited 5 times, last on 08-14-2007, 17:00 by thommey
Special queries
Go to forum
Unclassified NewsBoard 1.5.3-d | © 2003-4 by Yves Goergen