Reading from files.

[Dizzle]

Im working on a private channel script where you can add a hostmark who may join a channel. Im using it for my private channel.

Well if finished the script adding and deleting ppl, and who dont have the right hostmark will be kickbanned. Butt the list is getting long. And i like too get the list in private notice when i msg the bot "privlist".

Well i tried a few things my self butt i doesnt seem too work atm.

Code: Select all

proc show_host { nick uhost hand chan } {
   global privchan file 
       set f [open $file] 
       putserv "NOTICE $nick : Nr     Hostmark"
       foreach host [???????] {
       }
    }
}

i know this is not right way, and i have read too a lot off scripts too see how they do it, butt no script i like mine.

What the idea is when i msg the bot i will get some thing like this.

<Botnick> : Nr Hostmark
<Botnick> : #1 Bla@bla.com
<Botnick> : #2 Bla@blabla.com
<Botnick> : #2 Bla@blablabla.com
etc.

Well would you guys give me some hints how its possible too display every hostmark saved in the file and add a number too it ?

You dont have too give me the hole script butt some help will be apreciated.

Hope you can help me

[Dizzle]

this is one off my tries, i doesnt work, buut maybe it can be made better.

Code: Select all

proc show_host { nick uhost hand chan } {
   global privchan file 
       set number 0
       set f [open $file] 
       putserv "NOTICE $nick : Nr     Hostmark"
       foreach host [string tolower [split [read $f] \n]] {
       incr number +1
       putserv "NOTICE $nick : #$number $host"
       }
    }
}

[Sir_Fz]

Code: Select all

proc show_host {nick uhost hand chan} {
 global privchan file
 set number 0
 set f [open $file]
 putserv "NOTICE $nick :Nr Hostmark"
 foreach host [split [read $f] \n] {
  if {$host == ""} {break}
  incr number
  putserv "NOTICE $nick :#$number $host"
 }
 close $f
}

Edit: fixed.

[Dizzle]

thanks sir_Fz, its working only problem now he counts the number too much like this,

(05:47:13) (CSS) Nr Hostmark
(05:47:14) (CSS) #1 Dizzle@Dizzle.users.quakenet.org
(05:47:15) (CSS) #2

and there is only one hostmark in my database