#!/usr/bin/perl $confpath="/etc/httpd/conf"; $bakpath="/etc/httpd/conf/bak"; $vhostsconf="Vhosts.conf"; system("mkdir -p $bakpath") ==0 or die "Can't create backup directory $bakpath\n"; sub fixvhosts{ $CM=" #Removed by Apache 2.0 --- "; while (<CONFF>) { s|^(#)*ResourceConfig|$CM $1 ResourceConfig|gi; s|^(#)*AccessConfig|$CM $1 AccessConfig|gi; s|^(#)*ServerRoot|$CM $1 ServerRoot|gi; s|^(#)*(\s)*Port|$CM $1 Port|gi; print NEW $_; } } $_=`date +%Y%m%d-%T`;chop;s/:/./g;$dat=$_; #Fix Vhosts.conf `cp -f $confpath/vhosts/$vhostsconf $bakpath/$vhostsconf-$dat`; open(CONFF,"$bakpath/$vhostsconf-$dat") or die "Can't create $bakpath/$vhostsconf-$dat\n"; open(NEW,">$confpath/vhosts/$vhostsconf") or die "Can't open $confpath/vhosts/$vhostsconf\n"; fixvhosts; close(CONFF); close(NEW);