#!/usr/bin/perl

use 5.014;
use strict;
use warnings;

use Path::Tiny;

$_ = path('/usr/share/caldavtester/scripts/server/serverinfo-template.xml')->slurp;

s#{hostname}#localhost#;
s#{nonsslport}#5232#;
s#{sslport}#0#;
s#{authtype}#basic#;
foreach my $x ("COPY Method","directory listing",qw(quota timezone-std-service sync-report default-addressbook limits)) {
	s#(?:<!-- )?<(feature)>$x</\1>(?: -->)?#<!-- <$1>$x</$1> -->#
};
s#\$root:\Kprincipals/##;
s#\$principalcollection:\K\$(?:uids|users)type:/##g;
s#\$root:\K(?:calendars|addressbooks)/##;
s#\$(?:calendars|addressbooks):\K\$(?:uids|users)type:/##g;
s#\$(?:calendars|addressbooks)_uids:\$userguid%d:#\$principal\%dnoslash:#g;
s#10000000-0000-0000-0000-000000000\%03d#user\%02d#;
s#860B3EE9-6D7C-4296-9639-E6B998074A78#i18nuser#;

say $_;
