blob: 3412f992008ed3451699cfb1cd0e1a601248ed57 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
#!/pkg/gnu/bin//perl5
#
#$Id$
#
push(@INC, "$wd/bin");
require('WebStone-common.pl');
html_begin();
if ($runsdir ne $oldrunsdir) {
print CLIENT "<BODY>Moving $oldrunsdir to $runsdir...";
if (-e $runsdir) {
print CLIENT "<STRONG>Error: $runsdir already exists!</STRONG>";
}
rename($oldrunsdir, $runsdir);
print CLIENT "<P>Done.";
}
else
{
print CLIENT "<STRONG>Can't move $runsdir <P>to $oldrunsdir</STRONG>";
}
html_end();
# end
|