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

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