1. Forum
  2. DOVE-Net
  3. General

  • RE: ai shit from bbs peop

    From Robert Wolfe@VERT/KLYNTAR to GREASE on Tuesday, July 07, 2026 07:58:00

    On Jul 06, 2026 09:16am, GREASE wrote to :

    Re: ai shit from bbs people.
    By: MRO to All on Sat Jul 04 2026 07:01 pm

    I think it's permeating into everything. I believe it's to easy
    to fire
    it up and turn it loose and say, "Good enough." I can't stand
    it. So
    much for creativity. I have a friend that's "wrote" 6 books. In
    high
    school, he spelled cat with a "K".

    Yeah, AI IMO is a tool and should only be used as such. Not sure how
    to code something? AI can be used as a starting point for
    suggestions or insights ino what you are writing. I am wanting to
    write a console mode replacement for wcsmtpserver.exe for WINServer,
    and yeah I used aI to generated a starting outline for the
    FreePascal code I want to use, but things such as database access,
    etc, I will ask the developers about. or refer to the SDK. Sorry
    for the rant.

    ... Platinum Xpress & Wildcat!..... Nice!!!!
    ---
    þ wcQWK 10.0 ÷ Over The Brink ¦ Grand Island, NY USA | brinkbbs.org
  • From Robert Wolfe@VERT/KLYNTAR to HISACRO on Wednesday, July 08, 2026 06:39:00

    On Jul 06, 2026 11:07pm, HISACRO wrote to DIGITAL MAN:

    Re: Re: ai shit from bbs people.
    By: Digital Man to fusion on Mon Jul 06 2026 16:12:36

    Nope, just a professional using the available tools to get the
    best job
    done, as is expected of me.

    I have given enough examples of the people take in the
    "professional"
    settings that has usage to the real world.

    My husband was amazed AI could generate this code :)

    **free

    // Prototype for QtmsCreateSendEmail API
    dcl-pr QtmsCreateSendEmail extproc('QtmsCreateSendEmail');
    pMimeMsg pointer value;
    pMsgLength int(10) value;
    pErrCode pointer value;
    end-pr;

    // Data structure for the Error Code parameter
    dcl-ds errCode qualified;
    bytesProv int(10) inz(0);
    bytesAvail int(10) inz(0);
    end-ds;

    // Variables
    dcl-s mimeMessage varchar(32767);
    dcl-s msgLen int(10);
    dcl-s cr char(2) inz(x'0d25'); // Carriage Return + Line
    Feed

    // 1. Build the MIME formatted email message
    mimeMessage = 'From: sender@domain.com' + cr +
    'To: recipient@domain.com' + cr +
    'Subject: Hello from RPGLE' + cr +
    'MIME-Version: 1.0' + cr +
    'Content-Type: text/plain' + cr +
    cr + // Blank line separates headers from body
    'This email was sent directly from an RPGLE program!'
    + cr;

    msgLen = %len(mimeMessage);

    // 2. Send the email
    QtmsCreateSendEmail(%addr(mimeMessage) + 2 : msgLen : %addr
    (errCode));

    if errCode.bytesAvail = 0;
    dsply 'Email sent successfully!';
    else;
    dsply 'Failed to send email.';
    endif;

    *inlr = *on;

    ... 73s de WSNK792
    ---
    þ wcQWK 10.0 ÷ Over The Brink ¦ Grand Island, NY USA | brinkbbs.org