#!/pkg/gnu/bin//perl5 # #$Id$ # push(@INC, "$wd/bin"); require('WebStone-common.pl'); html_begin(); if ($runsdir ne $oldrunsdir) { print CLIENT "
Moving $oldrunsdir to $runsdir..."; if (-e $runsdir) { print CLIENT "Error: $runsdir already exists!"; } rename($oldrunsdir, $runsdir); print CLIENT "Done.";
}
else
{
print CLIENT "Can't move $runsdir to $oldrunsdir