egghelp/eggheads community

Need Help Adding A Line in bot config.

2004-02-14T08:41:28-04:00

I don't see where you see [set shortnick *] anything... but there is an error. I forgot the $lines part of the lsearch, i.e. the list to search through heh. So change that line to this:

set idx [lsearch -glob $lines "set keep-nick *"]

I dunno if it will work now, but that's at least one error out of the way.

Statistics: Posted by stdragon — Sat Feb 14, 2004 8:41 am

Need Help Adding A Line in bot config.

2004-02-14T04:31:39-04:00

Thanks stdragon,

This adds the line in the config but it doesnt remove a line if it finds one.
maybe its something with the [set shortnick *] u have.

Can you check it out?

Thanks

Statistics: Posted by CoMMy — Sat Feb 14, 2004 4:31 am

Need Help Adding A Line in bot config.

2004-02-11T11:18:29-04:00

Sir_Fz, in your script you often used [open $config ...]. You know that reopens the file each time, right? So in your while loop, you reopen the file each time you read a line... and close it once. The first bit of code, before the while loop, does most of the work, all you had to do was search/replace within the data you read, not re-read the file again. Anyway, something like this should work:

Code:

set newnick "dragon123"set fp [open $config r]set lines [split [read $fp] \n]close $fpset idx [lsearch -glob "set keep-nick *"]set newline [list set keep-nick $newnick]if {$idx != -1} {  set lines [lreplace $lines $idx $idx $newline]} else {  lappend lines $newline}set fp [open $config w]puts -nonewline $fp [join $lines \n]close $fp

Statistics: Posted by stdragon — Wed Feb 11, 2004 11:18 am

Need Help Adding A Line in bot config.

2004-02-11T10:42:34-04:00

Thanks. But you forgot to set a value for "a"

[15:42] Tcl error [pub_keepnick]: can't read "a": no such variable

Statistics: Posted by CoMMy — Wed Feb 11, 2004 10:42 am

Need Help Adding A Line in bot config.

2003-11-16T09:04:10-04:00

Will This add the line if it doesn's exist?

No!, putlog "$line was not found in $conf" means that the line was not found in order to delete it.

Code:

proc keepnick { olddata } { global keepnick config if {[info exists keepnick]} {set data "set keep-nick $keepnick"set line [read [open $config r]] split $line close [open $config r] if {[lsearch -exact $line $olddata] != -1} {     set ls ""     while {![eof [open $config r]]} {       set got [gets $a]       if {[string tolower [lindex $got 0]] != [string tolower $olddata]} { lappend ls $got }     }     close [open $config r]     foreach l $ls {       if {$l != ""} { puts [open $config w] $l }     }    putlog "Deleted old data and added new one"    puts [open $config w] $data    utimer 1 [list close [open $config w]]    utimer 2 "rehash"    }  } }

this is what you want. use keepnick

Statistics: Posted by Sir_Fz — Sun Nov 16, 2003 9:04 am

Need Help Adding A Line in bot config.

2003-11-16T08:46:48-04:00

should do it

Statistics: Posted by ]Kami[ — Sun Nov 16, 2003 8:46 am

Need Help Adding A Line in bot config.

2003-11-16T08:39:53-04:00

Will This add the line if it doesn's exist?

Statistics: Posted by CoMMy — Sun Nov 16, 2003 8:39 am

Need Help Adding A Line in bot config.

2003-11-16T06:33:29-04:00

[snip]
} else {
puts $config $data
close $config }
rehash
}

replace this with:

Code:

} else {   putlog "$line was not found in $conf"    }  }

and put the data in the line before the else where it found the line and deleted it.

Statistics: Posted by Sir_Fz — Sun Nov 16, 2003 6:33 am

Need Help Adding A Line in bot config.

2003-11-16T06:11:52-04:00

Thanks for that but i still can get it to work. This is what i have.
Basically the purpose is of this tcl is a user sets the keepnick by a public cmd and this sets the keep-nick to the value got by the user and after that calls the proc below which gives the error:

Code:

Tcl error [pub_keepnick]: can not find channel named "eggdrop.conf"

Code:

proc keepnick { } {global keepnick configif {[info exists keepnick]} { set data "set keep-nick $keepnick" set line [read [open $config r]] split $line close [open $config r] if {[lsearch -exact $line $data] != -1} {     set ls ""     while {![eof [open $config r]]} {       set got [gets $a]       if {[string tolower [lindex $got 0]] != [string tolower $data]} { lappend ls $got }     }     close [open $config r]     foreach l $ls {       if {$l != ""} { puts [open $config w] $l }     }     close [open $config w]     rehash  } else {     puts $config $data    close $config }    rehash  }

HELP PLS

Statistics: Posted by CoMMy — Sun Nov 16, 2003 6:11 am

Need Help Adding A Line in bot config.

2003-11-15T17:59:11-04:00

Code:

set line [read [open $conf r]]split $lineclose [open $conf r]if {[lsearch -exact $line your-line] != -1} {    set ls ""    while {![eof [open $conf r]]} {      set got [gets $a]      if {[string tolower [lindex $got 0]] != [string tolower your-line]} { lappend ls $got }    }    close [open $conf r]    foreach l $ls {      if {$l != ""} { puts [open $conf w] $l }    }    close [open $conf w]   ##line found and deleted  } else {   ##Line wasn't found in the conf file }

this should remove a line.

Statistics: Posted by Sir_Fz — Sat Nov 15, 2003 5:59 pm

Need Help Adding A Line in bot config.

2003-11-15T15:45:18-04:00

Thanks egghead.

And can you tell me please how to remove a custom line once i added it?

Statistics: Posted by CoMMy — Sat Nov 15, 2003 3:45 pm

Need Help Adding A Line in bot config.

2003-11-15T09:00:23-04:00

Is there a variable that gives out the main bots config file name?

The global variable "config" contains the config file name.

Statistics: Posted by egghead — Sat Nov 15, 2003 9:00 am

Need Help Adding A Line in bot config.

2003-11-15T08:23:13-04:00

Thanks For That. I made it work. But i also want Something else please.
Is there a variable that gives out the main bots config file name?
And can you tell me how to remove a custom line once i added it?

Thanks again.

Statistics: Posted by CoMMy — Sat Nov 15, 2003 8:23 am

Need Help Adding A Line in bot config.

2003-11-15T06:12:36-04:00

The problem seems to be in the way you use open to access your file.
It looks like you are using the w or w+ attributes. They truncate (empty) the file.
Use a or a+ to append the line at the end of the file.

For more details about the available attributes check out: http://www.cotse.com/dlf/man/TclCmd/open.htm#M8

Statistics: Posted by z_one — Sat Nov 15, 2003 6:12 am

Need Help Adding A Line in bot config.

2003-11-15T05:35:03-04:00

I Do That But It Replaces Everything In The Config File And Puts That Line.
help pls.

Statistics: Posted by CoMMy — Sat Nov 15, 2003 5:35 am