org.netfrag.elib/smtp/smtpmail.class

<?
//if ($EMAIL_INC) return; 
//$EMAIL_INC= "defined"; 
define("SmtpPort",25); 

class Smtp { 

    var $Subject;             // string the email's subject 
    var $FromName;                // string sender's name (opt) 
    var $ToName;                  // string recipient's name (opt) 
    var $Body;                    // string body copy 
    var $Attachment;        // attachment (optional) 
    var $AttachmentType; 
    var $Socket; 
    var $Line; 
    var $Status; 

    function Smtp($Server = "localhost", $Port = SmtpPort) 
    {     
        return $this->Open($Server, $Port); 
    } 
     
    function SmtpMail($FromEmail, $FromName, $ToEmail, $ToName, $Subject, $Body, $Attachment=null, $AttachmentType="TEXT") 
    { 
        $this->Subject   = $Subject; 
        $this->ToName    = $ToName; 

        $this->FromName    = $FromName; 
        $this->Body      = $Body; 

        $this->Attachment = $Attachment; 
        $this->AttachmentType = $AttachmentType; 

        if ($this->Helo() == false){ 
            return false; 
        } 
        if ($this->MailFrom($FromEmail) == false){ 
            return false; 
        } 
        if ($this->RcptTo($ToEmail) == false){ 
            return false; 
        } 
        if ($this->Body() == false){ 
            return false; 
        } 
        if ($this->Quit() == false){ 
            return false; 
        } 
    } 

    function Open($Server, $Port) 
    { 

     $this->Socket = fsockopen($Server, $Port); 
     if ($this->Socket < 0) return false; 

     $this->Line = fgets($this->Socket, 1024); 

     $this->Status["LASTRESULT"] = substr($this->Line, 0, 1); 
     $this->Status["LASTRESULTTXT"] = substr($this->Line, 0, 1024); 

     if ($this->Status["LASTRESULT"] <> "2") return false; 

     return true; 
    } 


    function Helo() 
    { 
        if (fputs($this->Socket, "helo\r\n") < 0 ){ 
            return false; 
        } 
        $this->Line = fgets($this->Socket, 1024); 

        $this->Status["LASTRESULT"] = substr($this->Line, 0, 1); 
        $this->Status["LASTRESULTTXT"] = substr($this->Line, 0, 1024); 

        if ($this->Status["LASTRESULT"] <> "2") return false; 

        return true;   
    } 

    function Ehlo() 
    { 

        /* Well, let's use "helo" for now.. Until we need the 
        extra func's   [Unk] 
        */ 
        if(fputs($this->Socket, "helo localhost\r\n")<0){ 
            return false; 
        } 
        $this->Line = fgets($this->Socket, 1024); 

        $this->Status["LASTRESULT"] = substr($this->Line, 0, 1); 
        $this->Status["LASTRESULTTXT"] = substr($this->Line, 0, 1024); 

        if ($this->Status["LASTRESULT"] <> "2") return false; 

        return true; 
    } 


    function MailFrom($FromEmail) 
    { 

        if (fputs($this->Socket, "MAIL FROM: <$FromEmail>\r\n")<0){ 
            return false; 
        } 

        $this->Line = fgets($this->Socket, 1024); 

        $this->Status["LASTRESULT"] = substr($this->Line, 0, 1); 
        $this->Status["LASTRESULTTXT"] = substr($this->Line, 0, 1024); 

        if ($this->Status["LASTRESULT"] <> "2") return false; 

        return true; 
    } 

    function RcptTo($ToEmail) 
    { 

        if(fputs($this->Socket, "RCPT TO: <$ToEmail>\r\n")<0){ 
            return false; 
        } 
        $this->Line = fgets($this->Socket, 1024); 

        $this->Status["LASTRESULT"] = substr($this->Line, 0, 1); 
        $this->Status["LASTRESULTTXT"] = substr($this->Line, 0, 1024); 

        if ($this->Status["LASTRESULT"] <> "2") return false; 
            return true; 
    } 

