Bug 351243: Public webdot server changed its IP address

Bugzilla/Constants.pm

@@ -380,7 +380,7 @@ sub bz_locations {
         # change showdependencygraph.cgi to set image_url to the correct 
         # location.
         # The script should really generate these graphs directly...
-        'webdotdir'   => "$libpath/$datadir/webdot",
+        'webdotdir'   => "$datadir/webdot",
         'extensionsdir' => "$libpath/extensions",
     };
 }

Bugzilla/Install/Filesystem.pm

@@ -257,7 +257,7 @@ EOT
 # if research.att.com ever changes their IP, or if you use a different
 # webdot server, you'll need to edit this
 <FilesMatch \\.dot\$>
-  Allow from 192.20.225.10
+  Allow from 192.20.225.0/24
   Deny from all
 </FilesMatch>
 
@@ -385,6 +385,22 @@ sub create_htaccess {
         print $htaccess $old_data;
         $htaccess->close;
     }
+
+
+    my $webdot_dir = bz_locations()->{'webdotdir'};
+    # The public webdot IP address changed.
+    my $webdot = new IO::File("$webdot_dir/.htaccess", 'r')
+        || die "$webdot_dir/.htaccess: $!";
+    my $webdot_data;
+    { local $/; $webdot_data = <$webdot>; }
+    $webdot->close;
+    if ($webdot_data =~ /192\.20\.225\.10/) {
+        print "Repairing $webdot_dir/.htaccess...\n";
+        $webdot_data =~ s/192\.20\.225\.10/192.20.225.0\/24/g;
+        $webdot = new IO::File("$webdot_dir/.htaccess", 'w') || die $!;
+        print $webdot $webdot_data;
+        $webdot->close;
+    }
 }
 
 # A helper for the above functions.