Subj : I need your help
To : All
From : Terminator
Date : Tue Aug 28 2001 07:41 am
I am having some problems with this program
because its connecting to smtp-server.cox.rr.com
but its not sending the email messages.
If you want I can make some small modifications
to the program so it will send the email message
to the address that is in the user log file so you
can test it on your bbs so see if you have the same
problem as I am.
If your interested then please send me a email message
to
[email protected], and I will send you the binary
program.
Here is the program.
# Create a connection with the server.
socket_open sock
socket_connect sock sn sp
if_false
print "Connection failed.\r\n"
pause
goto end
end_if
# Generate a new 6 digit password
set count3 "0"
set pw1 ""
set pw2 ""
:loop
add count3 1
compare count3 6
if_less
set pw2 ""
random pw2 9
strcat pw1 pw2
goto loop
end_if
# Intial dialup
set mailto "
[email protected]"
sprintf str "helo %s\n" yourdomain
socket_write sock str
sprintf str "mail from: %s\n" mailfrom
socket_write sock str
sprintf str "rcpt to: %s\n" mailto
socket_write sock str
setstr "data\n"
socket_write sock str
# Send additional headers like subject, date ect..
setstr "Subject: New password for bbs.chatfree.org\n"
socket_write sock str
sprintf str "To: %s\n\n" mailto
socket_write sock str
# Send body of the message.
#set str "\r\n"
socket_write sock str
# Terminate body of message, close connection with server
setstr "\n.\n"
socket_write sock str
sprintf str ".\r\n"
socket_write sock str
setstr "quit\n"
socket_write sock str
socket_close sock
Print "Message sent.\r\n"
socket_readlin
print str
set count1 "0"
set count2 "0"
:loop2
add count1 1
compare count1 3
if_greater
continued in the next message.
---
� Synchronet � Synchronet -> Chatfree BBS bbs.chatfree.org
