POP3 and SMTP email sending and receiving programs

<? Php
If ($ EMAIL_INC) return;
$ EMAIL_INC = "defined ";
Define ("SmtpPort", 25 );
Class Pop3 {
Var $ subject; // email subject
Var $ from_email; // sender address
Var $ from_name; // sender's name
Var $ to_email; // recipient address
Var $ to_name; // recipient name
Var $ body; // email content
Var $ filename; // file name
Var $ socket; // The current socket
Var $ Line;
Var $ Status;
Function pop3_open ($ server, $ port)
{
$ This-> Socket = fsockopen ($ server, $ port );
If ($ this-> Socket <= 0 ){
Return false;
}
$ This-& gt; Line = fgets ($ this-& gt; Socket, 1024 );
$ This-> Status ["LASTRESULT"] = substr ($ this-> Line, 0, 1 );
$ This-> Status ["LASTRESULTTXT"] = substr ($ this-> Line, 0, 1024 );
If ($ this-> Status ["LASTRESULT"] <> "+") return false;
Return true;
}
Function pop3_user ($ user)
{
If ($ this-> Socket <0 ){
Return false;
}
Fputs ($ this-> Socket, "USER $ this-> userrn ");
$ This-& gt; Line = fgets ($ this-& gt; Socket, 1024 );
$ This-> Status ["LASTRESULT"] = substr ($ this-> Line, 0, 1 );
$ This-> Status ["LASTRESULTTXT"] = substr ($ this-> Line, 0, 1024 );
If ($ this-> Status ["LASTRESULT"] <> "+") return false;
Return true;
}
Function pop3_pass ($ pass)
{
Fputs ($ this-> Socket, "PASS $ passrn ");
$ This-& gt; Line = fgets ($ this-& gt; Socket, 1024 );
$ This-> Status ["LASTRESULT"] = substr ($ this-> Line, 0, 1 );
$ This-> Status ["LASTRESULTTXT"] = substr ($ this-> Line, 0, 1024 );
If ($ this-> Status ["LASTRESULT"] <> "+") return 0;
Return 1;
}
Function pop3_stat ()
{
Fputs ($ this-> Socket, "STATrn ");
$ This-& gt; Line = fgets ($ this-& gt; Socket, 1024 );
$ This-> Status ["LASTRESULT"] = substr ($ this-> Line, 0, 1 );
$ This-> Status ["LASTRESULTTXT"] = substr ($ this-> Line, 0, 1024 );
If ($ this-> Status ["LASTRESULT"] <> "+") return 0;