FREE Subscription to Dr. Dobb’s Digest: Same Great Content, New Digital Edition
Site Archive (Complete)
ABOUT US | CONTACT | ADVERTISE | SUBSCRIBE | SOURCE CODE | NEWSLETTERS | RESOURCES | BLOGS | PODCASTS | GO PARALLEL
Email
 Print
Reprint

add to:
Del.icio.us
Digg
Google
Furl 		Slashdot
Y! MyWeb
Blink
January 01, 2002

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

(Page 9 of 23)

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

Web Techniques Magazine

May 1996

Volume 1, Issue 2





Writing CGI Scripts in REXX 




Listing Ten





/* CgiError


# Prints out an error message which which containes appropriate headers,


# markup, etcetera.


# Parameters:


#  If no parameters, gives a generic error message


#  Otherwise, the first parameter will be the title and the rest will 


#  be given as the body


*/


CgiError: PROCEDURE


   PARSE ARG Title, Body


   IF Title='' THEN Title='Error: script' MyURL() 'encountered fatal error.'


   SAY 'Content-type: text/html'; SAY ''


   SAY '<html><head><title>'Title'</title></head>'


   SAY '<body><h1>'Title'</h1>'


   IF Body/='' THEN SAY Body


   SAY '</body></html>'


RETURN ''


/* CgiDie


   Identical to CgiError, but also quits with the passed error message.


*/


CgiDie: PROCEDURE


  PARSE ARG Title, Body


  Fail=CgiError(Title, Body)


  EXIT 


/* MyURL


   Returns a URL to the script


*/


MyURL: PROCEDURE


   IF GETENV('SERVER_PORT')/='80' THEN Port=':'GETENV('SERVER_PORT')


   ELSE                                Port=''


   RETURN 'http://'GETENV('SERVER_NAME')||Port||GETENV('SCRIPT_NAME')



( back )

Copyright Web Techniques. All rights reserved.

Previous Page | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 Next Page
TOP 5 ARTICLES
No Top Articles.
DR. DOBB'S CAREER CENTER
Ready to take that job and shove it? open | close
Search jobs on Dr. Dobb's TechCareers
Function:

Keyword(s):

State:  
  • Post Your Resume
  • Employers Area
  • News & Features
  • Blogs & Forums
  • Career Resources

    Browse By:
    Location | Employer | City
    • Most Recent Posts:
    MEDIA CENTER more
    NetSeminar
    Modernize your Development by Moving Build and Code Quality Upstream
    Moderated by Jon Erickson, Editor-in-Chief of Dr. Dobb's, this interactive panel discussion brings industry experts Anders Wallgren, CTO of Electric Cloud and Gwyn Fisher, CTO of Klocwork together for a candid discussion of the cost savings, productivity and quality benefits that can be achieved by stabilizing builds and code quality as early in the development cycle as possible.

    The reality of today's development environment - geographically distributed teams, the use of Agile development practices, increasing application complexity, etc. - is straining the viability of the traditional coding, build and release process. To stay ahead of the curve, development teams are modernizing their approach to dealing with these issues, and as a result are achieving new levels of development productivity. Register for the webcast.
    Date: Wednesday, July 15, 2009
    Time: 11 am PT/2 pm ET
    Modernize your Development by Moving Build and Code Quality Upstream
    Moderated by Jon Erickson, Editor-in-Chief of Dr. Dobb's, this interactive panel discussion brings industry experts Anders Wallgren, CTO of Electric Cloud and Gwyn Fisher, CTO of Klocwork together for a candid discussion of the cost savings, productivity and quality benefits that can be achieved by stabilizing builds and code quality as early in the development cycle as possible.

    The reality of today's development environment - geographically distributed teams, the use of Agile development practices, increasing application complexity, etc. - is straining the viability of the traditional coding, build and release process. To stay ahead of the curve, development teams are modernizing their approach to dealing with these issues, and as a result are achieving new levels of development productivity. Register for the webcast.
    Date: Wednesday, July 15, 2009
    Time: 11 am PT/2 pm ET
                                   
    INFO-LINK

    Resource Links:



    | All Feeds
    © 2009 TechWeb, Privacy Policy, Terms of Service, United Business Media LLC
    Comments about the web site: webmaster@ddj.com