不要なサービス停止スクリプト - @鯖味噌缶

不要なサービスを停止する為のサンプルスクリプトです。

#!/usr/bin/perl
# CentOS 5

use strict;
use warnings;

# 自動起動を止めるサービス一覧
my @service = qw(
   acpid
   anacron
   apmd
   auditd
   autofs
   avahi-daemon
   bluetooth
   cpuspeed
   cups
   firstboot
   gpm
   hidd
   ip6tables
   iptables
   kudzu
   mcstrans
   mdmonitor
   netfs
   nfslock
   pcscd
   portmap
   restorecond
   rpcgssd
   rpcidmapd
   sendmail
   smartd
   xfs
   yum-updatesd
);

# コマンド
my $chkconfig = '/sbin/chkconfig';

# サービス停止、自動起動停止
foreach (@service) {
   chomp;
   system "/etc/init.d/$_ stop";
   system "$chkconfig --level 2345 $_ off";
}

# 自動起動の確認
foreach (@service) {
    system "$chkconfig --list $_";
}

---