#!/usr/bin/perl

open( SRMCONF, "/usr/local/apache/etc/srm.conf" );
@CONF = <SRMCONF>;
close(SRMCONF);

open( SRMCONF, ">/usr/local/apache/etc/srm.conf" );
foreach $line (@CONF) {
    if ( $line =~ /"/ && ( $line =~ /^DocumentRoot/ || $line =~ /^Alias/ ) ) {
        $line =~ s/"//g;
    }
    print SRMCONF $line;
}
close(SRMCONF);

open( HTTPCONF, "/usr/local/apache/etc/httpd.conf" );
@CONF = <HTTPCONF>;
close(HTTPCONF);

open( HTTPCONF, ">/usr/local/apache/etc/httpd.conf" );
foreach $line (@CONF) {
    if ( $line =~ /"/ && ( $line =~ /^ServerRoot/ || $line =~ /^DocumentRoot/ ) ) {
        $line =~ s/"//g;
    }
    print HTTPCONF $line;
}
close(HTTPCONF);