#!/usr/bin/perl
use strict;

open(FH, $ARGV[0]);

my	$that;

if ($ENV{wiz_web_external} eq "1") {
    $that = "all";
}
elsif ($ENV{wiz_web_internal} eq "1") {
    $that = $ip;
}
else {
    $that = "localhost";
}


while(<FH>) {
    if( m/^[[:space:]]*<Directory \/home/s...m/^[[:space:]]*<\/Directory>/s ) {
	s/^[[:space:]]*Allow .*$/Allow from $that/s;
    }
    if( m /^[[:space:]]*<Directory \/var\/www/s...m/^[[:space:]]*<\/Directory>/s ) {
	s/^[[:space:]]*Allow .*$/Allow from $that/s;
    }
    print $_;
}