#!/usr/bin/perl -w use esmith::Build::CreateLinks qw(:all); service_link_enhanced("ntop", "S93", "7"); service_link_enhanced("ntop", "K83", "6"); service_link_enhanced("ntop", "K83", "0"); safe_symlink("../daemontools" , 'root/etc/rc.d/init.d/supervise/ntop'); safe_symlink("/var/service/ntop" , 'root/service/ntop'); safe_touch("root/var/service/ntop/down"); templates2events("/etc/ntop.conf", "ntop-update"); templates2events("/etc/ntop.conf", "remoteaccess-update"); templates2events("/etc/ntop.conf", "network-create"); templates2events("/etc/ntop.conf", "network-delete"); templates2events("/etc/ntop.conf", "bootstrap-console-save"); templates2events("/etc/httpd/conf/httpd.conf", "ntop-update"); templates2events("/etc/services", "ntop-update"); templates2events("/etc/hosts.allow", "ntop-update"); foreach my $event (qw/ipasserelle-update bootstrap-ldap-save ntop-update/){ event_link("ntop-init-domain", "$event", "90"); } for my $event qw(ntop-update remoteaccess-update network-create network-delete){ safe_symlink("restart", "root/etc/e-smith/events/$event/services2adjust/ntop"); } safe_symlink("sigusr1", "root/etc/e-smith/events/ntop-update/services2adjust/httpd-e-smith");