diff options
| author | nobody <nobody@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 2006-03-05 17:14:45 +0000 |
|---|---|---|
| committer | nobody <nobody@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 2006-03-05 17:14:45 +0000 |
| commit | 58033491c6d0bac82315c1fdb1ec9b39be58093f (patch) | |
| tree | c69c3aa67ec66758066e959bd0d533ea336ec236 /apps/JAWS/clients/WebSTONE/bin/move-runs.pl | |
| parent | 2efc882384a34f61311a24fc641d1b5fd5776356 (diff) | |
| download | ATCD-TAO-1_5.tar.gz | |
This commit was manufactured by cvs2svn to create tag 'TAO-1_5'.TAO-1_5
Diffstat (limited to 'apps/JAWS/clients/WebSTONE/bin/move-runs.pl')
| -rwxr-xr-x | apps/JAWS/clients/WebSTONE/bin/move-runs.pl | 26 |
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 |