tina.cgi is a little Perl script that will pick a random line from a data file and insert it in your HTML document using SSI. The latest version of this script can always be found at
Use a simple text editor, such as notepad, to create and configure these files. If you have trouble getting
tina to run, or are new to CGI and Perl, see my Webhelp: Perl (online).
You can download it in either of the following formats. Unzip them as you would any other compressed file, refer to your unzipping software or operating system for instructions.
tina.zip (3.86 KB)
tina.tar.gz (3.43 KB)
You will need to enable SSI for this script to work. If you don't know if you can use SSI, or are not sure how, take a look at Art Sackett's Grey Paper: SSI For The Rest of Us for a quick intro on how to get SSI enabled.
The data files are plain text files. Each line is a new entry and must be separated by a single carriage return (
ENTER key). The text is simply inserted into the HTML document so it may contain HTML.
The data files must be in the
/cgi-bin/ or a readable subdirectory of it. A sample data file (default.dat) is included.
If you have some experience with Perl, then the comments in the
tina source should be adequate. However, I have tried to explain everything as clearly as possible in this document. The only thing that must be configured is the first line of the file.
Change the first line in
tina.cgi to point at perl on your server. The default may work. Type
which perl from a Telnet prompt to find the location.
$default = 'default.dat';
This is the file that
tina will use if you do not specify a different one in the query string of the SSI. You can use the included file, create your own, or just not bother with it if you intend to always specify a data file. I recommend leaving it named
default.dat to avoid confusion.
$warning = 'red';
This is the color that any debugging warnings will be printed in. The default is 'red' and should work fine, no one sees it but you. You can use any format for the color that is valid in HTML.
$debug = 0;
This will print some errors to the screen to help you get the script working. One is on and zero is off. The default is off.
You should have
tina configured and have one or more data files, now you need to upload them. For this you need an FTP client, any OS worth the silicon its stored on should have a command line FTP. Alternatively you may want to download ws_ftp a popular graphical FTP program.
chmod 755 tina.cgi(or whatever you need to do to get it executable).
/cgi-bin/or a subdirectory of it. You should not need to change permissions on these files. But
chmod 644 [filename].datwill do it.
tinafrom. Use the following format, or equivalent:
<!--#include virtual="/cgi-bin/tina.cgi?file.dat" -->Where 'file.dat' is the name of the data file you wish to use.
tinafrom is being parsed for SSI.
Maybe you screwed up. Alright, I haven't run this on a wide variety of systems and am a novice perl programmer. So if you encounter a problem let me know at <email@example.com>.