smeserver-awstats/createlinks

42 lines
1.5 KiB
Perl

#!/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