14 lines
653 B
Perl
14 lines
653 B
Perl
#!/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");
|
|
}
|