#!/usr/bin/perl # config.pl : This script parses a file called in initialservices # to switch on/off various services at startup. Syntax for this file is: # service {on|off} e.g. # netfs on # named off open (SERVLIST, "intialservices"); while(<SERVLIST>) { chop($_); $command = "/sbin/chkconfig ".$_; system($command); }