    function Body() 
    { 
        $FileSize = 0; 
        $Attachment = null; 
        $fp = null; 

        $buffer = sprintf("From: %s\r\nTo:%s\r\nSubject:%s\r\n", $this->FromName, $this->ToName, $this->Subject); 

        if(fputs($this->Socket, "DATA\r\n")<0){ 
            return false; 
        } 
        $this->Line = fgets($this->Socket, 1024); 

        $this->Status["LASTRESULT"] = substr($this->Line, 0, 1); 
        $this->Status["LASTRESULTTXT"] = substr($this->Line, 0, 1024); 

        if ($this->Status["LASTRESULT"] <> "3") return false; 
         
        if(fputs($this->Socket, $buffer)<0){ 
            return false; 
        } 


        if ($this->Attachment == null){ 

            if(fputs($this->Socket, "MIME-Version: 1.0\r\nContent-Type: text/plain; charset=ISO-8859-1\r\nContent-Transfer-Encoding: 7bit\r\n\r\n")<0){ 
                return false; 
            } 
            if(fputs($this->Socket, "$this->Body\r\n\r\n")<0){ 
                return false; 
            } 
     
            if(fputs($this->Socket, ".\r\n")<0){ 
                return false; 
            } 

            $this->Line = fgets($this->Socket, 1024); 
            if (substr($this->Line, 0, 1) <> "2"){ 
                return false;  
            }else{ 
                return true; 
            } 
        }else{ 
            if(fputs($this->Socket,"MIME-Version: 1.0\r\nContent-Type: multipart/mixed; boundary=\"----=_NextPart_000_01BCFA61.A3697360\"\r\n". 
                "Content-Transfer-Encoding: 7bit\r\n\r\n". 
                "This is a multi-part message in MIME format.\r\n". 
                "\r\n------=_NextPart_000_01BCFA61.A3697360\r\n". 
                "Content-Type: text/plain; charset=ISO-8859-1\r\n". 
                "Content-Transfer-Encoding: 7bit\r\n". 
                "\r\n")<0){ 
                return false; 
            } 
     

            /* output the body file */ 
            if(fputs($this->Socket, "$this->Body\r\n\r\n")<0){ 
                return false; 
            } 

            if ( fputs($this->Socket,"\r\n------=_NextPart_000_01BCFA61.A3697360\r\n")<0){ 
                return false; 
            } 
            $FileSize = filesize($this->Attachment); 
            if ($FileSize == false){ 
                return false; 
            } 
            if (($fp = fopen($this->Attachment,"r"))== false) { 
                return false; 
            }else{ 
                $Attachment = fread($fp,$FileSize);     
            } 

            // we don't want any of the directory in the attachment 
            if (($AttachName = strrchr($this->Attachment,'/')) == false){ 

                // no directory so just copy the name in 
                $AttachName = $this->Attachment; 
            } 

            if( fputs($this->Socket, 
                "Content-Type: application/octet-stream; \r\nname=\"$AttachName\"\r\n". 
                "Content-Transfer-Encoding: quoted-printable\r\n". 
                "Content-Description: $AttachName\r\n". 
                "Content-Disposition: attachment; \r\n\tfilename=\"$AttachName\"\r\n". 
                "\r\n")<0){ 
                return false; 
            } 
     
            /* output the attachment file */ 
            if( fputs($this->Socket, $Attachment)<0){ 
                return false; 
            } 
            if ( fputs($this->Socket,"\r\n\r\n------=_NextPart_000_01BCFA61.A3697360--\r\n")<0){ 
                return false; 
            } 

            if( fputs($this->Socket,".\r\n")<0){ 
                return false; 
            } 

            $this->Line = fgets($this->Socket, 1024); 
            if (substr($this->Line, 0, 1) <> "2") 
                return false;  

            return true; 

        } 
    } 

    function Quit() 
    { 

        if(fputs($this->Socket, "QUIT\r\n")<0){ 
            return false; 
        } 
        $this->Line = fgets($this->Socket, 1024); 

        $this->Status["LASTRESULT"] = substr($this->Line, 0, 1); 
        $this->Status["LASTRESULTTXT"] = substr($this->Line, 0, 1024); 

        if ($this->Status["LASTRESULT"] <> "2") return 0; 

        return 1; 
    }  
    function Close() 
    { 
        fclose($this->Socket); 
    } 
} 

