Cylul007 Webshell
Server :
Linux ip-148-66-134-25.ip.secureserver.net 3.10.0-1160.119.1.el7.tuxcare.els10.x86_64 #1 SMP Fri Oct 11 21:40:41 UTC 2024 x86_64
php :
8.0.30
on
cgi-fcgi
Time
25 Nov 2024 16:43:17
Current Directory :
/
scripts
/
Upload File :
Mass Deface
Home
Bypass Passwd
Current File : //scripts/exportmydnsdb
#!/usr/local/cpanel/3rdparty/bin/perl # cpanel - scripts/exportmydnsdb 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 use strict; use Cpanel::MysqlUtils::Connect (); use Cpanel::NameServer::Conf::Mydns (); use Cpanel::PID (); use Cpanel::SafeRun::Errors (); use Cpanel::SafeFile (); use Cpanel::Usage (); use Try::Tiny; my ( $force, $debug ); Cpanel::Usage::wrap_options( \@ARGV, \&usage, { 'force' => \$force, 'debug' => \$debug } ); if ( $> != 0 ) { die "Insufficient permission to update zone files\n"; } my $pid_obj = Cpanel::PID->new( { 'pid_file' => '/var/run/exportmydnsdb.pid' } ); unless ( $pid_obj->create_pid_file() > 0 ) { die "Exportmydnsdb appears to be running already. Please wait for the export to finish before attempting another.\n"; } my $namedconf_obj = Cpanel::NameServer::Conf::Mydns->new(); $namedconf_obj->initialize(); $namedconf_obj->check_zonedir_cache(); my $bind_dir = $namedconf_obj->{'config'}->{'zonedir'}; my $mydnsexpbin = $namedconf_obj->{'mydnsexpbin'}; die "mydnsexport is missing from your system.\n" unless ( -x $mydnsexpbin ); my $dbh; try { $dbh = Cpanel::MysqlUtils::Connect::get_dbi_handle(); } catch { die "Error while connecting to MySQL database: $_"; }; my $settings_ref = $namedconf_obj->{'dns_settings'}; my $soa_table = $settings_ref->{'database'} . '.' . $settings_ref->{'soa-table'}; my $get_zones_query = qq { SELECT origin FROM $soa_table }; my $sth = $dbh->prepare($get_zones_query); unless ($sth) { die "Database error, unable to get zones from MyDNS " . $dbh->errstr; } unless ( $sth->execute() ) { die "Database error, unable to get zones from MyDNS " . $dbh->errstr; } my @database_zones = (); while ( my $data = $sth->fetchrow_hashref() ) { $data->{'origin'} =~ s/\.$//; push @database_zones, $data->{'origin'}; } $sth->finish; print "Exporting zones from MyDNS database\n"; my $counter = 0; foreach my $zone (@database_zones) { my ( $zonefile, $zonedata ); $zonefile = $bind_dir . '/' . $zone . '.db'; if ( !$force && -e $zonefile ) { if ($debug) { print "$zonefile already exists, not updated\n"; } next; } $zonedata = Cpanel::SafeRun::Errors::saferunnoerror( $mydnsexpbin, $zone ); unless ( $zonedata =~ /mydnsexport\s+$zone/i ) { print "Error exporting $zone\n"; next; } my ( $zonelock, $zone_fh ); unless ( $zonelock = Cpanel::SafeFile::safeopen( $zone_fh, '>', $zonefile ) ) { print "Unable to write $zonefile\n"; next; } print $zone_fh $zonedata; Cpanel::SafeFile::safeclose( $zone_fh, $zonelock ); $counter++; if ($debug) { print "$zone is successfully saved\n"; } } print "$counter zones have been successfully exported\n"; if ( $counter > 0 ) { print "Rebuilding named.conf file\n"; system('/usr/local/cpanel/scripts/rebuilddnsconfig'); } print "Exportmydnsdb has completed\n"; $pid_obj->remove_pid_file(); exit 0; sub usage { print <<EO_USAGE; Usage: exportmydnsdb [options] Options: --help Brief help message --force Overwrite existing zone files --debug Prints extra processing information EO_USAGE exit 0; }
./LuLlaby007 ♥ Tata Cantik - Copyright 2k18