ACE/apps/JAWS/clients/WebSTONE/bin/move-filelist.pl

   1 #!/pkg/gnu/bin//perl5
   2 #
   3
   4 push(@INC, "$wd/bin");
   5 require('WebStone-common.pl');
   6
   7 $oldfilelist = "$wd/conf/filelist";
   8
   9 html_begin();
  10
  11 if ($filelist ne $oldfilelist) {
  12     $backup = $oldfilelist . ".bak";
  13     print CLIENT "<BODY>Backing up $oldfilelist to $backup";
  14     rename($oldfilelist, $backup);
  15     print CLIENT "<P>Copying $filelist to $oldfilelist";
  16     link($filelist, $oldfilelist);
  17     print CLIENT "<P>Done.";
  18 }
  19 else
  20 {
  21     print CLIENT "<STRONG>Can't move $filelist <P>to $filelist</STRONG>";
  22 }
  23
  24 html_end();
  25
  26 # end