+gen_config()
+{
+ perl -pe 's|^|#include /etc/conserver/conf.d/|' \
+ </etc/invirt/hosts >/etc/conserver/invirt-hosts.cf
+ INVIRT_REALM="$(cat /etc/invirt/realm)"
+ perl -pe "s|^|host/|; s|\$|\@$INVIRT_REALM|" \
+ </etc/invirt/hosts >/etc/remctl/acl/invirt-console
+}
+