start or resume session PERFORM HTM2COB-SESS-START PERFORM CREATE-IMG-CAPTCHA PERFORM SAVE-CAPTCHA-TEXT-IN-SESSION ?>

Write your comment

Your name:
Comment:

" end-display ?> CAPTCHA number:

"/>

Session captcha test start page

------------------------------------------------------------------------------ CREATE-IMG-CAPTCHA SECTION. *>------------------------------------------------------------------------------ SET V-NUMBERS OF WS-CAPTCHA-CHAR-TYPE TO TRUE MOVE SPACES TO WS-CAPTCHA-FILE-NAME STRING "/srv/www/htdocs/img/" "0024_captcha_" HTM2COB-HIDDEN-SESSION-ID ".png" X"00" DELIMITED BY SIZE INTO WS-CAPTCHA-FILE-NAME END-STRING MOVE SPACES TO WS-CAPTCHA-FILE-NAME-SHORT STRING "0024_captcha_" HTM2COB-HIDDEN-SESSION-ID ".png" DELIMITED BY SIZE INTO WS-CAPTCHA-FILE-NAME-SHORT END-STRING MOVE ALL X"00" TO WS-CAPTCHA-TEXT CALL "imgcaptcha" USING BY REFERENCE WS-CAPTCHA-FILE-NAME , BY REFERENCE WS-CAPTCHA-CHAR-TYPE , BY REFERENCE WS-CAPTCHA-TEXT RETURNING WS-RETVAL END-CALL EXIT SECTION . *>------------------------------------------------------------------------------ SAVE-CAPTCHA-TEXT-IN-SESSION SECTION. *>------------------------------------------------------------------------------ *> write name in session MOVE "captchatext" TO HTM2COB-SESS-VAR-NAME MOVE WS-CAPTCHA-TEXT TO HTM2COB-SESS-VAR-VALUE PERFORM HTM2COB-SESS-SET EXIT SECTION . ?>