#!/usr/local/bin/perl
...............................
...............................
# Form : for user input to crate the Headline:
Top Of Page:\n";
print "
Headline:Big Page Title At The Top - required) \n";
print "
\n";
...............................
...............................
# writes te input into a flat file
...............................
...............................
#Creates Dir and Page sub dirs
mkdir ("$base_dir/$pagename", 0777) || die("Could not create user directory:");
mkdir ("$base_dir/$pagename/page1", 0777) || die("Could not create user directory:");
..............................
..............................
#Page 1 creation
open(HTML, ">$page_dir$pagename/index.htm") || die "I can't create $pagename/index.htm\n";
if ($useflock) {
flock (HTML, 2) or die "can't lock html file\n";
}
print HTML "$head\n";
................................
................................
................................