TweetFollow Us on Twitter

REALbasic CGIs

Volume Number: 16 (2000)
Issue Number: 4
Column Tag: Programming

REALbasic CGI’s

by Diana Cassady
Contributiong Editor, Erick Tejkowski

About REALbasic

REALbasic is an object-oriented implementation of the BASIC programming language for Mac OS, and is available from REAL Software at <http://www.realsoftware.com>. It's a language that can be mastered, even by a novice, in days. Its drag and drop builder allows programmers to create stand alone applications with windows, menu bars, text areas, radio buttons, checkboxes, and all the usual user interface features found in commercial programs that have taken months to write. REALbasic programs can send and receive Apple events to communicate with other scriptable programs, including webservers. REALbasic can be used to create a customized, stand alone CGI with an interface for webmasters to store program preferences. Real time logging results can also be displayed in a REALbasic interface.

In this article, I present a framework for writing CGI's for Mac OS Web servers using the REALbasic environment. It is assumed the reader is already familiar with the basics of authoring CGI's.

CGI Basics

A CGI for Mac OS needs to accomplish three main tasks:

  1. Accept the Apple event from the web server.
  2. Process the data contained in the Apple event.
  3. Return an Apple event to the web server containing the requested data.

Accepting the Apple Event

REALbasic contains a built-in event handler to accept Apple events within a class. The application contains an event called HandleAppleEvent. This handler will contain the code to interpret incoming Apple events.

Start a new REALbasic program by opening your REALbasic application. Create a new class by choosing New Class from the File menu. Access the properties of this new class by highlighting it in the project window and choosing Show Properties under the Window menu. Choose Application beside Super in the new class properties. This application class will be the location of the Apple event handler. The new class' default name is Class1.

Double-click Class1 in the project window. The first item on the left of the Class1 window is Events. Double-click on Events. A list of events will appear. The last event in the list is HandleAppleEvent. Double-click on HandleAppleEvent to open the code window.

Three variables are provided within this handler: event as AppleEvent, eventClass as String, and eventID as String. The eventClass and eventID are used to identify the Apple event. The Apple event coming from the web server will have an eventClass of WWWOmega. The Omega sign is made with command z on the keyboard. The eventID will be sdoc. The variable event contains the data. The data coming from the web server is broken up into parameters. A list of these parameters can be found at <http://www.biap.com/DataPig/mrwheat/cgiParams.html> courtesy of Biap Systems, Inc. These parameters are for the WebStar webserver, but are common to most Macintosh webservers. A four character keyword identifies each parameter within the Apple event. Form data passed using the post method in a form action is identified by the keyword post. The event variable contains all the parameters, including the post parameter. To isolate the post parameter within the event variable, use event.Stringparam("post"). This function provides the form data as one long strong.

The code in the Apple event handler should verify that the incoming Apple event is the proper type. A string variable also needs to be initialized to contain the isolated form data.

Dim post_args as string

if eventClass="WWWOmega" and eventID="sdoc" then
	post_args=event.Stringparam("post")
end if

Sending a Reply

The program can now accept the Apple event and isolate the data it contains. If the program wanted to collect raw form data and return a simple thank you to the user, no further code is necessary except for a reply. The reply statement sends a string back to the server which is then returned to the browser. The return string should contain a header and HTML to be returned to the user. You may want to build the return_string in pieces to make your code easier to read. The carriage Return Line Feed variable stands for control return line feed.

crlf=chr(13)+chr(10)
return_string="HTTP/1.0 200 OK" + crlf + "Server: WebSTAR/2.0 ID/ACGI" 
 	+ crlf + "MIME-Version: 1.0" + crlf + "Content-type: text/html" + crlf + crlf
return_string=return_string+"<html><body><h2>Thanks for submitting your info.
	</h2></body></html>"
event.ReplyString=return_string

This much code will function as a CGI. It won't do anything with the form data, but it will accept and respond to the Apple event and the web server will return the response to the browser.

