Patrick Cool
19 years ago
parent
e081704992
commit
7e55c0724a
@ -1,178 +0,0 @@ |
|||||||
<?php |
|
||||||
/* |
|
||||||
============================================================================== |
|
||||||
Dokeos - elearning and course management software |
|
||||||
|
|
||||||
Copyright (c) 2004 Dokeos S.A. |
|
||||||
Copyright (c) 2003 Ghent University (UGent) |
|
||||||
Copyright (c) 2001 Universite catholique de Louvain (UCL) |
|
||||||
Copyright (c) Olivier Brouckaert |
|
||||||
|
|
||||||
For a full list of contributors, see "credits.txt". |
|
||||||
The full license can be read in "license.txt". |
|
||||||
|
|
||||||
This program is free software; you can redistribute it and/or |
|
||||||
modify it under the terms of the GNU General Public License |
|
||||||
as published by the Free Software Foundation; either version 2 |
|
||||||
of the License, or (at your option) any later version. |
|
||||||
|
|
||||||
See the GNU General Public License for more details. |
|
||||||
|
|
||||||
Contact: Dokeos, 181 rue Royale, B-1000 Brussels, Belgium, info@dokeos.com |
|
||||||
============================================================================== |
|
||||||
*/ |
|
||||||
|
|
||||||
/** |
|
||||||
============================================================================== |
|
||||||
* This is the authentication library for Dokeos. |
|
||||||
* Include/require it in your code to use its functionality. |
|
||||||
* @deprecated No function in this file is actually used somewhere in the code |
|
||||||
* @package dokeos.library |
|
||||||
============================================================================== |
|
||||||
*/ |
|
||||||
|
|
||||||
/** |
|
||||||
* Build a string without logic |
|
||||||
* to be used as password |
|
||||||
* |
|
||||||
* @author Christophe Gesche <gesche@ipm.ucl.ac.be> |
|
||||||
* @version 1.0 |
|
||||||
* @param integer $nbcar default 5 define here length of password |
|
||||||
* @param boolean $lettresseules default false fix if pass can content digit |
|
||||||
* @return string password |
|
||||||
* @desc return a string to be use as password |
|
||||||
* @see rand() |
|
||||||
* @deprecated use api_generate_password located in main_api.lib.php |
|
||||||
*/ |
|
||||||
|
|
||||||
function generePass($nbcar=5,$lettresseules = false) |
|
||||||
{ |
|
||||||
return api_generate_password($nbcar); |
|
||||||
} |
|
||||||
/** |
|
||||||
* ifsnow's email valid check function SnowCheckMail Ver 0.1 |
|
||||||
* funtion SnowCheckMail ($Email,$debug=false) |
|
||||||
* $Email : E-Mail address to check. |
|
||||||
* $debug : Variable for debugging. |
|
||||||
* Can use everybody if use without changing the name of function. |
|
||||||
* Reference : O'REILLY - Internet Email Programming |
|
||||||
* HOMEPAGE : http://www.hellophp.com |
|
||||||
* ifsnow is korean phper. Is sorry to be unskillful to English. *^^*;; |
|
||||||
* @deprecated Function not in use |
|
||||||
*/ |
|
||||||
|
|
||||||
function SnowCheckMail($Email,$debug=false) |
|
||||||
{ |
|
||||||
global $_SERVER; |
|
||||||
$return = array(); |
|
||||||
// Variable for return. |
|
||||||
// $return[0] : [true|false] |
|
||||||
// $return[1] : Processing result save. |
|
||||||
|
|
||||||
if (!eregi("^[_a-z0-9-]+(\.[_a-z0-9-]+)*@[a-z0-9-]+(\.[a-z0-9-]+)*(\.[a-z]{2,3})$", $Email)) |
|
||||||
{ |
|
||||||
$return[0]=false; |
|
||||||
$return[1]="${Email} is E-Mail form that is not right."; |
|
||||||
if ($debug) echo "Error : {$Email} is E-Mail form that is not right.<br />"; |
|
||||||
return $return; |
|
||||||
} |
|
||||||
elseif ($debug) |
|
||||||
{ |
|
||||||
echo "Confirmation : {$Email} is E-Mail form that is not right.<br />"; |
|
||||||
} |
|
||||||
|
|
||||||
// E-Mail @ by 2 by standard divide. if it is $Email this "lsm@ebeecomm.com".. |
|
||||||
// $Username : lsm |
|
||||||
// $Domain : ebeecomm.com |
|
||||||
// list function reference : http://www.php.net/manual/en/function.list.php |
|
||||||
// split function reference : http://www.php.net/manual/en/function.split.php |
|
||||||
list ( $Username, $Domain ) = split ("@",$Email); |
|
||||||
|
|
||||||
// That MX(mail exchanger) record exists in domain check . |
|
||||||
// checkdnsrr function reference : http://www.php.net/manual/en/function.checkdnsrr.php |
|
||||||
if ( checkdnsrr ( $Domain, "MX" ) ) |
|
||||||
{ |
|
||||||
if($debug) echo "Confirmation : MX record about {$Domain} exists.<br />"; |
|
||||||
// If MX record exists, save MX record address. |
|
||||||
// getmxrr function reference : http://www.php.net/manual/en/function.getmxrr.php |
|
||||||
$MXHost = array(); |
|
||||||
if ( getmxrr ($Domain, $MXHost)) |
|
||||||
{ |
|
||||||
if($debug) |
|
||||||
{ |
|
||||||
echo "Confirmation : Is confirming address by MX LOOKUP.<br />"; |
|
||||||
for ( $i = 0,$j = 1; $i < count($MXHost); $i++,$j++ ) |
|
||||||
{ |
|
||||||
echo " Result($j) - $MXHost[$i]<br />"; |
|
||||||
} |
|
||||||
} |
|
||||||
} |
|
||||||
// Getmxrr function does to store MX record address about $Domain in arrangement form to $MXHost. |
|
||||||
// $ConnectAddress socket connection address. |
|
||||||
$ConnectAddress = $MXHost[0]; |
|
||||||
} |
|
||||||
else |
|
||||||
{ |
|
||||||
// If there is no MX record simply @ to next time address socket connection do . |
|
||||||
$ConnectAddress = $Domain; |
|
||||||
if ($debug) echo "Confirmation : MX record about {$Domain} does not exist.<br />"; |
|
||||||
} |
|
||||||
|
|
||||||
// fsockopen function reference : http://www.php.net/manual/en/function.fsockopen.php |
|
||||||
$Connect = fsockopen ( $ConnectAddress, 25 ); |
|
||||||
|
|
||||||
// Success in socket connection |
|
||||||
if ($Connect) |
|
||||||
{ |
|
||||||
if ($debug) echo "Connection succeeded to {$ConnectAddress} SMTP.<br />"; |
|
||||||
// Judgment is that service is preparing though begin by 220 getting string after connection . |
|
||||||
// fgets function reference : http://www.php.net/manual/en/function.fgets.php |
|
||||||
if ( ereg ( "^220", $Out = fgets ( $Connect, 1024 ) ) ) |
|
||||||
{ |
|
||||||
// Inform client's reaching to server who connect. |
|
||||||
fputs ( $Connect, "HELO ".$_SERVER['HTTP_HOST']."\r\n" ); |
|
||||||
if ($debug) echo "Run : HELO ".$_SERVER['HTTP_HOST']."<br />"; |
|
||||||
$Out = fgets ( $Connect, 1024 ); // Receive server's answering cord. |
|
||||||
|
|
||||||
// Inform sender's address to server. |
|
||||||
fputs ( $Connect, "MAIL FROM: <{$Email}>\r\n" ); |
|
||||||
if ($debug) echo "Run : MAIL FROM: <{$Email}><br />"; |
|
||||||
$From = fgets ( $Connect, 1024 ); // Receive server's answering cord. |
|
||||||
|
|
||||||
// Inform listener's address to server. |
|
||||||
fputs ( $Connect, "RCPT TO: <{$Email}>\r\n" ); |
|
||||||
if ($debug) echo "Run : RCPT TO: <{$Email}><br />"; |
|
||||||
$To = fgets ( $Connect, 1024 ); // Receive server's answering cord. |
|
||||||
|
|
||||||
// Finish connection. |
|
||||||
fputs ( $Connect, "QUIT\r\n"); |
|
||||||
if ($debug) echo "Run : QUIT<br />"; |
|
||||||
|
|
||||||
fclose($Connect); |
|
||||||
|
|
||||||
// Server's answering cord about MAIL and TO command checks. |
|
||||||
// Server about listener's address reacts to 550 codes if there does not exist |
|
||||||
// checking that mailbox is in own E-Mail account. |
|
||||||
if ( !ereg ( "^250", $From ) || !ereg ( "^250", $To )) |
|
||||||
{ |
|
||||||
$return[0]=false; |
|
||||||
$return[1]="${Email} is address done not admit in E-Mail server."; |
|
||||||
if ($debug) echo "{$Email} is address done not admit in E-Mail server.<br />"; |
|
||||||
return $return; |
|
||||||
} |
|
||||||
} |
|
||||||
} |
|
||||||
// Failure in socket connection |
|
||||||
else |
|
||||||
{ |
|
||||||
$return[0]=false; |
|
||||||
$return[1]="Can not connect E-Mail server ({$ConnectAddress})."; |
|
||||||
if ($debug) echo "Can not connect E-Mail server ({$ConnectAddress}).<br />"; |
|
||||||
return $return; |
|
||||||
} |
|
||||||
$return[0]=true; |
|
||||||
$return[1]="{$Email} is E-Mail address that there is no any problem."; |
|
||||||
return $return; |
|
||||||
} |
|
||||||
|
|
||||||
?> |
|
||||||
Loading…
Reference in new issue