diff options
author | William R. Otte <wotte@dre.vanderbilt.edu> | 2006-07-24 15:50:30 +0000 |
---|---|---|
committer | William R. Otte <wotte@dre.vanderbilt.edu> | 2006-07-24 15:50:30 +0000 |
commit | c44379cc7d9c7aa113989237ab0f56db12aa5219 (patch) | |
tree | 66a84b20d47f2269d8bdc6e0323f338763424d3a /ACE/apps/JAWS/clients/WebSTONE/bin/move-runs.pl | |
parent | 3aff90f4a822fcf5d902bbfbcc9fa931d6191a8c (diff) | |
download | ATCD-c44379cc7d9c7aa113989237ab0f56db12aa5219.tar.gz |
Repo restructuring
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, 26 insertions, 0 deletions
diff --git a/ACE/apps/JAWS/clients/WebSTONE/bin/move-runs.pl b/ACE/apps/JAWS/clients/WebSTONE/bin/move-runs.pl new file mode 100755 index 00000000000..3412f992008 --- /dev/null +++ b/ACE/apps/JAWS/clients/WebSTONE/bin/move-runs.pl @@ -0,0 +1,26 @@ +#!/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 |