#!/usr/bin/perl -w use esmith::Build::CreateLinks qw(:all); safe_symlink("/usr/share/lemonldap-ng/portal-skins/ipasserelle", "root/var/lib/lemonldap-ng/portal/skins/ipasserelle"); foreach my $file (qw(info.tpl login.tpl openid.tpl openidform.tpl password.tpl standardform.tpl yubikeyform.tpl confirm.tpl error.tpl mail.tpl notification.tpl redirect.tpl header.tpl footer.tpl menu.tpl)) { safe_symlink("/usr/share/lemonldap-ng/portal-skins/pastel/$file", "root/usr/share/lemonldap-ng/portal-skins/ipasserelle/$file"); }