58 lines
1.5 KiB
Perl
58 lines
1.5 KiB
Perl
#!/usr/bin/perl -w
|
|
|
|
use esmith::Build::CreateLinks qw(:all);
|
|
|
|
#--------------------------------------------------
|
|
# actions for geoip-update event
|
|
#--------------------------------------------------
|
|
|
|
# links to add
|
|
panel_link("xt_geoip","manager");
|
|
|
|
# templates to expand
|
|
for my $event (qw(xt_geoip-modify xt_geoip-update xt_geoip-service
|
|
smeserver-xt_geoip-update))
|
|
{
|
|
templates2events("/etc/rc.d/init.d/masq", $event);
|
|
templates2events("/etc/crontab", $event);
|
|
}
|
|
|
|
|
|
# services to launch on event
|
|
for my $event (qw(xt_geoip-modify xt_geoip-update smeserver-xt_geoip-update))
|
|
{
|
|
safe_symlink("restart",
|
|
"root/etc/e-smith/events/$event/services2adjust/masq");
|
|
}
|
|
|
|
for my $event (qw(xt_geoip-service))
|
|
{
|
|
safe_symlink("adjust",
|
|
"root/etc/e-smith/events/$event/services2adjust/masq");
|
|
}
|
|
|
|
# actions to perform
|
|
|
|
for my $event (qw(xt_geoip-update bootstrap-console-save
|
|
console-save smeserver-xt_geoip-update))
|
|
{
|
|
event_link("smeserver-xt_geoip-download-action", $event, "10");
|
|
}
|
|
|
|
# for smeserver-manager
|
|
my $event= "smeserver-xt_geoip-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');
|
|
|
|
use esmith::Build::Backup qw(:all);
|
|
backup_includes("smeserver-xt_geoip", qw(
|
|
/usr/share/xt_geoip/BE/
|
|
/usr/share/xt_geoip/LE/
|
|
/var/lib/xt_geoip/
|
|
));
|
|
backup_excludes("smeserver-xt_geoip", qw(
|
|
/var/lib/xt_geoip/README.txt
|
|
));
|