#! /usr/bin/perl -w use esmith::Build::CreateLinks qw(:all); templates2events("/etc/cron.d/Learn", qw(email-update bootstrap-console-save )); safe_touch('root/etc/e-smith/db/configuration/defaults/Learn/Exclude'); safe_touch('root/etc/e-smith/db/configuration/defaults/Learn/Include'); my $event="smeserver-learn-update"; templates2events("/etc/cron.d/Learn",$event); templates2events("/etc/mail/spamassassin/local.cf",$event); event_link("LearnSpam-init", $event, "04"); event_link("LearnSpam-run", $event, "30");