blob: a4ca528f0343011e8f074b37b1889952b84b3949 (
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
|
#!/pkg/gnu/bin//perl5
#
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
|