• I need your help

    From Terminator@VERT/CHATFREE to All on Tue Aug 28 14:41:00 2001
    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 admin@chatfree.org, 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 "admin@chatfree.org"
    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