egghelp/eggheads community

Help howto get this work

2005-01-15T20:16:11-04:00

Hello

Thas is okay Spock

i have try this

set bruker_status_liste_! ""

set bruker_status_liste_! "$bruker_status_liste_!\!$bruker "

set bruker_status_liste [split "$bruker_status_liste_!$bruker_status_liste_o$bruker_status_liste_h$bruker_status_liste_v$bruker_status_liste_n"]

But that dosent seem to work anyeone can help

Statistics: Posted by Jailmann — Sat Jan 15, 2005 8:16 pm

Help howto get this work

2005-01-15T16:50:54-04:00

post the code that is not working, maybe someone will help you if you're lucky.

i dont want to do all the work for you (aside from a friendly first time)

Statistics: Posted by spock — Sat Jan 15, 2005 4:50 pm

Help howto get this work

2005-01-15T16:13:30-04:00

hello

spock can you help me again i have try but i cant figure it out i hope you will

Statistics: Posted by Jailmann — Sat Jan 15, 2005 4:13 pm

Help howto get this work

2005-01-14T23:26:00-04:00

Hello

sorry i remember that to next time

Many thx for the help but can you help me with 1 or 2 problems to with the script

1 can you add so i takes these to

! = founder/owner
*=Protect @ (sop)

2 if it is possible can i put a line in to it puts the texts files whe i wants them

Again many thanx for you help

Statistics: Posted by Jailmann — Fri Jan 14, 2005 11:26 pm

Help howto get this work

2005-01-14T22:19:17-04:00

Code:

set irc_bruker_kanal "#channel1 #channel2 #channel3" set intervall 30 proc oppdater_irc_bruker_fil {} { global irc_bruker_kanal intervall botnick   foreach c [split $irc_bruker_kanal] {    if { [lsearch -exact [split [string tolower [join [channels]]]] $c] >= 0 } {       if {[botonchan $c]} {         set tmp_liste [chanlist $c]         set bruker_status_liste ""         set bruker_status_liste_o ""         set bruker_status_liste_h ""         set bruker_status_liste_v ""         set bruker_status_liste_n ""         foreach bruker $tmp_liste {           if {[isop $bruker $c]} {              set bruker_status_liste_o "$bruker_status_liste_o\@$bruker "           }  elseif {[ishalfop $bruker $c]} {              set bruker_status_liste_h "$bruker_status_liste_h\%$bruker "           }  elseif {[isvoice $bruker $c]} {              set bruker_status_liste_v "$bruker_status_liste_v\+$bruker "           }  else { set bruker_status_liste_n "$bruker_status_liste_n$bruker " }         }         set bruker_status_liste [split "$bruker_status_liste_o$bruker_status_liste_h$bruker_status_liste_v$bruker_status_liste_n"]       } else { set bruker_status_liste "ERROR_NOT_IN_CHAN" }       } else { set bruker_status_liste "ERROR_MISSING_CHAN_REC" }     set utfil_peker [open $c.txt w]     foreach bruker $bruker_status_liste { puts $utfil_peker "$bruker " }    close $utfil_peker  }   utimer $intervall oppdater_irc_bruker_fil } oppdater_irc_bruker_fil

please use them code tags next time you post code

Statistics: Posted by spock — Fri Jan 14, 2005 10:19 pm

Help howto get this work

2005-01-14T21:21:00-04:00

Hello

is there anyone there can help med to get this script to work i 2 or more channels with there own channel.txt

like this

Channel1 = channel1.txt
channel2 = channel2.txt

I hope somone here can help me

# irc-bruker.tcl
#
# Scriptet lager en text fil som inneholder
# nick + status for alle som er i en gitt kanal.
#
# Er beregnet for nettverk som bruker @%+ (ohv)
# Kan bare brukes i en kanal om gangen.
#
# Scriptet av Draugen 27/1-04
# Endret av Draugen 14/7-04

# Instillinger

# Angi hvilken kanal scriptet skal virke i
set irc_bruker_kanal "#channel"

# Angi arbeids katalog, det er her filen vil bli lagret
set utfil /home/user/public_html/forum/irc/channel.txt

# Angi hvor ofte kanalen skal sjekkes (sekunder)
set intervall 1

#### Koden ####

proc oppdater_irc_bruker_fil {} {
global irc_bruker_kanal utfil intervall botnick
# Sjekker om det finnes en chreq for kanalen
# Ellers blir gir den neste testen error
if { [lsearch -exact [channels] $irc_bruker_kanal] >= 0 } {
# Sjekker om botten er i den kanalen den skal jobbe i
if {[botonchan $irc_bruker_kanal]} {
# Botten er i kanalen
set tmp_liste [chanlist $irc_bruker_kanal]
set bruker_status_liste ""
set bruker_status_liste_o ""
set bruker_status_liste_h ""
set bruker_status_liste_v ""
set bruker_status_liste_n ""
foreach bruker $tmp_liste {
if {[isop $bruker $irc_bruker_kanal]} {
set bruker_status_liste_o "$bruker_status_liste_o\@$bruker "
} elseif {[ishalfop $bruker $irc_bruker_kanal]} {
set bruker_status_liste_h "$bruker_status_liste_h\%$bruker "
} elseif {[isvoice $bruker $irc_bruker_kanal]} {
set bruker_status_liste_v "$bruker_status_liste_v\+$bruker "
} else { set bruker_status_liste_n "$bruker_status_liste_n$bruker " }
}
set bruker_status_liste [split "$bruker_status_liste_o$bruker_status_liste_h$bruker_status_liste_v$bruker_status_liste_n"]
} else { set bruker_status_liste "ERROR_NOT_IN_CHAN" }
#Botten er ikkje i kanalen
} else { set bruker_status_liste "ERROR_MISSING_CHAN_REC" }
#Botten har ikkje noen chanrec for kanalen
# Utskrift til fil.

set utfil_peker [open $utfil w]
foreach bruker $bruker_status_liste {
puts $utfil_peker "$bruker "

}
close $utfil_peker
utimer $intervall oppdater_irc_bruker_fil

}

# Starter programmet.

oppdater_irc_bruker_fil

putlog "Laster irc-bruker.tcl."

Statistics: Posted by Jailmann — Fri Jan 14, 2005 9:21 pm