1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
|
/****************************************************************************
**
** Copyright (C) 1992-2008 Trolltech ASA. All rights reserved.
**
** This file is part of an example program for TQt. This example
** program may be used, distributed and modified without limitation.
**
*****************************************************************************/
#include "smtp.h"
#include <tqtextstream.h>
#include <tqsocket.h>
#include <tqdns.h>
#include <tqtimer.h>
#include <ntqapplication.h>
#include <ntqmessagebox.h>
#include <tqregexp.h>
Smtp::Smtp( const TQString &from, const TQString &to,
const TQString &subject,
const TQString &body )
{
socket = new TQSocket( this );
connect ( socket, TQ_SIGNAL( readyRead() ),
this, TQ_SLOT( readyRead() ) );
connect ( socket, TQ_SIGNAL( connected() ),
this, TQ_SLOT( connected() ) );
mxLookup = new TQDns( to.mid( to.find( '@' )+1 ), TQDns::Mx );
connect( mxLookup, TQ_SIGNAL(resultsReady()),
this, TQ_SLOT(dnsLookupHelper()) );
message = TQString::fromLatin1( "From: " ) + from +
TQString::fromLatin1( "\nTo: " ) + to +
TQString::fromLatin1( "\nSubject: " ) + subject +
TQString::fromLatin1( "\n\n" ) + body + "\n";
message.replace( TQString::fromLatin1( "\n" ),
TQString::fromLatin1( "\r\n" ) );
message.replace( TQString::fromLatin1( "\r\n.\r\n" ),
TQString::fromLatin1( "\r\n..\r\n" ) );
this->from = from;
rcpt = to;
state = Init;
}
Smtp::~Smtp()
{
delete t;
delete socket;
}
void Smtp::dnsLookupHelper()
{
TQValueList<TQDns::MailServer> s = mxLookup->mailServers();
if ( s.isEmpty() ) {
if ( !mxLookup->isWorking() )
emit status( tr( "Error in MX record lookup" ) );
return;
}
emit status( tr( "Connecting to %1" ).arg( s.first().name ) );
socket->connectToHost( s.first().name, 25 );
t = new TQTextStream( socket );
}
void Smtp::connected()
{
emit status( tr( "Connected to %1" ).arg( socket->peerName() ) );
}
void Smtp::readyRead()
{
// SMTP is line-oriented
if ( !socket->canReadLine() )
return;
TQString responseLine;
do {
responseLine = socket->readLine();
response += responseLine;
} while( socket->canReadLine() && responseLine[3] != ' ' );
responseLine.truncate( 3 );
if ( state == Init && responseLine[0] == '2' ) {
// banner was okay, let's go on
*t << "HELO there\r\n";
state = Mail;
} else if ( state == Mail && responseLine[0] == '2' ) {
// HELO response was okay (well, it has to be)
*t << "MAIL FROM: <" << from << ">\r\n";
state = Rcpt;
} else if ( state == Rcpt && responseLine[0] == '2' ) {
*t << "RCPT TO: <" << rcpt << ">\r\n";
state = Data;
} else if ( state == Data && responseLine[0] == '2' ) {
*t << "DATA\r\n";
state = Body;
} else if ( state == Body && responseLine[0] == '3' ) {
*t << message << ".\r\n";
state = Quit;
} else if ( state == Quit && responseLine[0] == '2' ) {
*t << "QUIT\r\n";
// here, we just close.
state = Close;
emit status( tr( "Message sent" ) );
} else if ( state == Close ) {
deleteLater();
return;
} else {
// something broke.
TQMessageBox::warning( tqApp->activeWindow(),
tr( "TQt Mail Example" ),
tr( "Unexpected reply from SMTP server:\n\n" ) +
response );
state = Close;
}
response = "";
}
|
