#!/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)); 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"); }