summaryrefslogtreecommitdiff
path: root/apps/JAWS/clients/WebSTONE/bin/move-filelist.pl
diff options
context:
space:
mode:
Diffstat (limited to 'apps/JAWS/clients/WebSTONE/bin/move-filelist.pl')
-rwxr-xr-xapps/JAWS/clients/WebSTONE/bin/move-filelist.pl28
1 files changed, 0 insertions, 28 deletions
diff --git a/apps/JAWS/clients/WebSTONE/bin/move-filelist.pl b/apps/JAWS/clients/WebSTONE/bin/move-filelist.pl
deleted file mode 100755
index eb263a04bf5..00000000000
--- a/apps/JAWS/clients/WebSTONE/bin/move-filelist.pl
+++ /dev/null
@@ -1,28 +0,0 @@
-#!/pkg/gnu/bin//perl5
-#
-#$Id$
-#
-
-push(@INC, "$wd/bin");
-require('WebStone-common.pl');
-
-$oldfilelist = "$wd/conf/filelist";
-
-html_begin();
-
-if ($filelist ne $oldfilelist) {
- $backup = $oldfilelist . ".bak";
- print CLIENT "<BODY>Backing up $oldfilelist to $backup";
- rename($oldfilelist, $backup);
- print CLIENT "<P>Copying $filelist to $oldfilelist";
- link($filelist, $oldfilelist);
- print CLIENT "<P>Done.";
-}
-else
-{
- print CLIENT "<STRONG>Can't move $filelist <P>to $filelist</STRONG>";
-}
-
-html_end();
-
-# end