#!/usr/bin/perl -w
# Program: ~/bin/newxhtmlpage
# Syntax: newxhtmlpage [> yourpagename.html]
# Modules:
use strict;
page_specs ();
page_head ();
page_body ();
sub page_specs {
# The document's specifications
# Variables:
my $xml_version; # xml version
my $encoding; # encoding to use
$encoding="iso-8859-1";
$xml_version="1.0";
print <
XHTMLSPECS
}
sub page_head {
# The head area of the web page
# Variables:
my $pagetitle; # page's title
my $author; # author's name
my $copyright_holder; # the copyright holder
my $chartset; # character set
# Does $chartset have to be the same as
# $encoding in page_specs?
my $default_keywords;
my $default_description;
# Variable defaults:
$pagetitle="PUT-YOUR-TITLE-HERE";
$author="mynamehere";
$copyright_holder=$author;
$chartset="iso-8859-1";
$default_keywords="";
$default_description="";
print <
$pagetitle
XHTMLHEAD
}
sub page_body {
# The body area and closing tag
print <