diff options
Diffstat (limited to 'ACE/apps/JAWS/clients/WebSTONE/bin/move-runs.pl')
-rwxr-xr-x | ACE/apps/JAWS/clients/WebSTONE/bin/move-runs.pl | 26 |
1 files changed, 0 insertions, 26 deletions
diff --git a/ACE/apps/JAWS/clients/WebSTONE/bin/move-runs.pl b/ACE/apps/JAWS/clients/WebSTONE/bin/move-runs.pl deleted file mode 100755 index 3412f992008..00000000000 --- a/ACE/apps/JAWS/clients/WebSTONE/bin/move-runs.pl +++ /dev/null @@ -1,26 +0,0 @@ -#!/pkg/gnu/bin//perl5 -# -#$Id$ -# - -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 |