initial commit [141.14.140.180,mike]
This commit is contained in:
@@ -0,0 +1,24 @@
|
||||
#!/usr/bin/perl
|
||||
|
||||
$SSHCONF='/etc/ssh/sshd_config';
|
||||
|
||||
$out="";
|
||||
open(IN,$SSHCONF);
|
||||
while(<IN>) {
|
||||
|
||||
if (/^\s*\#*\s*PermitRootLogin/) {
|
||||
$out.="PermitRootLogin yes\n" ;
|
||||
} elsif (/(^\s*AcceptEnv.*$)/) {
|
||||
$out.="#$1";
|
||||
} else {
|
||||
$out.=$_;
|
||||
}
|
||||
}
|
||||
close(IN);
|
||||
|
||||
open(OUT,"> $SSHCONF");
|
||||
print OUT $out;
|
||||
close(OUT);
|
||||
|
||||
system("service ssh restart");
|
||||
|
||||
Reference in New Issue
Block a user