This is the new home of the egghelp.org community forum.
All data has been migrated (including user logins/passwords) to a new phpBB version.


For more information, see this announcement post. Click the X in the top right-corner of this box to dismiss this message.

Help howto get this work

Old posts that have not been replied to for several years.
Locked
J
Jailmann
Voice
Posts: 33
Joined: Fri Apr 09, 2004 2:50 pm

Help howto get this work

Post by 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."
s
spock
Master
Posts: 319
Joined: Thu Dec 12, 2002 8:40 pm

Post by 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
photon?
J
Jailmann
Voice
Posts: 33
Joined: Fri Apr 09, 2004 2:50 pm

Post by 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 :)
J
Jailmann
Voice
Posts: 33
Joined: Fri Apr 09, 2004 2:50 pm

Post by Jailmann »

hello

spock can you help me again i have try but i cant figure it out i hope you will :)
s
spock
Master
Posts: 319
Joined: Thu Dec 12, 2002 8:40 pm

Post by 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)
photon?
J
Jailmann
Voice
Posts: 33
Joined: Fri Apr 09, 2004 2:50 pm

Post by 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
Locked