14 lines
543 B
Perl
14 lines
543 B
Perl
#!/usr/bin/perl -w
|
|
|
|
use esmith::Build::CreateLinks qw(:all);
|
|
|
|
service_link_enhanced("fusioninventory-agent", "S88", "7");
|
|
service_link_enhanced("fusioninventory-agent", "K12", "6");
|
|
service_link_enhanced("fusioninventory-agent", "K12", "0");
|
|
service_link_enhanced("fusioninventory-agent", "K12", "1");
|
|
|
|
safe_touch("root/var/service/fusioninventory-agent/down");
|
|
safe_symlink("../daemontools" , 'root/etc/rc.d/init.d/supervise/fusioninventory-agent');
|
|
safe_symlink("/var/service/fusioninventory-agent" , 'root/service/fusioninventory-agent');
|
|
|