#!/usr/bin/perl -w use esmith::Build::CreateLinks qw(:all); templates2events("/usr/share/awstats/wwwroot/index.html", qw(webapps-update bootstrap-console-save domain-create domain-modify domain-delete)); safe_symlink("/etc/e-smith/templates-default/template-begin-html", "root/etc/e-smith/templates/usr/share/awstats/wwwroot/index.html/template-begin"); foreach my $event (qw/webapps-update bootstrap-console-save domain-create domain-modify domain-delete/){ event_link("awstats-update", "$event", "80"); } foreach my $event (qw/ipasserelle-update bootstrap-console-save webapps-update/){ event_link("awstats-init-domain", "$event", "80"); }