#!/usr/bin/perl

package Webconf;
require "__WIZ_HOME__/common/scripts/Vareqval.pm";

use strict;

my	$that;
my	%mdk;
my	$device;
my	$s;

sub	finish {
    my	$old = "/etc/httpd/conf/commonhttpd.conf";
    my	$new = "/tmp/commonhttpd.conf";
    my	$bak = "/etc/httpd/conf/commonhttpd.conf.orig";

    open(OLD, "< $old")		or die "can't open $old: $!";
    open(NEW, "> $new")		or die "can't open $new: $!";

    if ($ENV{wiz_web_external} eq "1") {
	$that = "all";
    }
    elsif ($ENV{wiz_web_internal} eq "1") {
	$device = $mdk{wiz_device};
	%mdk = Vareqval->get("/etc/sysconfig/network-scripts/ifcfg-".$device);
	$that = "$mdk{IPADDR}";
    }
    else {
	$that = "localhost";
    }

    if ($ENV{wiz_web_external} eq "1") {
	my $that = "all";
    }
    elsif ($ENV{wiz_web_internal} eq "1") {
	%mdk = Vareqval->get("/etc/sysconfig/mdk_serv");
	defined $mdk{wiz_device} and $device = $mdk{wiz_device} or die "wiz_device not found in mdk_serv\n";
	%mdk = Vareqval->get("/etc/sysconfig/network-scripts/ifcfg-".$device);
	defined $mdk{IPADDR} and $that = $mdk{IPADDR} or die "IPADDR not found in /etc/sysconfig/network-scripts/ifcfg-xxx\n";
    }
    else {
	$that = "localhost";
	print "hello\n"
    }
    while (<OLD>) {
	if( m /^[[:space:]]*<Directory \/home/s...m/^[[:space:]]*<\/Directory>/s ) {
	    { s /^[[:space:]]*Allow .*$/    Allow from $that\n/s;}
	    ;}
	if( m /^[[:space:]]*<Directory \/var\/www/s...m/^[[:space:]]*<\/Directory>/s ) {
	    { s /^[[:space:]]*Allow .*$/    Allow from $that\n/s;}
	    ;}
	print NEW $_		or die "can't write to $new: $!";
    }
    close(OLD)			or die "can't close $old: $!";
    close(NEW)			or die "can't close $new: $!";

    rename($old, $bak)		or die "can't rename $old to $bak: $!";
    rename($new, $old)		or die "can't rename $new to $old: $!";
}

1;