#!/usr/local/bin/perl

# name:    homes-pl.cgi
# purpose: Perl Example CGI script using Chunks of HTML technique.
# $Id: homes-pl.pl,v 1.2 1996/12/06 17:21:29 gjc Exp $

require "chtml.pl";

$table{"sitename"} = "NoWhere";
$table{"usercount"} = 3;
$table{"username"} = "gjc" . $chtml_rub .
                     "polansky" . $chtml_rub .
                     "darren";
$table{"fullname"} = html_encode("George <LISPER> Carrette") .
                     $chtml_rub .
                     "Robert Polansky" . $chtml_rub .
                     "Darren Dupre";
$table{".username"} = "gjc" . $chtml_rub .
                     "polansky" . $chtml_rub .
                     "darren";


$table{"querytime"} = "nothing";

print "Content-type: text/html\n\n";

&ChtmlFilterFile("homes.html",%table);