# (C) 2001,2002 Eye-Net Consulting Pty Ltd # # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License (GPL) # as published by the Free Software Foundation; either version 2 # of the License, or (at your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # To read the license please visit http://www.gnu.org/copyleft/gpl.html # Change this below $FROM_ADDRESS="Administrator "; function get_domain($host) { if (preg_match("/\.([^.]+\....)$/", $host, $regs)) { return $regs[1]; } if (preg_match("/\.([^.]+\..{2,3}\...)$/", $host, $regs)) { return $regs[1]; } return $host; } if (getenv(HTTP_X_FORWARDED_FOR)) { $ip = getenv(HTTP_X_FORWARDED_FOR); echo "IP is $ip via a proxy.
\n"; } else { $ip = $REMOTE_ADDR; echo "IP is $ip direct.
\n"; } $host = gethostbyaddr($ip); echo "Full hostname is $host
\n"; if ($ip != $host) { $domain = get_domain($host); echo "Sending email to postmaster@$domain.
\n"; $now = gmdate ("M d Y H:i:s"); $url=strip_tags($url); $body = <<