15 lines
400 B
Perl
15 lines
400 B
Perl
#!/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');
|
|
|
|
|