diff options
Diffstat (limited to 'apps/JAWS/clients/WebSTONE/bin/move-filelist.pl')
-rwxr-xr-x | apps/JAWS/clients/WebSTONE/bin/move-filelist.pl | 28 |
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 |