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