The CGI will be much more useful if it can work with the information sent from the web server. Some of this information can be dealt with as is. For example, you could get the username of a user who has logged into a password protected realm by using the keyword user instead of post. You could also get the name of the web browser they're using with the keyword Agnt.

Dim the_user as string
Dim the_agnt as string

if eventClass="WWWOmega" and eventID="sdoc" then
	the_user=event.Stringparam("user")
	the_agnt=event.Stringparam("Agnt")
	event.ReplyString="Hi " + the_user + ". I see you're using " + the_agnt + "."
end if

If-then statements can be incorporated to send back different replies depending on the data contained in the various Apple event parameters, or other data from the system brought in by REALbasic functions such as date and time of day.

Data Processing

Form parameters require more processing before the contents of the form can be interpreted. Form parameters are sent as a string with field names and values delimited with equal signs and ampersands. Spaces are represented by either "+" or encoded as "%20" (the hexidecimal value for a space character) depending on the browser. A typical form containing field names first name, last name, address and phone might look like this:

first+name=Joe&last+name=Cool&address=123+Summer+Brook+
Lane&phone=555-1212

Field and value pairs are divided by ampersands and the field names are separated from the value pairs by equal signs. Separating the field and value pairs and isolating the values is the first step in decoding form data.

Several variables need to be defined for this process:

Dim post_args, one_field, field_value, field_label as string
Dim num_fields, x_field as integer
Count the number of fields on the form.
num_fields=CountFields(post_args, "&")
Use a For Next loop to process every field.
For x_field=1 to num_fields
	one_field=NthField(post_args, "&", x_field)
	field_label=NthField(one_field, "=", 1)
	field_value=NthField(one_field, "=", 2)
Next

The first line in the loop isolates a field name and value pair. The second line isolates the field name of that pair. The third line isolates the value.

If the form data consisted of one word field names and one word options with no special characters then no further processing would be needed, but most likely, the data contains spaces and other encoded special characters.

Plus signs need to be replaced with spaces within each isolated field and field label:

the_field=ReplaceAll(the_field, "+", " ")

A percent sign within the field means that it still contains encoded characters. Use the REALbasic inStr() function to get the position of the first percent sign in the string. If zero is returned, the string does not contain a percent sign. There is nothing more to decode within the isolated field.

loc_hex=inStr(a_deplus, "%")

If a value greater than zero is returned, a percent sign exists. Use the REALbasic Mid() function to isolate the character pair after the percent sign.

a_hex=Mid(a_deplus, loc_hex+1, 2)

The two characters following the percent sign are the hexadecimal version of the original character. They need to be converted to their ascii equivalent before the chr() function can be used to restore them to their original identity.

To convert the characters to their ascii equivalent, convert each to a number, multiple the first number by sixteen, and add the result to the second number.

Each character will be zero through nine or A through F as a string. Zero through nine can be taken at Its face value. A through F corresponds to the values ten through fifteen. Use the left() and right() functions to isolate each character of the pair.

char1=left(a_hex, 1)
char2=right(a_hex, 1)

Use a case statement to map the appropriate numbers to the characters.

Select Case char1
Case "0"
	num1=0
Case "1"
	num1=1
End Select

Include case statements for numbers zero through nine mapping to zero through nine and letters A through F mapping to ten through fifteen. The resulting num1 will be the ascii equivalent of the first character. Repeat the process for the second character.

Select Case char2
Case "0"
	num2=0
Case "1"
	num2=1
End Select

Multiply num2 by sixteen and add that to num1 to get the ascii equivalent of the encoded character.

ascii_equiv=(num1*16)+num2

Convert the ascii equivalent back to the original character using the REALbasic chr() function.

de_hex=chr(ascii_equiv)

Plug the decoded character back in to the field in place of the percent sign and character pair.

the_field=ReplaceAll(the_field, "%"+a_hex, de_hex)

