#!/usr/bin/perl -w use esmith::Build::CreateLinks qw(:all); service_link_enhanced("ooo", "S99", "7"); service_link_enhanced("ooo", "K01", "6"); service_link_enhanced("ooo", "K01", "0"); service_link_enhanced("ooo", "K01", "1"); safe_touch("root/var/service/ooo/down"); safe_symlink("../daemontools" , 'root/etc/rc.d/init.d/supervise/ooo'); safe_symlink("/var/service/ooo" , 'root/service/ooo');