#!/usr/bin/perl -0n
print <<'EOF';
<%
from invirt.config import structs as cfg
import os
fqdn = os.uname()[1]
internal_ip = None
# This hack is necessary because cfg.hosts is an array rather than a dict.
for host in cfg.hosts:
  if host.hostname == fqdn:
    internal_ip = host.internal_ip
    break

class xend_template_exception(Exception): pass
if internal_ip is None:
  raise xend_template_exception('Could not find an internal IP in the configuration for host %s' % fqdn)
%>
EOF

s/^\#?\(xend-relocation-address ''\)/(xend-relocation-address '\${internal_ip}')/m or die;
s/^\#?\(xend-relocation-hosts-allow '[^']*'\)/(xend-relocation-hosts-allow '')/m or die;
s/^\(dom0-min-mem [0-9]*\)/(dom0-min-mem 1536)/m or die;
s/\$(\{XEN_CONFIG_DIR\})/$1/m or die;
print;