Channels ▼
RSS

Writing CGI Scripts in REXX (Web Techniques, May 1996)


Writing CGI Scripts in REXX, Listing 1 (Web Techniques, May 1996)

Web Techniques Magazine

May 1996

Volume 1, Issue 2





Writing CGI Scripts in REXX




Listing One



DeWeb: PROCEDURE; PARSE ARG Input, Opts

/* *******************************************

DeWeb converts hex encoded (e.g. %20=space) 

characters in the Input string to the equivalent 

ASCII characters and returns the decoded string.

If the 2 characters following a % sign do not

represent a hexadecimal 2 digit number, then 

the % and following 2 characters are returned

unchanged. If the string terminates with a % then

the % sign is returned unchanged. If the final

two characters in the string are a % sign 

followed by a single hexadecimal digit then  

they are returned unchanged.



The optional Options argument contains a set of 

characters which allows you to tell DeWeb to:

'+' convert plus signs (+) to psaces

    in the input before the hex decoding is done.

'*' convert asterisks (*) to percent signs (%) 

    after the decoding.  This option

    is often used with Oracle.



Examples:

  SAY DeWeb('%3Cpre%3e%20%%25Loss  %Util%') 

  results in:  '<pre> %%Loss  %Util%'

  SAY DeWeb('%3cpre%3eName++Address%','*+')

  results in   '<pre>Name  Address*'

******************************************* */

IF POS('+',Opts)/=0 THEN Input=TRANSLATE(Input,' ','+')

Start=1; Decoded=''

DO WHILE POS('%',SUBSTR(Input,Start))/=0

   String=SUBSTR(Input,Start)

   PARSE VAR String Pre'%'+1 Ch +2 Input

   IF DATATYPE(Ch,'X') & LENGTH(Ch)=2 THEN 

        Ch=X2C(Ch)

   ELSE DO; Input=Ch||Input; Ch='%'; END

   Start=LENGTH(Decoded||Pre||Ch)+1

   Input=Decoded||Pre||Ch||Input

   Decoded=Decoded||Pre||Ch

END

IF POS('*',Opts)/=0 THEN Input=TRANSLATE(Input,'%','*')

RETURN Input









( back )


Copyright Web Techniques. All rights reserved.


Related Reading


More Insights






Currently we allow the following HTML tags in comments:

Single tags

These tags can be used alone and don't need an ending tag.

<br> Defines a single line break

<hr> Defines a horizontal line

Matching tags

These require an ending tag - e.g. <i>italic text</i>

<a> Defines an anchor

<b> Defines bold text

<big> Defines big text

<blockquote> Defines a long quotation

<caption> Defines a table caption

<cite> Defines a citation

<code> Defines computer code text

<em> Defines emphasized text

<fieldset> Defines a border around elements in a form

<h1> This is heading 1

<h2> This is heading 2

<h3> This is heading 3

<h4> This is heading 4

<h5> This is heading 5

<h6> This is heading 6

<i> Defines italic text

<p> Defines a paragraph

<pre> Defines preformatted text

<q> Defines a short quotation

<samp> Defines sample computer code text

<small> Defines small text

<span> Defines a section in a document

<s> Defines strikethrough text

<strike> Defines strikethrough text

<strong> Defines strong text

<sub> Defines subscripted text

<sup> Defines superscripted text

<u> Defines underlined text

Dr. Dobb's encourages readers to engage in spirited, healthy debate, including taking us to task. However, Dr. Dobb's moderates all comments posted to our site, and reserves the right to modify or remove any content that it determines to be derogatory, offensive, inflammatory, vulgar, irrelevant/off-topic, racist or obvious marketing or spam. Dr. Dobb's further reserves the right to disable the profile of any commenter participating in said activities.

 
Disqus Tips To upload an avatar photo, first complete your Disqus profile. | View the list of supported HTML tags you can use to style comments. | Please read our commenting policy.
 

Video