egghelp/eggheads community

Reading file script

2006-10-22T14:36:56-04:00

It's just not recognizing it because of the upper/lower case, so you can either use lowercase, it use the [string toupper] command seperately to uppercase the 'ET' part of the filename, eg:

set cfgtmp [split $line /];set cfgtmp [lindex $cfgtmp 3];set cfgtmp [string toupper $cfgtmp]

Statistics: Posted by rosc2112 — Sun Oct 22, 2006 2:36 pm

Reading file script

2006-10-22T13:25:31-04:00

Hmm after a few days of testing I've found another problem :/.
My scritpt looks like this right now:

Code:

#USAGE:  !cfg   where  is one of ET Q3 Q4, etc.set mycfgfile "/home/zielik/shared/filesrv/xdcc/xdcc.pack"# set this to the valid cfg names to make checking user's input easierset validcfgnames "ET Q3 Q4 CS CSS WSW"bind pub - !cfg cfgprocproc cfgproc {nick uhost hand chan text} {      global mycfgfile validcfgnames      set text [string toupper $text]      set text [split $text]      if {[lsearch -exact $validcfgnames $text] == -1} {              puthelp "notice $nick :Invalid config filename. Valid names are $validcfgnames"              return      }      if {[file exists $mycfgfile]} {              set input [open $mycfgfile r]              set cfgdata "[split [read $input] \n]"              catch {close $mycfgfile}              foreach line $cfgdata {                   set cfgtmp [split $line /];set cfgtmp [string toupper [lindex $cfgtmp 3]]                   if {$cfgtmp == $text} {                        puthelp "PRIVMSG $nick :CFG Match $line"                   } else {puthelp "notice $nick :no cfg file found!"}              }       }}

And my xdcc.pack:

Code:

1 /home/zielik/filesys/cfg/et/lock.rar cfg_lock.ET 161042 /home/zielik/filesys/cfg/et/cfg.d4rkman30.X.04.rar cfg_d4rkman.ET 153653 /home/zielik/filesys/cfg/et/Sno0pCFG.rar cfg_sno0p.ET 104654 /home/zielik/filesys/cfg/et/nonix.rar cfg_nonix.Q4 5758

But now when I put: !cfg ET it gives me : no cfg found.
I've tried to comment some lines and I've found out that there's a problem in this line:

Code:

set cfgtmp [split $line /];set cfgtmp [string toupper [lindex $cfgtmp 3]]

Please help again .

Statistics: Posted by zielik — Sun Oct 22, 2006 1:25 pm

Reading file script

2006-10-21T09:51:54-04:00

Use [split $line /] and the lindex number 4 to get just the filename, set that into a var and then use that var to show just the filename.

eg:

Code:

foreach line $cfgdata {                   set cfgtmp [split $line /];set cfgtmp [string toupper [lindex $cfgtmp 3]]                    set cfgnametmp [split $line /];set cfgnametmp [lindex $cfgnametmp 4]]

then puthelp $cfgnametmp instead of $line.

If you want a linecount then before the foreach put 'set lineno 0' and inside the foreach after the "if" test to see if the filename matches, put 'incr lineno' and then in the puthelp output, use puthelp "PRIVMSG $nick :$lineno $cfgnametmp"

Statistics: Posted by rosc2112 — Sat Oct 21, 2006 9:51 am

Reading file script

2006-10-21T05:35:27-04:00

Thank you it works well .
But how to make the bot only send to me:

#nr desc

not the whole line ?

f/e:
#1 cfg_locka.ET

Statistics: Posted by zielik — Sat Oct 21, 2006 5:35 am

Reading file script

2006-10-21T04:26:42-04:00

Change this:

Code:

set text [split [string toupper $text]] and foreach line $cfgdata {                   if {[lindex [split $line /] 3] == "$text"} {                        puthelp "PRIVMSG $nick :CFG Match $line"                   }              }

to:

Code:

set text [string toupper $text]set text [split $text]andforeach line $cfgdata {                   set cfgtmp [split $line /];set cfgtmp [string toupper [lindex $cfgtmp 3]]                   if {$cgftmp == "$text"} {                        puthelp "PRIVMSG $nick :CFG Match $line"                   }              }

Statistics: Posted by rosc2112 — Sat Oct 21, 2006 4:26 am

Reading file script

2006-10-20T15:55:17-04:00

Hmmm it doesn't seems to work ok.
When i put !cfg on chan it gives me that its invalid - thats ok.
But when i put !cfg ET it gives nothing.
My file.db looks like this:

1 ~/filesys/cfg/et/lock.rar cfg_locka.ET 16104
2 ~/filesys/cfg/et/141.willstar.rar cfg_willstart.ET 4847
3 ~/filesys/cfg/et/cfg.d4rkman30.X.04.rar cfg_d4rkman.ET 15365
4 ~/filesys/cfg/et/Cahr_18-12-04.rar cfg_cahr.ET 16479
5 ~/filesys/cfg/et/config-16-Lun4t1C.rar cfg_lun4tic.ET 10025

Maybe it doesn't read the .ET on the endof the desc.
Rosc2112 please try again :/.

Statistics: Posted by zielik — Fri Oct 20, 2006 3:55 pm

Reading file script

2006-10-20T15:12:22-04:00

Code:

################################################################################################## USAGE:  !cfg   where  is one of ET Q3 Q4, etc.set mycfgfile "/path/to/my/file.db"# set this to the valid cfg names to make checking user's input easierset validcfgnames "ET Q3 Q4"bind pub - !cfg cfgprocproc cfgproc {nick uhost hand chan text} {      global mycfgfile validcfgnames      set text [split [string toupper $text]]      if {[lsearch -exact $validcfgnames $text] == -1} {              puthelp "PRIVMSG $nick :Invalid config filename. Valid names are $validcfgnames"              return      }      if {[file exists $mycfgfile]} {              set input [open $mycfgfile r]              set cfgdata "[split [read $input] \n]"              catch {close $mycfgfile}              foreach line $cfgdata {                   if {[lindex [split $line /] 3] == "$text"} {                        puthelp "PRIVMSG $nick :CFG Match $line"                   }              }      } else {               puthelp "PRIVMSG $nick :no cfg file found!"               return      }}

Not sure if the

if {[lindex [split $line /] 3] == "$text"}

will work, it should =)

Statistics: Posted by rosc2112 — Fri Oct 20, 2006 3:12 pm

Reading file script

2006-10-20T13:57:39-04:00

Yea, but I don't understand them too muchan and I need somebody who would write or explain how to read and split text from a file .
Please help.

Statistics: Posted by zielik — Fri Oct 20, 2006 1:57 pm

Reading file script

2006-10-19T12:04:19-04:00

Lots of examples of doing that around the forum..Try searching.

Statistics: Posted by rosc2112 — Thu Oct 19, 2006 12:04 pm

Reading file script

2006-10-19T10:34:15-04:00

I have a file called file.db, it contains:

1 ~/filesys/cfg/et/lock.rar cfg_locka.ET 16104
2 ~/filesys/cfg/et/snoop.rar cfg_snoopa.Q4 18028

--EOF--

The first column is serial number, next path to the file, third description and fourth the size.

I need a script which would read this file and privmsg it to the nick that requested it.
If somebody msg my channel with !cfg.et i want him to get the list of files with .ET on the end of the description. Similar with !cfg.q4 - Q4 and !cfg.q3 Q3 and others.

Please somebody, help me.

Statistics: Posted by zielik — Thu Oct 19, 2006 10:34 am