Help howto get this work

[Jailmann]

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."

[spock]

Code: Select all

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

[Jailmann]

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

[Jailmann]

hello

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

[spock]

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)

[Jailmann]

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