#!/usr/bin/perl -0n
print <<'EOF';
<%
from invirt.config import structs as cfg
import os
hostname = os.uname()[1].split('.')[0]
%>
EOF

s/^\#?\(xend-relocation-address ''\)/(xend-relocation-address '\${hostname}-internal')/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;
print;
