egghelp/eggheads community

Help with cd command

2002-06-05T19:01:00-04:00

Sweet, now i see what that does. Though putting a / at the end of the directory still ended in a "No Such Such File or Directory". However, taking out && ![string match "*.*" $chdir] of the code worked I still dont know why how that affected directories with a hyphen as well..

I understand its a poorly written script, but its the only working fserev script for b/x that I could find. I'll probably just keep modifying it until the script is completely rewritten.

[ This Message was edited by: prizm on 2002-06-05 17:04 ]

Statistics: Posted by Guest — Wed Jun 05, 2002 7:01 pm

Help with cd command

2002-06-05T03:09:00-04:00

It's awfully hard to read, especially with no formatting (try using the code directive), but the part that is messing up is where it matches against "*.*". It's not trying to expand the dir name, it's just seeing if there are any periods in it. It doesn't really make sense. The logic seems to be that if there is a period, the person must have typed a filename on accident (like cd pics/sheep.jpg or something), so it strips off everything after the last /. You might be able to 'fix' it by adding a / to the end of your cd command, e.g. "cd some.dir/"

I'd find a new script, because that one isn't "good" heh.

Statistics: Posted by stdragon — Wed Jun 05, 2002 3:09 am

Help with cd command

2002-06-04T16:44:00-04:00

I am just learning TCL and am trying to modify this script. Everything works, except that it won't let me cd into a directory that contains charecters like periods and hyphens. I'm having a hard time figuring out what this is doing, but I think its trying to expand the current direcotry to *.* and then compare the cd arguments before changing to the new directory. Is this correct? Could this be where it is choking when the directory contains a period?

#Prog FLASH cd command
if {$args == "cd.."} {
set args "cd";
set filematch "..";
};
if [string match $args "cd" ] {
set chdir $filematch;
if {$chdir == ".."} {
set newdir [string range $activedir 0 [expr [string last "/" $activedir]-1]];
if {[string last "/" $activedir]<0} { set newdir "." };
set wholist [lreplace $wholist $infoseek [expr $infoseek+1] $ip $newdir]; set command 1
};#if
if {$chdir == "/"} {set wholist [lreplace $wholist $infoseek [expr $infoseek+1] $ip "."]; set command 1
};#if
if {$command!=1 && ![string match "*.*" $chdir]} {
if {$chdir != ".."} {
set chdir [string trimright $chdir "/"];
if {[string match $activedir "."] && [file isdirectory "$basedir/$chdir"]} {
set wholist [lreplace $wholist $infoseek [expr $infoseek+1] $ip $chdir] ; set command 1
};#if
if {![string match $activedir "."] && [file isdirectory "$basedir/$activedir/$chdir"]} {
set chdir [string trimright $chdir "/"];
set wholist [lreplace $wholist $infoseek [expr $infoseek+1] $ip "$activedir/$chdir"]; set command 1
};#if
};#if
};#if
if {$command==1} { ircii /msg =$name "^C15^B[^B^C12 [lindex $wholist [expr $infoseek+1]] ^B^C15]" };
if {$command!=1} {
ircii /msg =$name "No such directory!"
set command 1
};#if
};#prog if cd

[ This Message was edited by: prizm on 2002-06-04 14:45 ]

Statistics: Posted by Guest — Tue Jun 04, 2002 4:44 pm