#!/pkg/gnu/bin//perl5
#
#move-filelist.pl,v 1.2 2000/06/04 22:00:03 brunsch Exp
#
push(@INC, "$wd/bin");
require('WebStone-common.pl');
$oldfilelist = "$wd/conf/filelist";
html_begin();
if ($filelist ne $oldfilelist) {
$backup = $oldfilelist . ".bak";
print CLIENT "Backing up $oldfilelist to $backup";
rename($oldfilelist, $backup);
print CLIENT "Copying $filelist to $oldfilelist";
link($filelist, $oldfilelist);
print CLIENT "
Done.";
}
else
{
print CLIENT "Can't move $filelist to $filelist
";
}
html_end();
# end