#!/usr/bin/perl -w use esmith::Build::CreateLinks qw(:all); my $event = 'webapps-update'; templates2events("/etc/httpd/conf/httpd.conf", $event); templates2events("/etc/php.ini", $event); templates2events("/etc/my.cnf", $event); templates2events("/etc/crontab", $event); safe_symlink("start", "root/etc/e-smith/events/$event/services2adjust/mysql.init"); safe_symlink("sigusr1", "root/etc/e-smith/events/$event/services2adjust/httpd-e-smith"); event_link("webapps-update-crl", $event, "02"); event_link("webapps-update-certs", $event, "03");