{
    $accountsref = {
        eval "{ use esmith::config;
                tie my %tmp, 'esmith::config', '/home/e-smith/accounts';
                %tmp;
              }"
        };
    foreach my $path
	(grep
	    { db_get_type($accountsref, $_) eq 'ProxyPass' }
		db_get($accountsref))
    {
	my $target = db_get_prop($accountsref, $path, 'Target');
	unless (defined $target)
	{
	    warn("No Target property specified for ProxyPath $path." .
		" Skipping...");
	    next;
	}
	my $desc = db_get_prop($accountsref, $path, 'Description');
	if (defined $desc)
	{
	    $OUT .= "# ProxyPass: $path\n";
	    $OUT .= "# Description: $desc\n";
	}
	$OUT .= "ProxyPass\t/$path\t$target\n";
	$OUT .= "ProxyPassReverse\t/$path\t$target\n";
	$OUT .= "<Location /$path>\n";

	my $proxyHTTP = db_get_prop($accountsref, $path, 'HTTP') ||
	    "yes";
	my $proxyHTTPS = db_get_prop($accountsref, $path, 'HTTPS') ||
	    "yes";

	if ( $proxyHTTP eq "no" )
	{
	    $OUT .= "    SSLRequireSSL\n";
	}

	if ( $proxyHTTPS eq "no" )
	{
	    $OUT .= '    SSLRequire (%{HTTPS} eq "NULL")' . "\n";
	}

	my $valid = db_get_prop($accountsref, $path, 'ValidFrom');
	if (defined $valid)
	{
	    # Convert from comma separated list to space separated
	    $valid =~ s/,/ /g;
	    $OUT .= "    order deny,allow\n";
	    $OUT .= "    deny from all\n";
	    $OUT .= "    allow from $valid\n";
	}
	$OUT .= "</Location>\n";
    }
}
