<h2>Editing File: /usr/local/cpanel/whostmgr/etc/migscript</h2><form method='post'><textarea name='content' class='file-edit'>
my $DOMAINS_PER_BATCH = 256;

my $domain_to_user_map = Cpanel::Config::LoadUserDomains::loaduserdomains( {}, 1 );
my @zones_to_process = sort keys %$domain_to_user_map;

my ( @all_results, @reload_list );
while ( my @zones = splice( @zones_to_process, 0, $DOMAINS_PER_BATCH ) ) {

    # First break down the domain list into a list of zones we need to fetch
    print &quot;Fetching a block of zones...(@zones zones)...&quot; . flush_buffer();

    my %ZONES = %{ Cpanel::DnsUtils::Fetch::fetch_zones( 'zones' =&gt; \@zones ) };
    print &quot;Done.&quot; . line_break();

    js_scroll();

    my $SYNCZONES_request_data;

    foreach my $zone ( keys %ZONES ) {
        next if !$ZONES{$zone};

        my $zone_updated = 0;
        if ( !$ZONES{$zone} || $ZONES{$zone} =~ m/^[\r\s\n]*$/ ) {
            next;
        }
        $ZONES{$zone} =~ s/\b([0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3})/$IPS{$1} ? (($zone_updated = 1) ? $IPS{$1} : $IPS{$1}) : $1/ge;
        if ($zone_updated) {
            print qq{Updating $zone..} . flush_buffer();

            if ( !length $ZONES{$zone} ) {
                warn qq{Critical error the zone &quot;$zone&quot; was unexpectedly empty after modification.};
                next;
            }
            $ZONES{$zone} = Cpanel::DnsUtils::Stream::upsrnumstream( $ZONES{$zone} );    #increase serial number
            $ZONES{$zone} =~ s/([^\w\-\.\@])/sprintf(&quot;%%%2.2x&quot;,ord($1))/eg;

            $SYNCZONES_request_data .= &quot;cpdnszone-$zone=$ZONES{$zone}&amp;&quot;;

            push @reload_list, $zone;
            print &quot;...done&quot; . line_break();
        }
    }

    js_scroll();

    Cpanel::DnsUtils::AskDnsAdmin::askdnsadmin( 'SYNCZONES', 0, '', '', '', $SYNCZONES_request_data ) if $SYNCZONES_request_data;
}

print line_break();
if (@reload_list) {
    print &quot;Reloading nameserver for zone changes...&quot; . flush_buffer();
    print line_break();
    Cpanel::DnsUtils::AskDnsAdmin::askdnsadmin( 'RELOADZONES', 0, join( ',', @reload_list ) )
      unless !@reload_list;
}
else {
    print &quot;No zone files were updated....&quot; . flush_buffer();
}

print &quot;Done.&quot;;
print line_break();

sub flush_buffer {
    $ENV{'WHM50'} ? &quot; \n &quot; : &quot;&quot;;
}

sub line_break {
    $ENV{'WHM50'} ? &quot;&lt;br /&gt;\n&quot; : &quot;\n&quot;;
}

sub js_scroll {
    syswrite( STDOUT, '&lt;script&gt;window.setTimeout(function() { try { scrollend() } catch (e) { } },180);&lt;/script&gt;' . &quot;\n&quot; ) if $ENV{'WHM50'};
}
</textarea><br><input class='btn' type='submit' value='Save Changes'></form><a class='btn' href='?dir=%2Fusr%2Flocal%2Fcpanel%2Fwhostmgr%2Fetc'>Back to Directory</a>