Funktionspool

[XaraX]

Hallo Pierre,

sammeln wir doch einmal, was wir alles brauchen und im include_path ablegen:

E-Mail-Adresserkennung

########## email_pruef.inc #################################

function email_pruef($a)
    {

Zerlegen der Adresse in USER @ HOST als Kleinschreibung

$a=explode('@',strtolower($a));

gibt es genau ein Zeichen @

if(count($a)==2)
        {

# Zerlegen des HOST in Subdomains und Anhaengen des USER $a[0]

$b=explode('.',$a[1]);

# HOST hat [SUB.]DOMAI.TLD

if(($c=count($b))>1)
            {
            $b[]=$a[0];
            $c++;

# Durchlaufen und abpruefen aller Zeichen

for($i=0;$i<$c;$i++)
                {

# auf Zeichenkettenlaenge pruefen

$a=strlen($b[$i]);

# Zeichenkette ist mindestens 2 Zeichen lang und wird durchlaufen

if($a>1)
                    for($j=0;$j<$a;$j++)
                        {

# Speichern des ASCII-Wert des Zeichens $b[$i]{$j}

$d=ord($b[$i]{$j});

# [0-9a-z]

if(($d>47 && $d<58) || ($d>97 && $d<123));

# Zeichen ist das erste Zeichen von $b[$i]

elseif($j==0) return FALSE;

# +[ -_ ]

elseif($d==45 || $d==95);

# Zeichenkette ist USER +[ . ]

elseif($i==(count($b)-1) && $d==46);
                        else           return FALSE;
                        }
                else    return FALSE;
                }
            }
        else    return FALSE;
        }
    else    return FALSE;

return TRUE;
    }

Gruß aus Berlin!
eddi