#!/usr/local/bin/perl5.001 ############################################################################ # # # The contents of this file are subject to the WebStone Public License # # Version 1.0 (the "License"); you may not use this file except in # # compliance with the License. You may obtain a copy of the License # # at http://www.mindcraft.com/webstone/license10.html # # # # Software distributed under the License is distributed on an "AS IS" # # basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See # # the License for the specific language governing rights and limitations # # under the License. # # # # The Original Code is WebStone 2.5. # # # # The Initial Developer of the Original Code is Silicon Graphics, Inc. # # and Mindcraft, Inc.. Portions created by Silicon Graphics. and # # Mindcraft. are Copyright (C) 1995#1998 Silicon Graphics, Inc. and # # Mindcraft, Inc. All Rights Reserved. # # # # Contributor(s): ______________________________________. # # # ############################################################################ push(@INC, "$wd/bin"); require('WebStone-common.pl'); $oldfilelist = "$wd/conf/filelist"; html_begin(); if ($filelist ne $oldfilelist) { $backup = $oldfilelist . ".bak"; print CLIENT "Backing up $oldfilelist to $backup"; rename($oldfilelist, $backup); print CLIENT "

Copying $filelist to $oldfilelist"; open(FILELIST, "$filelist"); open(OLDFILELIST, ">>$oldfilelist"); while ($line = ){ print OLDFILELIST $line; } close(FILELIST); close(OLDFILELIST); print CLIENT "

Done."; } else { print CLIENT "Can't move $filelist

to $filelist"; } print CLIENT <

EOF ; html_end(); # end