egghelp/eggheads community

Make New DB file

2002-09-29T07:14:39-04:00

The only thing that could effect this is if you, or any other script, uses the cd command in Tcl.

Statistics: Posted by ppslim — Sun Sep 29, 2002 7:14 am

Thanx

2002-09-28T20:58:24-04:00

I was up to 3am working on other ways that work. But to no luck would it make a file in the main DIR of the eggdrop..

I tryed your way stdragon and it works too..

So thanx to stdragon and papillon for your help. I didn;t know anything about using files in TCL, and now I know how to do it!

Thanx again guys and keep up the good work!

------------
ThePope

Statistics: Posted by spyda — Sat Sep 28, 2002 8:58 pm

Make New DB file

2002-09-28T14:47:53-04:00

ThePope - Yes you can open a file with just the name. It will open the file in the current directory. Since the bot starts in /home/you/egg (or something) that will be the current directory, not ~/egg/scripts.

You could say open scripts/filename.db.

Statistics: Posted by stdragon — Sat Sep 28, 2002 2:47 pm

Make New DB file

2002-09-28T11:45:19-04:00

sorry I have no idea if that's possible
u could just do

Code:

set thedir "/home/kissmine/scripts" proc asus_pub_menu {nick uhost hand chan text} { global asus thedirif {[file exists "thedir/setup.db"] != "1"} {etc...

as an option if u are doing this with many files

Statistics: Posted by Papillon — Sat Sep 28, 2002 11:45 am

Nice Work

2002-09-28T11:23:07-04:00

Thanx Papillon..
Works well. I was just wonding if you can open a file but just using the file name eg:

Code:

if {![file exists setup.db]} { set asus_file [open setup.db] ect ect...}

Is that possable?? And to what DIR would it put the file??

Thanx in Advance
------------
ThePope

Statistics: Posted by spyda — Sat Sep 28, 2002 11:23 am

Make New DB file

2002-09-28T11:00:10-04:00

Code:

set thefile "/home/kissmine/scripts/setup.db"proc asus_pub_menu {nick uhost hand chan text} { global asus thefileif {[file exists thefile] != "1"} {   set asus_file [open $thefile w]   puts $asus_file "1"   close $asus_file } putserv "PRIVMSG $nick :\001DCC CHAT chat [myip] $asus(port)\001" }

try that

Statistics: Posted by Papillon — Sat Sep 28, 2002 11:00 am

Make New DB file

2002-09-28T08:30:16-04:00

Hey everyone again..

Learning TCL real fast and i have had feed back on my first tcl, so that is good! Now for my new problem.

Code:

proc asus_pub_menu {nick uhost hand chan text} { global asus if {[file exists setup.db] != "1"} {   set asus_file [open setup.db w]  puts $asus_file "1"  close $asus_file } putserv "PRIVMSG $nick :\001DCC CHAT chat [myip] $asus(port)\001"}

It will not make a new file if the setup.db is not in the /home/kissmine/scripts if setup.db is not there!!

I run my own box and I check to make sure that the access was right for the eggdrops, but that still have not fixed my problem!!!

I hope it is somewhere in my coding, but I cant seem to find it!

Thanx in Advance

----------
ThePope

Statistics: Posted by spyda — Sat Sep 28, 2002 8:30 am