Thanks John
I tried swapping things around a bit, and now I get server error :-(
#! c:\perl\bin\perl.exe -T
use warnings;
use strict;
$number_in = 6;
use CGI qw/:all/;
use CGI::Carp qw/fatalsToBrowser/;
use HTMLTMPL;
my $t = HTMLTMPL->new();
$string1 = abcdef;
$string2 = ghijkl;
$string3 = mnopqr;
$string4 = stuvwx;
$number_out = $number_in;
while ($number_out > 24) {$number_out -= 24;}
if (($number_out > 0) && ($number_out <= 6)) {$string = $string1;}
if (($number_out > 6) && ($number_out <= 12)) {$number_out -= 6;$string
= $string2;}
if (($number_out > 12) && ($number_out <= 18)) {$number_out -=
12;$string = $string3;}
if (($number_out > 18) && ($number_out <= 24)) {$number_out -=
18;$string = $string4;}
$ZZZZ = substr $string, $number_out-1, 1;
$t->src( "c:/apache2/htdocs/testing/testing123/$ZZZZ.html" );
$t->number_in( $number_in );
$t->output( CGI::header );
(I keep putting on my "input/calc/output" hat.
Brian
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
