blob: eb263a04bf50b1e66404451ab84d62052e42d441 (
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
27
28
|
#!/pkg/gnu/bin//perl5
#
#$Id$
#
push(@INC, "$wd/bin");
require('WebStone-common.pl');
$oldfilelist = "$wd/conf/filelist";
html_begin();
if ($filelist ne $oldfilelist) {
$backup = $oldfilelist . ".bak";
print CLIENT "<BODY>Backing up $oldfilelist to $backup";
rename($oldfilelist, $backup);
print CLIENT "<P>Copying $filelist to $oldfilelist";
link($filelist, $oldfilelist);
print CLIENT "<P>Done.";
}
else
{
print CLIENT "<STRONG>Can't move $filelist <P>to $filelist</STRONG>";
}
html_end();
# end
|