So far, only the first instance of an encoded character in the field has been addressed. The ReplaceAll() function has eliminated all occurances of that encoding within the field, but there may still be other encoded characters that need to be sent through this process. Every encoded character will start with a percent sign. A while loop should be used to send the field through the process until inStr(a_deplus, "%") is no longer greater than zero.

Making the Code Efficient

Repetitive code may be eliminated with subroutines. Subroutines are stored as methods in REALbasic programs. The case select code that converts a character to zero through fifteen would be a good piece of code to include as a subroutine. One set of case statements could accept a character and return a numeric value.

Define a new method in the class by choosing New Method under the Edit menu. A window appears with fields for name, parameters, and return type. Name the new method with a simple one word description like Dehex. This method accepts one character to convert to a numeric value. The character being accepted is the parameter for the method. Define that parameter in the blank provided. Include the data type.

char as string

The method returns a numeric value. Integer can be chosen to describe this value as the return type by using the pop down menu to the right of the return type field.

Enter the select case statement in the method. Send char1 and char2 through the subroutine to get num1 and num2 without wasteful code repetition.

num1=Dehex(char1)
num2=Dehex(char2)

Expanding REALbasic CGI's

This method of decoding can be applied to field names and values in post args and search args. Once field names are decoded, they may be referred to in if-then statements to format and arrange their corresponding decoded field values. Decoded data may be set to variables and sent to a text file or a scriptable application for further processing and storage. Results containing decoded data may be returned to the user to assure them that their information has been received.

Code Shortcut

The complex code for decoding search and post arguments need not be written from scratch. A code shell is available for download on the site index page of the VivaLaData web site at <http://www.vivaladata.com>.

Conclusion

If you happen to run across a web automation task for which you have no cgi, or if you're already running an applescript application as a cgi, you should consider using REALbasic to accomplish your goal. Several users have reported that REALbasic cgi's performed faster than their existing applescript cgi's.

REALbasic cgi's can be used to interface with scriptable programs for which no commercial cgi's have been developed. REALbasic is also a quick way for shareware authors to provide a cgi for their scriptable applications. In addition to working with other applications, REALbasic provides lots of built in functions for sending and receiving mail as well as other network protocols and data processing functions.

If you want to add a new function to your Macintosh web site, but feel a $500+ commercial solution is overkill, REALbasic's flexible, rapid development environment and reasonable price tag may be just the solution for you.


Diana Cassady is a freelance consultant in Danbury, Connecticut. Her web site is http://www.vivaladata.com. She can be reach at diana@vivaladata.com.

 

Community Search:
MacTech Search:

Software Updates via MacUpdate

OmniGraffle Pro 7.19.3 - Create diagrams...
OmniGraffle Pro helps you draw beautiful diagrams, family trees, flow charts, org charts, layouts, and (mathematically speaking) any other directed or non-directed graphs. We've had people use... Read more
OmniGraffle 7.19.3 - Create diagrams, fl...
OmniGraffle helps you draw beautiful diagrams, family trees, flow charts, org charts, layouts, and (mathematically speaking) any other directed or non-directed graphs. We've had people use Graffle to... Read more
Hopper Disassembler 5.3.3- - Binary disa...
Hopper Disassembler is a binary disassembler, decompiler, and debugger for 32- and 64-bit executables. It will let you disassemble any binary you want, and provide you all the information about its... Read more
calibre 5.35.0 - Complete e-book library...
Calibre is a complete e-book library manager. Organize your collection, convert your books to multiple formats, and sync with all of your devices. Let Calibre be your multi-tasking digital librarian... Read more
Sound Studio 4.10.0 - Robust audio recor...
Sound Studio lets you easily record and professionally edit audio on your Mac. Easily rip vinyls and digitize cassette tapes, or record lectures and voice memos. Prepare for live shows with live... Read more
Sparkle Pro 4.0 - Visual website creator...
Sparkle Pro will change your mind if you thought building websites wasn't for you. Sparkle is the intuitive site builder that lets you create sites for your online portfolio, team or band pages, or... Read more
Dropbox 140.4.1951 - Cloud backup and sy...
Dropbox for Mac is a file hosting service that provides cloud storage, file synchronization, personal cloud, and client software. It is a modern workspace that allows you to get to all of your files... Read more
FotoMagico 6.0.5 - Powerful slideshow cr...
FotoMagico lets you create professional slideshows from your photos and music with just a few, simple mouse clicks. It sports a very clean and intuitive yet powerful user interface. High image... Read more
Remotix 6.4.2 - Access all your computer...
Remotix is a fast and powerful application to easily access multiple Macs (and PCs) from your own Mac. Features: Complete Apple Screen Sharing support - including Mac OS X login, clipboard... Read more
Microsoft Office 365, 2019 16.57 - Popul...
Microsoft Office 365. The essentials to get it all done. Unmistakably Office, designed for Mac Get started quickly with new, modern versions of Word, Excel, PowerPoint, Outlook and OneNote-... Read more

