diff options
Diffstat (limited to 'apps/JAWS/clients/WebSTONE/bin/move-runs.pl')
-rwxr-xr-x | apps/JAWS/clients/WebSTONE/bin/move-runs.pl | 24 |
1 files changed, 0 insertions, 24 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 a4ca528f034..00000000000 --- a/apps/JAWS/clients/WebSTONE/bin/move-runs.pl +++ /dev/null @@ -1,24 +0,0 @@ -#!/pkg/gnu/bin//perl5 -# - -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 |