#!/usr/bin/perl -w use esmith::Build::CreateLinks qw(:all); panel_link("qos", 'manager'); service_link_enhanced("qos", "S85", "7"); service_link_enhanced("qos", "K25", "6"); service_link_enhanced("qos", "K25", "0"); templates2events("/etc/rc.d/init.d/qos", "bootstrap-console-save"); templates2events("/etc/rc.d/init.d/qos", "qos-update"); safe_symlink("adjust", "root/etc/e-smith/events/qos-update/services2adjust/qos"); safe_symlink("adjust", "root/etc/e-smith/events/ip-up/services2adjust/qos");