#!/usr/bin/perl
# cpanel6 - scripts        Copyright(c) 1997-2003 cPanel, Inc.
#                                 All rights Reserved.
# copyright@cpanel.net      http://cpanel.net
# This code is subject to the cpanel license. Unauthorized copying is prohibited

system("/scripts/ptycheck");


$dirty = 0;

open(SSHSTART,"/etc/rc.d/init.d/sshd");
while(<SSHSTART>) {
	if (/ENSIM/ || /LD_PRELOAD/) {
		$dirty = 1;
	} else {
		$sshstart .= $_;
	}	
}
close(SSHSTART);

if ($dirty) {
	open(SSHSTART,">/etc/rc.d/init.d/sshd");
	print SSHSTART $sshstart;
	close(SSHSTART);
	system("/etc/rc.d/init.d/sshd","restart");
}