Pyroka
27.12.2004, 18:07
Hi,
hab das Board über google gefunden und hoffe das man mir hier helfen kann
Ziel ist es das der Bot in channel A zeilen die bestimmte Wörter beinhaltet in einen anderen channel postet und gleichzeitig in eine Datei abspeichert mit Datum/Zeit
### Config ###
set predb "/home/bot/scripts/predb.txt"
set chan_a_(ecouter) "#pre-1"
set chan_a_(echo) "#pre-2"
### Config zu ende ###
bind pub - *PRE* echo:yap
proc echo:yap { nick uhost handle chan arg } {
global predb chan_a_
set preyap [lindex $arg 4]
if { $chan == $chan_a_(ecouter) } {
set file [open $predb a]
puts $file "$preyap [unixtime]"
close $file
putserv "PRIVMSG $chan_a_(echo) :PRED - $preyap"
}
}
bind pubm - *NEW>>* pub:echonew
proc pub:echonew { nick uhost handle chan arg } {
global predb chan_a_ time
set premksh [lindex $arg 1]
if { $chan == $chan_a_(ecouter) } {
set file [open $predb a]
puts $file "$premksh [unixtime]"
close $file
putserv "PRIVMSG $chan_a_(echo) :PRED - $premksh
So schreibt er nur komische zahlen in die predb.txt und das echon in den anderen chan sieht so aus: [5:00pm] <PREDB> PRED - ·
Da wo der punkt ist sollte eigendlich das stehen, was er im anderen channel aufgeschnappt hat.
Hab das dann so probiert
proc isin { text } {
global predb
catch {open $predb r} x
while {![eof $x]} {
gets $x return
if {"[string tolower $return]"=="[string tolower $text]"} {
return "1"
} else {
return "-1"
}
catch {close $x}
}
}
bind pub - *PRE* echo:test
proc echo:test { nick uhost handle chan arg } {
global predb chan_a_
set text [lindex $arg 0]
if {[isin $text]=="1"} { putlog "$text est deja dans le fichier" }
if {[isin $text]=="-1"} {
putserv "PRIVMSG $chan_a_(echo) :PRED - $text"
set file [open $predb a]
puts $file "$text [unixtime]"
close $file
}
}
IS genauso wie beim oberen source :( Wenn ich aber "*PRE*" mit z.b. "!test" austausche, postet er alles was nach !test steht in den anderen channel und speichert das auch in die predb.txt
Also eigendlich soll er folgendes können. Vielleicht kennt ja jemand ein fertigen source der ähnliches kann .
1. Sätze von channel A komplett in channel B posten, die bestimmte wörter beinhalten.
2. Die Sätze da nach auswerten und nur ein Teil in die predb.txt mit aktuellem Datum/zeit abspeichern. Also den Satzteil der bestimmte wörter enthält. Beispiel " Da gibts wieder was neues und zwar (uiui.da.gehts.schon.wieder.los-test) in blablabla" Daraus soll er nur nur das in die predb speichern was in klammern steht weil es z.b. "test" beinhaltet oder das Wort "schon"
3. In channel A sollen die daten abrufbar sein wie z.b. so: "!pre da gehts"
Antwort vom bot:
"Gefunden 1 Hier die letzten 3:"
"[pred] [uiui.da.gehts.schon.wieder.los-test] am 27.12.2004 um 17:00Uhr, das ist 0w 0d 0h und 30min her
Also wenn jemand so ein tcl script kennt oder sogar hat, würd ich mich sehr darüber freuen :D
hab das Board über google gefunden und hoffe das man mir hier helfen kann
Ziel ist es das der Bot in channel A zeilen die bestimmte Wörter beinhaltet in einen anderen channel postet und gleichzeitig in eine Datei abspeichert mit Datum/Zeit
### Config ###
set predb "/home/bot/scripts/predb.txt"
set chan_a_(ecouter) "#pre-1"
set chan_a_(echo) "#pre-2"
### Config zu ende ###
bind pub - *PRE* echo:yap
proc echo:yap { nick uhost handle chan arg } {
global predb chan_a_
set preyap [lindex $arg 4]
if { $chan == $chan_a_(ecouter) } {
set file [open $predb a]
puts $file "$preyap [unixtime]"
close $file
putserv "PRIVMSG $chan_a_(echo) :PRED - $preyap"
}
}
bind pubm - *NEW>>* pub:echonew
proc pub:echonew { nick uhost handle chan arg } {
global predb chan_a_ time
set premksh [lindex $arg 1]
if { $chan == $chan_a_(ecouter) } {
set file [open $predb a]
puts $file "$premksh [unixtime]"
close $file
putserv "PRIVMSG $chan_a_(echo) :PRED - $premksh
So schreibt er nur komische zahlen in die predb.txt und das echon in den anderen chan sieht so aus: [5:00pm] <PREDB> PRED - ·
Da wo der punkt ist sollte eigendlich das stehen, was er im anderen channel aufgeschnappt hat.
Hab das dann so probiert
proc isin { text } {
global predb
catch {open $predb r} x
while {![eof $x]} {
gets $x return
if {"[string tolower $return]"=="[string tolower $text]"} {
return "1"
} else {
return "-1"
}
catch {close $x}
}
}
bind pub - *PRE* echo:test
proc echo:test { nick uhost handle chan arg } {
global predb chan_a_
set text [lindex $arg 0]
if {[isin $text]=="1"} { putlog "$text est deja dans le fichier" }
if {[isin $text]=="-1"} {
putserv "PRIVMSG $chan_a_(echo) :PRED - $text"
set file [open $predb a]
puts $file "$text [unixtime]"
close $file
}
}
IS genauso wie beim oberen source :( Wenn ich aber "*PRE*" mit z.b. "!test" austausche, postet er alles was nach !test steht in den anderen channel und speichert das auch in die predb.txt
Also eigendlich soll er folgendes können. Vielleicht kennt ja jemand ein fertigen source der ähnliches kann .
1. Sätze von channel A komplett in channel B posten, die bestimmte wörter beinhalten.
2. Die Sätze da nach auswerten und nur ein Teil in die predb.txt mit aktuellem Datum/zeit abspeichern. Also den Satzteil der bestimmte wörter enthält. Beispiel " Da gibts wieder was neues und zwar (uiui.da.gehts.schon.wieder.los-test) in blablabla" Daraus soll er nur nur das in die predb speichern was in klammern steht weil es z.b. "test" beinhaltet oder das Wort "schon"
3. In channel A sollen die daten abrufbar sein wie z.b. so: "!pre da gehts"
Antwort vom bot:
"Gefunden 1 Hier die letzten 3:"
"[pred] [uiui.da.gehts.schon.wieder.los-test] am 27.12.2004 um 17:00Uhr, das ist 0w 0d 0h und 30min her
Also wenn jemand so ein tcl script kennt oder sogar hat, würd ich mich sehr darüber freuen :D