The sdk_installdir/examples directory includes sample CGI utilities and applications implemented in both C and Perl.
The Perl code below is a simple CGI script that generates the WML deck described in the previous section. A line-by-line description follows the code.
1 #!/usr/local/bin/perl5.001#Output the deck&AppUtils::OutputDeck($DECK);This line identifies the Perl version to use. Change this line as needed for your server. You must use Perl 5.001 or higher to call the UP.SDK Perl utilities.
These lines include the DeckUtils.pl utility file provided in the UP.SDK. This file defines the OutputDeck() function, which the application uses to output WML. Note that the push statement assumes that the UP.SDK Perl utilities are in the apputils directory within the current directory's parent directory. Be sure to modify this for your own directory structure.
These lines define the WML deck--the same deck used in Testing a Static WML Deck.
This line uses the OutputDeck() function to send the deck as an HTTP response. This function outputs the WML and adds XML and HTTP headers. It has the same result as the following lines of Perl code:
printf('Content-type: text/vnd.wap.wml');
printf("\n");
printf("\n");
printf('<?xml version="1.0"?>');
printf("\n");
printf('<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD wml 1.0//EN"');
printf('"http://www.wapforum.org/DTD/wml_1.1.xml">');
printf("\n");
printf($DECK);
The OutputDeck() function assumes that your Web server follows NCSC conventions and automatically adds the HTTP/1.0 status line to the HTTP response header. If your Web server does not follow this convention, uncomment line 6 by removing the hashmark (#). This sets a flag that instructs OutputDeck() to include the status line.
For a complete description of OutputDeck() and other sample Perl utilities, see the UP.SDK Tools and APIs Reference.
To test the CGI program with the UP.Simulator, follow these steps.
Save the CGI program with the appropriate filename extension.
It is recommended that you use a .cgi extension. Make sure that your Web server maps the .cgi extension to a Perl 5 interpreter. Also make sure you have set the program's file permissions so that it is executable.
Put the program in your Web server's document tree.
To make the program accessible to the UP.Simulator, you must put it in a directory served by your Web server.
Start the UP.Simulator (see Starting the UP.Simulator).
Type the URL of your CGI script in the Go field and press Enter (on your computer keyboard).
The UP.Simulator displays the card shown in Figure 3-4. The only difference is the URL in the Go field.