1 files changed, 28 insertions, 0 deletions
diff --git a/ACE/apps/JAWS/clients/WebSTONE/bin/move-filelist.pl b/ACE/apps/JAWS/clients/WebSTONE/bin/move-filelist.pl
new file mode 100755
index 00000000000..eb263a04bf5
--- /dev/null
+++ b/ACE/apps/JAWS/clients/WebSTONE/bin/move-filelist.pl
@@ -0,0 +1,28 @@
+#!/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