Latest Forum Discussions

See All

A House Full of Covid – The TouchArcade...
It’s been a rough week as both of our young children tested positive for Covid, and since recording this early on Friday my wife has tested positive now too. Thankfully the kids seemed to recover fairly quickly and are mostly back to normal, and I... | Read more »
TouchArcade Game of the Week: ‘Krispee S...
Krispee Street is a new hidden object game from Frosty Pop that is based on their popular and almost painfully sweet webcomic Krispee. This is one of the latest titles to be added to the Netflix Games catalog, which means you’ll need to log into... | Read more »
SwitchArcade Round-Up: ‘Escape Lala’, ‘B...
Hello gentle readers, and welcome to the SwitchArcade Round-Up for January 21st, 2022. In today’s article, we’ve got a lot of new releases. A lot. There were eight on the schedule when I went to bed last night. There were twenty-four when I woke up... | Read more »
Beta Testers Needed for Huge Version 2.0...
Ya’ll remember Dungeon Raid, right? The phenomenal matching RPG hybrid that launched on mobile more than a decade ago, but was more or less abandoned by its developer only to die a slow death on the App Store before the 32-bit Appocalypse finally... | Read more »
‘Ark Legends’ Gives Players a Chance to...
It’s Airpods and Amazon gift cards galore as Melting Games opens pre-registration for Ark Legends. The upcoming mobile RPG is giving away tons of in-game goodies such as gold, energy, iron core, hero summon chest and rare iron core to players who... | Read more »
‘Nickelodeon Extreme Tennis’ Out Now on...
Nickelodeon Extreme Tennis () from Old Skull Games and Nickelodeon is this week’s new Apple Arcade release. Nickelodeon Extreme Tennis features characters from old and new Nickelodeon shows including SpongeBob, TMNT, and many more. The tennis game... | Read more »
SwitchArcade Round-Up: ‘RPGolf Legends’,...
Hello gentle readers, and welcome to the SwitchArcade Round-Up for January 20th, 2022. In today’s article, we’ve got a massive amount of new releases to check out. We’ve got summaries of all of them, from heaven to hell. We also have the lists of... | Read more »
‘Zed Blade ACA NEOGEO’ Review – Well, It...
SNK’s NEOGEO platform played host to a great many classics, both famous and under-the-radar. The Metal Slug games. The King of Fighters series. Magician Lord. Shock Troopers. Sengoku 3. NEO Turf Masters. Fatal Fury. Samurai Shodown. Twinkle Star... | Read more »
‘Inua – A Story in Ice and Time’ is a Un...
One thing I know about ARTE from their output on mobile over the years is that they love collaborating with really interesting and unique studios to put out really interesting and unique gaming experiences. This is true yet again with the latest... | Read more »
Out Now: ‘Angry Birds Journey’, ‘RPG Dic...
Each and every day new mobile games are hitting the App Store, and so each week we put together a big old list of all the best new releases of the past seven days. Back in the day the App Store would showcase the same games for a week, and then... | Read more »

