' . $tmp_file;
$fp = popen("$comm","w");
if ($fp){
foreach ($req as $val){
// Ignore comments
if (ereg('^[[:space:]]*#',$val) || ereg('^[[:space:]]*$',$val))
continue;
fwrite($fp,$val);
}
if ($test_login){
$test=1;
fwrite($fp, "User-Name = \"$config[general_test_account_login]\"\n");
fwrite($fp, "User-Password = \"$config[general_test_account_password]\"\n");
pclose($fp);
}
else{
fwrite($fp, "User-Name = \"$login\"\n");
if ($auth_proto == 'chap')
fwrite($fp, "CHAP-Password = \"$passwd\"\n");
else
fwrite($fp, "User-Password = \"$passwd\"\n");
if (strlen($extra))
fwrite($fp,$extra);
pclose($fp);
}
$reply = file($tmp_file);
unlink($tmp_file);
$msg = "" . strftime('%A, %e %B %Y, %T %Z') . "
\n";
$msg .= "Server: $server:$port
\n";
if (ereg('code 2', $reply[0]))
$msg .= "Authentication was successful";
else if (ereg('code 3',$reply[0]))
$msg .= "Authentication failed";
else if (ereg('no response from server', $reply[0]))
$msg .= "No response from server";
else if (ereg('Connection refused',$reply[0]))
$msg .= "Connection was refused";
if ($test_login)
$msg .= " (test user $login)
\n";
else
$msg .= "
\n";
array_shift($reply);
if (count($reply)){
$msg .= "
Server response:
\n";
foreach ($reply as $val){
$msg .= "$val
\n";
}
}
if ($test_login){
print <<
|
|
