#!/usr/bin/perl
sub print_header {
my ($title) = @_;
my $ctitle = $title;
$ctitle =~ s/<([^<>])>//g;
print "
$ctitle
| \n";
}
sub print_footer {
print " |
|
Copyright © 2003-2004 Kyle Donaldson <gile at csh.rit.edu>
Copyright © 1999-2003 Greg Nichols <greg at fifthace.com>
|
|
\n";
}
my ($page) = @ARGV;
if ($page eq "") { $page = "home" }
print "Content-Type: text/html\r\n\r\n";
print_header("BeAIM: Chat for the BeOS");
open(FILE, "$page.html") or die("No such page as $page is available");
print ;
close(FILE);
print_footer();