#!/usr/bin/perl -w use esmith::Build::CreateLinks qw(:all); use File::Basename; use File::Path; my $panel = "manager"; panel_link("wbl", $panel); templates2events("/var/service/qpsmtpd/config/badmailfrom", "email-update"); templates2events("/var/service/qpsmtpd/config/whitelisthelo", "email-update"); templates2events("/var/service/qpsmtpd/config/whitelisthosts", "email-update"); templates2events("/var/service/qpsmtpd/config/whitelistsenders", "email-update"); my $wbl = "wbl-update"; templates2events("/var/qmail/control/badmailfrom", "$wbl"); templates2events("/var/service/qpsmtpd/config/badmailfrom", "$wbl"); templates2events("/var/service/qpsmtpd/config/badhelo", "$wbl"); templates2events("/var/service/qpsmtpd/config/dnsbl_zones", "$wbl"); templates2events("/var/service/qpsmtpd/config/rhsbl_zones ", "$wbl"); templates2events("/var/service/qpsmtpd/config/whitelisthelo", "$wbl"); templates2events("/var/service/qpsmtpd/config/whitelisthosts", "$wbl"); templates2events("/var/service/qpsmtpd/config/whitelistsenders", "$wbl"); templates2events("/var/service/qpsmtpd/config/peers/0", "$wbl"); templates2events("/var/service/qpsmtpd/config/peers/local", "$wbl"); templates2events("/etc/mail/spamassassin/local.cf", "$wbl"); safe_symlink("restart", "root/etc/e-smith/events/$wbl/services2adjust/spamassassin"); safe_symlink("restart", "root/etc/e-smith/events/$wbl/services2adjust/qpsmtpd"); safe_symlink("restart", "root/etc/e-smith/events/$wbl/services2adjust/sqpsmtpd"); safe_symlink("../../plugins/11whitelist", "root/etc/e-smith/templates/var/service/qpsmtpd/config/peers/0/11whitelist"); # own event my $wbl = "smeserver-wbl-update"; templates2events("/var/qmail/control/badmailfrom", "$wbl"); templates2events("/var/service/qpsmtpd/config/badmailfrom", "$wbl"); templates2events("/var/service/qpsmtpd/config/badhelo", "$wbl"); templates2events("/var/service/qpsmtpd/config/dnsbl_zones", "$wbl"); templates2events("/var/service/qpsmtpd/config/rhsbl_zones ", "$wbl"); templates2events("/var/service/qpsmtpd/config/whitelisthelo", "$wbl"); templates2events("/var/service/qpsmtpd/config/whitelisthosts", "$wbl"); templates2events("/var/service/qpsmtpd/config/whitelistsenders", "$wbl"); templates2events("/var/service/qpsmtpd/config/peers/0", "$wbl"); templates2events("/var/service/qpsmtpd/config/peers/local", "$wbl"); templates2events("/etc/mail/spamassassin/local.cf", "$wbl"); safe_symlink("restart", "root/etc/e-smith/events/$wbl/services2adjust/spamassassin"); safe_symlink("restart", "root/etc/e-smith/events/$wbl/services2adjust/qpsmtpd"); safe_symlink("restart", "root/etc/e-smith/events/$wbl/services2adjust/sqpsmtpd"); event_link("navigation-conf", $wbl, "80"); safe_symlink("../../plugins/11whitelist", "root/etc/e-smith/templates/var/service/qpsmtpd/config/peers/0/11whitelist");