Price Scanner via MacPrices.net

Amazon lowers prices on select 13″ M1 MacBook...
Amazon has select Apple 13″ M1 MacBook Airs on sale for $150 off MSRP this weekend, starting at only $849. Their prices are the lowest available for new MacBook Airs today. Stock may come and go, so... Read more
Apple has 13″ M1 MacBook Airs back in stock s...
Apple has restocked a full line of 13″ M1 MacBook Airs, Certified Refurbished, starting at only $849 and up to $190 off original MSRP. These are the cheapest M1-powered MacBooks for sale today at... Read more
In stock and on sale! 16″ 10-Core M1 Pro MacB...
Amazon has new 16″ 10-Core/512GB M1 Pro MacBook Pros in stock today and on sale for $50 off MSRP including free shipping. Their prices are the lowest available for new M1 Pro 16″ MacBook Pro from any... Read more
Deal Alert!: 14″ M1 Pro with 10-Core CPU in s...
Amazon has the new 14″ M1 Pro MacBook Pro with a 10-Core CPU and 16-Core GPU in stock today and on sale for $2299.99 including free shipping. Their price is $200 off Apple’s standard MSRP, and it’s... Read more
Apple has 24-inch M1 iMacs (8-Core CPU/8-Core...
Apple has restocked a wide array of 24-inch M1 iMacs with 8-Core CPUs and 8-Core GPUs in their Certified Refurbished store. Models are available starting at only $1269 and range up to $260 off... Read more
Select 24″ M1 iMacs are on sale for $100 off...
Sales of Apple’s new 24″ M1 iMacs have been rare since its introduction, perhaps due to global supply issues. However, B&H is offering a $100 discount on select 24″ iMacs, and they’re in stock... Read more
M1 Mac minis are back in stock today at Apple...
Apple has M1-powered Mac minis available in their Certified Refurbished section starting at only $589 and up to $140 off MSRP. Each mini comes with Apple’s one-year warranty, and shipping is free: –... Read more
B&H has M1-powered Mac minis on sale for...
B&H Photo has Apple’s Mac minis with M1 Apple Silicon CPUs in stock today and on sale for $50-$100 off MSRP, starting at $649. Free 1-2 shipping is free to many US addresses. Their prices are... Read more
New Amazon sale: Apple’s 13″ M1 MacBook Airs...
Amazon has Apple 13″ M1 MacBook Airs on sale for $100 off MSRP, starting at only $899. Their prices are the lowest available for new MacBook Airs today. Stock may come and go, so check their site... Read more
Get an Apple Watch Series 7 for $50 off MSRP,...
Amazon has Apple Watch Series 7 models on sale for $50 off MSRP including free shipping. Their prices are the lowest available for Apple Watch Series 7 models today: – 41mm Apple Watch Series 7 GPS... Read more

Jobs Board

Registered Nurse (RN) Employee Health PSJH -...
…is calling for a Registered Nurse (RN) Employee Health PSJH to our location in Apple Valley, CA.** We are seeking a Registered Nurse (RN) Employee Health PSJH to be Read more
Systems Administrator - Pearson (United State...
…and troubleshoot Windows operating systems (workstation and server), laptop computers, Apple iPads, Chromebooks and printers** + **Administer and troubleshoot all Read more
IT Assistant Level 1- IT Desktop Support Anal...
…providing tier-1 or better IT help desk support in a large Windows and Apple environment * Experience using IT Service Desk Management Software * Knowledge of IT Read more
Human Resources Business Partner PSJH - Provi...
…**is calling a** **Human Resources Business Partner, PSJH** **to our location in Apple Valley, CA.** **Applicants that meet qualifications will receive a text with Read more
Manager Community Health Investment Programs...
…is calling a Manager Community Health Investment Programs PSJH to our location in Apple Valley, CA.** **Qualified candidates will be invited to do a self-paced video Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.