summaryrefslogtreecommitdiff
path: root/apps/JAWS/clients/WebSTONE/bin/move-runs.pl
diff options
context:
space:
mode:
Diffstat (limited to 'apps/JAWS/clients/WebSTONE/bin/move-runs.pl')
-rwxr-xr-xapps/JAWS/clients/WebSTONE/bin/move-runs.pl26
1 files changed, 0 insertions, 26 deletions
diff --git a/apps/JAWS/clients/WebSTONE/bin/move-runs.pl b/apps/JAWS/clients/WebSTONE/bin/move-runs.pl
deleted file mode 100755
index 3412f992008..00000000000
--- a/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