Warning comment added to prevent future change of SOA e-mail identifing msg

[sleuth.git] / sleuth

diff --git a/sleuth b/sleuth
index 3c89bad..08fad8e 100755 (executable)
--- a/sleuth
+++ b/sleuth
@@ -311,6 +311,7 @@ sub check_email {
        my $host = norm_name($3);
        $user =~ s/\\(.)/$1/g;
        $e = "$user\@$host";
+       # Don't touch! This string is exactly matched by check.cgi!
        info("Hostmaster e-mail address is $e");
        if (my @mx = resolve($host, "MX", 1, 0)) {
                foreach my $r (@mx) {