?>
1	cvsjoko	1.1	<?
2			//if ($EMAIL_INC) return;
3			//$EMAIL_INC= "defined";
4			define("SmtpPort",25);
5
6			class Smtp {
7
8			var $Subject; // string the email's subject
9			var $FromName; // string sender's name (opt)
10			var $ToName; // string recipient's name (opt)
11			var $Body; // string body copy
12			var $Attachment; // attachment (optional)
13			var $AttachmentType;
14			var $Socket;
15			var $Line;
16			var $Status;
17
18			function Smtp($Server = "localhost", $Port = SmtpPort)
19			{
20			return $this->Open($Server, $Port);
21			}
22
23			function SmtpMail($FromEmail, $FromName, $ToEmail, $ToName, $Subject, $Body, $Attachment=null, $AttachmentType="TEXT")
24			{
25			$this->Subject = $Subject;
26			$this->ToName = $ToName;
27
28			$this->FromName = $FromName;
29			$this->Body = $Body;
30
31			$this->Attachment = $Attachment;
32			$this->AttachmentType = $AttachmentType;
33
34			if ($this->Helo() == false){
35			return false;
36			}
37			if ($this->MailFrom($FromEmail) == false){
38			return false;
39			}
40			if ($this->RcptTo($ToEmail) == false){
41			return false;
42			}
43			if ($this->Body() == false){
44			return false;
45			}
46			if ($this->Quit() == false){
47			return false;
48			}
49			}
50
51			function Open($Server, $Port)
52			{
53
54			$this->Socket = fsockopen($Server, $Port);
55			if ($this->Socket < 0) return false;
56
57			$this->Line = fgets($this->Socket, 1024);
58
59			$this->Status["LASTRESULT"] = substr($this->Line, 0, 1);
60			$this->Status["LASTRESULTTXT"] = substr($this->Line, 0, 1024);
61
62			if ($this->Status["LASTRESULT"] <> "2") return false;
63
64			return true;
65			}
66
67
68			function Helo()
69			{
70			if (fputs($this->Socket, "helo\r\n") < 0 ){
71			return false;
72			}
73			$this->Line = fgets($this->Socket, 1024);
74
75			$this->Status["LASTRESULT"] = substr($this->Line, 0, 1);
76			$this->Status["LASTRESULTTXT"] = substr($this->Line, 0, 1024);
77
78			if ($this->Status["LASTRESULT"] <> "2") return false;
79
80			return true;
81			}
82
83			function Ehlo()
84			{
85
86			/* Well, let's use "helo" for now.. Until we need the
87			extra func's [Unk]
88			*/
89			if(fputs($this->Socket, "helo localhost\r\n")<0){
90			return false;
91			}
92			$this->Line = fgets($this->Socket, 1024);
93
94			$this->Status["LASTRESULT"] = substr($this->Line, 0, 1);
95			$this->Status["LASTRESULTTXT"] = substr($this->Line, 0, 1024);
96
97			if ($this->Status["LASTRESULT"] <> "2") return false;
98
99			return true;
100			}
101
102
103			function MailFrom($FromEmail)
104			{
105
106			if (fputs($this->Socket, "MAIL FROM: <$FromEmail>\r\n")<0){
107			return false;
108			}
109
110			$this->Line = fgets($this->Socket, 1024);
111
112			$this->Status["LASTRESULT"] = substr($this->Line, 0, 1);
113			$this->Status["LASTRESULTTXT"] = substr($this->Line, 0, 1024);
114
115			if ($this->Status["LASTRESULT"] <> "2") return false;
116
117			return true;
118			}
119
120			function RcptTo($ToEmail)
121			{
122
123			if(fputs($this->Socket, "RCPT TO: <$ToEmail>\r\n")<0){
124			return false;
125			}
126			$this->Line = fgets($this->Socket, 1024);
127
128			$this->Status["LASTRESULT"] = substr($this->Line, 0, 1);
129			$this->Status["LASTRESULTTXT"] = substr($this->Line, 0, 1024);
130
131			if ($this->Status["LASTRESULT"] <> "2") return false;
132			return true;
133			}
134
135			function Body()
136			{
137			$FileSize = 0;
138			$Attachment = null;
139			$fp = null;
140
141			$buffer = sprintf("From: %s\r\nTo:%s\r\nSubject:%s\r\n", $this->FromName, $this->ToName, $this->Subject);
142
143			if(fputs($this->Socket, "DATA\r\n")<0){
144			return false;
145			}
146			$this->Line = fgets($this->Socket, 1024);
147
148			$this->Status["LASTRESULT"] = substr($this->Line, 0, 1);
149			$this->Status["LASTRESULTTXT"] = substr($this->Line, 0, 1024);
150
151			if ($this->Status["LASTRESULT"] <> "3") return false;
152
153			if(fputs($this->Socket, $buffer)<0){
154			return false;
155			}
156
157
158			if ($this->Attachment == null){
159
160			if(fputs($this->Socket, "MIME-Version: 1.0\r\nContent-Type: text/plain; charset=ISO-8859-1\r\nContent-Transfer-Encoding: 7bit\r\n\r\n")<0){
161			return false;
162			}
163			if(fputs($this->Socket, "$this->Body\r\n\r\n")<0){
164			return false;
165			}
166
167			if(fputs($this->Socket, ".\r\n")<0){
168			return false;
169			}
170
171			$this->Line = fgets($this->Socket, 1024);
172			if (substr($this->Line, 0, 1) <> "2"){
173			return false;
174			}else{
175			return true;
176			}
177			}else{
178			if(fputs($this->Socket,"MIME-Version: 1.0\r\nContent-Type: multipart/mixed; boundary=\"----=_NextPart_000_01BCFA61.A3697360\"\r\n".
179			"Content-Transfer-Encoding: 7bit\r\n\r\n".
180			"This is a multi-part message in MIME format.\r\n".
181			"\r\n------=_NextPart_000_01BCFA61.A3697360\r\n".
182			"Content-Type: text/plain; charset=ISO-8859-1\r\n".
183			"Content-Transfer-Encoding: 7bit\r\n".
184			"\r\n")<0){
185			return false;
186			}
187
188
189			/* output the body file */
190			if(fputs($this->Socket, "$this->Body\r\n\r\n")<0){
191			return false;
192			}
193
194			if ( fputs($this->Socket,"\r\n------=_NextPart_000_01BCFA61.A3697360\r\n")<0){
195			return false;
196			}
197			$FileSize = filesize($this->Attachment);
198			if ($FileSize == false){
199			return false;
200			}
201			if (($fp = fopen($this->Attachment,"r"))== false) {
202			return false;
203			}else{
204			$Attachment = fread($fp,$FileSize);
205			}
206
207			// we don't want any of the directory in the attachment
208			if (($AttachName = strrchr($this->Attachment,'/')) == false){
209
210			// no directory so just copy the name in
211			$AttachName = $this->Attachment;
212			}
213
214			if( fputs($this->Socket,
215			"Content-Type: application/octet-stream; \r\nname=\"$AttachName\"\r\n".
216			"Content-Transfer-Encoding: quoted-printable\r\n".
217			"Content-Description: $AttachName\r\n".
218			"Content-Disposition: attachment; \r\n\tfilename=\"$AttachName\"\r\n".
219			"\r\n")<0){
220			return false;
221			}
222
223			/* output the attachment file */
224			if( fputs($this->Socket, $Attachment)<0){
225			return false;
226			}
227			if ( fputs($this->Socket,"\r\n\r\n------=_NextPart_000_01BCFA61.A3697360--\r\n")<0){
228			return false;
229			}
230
231			if( fputs($this->Socket,".\r\n")<0){
232			return false;
233			}
234
235			$this->Line = fgets($this->Socket, 1024);
236			if (substr($this->Line, 0, 1) <> "2")
237			return false;
238
239			return true;
240
241			}
242			}
243
244			function Quit()
245			{
246
247			if(fputs($this->Socket, "QUIT\r\n")<0){
248			return false;
249			}
250			$this->Line = fgets($this->Socket, 1024);
251
252			$this->Status["LASTRESULT"] = substr($this->Line, 0, 1);
253			$this->Status["LASTRESULTTXT"] = substr($this->Line, 0, 1024);
254
255			if ($this->Status["LASTRESULT"] <> "2") return 0;
256
257			return 1;
258			}
259			function Close()
260			{
261			fclose($this->Socket);
262			}
263			}
264
265			?>
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26