Sendmail Aliases
$who = $_POST['who'];
if ( "$who" == "") {
die("No name supplied");
}
// echo "Connecting to snmp:25\n";
$sm = fsockopen("smtp", 25, &$errno, &$errstr, 10);
if (!$sm) {
die("Can connect to 'smtp' sendmail: $errstr ($errno)");
}
// set our created socket for 'fp' to
// non-blocking mode
// so our fgets() calls will return
// right away
set_socket_blocking ( $sm, false );
// Wait for the ready code
while (!feof($sm)) {
$lin = fgets($sm, 1500);
// echo $lin;
if (ereg("^220", $lin)) break;
}
if (feof($sm)) die("never received a ready response from name server");
echo "Looking up $who\n";
fputs ($sm, "EXPN $who\n");
fputs ($sm, "QUIT\n");
echo "\n";
while (!feof($sm)) {
$lin = fgets($sm, 1500);
if (ereg("^221", $lin)) break; // end of connection
echo htmlspecialchars("$lin");
}
echo "
\n";
fputs ($sm, "QUIT\n");
fclose($sm);
?>
David Horton
Last modified: Thu Jul 6 14:58:24 EST 2000