#!/usr/bin/perl -w
$config='admin_sshd_config';
$config_dir='/etc/ssh';
$startup='admin_sshd';
$startup_dir='/etc/rc.d/init.d';
print "Installing admin_sshd service\n";
qx!cp -p $config $config_dir!;
qx!cp -p $startup $startup_dir!;
qx!cp -p /usr/sbin/sshd /usr/sbin/admin_sshd!;
qx!cp -p /etc/pam.d/sshd /etc/pam.d/admin_sshd!;
qx!chkconfig --add admin_sshd!;
print qx!service admin_sshd start!;
print "Installation completed!!!\n";
