#!/usr/bin/perl -w use esmith::Build::CreateLinks qw(:all); use File::Basename; use File::Path; my $event; panel_link("awstats", 'manager'); for my $event (qw( ip-change awstats-update smeserver-awstats-update console-save post-upgrade remoteaccess-update )) { templates2events("/etc/e-smith/web/panels/manager/cgi-bin/.awstats/awstats.conf", $event ); templates2events("/etc/e-smith/web/panels/manager/cgi-bin/.awstats/awstats.ftp.conf", $event ); templates2events("/etc/e-smith/web/panels/manager/cgi-bin/.awstats/awstats.mail.conf", $event ); } $event="ip-change"; event_link("awstats-run", $event , "04"); $event="awstats-update"; event_link("navigation-conf", $event, "50"); event_link("awstats-run", "awstats-update", "20"); templates2events("/etc/crontab", $event ); $event= "smeserver-awstats-update"; event_link("navigation-conf", $event, "50"); templates2events("/etc/crontab", $event ); event_link("awstats-upgrade", $event, "02"); # for smeserver-manager (in smeserver-awstats-update) safe_symlink('restart', "root/etc/e-smith/events/$event/services2adjust/smanager"); event_link('navigation2-conf', "$event", '80'); event_link('routes2-conf', "$event", '80'); event_link('locales2-conf', "$event", '80'); safe_symlink("/usr/share/awstats/wwwroot/icon" , 'root/usr/share/smanager/themes/default/public/images/awstats/icon'); use esmith::Build::Backup qw(:all); backup_includes("smeserver-awstats", qw( /etc/e-smith/web/panels/manager/cgi-bin/.awstats/ )); # archive in /home/e-smith/files/users/admin are already backuped