korsygfhrtzangaiide

#!/usr/bin/perl use strict; use warnings; use LWP::Simple; use JSON; # URL of the JSON file containing Google's IP ranges my $url = "https://www.gstatic.com/ipranges/goog.json"; my $json_content = get($url); die "Failed to retrieve the JSON file from $url" unless defined $json_content; my $decoded_json = decode_json($json_content); my @ranges; foreach my $prefix (@{$decoded_json->{prefixes}}) { push @ranges, $prefix->{ipv4Prefix} if $prefix->{ipv4Prefix}; push @ranges, $prefix->{ipv6Prefix} if $prefix->{ipv6Prefix}; } die "No ip ranges returned" unless scalar @ranges > 1; open(my $fh, '>', '/etc/httpd/modsecurity.d/googlebot_ips.txt') or die "Could not open file 'googlebot_ips.txt' $!"; foreach my $range (@ranges){ print $fh "$range\n"; } close $fh;