#!/usr/bin/perl
# 
# ezhomepg - EZ Home Page Generator - by Manny Juan <manny@jps.net> 
# http://inet-images.com/manny/userpages/
# ver 1.20 - 10/8/98 added simple table creation
# ver 1.10 - 10/7/98 added deletion capability and handled un-selected graphics
# ver 1.00 - 9/25/98 changed to use same code for create/edit logic, eliminate makepage.html 
#                    also added code to remember user's clip art choices 
#
# original program was
# HomePageMaker v.1.6 written by Dave Palmer <dave@upstatepress.com>
# http://www.upstatepress.com/dave/perl.shtml
# Modified by Greg Mathews <webmaster@notts.net>.
#
#####################################################################################

# These variables need to be set

# Set this to the HTML directory where the new pages will reside. This is a PATH not a URL
$base_dir = "/usr/local/psa/home/vhosts/cybermacro.com/httpdocs/pages/userpages";

# This is your URL of where the cgi programs are kept
$cgiurl = "http://www.cybermacro.com/cgi-local";

# This is your URL of where the new HTML pages will be kept. keep the trailing slash
$baseurl = "http://www.cybermacro.com/pages/userpages/";

# This is a URL and dir for the images sub directory in the userpages directory.
# Create the images directory in the userpages directory. This is where
# you will upload your background images
$imageurl = "$baseurl" . "images";
$imagedir = "$base_dir/images";

#directory for the pictures
$tnp_dir_url = "$imageurl/pictures";
$tnp_dir = "$imagedir/pictures";
#directory for the lines graphics
$tn_dir_url = "$imageurl/lines";
$tn_dir = "$imagedir/lines";
#directory for the background graphics
$tnbg_dir_url = "$imageurl/backgrounds";
$tnbg_dir = "$imagedir/backgrounds";
#directory for the emailgif graphics
$tne_dir_url = "$imageurl/email";
$tne_dir = "$imagedir/email";
#directory for the bullets graphics
$tnb_dir_url = "$imageurl/bullets";
$tnb_dir = "$imagedir/bullets";

# This is the path for user pages. You don't really need to change this
# Just make sure to create a directory: userpages and chmod it 777
$page_dir = "$base_dir/";

# This is the index of all pages created by HPM
# This file should be chmod to 777 and placed in the userpages directory
$indexpage = "$base_dir/index.html";

# This is the location of the data.txt file. This holds each user's
# login name and e-mail address for confirmation
$data = "$base_dir/data.txt";

#Site title

$title="Cybermacro Web Page Creator";

# self explanatory variables for your site logo
$logo = "$imageurl/page.jpg";
$logoalt = "Cybermacro Logo";

# Location of the sendmail program
$sendmail = '/usr/sbin/sendmail';

# Your e-mail address here
$myemail = 'webpages@cybermacro.com';

# That's it.

# DO NOT CHANGE ANYTHING BELOW THIS LINE
######################################################################################
$SIG{__DIE__} = \&Error_Msg;

sub Error_Msg {
    $msg = "@_";
    print "\nContent-type: text/html\n\n";
    print "The following error occurred : $msg\n";
    exit;
}

# Get the input
read(STDIN, $input, $ENV{'CONTENT_LENGTH'});

    # split the input
    @pairs = split(/&/, $input);

    # split the name/value pairs
    foreach $pair (@pairs) {

    ($name, $value) = split(/=/, $pair);

    $name =~ tr/+/ /;
    $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    $value =~ tr/+/ /;
    $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    $value =~ s/<([^>]|\n)*>//g;

  $FORM{$name} = $value;
    }

# Lets do some translating first
$usrname = $FORM{'usrname'};
$email = $FORM{'email'};
$background = $FORM{'background'};
$emailgif = $FORM{'emailgif'};
$linkc = $FORM{'linkc'};
$vlinkc = $FORM{'vlinkc'};
$textc = $FORM{'textc'};
$headline = $FORM{'headline'};
$subhead = $FORM{'subhead'};
$headpos = $FORM{'headpos'};
$topimage = $FORM{'topimage'};
$line2 = $FORM{'line'};
$imageyn = "yes";
$imagepos = $FORM{'imagepos'};
$imdesc = $FORM{'imdesc'};
$usrlink1 = $FORM{'usrlink1'};
$usrlink2 = $FORM{'usrlink2'};
$usrlink3 = $FORM{'usrlink3'};
$linkname1 = $FORM{'linkname1'};
$linkname2 = $FORM{'linkname2'};
$linkname3 = $FORM{'linkname3'};
$content = $FORM{'content'};
$images = $FORM{'images'};
$pagename = $FORM{'pagename'};
$login = $FORM{'login'};
$bullet = $FORM{'bullet'};
$tbltext = $FORM{'tbltext'};
$updact = $FORM{'updact'};

# Add the line breaks for paragraph spacing
#$content =~ s/&&/<br><br>/g;
$content =~ s/&&/%%/g;

# This fixes the bug of white space and
# other wierd spacing:
$content =~ s/\cM//g;
$content =~ s/\n/  /g;
$tbltext =~ s/\cM//g;
$tbltext =~ s/\n/  /g;

# If the user tries to add more than one word in
# the page name field, this will put an underscore
# in the spaces to make it one word
$pagename =~ s/ /_/g;

# Find out what the user wants to do
if ($FORM{'action'} eq "New Page") {
    &newpage;
    }
if ($FORM{'action'} eq "Create Page") {
    &create;
    }
if ($FORM{'action'} eq "Edit Page") {
    &confirm("edit");
    }
if ($FORM{'action'} eq "checkuser") {
    &checkuser;
    }
if ($FORM{'action'} eq "recreate") {
    &recreate;
    }
if ($FORM{'action'} eq "Delete Page") {
    &confirm("delete");
    }

sub newpage() {
    local($usrname, $mail, $head, $sub, $body, $bgimage, $linkcolor, $vlinkcolor, 
        $ahref1, $ahref2, $ahref3, $ahrefname1, $ahref2name, $ahref3name,
            $filename, $imurl, $hrline, $emailpic, $textcolor, $bullet, $tbltext);

($usrname, $mail, $bgimage, $head, $sub, $body, $linkcolor, $vlinkcolor, 
    $ahref1, $ahref2, $ahref3, $ahrefname1, $ahref2name, $ahref3name, 
    $filename, $imurl, $hrline, $emailpic, $textcolor, $bullet, $tbltext) = split(/&&/, "");

$ahref1="http://";    
$ahref2="http://";
$ahref3="http://";
$textcolor="#000000";
$linkcolor="#0000ff";
$vlinkcolor="#800000";
$bullet="0";
# To avoid any security risks. Take out the HTML tags added when HPM translated
# the && to: <br><br>. They will be re-translated to: && Once the user updates
# the page, the: && will be put back to: <br><br>
$body =~ s/<br><br>/&&/g;

# print the edit-page form

print "Content-type: text/html\n\n";
print "<html><head><title>Create Your Own Home Page</title></head>\n";
print "<body bgcolor=\"#ffffff\" TEXT=\"#000000\" link=\"#008000\" vlink=\"#800040\">\n";
print "<center><img src=\"$logo\" alt=\"$logoalt\" border=0></center><p>\n";
print "<table width=75% cellspacing=2 cellpadding=2 border=0>\n";
print "<tr><td width=100% align=left valign=top>\n";
print "<p><font face=\"Arial, Geneva\"><h2>Create Your Own Home Page</h2></font></p>\n";
print "<p>Below is an empty form for you to fill in. The next five fields (<b>bold</b>) are required.\n";
print "You can edit any part of your page later</p>\n";
print "<p></p>\n";
print "<form action=\"$cgiurl/ezhomepg.pl\" method=POST>\n";
print "<input type=hidden name=\"action\" value=\"Create Page\">\n";
print "<b>Your name:</b><br>\n";
print "<font size=\"-1\">(will appear in page as link to your email)</font><br>\n";
print "<input type=text size=40 name=\"usrname\" value=\"$usrname\"><br><br>\n";
print "<h3>(The next 3 fields will be used for editing)<h3>\n";
print "<b>Login Id:</b>\n";
print "<font size=\"-1\">(one word only you should know, used later for editing)</font><br>\n";
print "<input type=text size=40 name=\"login\" value=\"$login\"><br><br>\n";
print "<b>Your e-mail:</b>\n";
print "<font size=\"-1\">(used for editing, will also appear in page)</font><br>\n";
print "<input type=text size=40 name=\"email\" value=\"$mail\"><br><br>\n";
print "<b>Your page:</b>\n";
print "<font size=\"-1\">(one word, will become the name of your html file)</font><br>\n";
print "<input type=text size=40 name=\"pagename\" value=\"$filename\"><br><br>\n";
print "<b>Headline:</b>\n";
print "<font size=\"-1\">(how your page will be listed in index)</font><br>\n";
print "<input type=text size=40 name=\"headline\" value=\"$head\"><br><br>\n";
print "</td></tr></table>\n";
print "<b>Sub Head:</b><br>\n";
print "<input type=text size=40 name=\"subhead\" value=\"$sub\"><br><br>\n";
print "<b>Do you want the headings centered:</b> <input type=radio name=\"headpos\" value=\"yes\" checked>Yes\n";
print "<input type=radio name=\"headpos\" value=\"no\">No<p>\n";
&build_form_body($usrname, $mail, $head, $sub, $body, $bgimage, $linkcolor, $vlinkcolor, 
        $ahref1, $ahref2, $ahref3, $ahrefname1, $ahref2name, $ahref3name,
            $filename, $imurl, $hrline, $emailpic, $textcolor, $bullet, $tbltext);
print "<P><input type=submit value=\"create page\">\n";
print "</form>\n";
print "</body></html>\n";
    }

sub create {

# Now, lets do some error checking. Making sure they filled out each field
# This is pretty low tech now. I'll improve it later
&missing(missing_name) unless $usrname;
&missing(missing_email) unless $email;
&missing(missing_pagename) unless $pagename;

# if they try to name their page "index" This will stop them
if ($pagename eq "index") {
    print "Content-type: text/html\n\n";
    print "<html><head><title>Error</title></head>\n";
    print "<body><center><img src=\"$logo\" alt=\"$logoalt\" border=0></center><p>\n";
    print "<p>You cannot name your page <b>index</b>\n";
    print "Please go back and re-name your page</p>\n";
    print "<p>(Return to <a href=\"$baseurl\">User Pages</a>)\n";
    exit;
        }
# if they Don't give their page a heading This will stop them
if ($headline eq "") {
    print "Content-type: text/html\n\n";
    print "<html><head><title>Error</title></head>\n";
    print "<body><p>You MUST give your page a <b>Headline</b>\n";
    print "Please go back and enter one for your page</p>\n";
    exit;
        }

# if the user tries to name their page 
# something that is already taken
# this will HOPEFULLY stop them :)
# This block was written by Norm
if (-e "$page_dir$pagename\.html") {
        print "Content-type: text/html\n\n";
        print "<html><head><title>Error</title></head>\n";
        print "<body><p>The page name: <b>$pagename</b>\n";
        print "is already taken.\n";
        print "Please go back and rename your page</p>\n";
        print "<p>(Return to <a href=\"$baseurl\">User Pages</a>)\n";
        exit;
                }

#now, lets create our new html page
  &buildpage;

# Write the login name and email address to a separate file for confirmation
# when they want to edit their page
open (FILE, ">>$data") || die "I can't open $data\n";
flock (FILE, 2) or die "can't lock data file\n";
print FILE "$login&&$email&&$pagename\n";
close(FILE);


# Suck the index page, and write the new entry to it
open(FILE, "$indexpage") || die "I can't open that file\n";
flock (FILE, 1) or die "can't lock index file\n";
    @lines = <FILE>;
    close(FILE);
    $sizelines = @lines;

# Now, re-open the links file, and add the new link
open(FILE, ">$indexpage") || die "I can't open that file\n";
flock (FILE, 2) or die "can't lock index file\n";
    
        for ($a = 0; $a <= $sizelines; $a++) {
    
        $_ = $lines[$a];

    if (/<!--begin-->/) {
    
    print FILE "<!--begin-->\n";
    print FILE "<p><font face=\"Arial, Geneva\" size=4><a href=\"$baseurl$pagename.html\">$headline</a></p>\n";

        } else {
            print FILE $_;
        }
    }
close(FILE);


# Give the user a response
print "Content-type: text/html\n\n";
print "<html><head><title>thanks</title></head>\n";
print "<body bgcolor=\"#ffffff\" TEXT=\"#000000\" link=\"#008000\" vlink=\"#800040\">\n";
print "<center><img src=\"$logo\" alt=\"$logoalt\" border=0></center><p>\n";
print "<BR><BR><FONT SIZE=4 FACE=\"COMIC SANS MS,ARIAL\">\n";

print "Your page has been created, and you will receive an e-mail confirming this!\n";
print "Your URL is: <a href=\"$baseurl$pagename\.html\">\n";
print "$baseurl$pagename\.html</a> - remember to press Reload\n";
print "Thanks for your participation!\n";
print "<p>(Return to <a href=\"$baseurl\">User Pages</a>)\n";
print "</body></html>\n";
    

# Send the user an e-mail confirming their page
open (MAIL, "| $sendmail -t") || die "I can't open sendmail\n";
  print MAIL "To: $usrname <$email>\n";
  print MAIL "From: $myemail\n";
  print MAIL "Subject: Your URL on the $title\n";
  print MAIL "Your page can be viewed at the URL below:\n";
  print MAIL "\n";
  print MAIL "$baseurl$pagename\.html\n";
  print MAIL "\nThank you for using the $title\n";
  print MAIL "\n\nThe Mall Manager - $myemail\n";
  close (MAIL);

# Notify us when someone creates a page
open (MAIL, "| $sendmail -t") || die "I can't open sendmail\n";
  print MAIL "To: $myemail\n";
  print MAIL "From: $usrname <$email>\n";
  print MAIL "Subject: New Mall Page Report\n";
  print MAIL "$usrname created a new page:\n";
  print MAIL "$baseurl$pagename\.html\n";
  print MAIL "\nThe content is :\n$content\n";
close(MAIL);

        }

sub recreate {
#now, lets create our new html page
  &buildpage;

# Send the user a notice that their page has been re-done
  open (MAIL, "| $sendmail -t") || die "I can't open sendmail\n";
  print MAIL "To: $usrname <$email>\n";
  print MAIL "From: $myemail\n";
  print MAIL "Subject: Your Changes on the $title\n";
  print MAIL "Your revised page can be viewed at the URL below:\n";
  print MAIL "\n";
  print MAIL "$baseurl$pagename\.html\n";
  print MAIL "\nOnce again thank you for using the $title\n";
  print MAIL "\n\nThe Mall Manager\n";
  close (MAIL);

# Give the user a response
print "Content-type: text/html\n\n";
print "<html><head><title>thanks</title></head>\n";
print "<body bgcolor=\"#ffffff\" TEXT=\"#000000\" link=\"#008000\" vlink=\"#800040\">\n";
print "<CENTER><IMG SRC=\"$logo\" alt=\"$logoalt\" border=0></CENTER>\n";

print "<P><BR><BR><FONT SIZE=4 FACE=\"COMIC SANS MS,ARIAL\">\n";

print "Your page has been revised, and you will receive an e-mail confirming this!\n";
print "Your URL is: <a href=\"$baseurl$pagename\.html\">\n";
print "$baseurl$pagename\.html</a> - remember to press Reload\n";
print "Thanks for your participation!\n";
print "<p>(Return to <a href=\"$baseurl\">User Pages</a>)\n";
print "</body></html>\n";
        }

sub buildpage {
open(HTML, ">$page_dir$pagename\.html") || die "I can't create $pagename\.html\n";
flock (HTML, 2) or die "can't lock html file\n";
print HTML "<html><head><title>$headline</title></head>\n";
print HTML "<body background=\"$background\" text=$textc link=$linkc vlink=$vlinkc><font face=\"Arial\">\n";
print HTML "<blockquote><blockquote><blockquote>\n";
    if ($headpos eq "yes") {
    print HTML "<center>\n";
        }
print HTML "<p><font face=\"Arial, Geneva\" size=+7>$headline</font></p>\n";
    if ($headpos eq "yes") {
    print HTML "</center>\n";
        }
    if ($imageyn eq "yes") {
    if ($imagepos eq "yes") {
    print HTML "<center>\n";
        }
    if (($topimage eq "0") or ($topimage eq "")) {
        print HTML "";
        }
    else  {
        print HTML "<img src=\"$topimage\">\n";
        }
print HTML "<p><font face=\"Arial, Geneva\" size=+2><b>$subhead</b></font>\n";
    if ($imagepos eq "yes") {
    print HTML "</center>\n";
        }
    print HTML "<center>";
    if (($line2 eq "0") or ($line2 eq "")) {
        print HTML "";
        } 
    else {
       print HTML "<img src=\"$line2\"></center><P>\n";
        }
    }
@atxt = split(/%%/, $content);
if ($bullet eq "0") {
  print HTML "<center>\n";
  foreach $txtline(@atxt) {
      print HTML "<p><font face=\"Arial, Geneva\" size=3>$txtline</font>\n";
    }
  print HTML "</center>";
  }
else {
print HTML "<table border=0 cellpadding=5>\n";
foreach $txtline (@atxt) {
  print HTML "<tr><td valign=top><img src=\"$bullet\"></td>\n";
  print HTML "<td><font face=\"Arial, Geneva\" size=3>$txtline</font></td></tr>\n";
  }
print HTML "</table>\n";
}

print HTML "<center>\n";
print HTML "<p><table border=1 cellspacing=3 cellpadding=3>";
@all = split(/%%/,$tbltext);
foreach $tbline (@all) {
    print HTML "<tr>";
    @flds = split(/\:\:/, $tbline);
    foreach $fld (@flds) {
        print HTML "<td>$fld</td>";
        }
    print HTML "</tr>";
    }
print HTML "</table>";
print HTML "</center>";

if ($bullet eq "0") {
  print HTML "<center>\n";
  }
print HTML "<p><i><font face=\"Arial, Geneva\" size=4><b>Other Places to go:</i></b></font></p>\n";
print HTML "<p><font face=\"Arial, Geneva\" size=3><a href=\"$usrlink1\">$linkname1</a><br>\n";
print HTML "<a href=\"$usrlink2\">$linkname2</a><br>\n";
print HTML "<a href=\"$usrlink3\">$linkname3</a></font></p>\n";
if ($bullet eq "0") {
  print HTML "</center>\n";
  }

print HTML "<center>";
if (($line2 eq "0") or ($line2 eq "")) {
print HTML "";
    } else {
print HTML "<img src=\"$line2\"></center>\n";
    }
print HTML "<p><center>";
if ($emailgif ne "") {
    print HTML "<img src=\"$emailgif\"><br>\n";
    }
print HTML "<a href=\"mailto:$email\">$usrname</a></font></center></p>\n";
print HTML "<p><center>";
print HTML "<a href=http://www.cybermacro.com/pages/userpages/><h2>Back To Web Pages</a></h2></font>\n";
print HTML "</blockquote></blockquote></blockquote>\n";
print HTML "</center></body></html>";

close(HTML);


# Write all of the input into a flat file.
open(FILE, ">$page_dir$pagename\.dat") || die "I can't create $pagename\.dat\n";
flock (FILE, 2) or die "can't lock user data file\n";
$tbltext =~ s/\n/%%/g;
print FILE "$usrname&&$email&&$background&&$headline&&$subhead&&$content&&$linkc&&$vlinkc&&$usrlink1&&$usrlink2&&$usrlink3&&$linkname1&&$linkname2&&$linkname3&&$pagename&&$topimage&&$line2&&$emailgif&&$textc&&$bullet&&$tbltext\n";
close(FILE);
chmod 0777, '$page_dir$pagename.dat';
}

# Standard error message for any missing required fields
sub missing {
local ($missing) = @_;
print "Content-type: text/html\n\n";

    print "<HTML><HEAD><TITLE>You missed something</TITLE></HEAD>\n";
    print "<BODY>\n";
    print "You forgot to fill in one of the fields. Please go back and make\n";
    print "sure that all required fields are filled in! $missing\n";
    print "</BODY></HTML>\n";
    exit;
}

sub confirm {
    local ($updact) = @_;

print "Content-type: text/html\n\n";
print "<html><head><title>$updact Confirmation</title></head>\n";
print "<body bgcolor=\"#ffffff\" TEXT=\"#000000\" link=\"#008000\" vlink=\"#800040\" >\n";
print "<CENTER><IMG SRC=\"$logo\" alt=\"$logoalt\"  border=0></CENTER>\n";
print "<P><BR><FONT SIZE=4 FACE=\"COMIC SANS MS,ARIAL\">\n";
print "<p><h3>Please Enter your login name, e-mail and name of your file to $updact</h3></p>\n";
print "<form action=\"$cgiurl/ezhomepg.pl\" method=POST>\n";
print "<P><BR><FONT SIZE=4 FACE=\"COMIC SANS MS,ARIAL\">\n";
print "Login name:<br>\n";
print "<input size=40 type=text name=\"login\"><br><br>\n";
print "E-mail:<br>\n";
print "<input size=40 type=text name=\"email\"><br><br>\n";
print "Name of your file:<br>\n";
print "<input type=text size=40 name=\"pagename\"><br><br>\n";
print "<input type=submit value=submit>\n";
print "<input type=hidden name=\"action\" value=\"checkuser\">\n";
print "<input type=hidden name=\"updact\" value=\"$updact\">\n";
print "</FONT>\n";
print "</form></body></html>\n";
    }

sub checkuser {
open(FILE, "$data") || die "I can't open $data\n";  
flock (FILE, 1) or die "can't lock data file\n";

    while(<FILE>) {
    chop;       
    @all = split(/\n/);

    foreach $line (@all) {
    ($loginname, $loginemail, $loginpagename) = split(/&&/, $line);
    if($loginname eq "$login" && $loginemail eq "$email" && $loginpagename eq "$pagename") {
        $match = 1;
        if($updact eq "edit") {
          &edit($loginpagename);
          }
        else {
          &delpage($loginpagename);
          }
        }
      }
    }

close(FILE);

if (! $match) {
    &error;
    }

# del entry from data
if($updact eq "delete") {

    # Suck the index page, and write the new entry to it
    open(FILE, "$data") || die "I can't open that file\n";
    flock (FILE, 1) or die "can't lock data file\n";
        @lines = <FILE>;
        close(FILE);
        $sizelines = @lines;

    # Now, re-open the links file, and comment out the page to delete
    open(FILE, ">$data") || die "I can't open that file\n";
    flock (FILE, 2) or die "can't lock index file for append\n";
    chop;
            for ($a = 0; $a <= $sizelines; $a++) {
            $_ = $lines[$a];
            $w = $_;
            $w =~ s/\cM//g;
            $w =~ s/\n//g;
    ($loginname, $loginemail, $loginpagename) = split(/&&/, $w);
    if($loginname eq "$login" && $loginemail eq "$email" && $loginpagename eq "$pagename") {
          # do nothing  (ie. don't write)
          } 
        else {
          if($w eq "") {
            # do nothing (skip)
            }
          else {
            print FILE "$w\n";
            }
          }
        }
    close(FILE);
    print "Content-type: text/html\n\n";
    print "<html><head><title>$updact Confirmation</title></head>\n";
    print "<body bgcolor=\"#ffffff\" TEXT=\"#000000\" link=\"#008000\" vlink=\"#800040\" >\n";
    print "<CENTER><IMG SRC=\"$logo\" alt=\"$logoalt\" border=0></CENTER>\n";
    print "<P><BR><FONT SIZE=4 FACE=\"COMIC SANS MS,ARIAL\">\n";
    print "<p>your page has been deleted";
    print "<p>(Return to <a href=\"$baseurl\">User Pages</a>)\n";
    print "</form></body></html>\n";
  }
}

sub edit {

    local ($editfile) = @_;
    
    open(FILE, "$page_dir$editfile\.dat") || die "I can't open $editfile\n";
    flock (FILE, 1) or die "can't lock data file for edit\n";

    while(<FILE>) {
    chop;
    @datafile = split(/\n/);

    foreach $line (@datafile) {
        &build_edit_form($line);
            }
         }
    close(FILE);
    }

sub delpage {
    local ($editfile) = @_;
    $cnt=unlink "$page_dir$editfile\.dat", "$page_dir$editfile\.html";

    # Suck the index page, and write the new entry to it
    open(FILE, "$indexpage") || die "I can't open that file\n";
    flock (FILE, 1) or die "can't lock index file\n";
        @lines = <FILE>;
        close(FILE);
        $sizelines = @lines;

    # Now, re-open the links file, and comment out the page to delete
    open(FILE, ">$indexpage") || die "I can't open that file\n";
    flock (FILE, 2) or die "can't lock index file to delete entry\n";

            for ($a = 0; $a <= $sizelines; $a++) {

            $_ = $lines[$a];

        if (/$pagename.html/) {
          # do nothing  (ie. don't write)
          } 
        else {
          print FILE $_;
           }
        }
    close(FILE);

    }

sub build_edit_form($line) {
    local ($line) = @_;
    local($fullname, $mail, $head, $sub, $body, $bgimage, $linkcolor, $vlinkcolor, 
        $ahref1, $ahref2, $ahref3, $ahrefname1, $ahref2name, $ahref3name,
            $filename, $imurl, $hrline, $emailpic, $textcolor, $bullet, $tbltext);

($fullname, $mail, $bgimage, $head, $sub, $body, $linkcolor, $vlinkcolor, $ahref1, $ahref2,
 $ahref3, $ahrefname1, $ahref2name, $ahref3name, $filename, $imurl, $hrline, $emailpic, 
 $textcolor, $bullet, $tbltext) = split(/&&/, $line);
    
# To avoid any security risks. Take out the HTML tags added when HPM translated
# the && to: <br><br>. They will be re-translated to: && Once the user updates
# the page, the: && will be put back to: <br><br>
$body =~ s/<br><br>/&&/g;

# print the edit-page form

print "Content-type: text/html\n\n";
print "<html><head><title>Edit Your Page</title></head>\n";
print "<body bgcolor=\"#ffffff\" TEXT=\"#000000\" link=\"#008000\" vlink=\"#800040\">\n";
print "<center><img src=\"$logo\" alt=\"$logoalt\" border=0></center><p>\n";
print "<table width=75% cellspacing=2 cellpadding=2 border=0>\n";
print "<tr><td width=100% align=left valign=top>\n";
print "<p><font face=\"Arial, Geneva\"><h2>Edit Your Page</h2></font></p>\n";
print "<p>Below is a form with the contents\n";
print "of the home page you created. You can edit any part of your page</p>\n";
print "<p></p>\n";
print "<form action=\"$cgiurl/ezhomepg.pl\" method=POST>\n";
print "<input type=hidden name=\"action\" value=\"recreate\">\n";
print "Your name:<br>\n";
print "<input type=text size=40 name=\"usrname\" value=\"$fullname\"><br><br>\n";
print "Your e-mail:<br>\n";
print "<input type=text size=40 name=\"email\" value=\"$mail\"><br><br>\n";
print "Headline:<br>\n";
print "<input type=text size=40 name=\"headline\" value=\"$head\"><br><br>\n";
print "</td></tr></table>\n";
print "<b>Sub Head:</b><br>\n";
print "<input type=text size=40 name=\"subhead\" value=\"$sub\"><br><br>\n";
print "<b>Do you want the headings Centered:</b> <input type=radio name=\"headpos\" value=\"yes\" checked>Yes\n";
print "<input type=radio name=\"headpos\" value=\"no\">No<p>\n";
print "Name of HTML file: <b>$filename</b><br><br>\n";
print "<input type=hidden name=\"pagename\" value=\"$filename\">\n";
&build_form_body($fullname, $mail, $head, $sub, $body, $bgimage, $linkcolor, $vlinkcolor, 
        $ahref1, $ahref2, $ahref3, $ahrefname1, $ahref2name, $ahref3name,
            $filename, $imurl, $hrline, $emailpic, $textcolor, $bullet, $tbltext);
print "<P><input type=submit value=\"update page\">\n";
print "</form>\n";
print "</body></html>\n";
    }

sub build_form_body($fullname, $mail, $head, $sub, $body, $bgimage, $linkcolor, $vlinkcolor, 
        $ahref1, $ahref2, $ahref3, $ahrefname1, $ahref2name, $ahref3name,
            $filename, $imurl, $hrline, $emailpic, $textcolor, $bullet, $tbltext) {

print "<b>Splash Graphic:</b><br>\n";
      opendir (TN, "$tnp_dir");
      rewinddir (TN);
      @tnlist =  grep(!/^\.\.?$/, readdir (TN));
      closedir (TN);

   $tnnum = @tnlist;
   $cnum = "0";
   print "<input type=radio name=\"topimage\" value=\"0\">No Graphic</a><br><br>\n";
   $lend = "0";   
while ($tnnum > $cnum) {
   print "<input type=radio name=\"topimage\" value=\"$tnp_dir_url/$tnlist[$cnum]\" ";
   if ($imurl eq "$tnp_dir_url/$tnlist[$cnum]") {print "checked";}
   print "><img src=\"$tnp_dir_url/$tnlist[$cnum]\" border=0></a>\n";
   $cnum = $cnum + 1;
   $lend = $lend + 1;
   if ($lend eq "4"){
   print "<br><br>\n";
   $lend = 0;
    }
   }
print "<br><br><b>Do you want the image Centered? :</b> <input type=radio name=\"imagepos\" value=\"yes\" checked>Yes\n";
print "<input type=radio name=\"imagepos\" value=\"no\">No<p>\n";
print "<b>Body:</b> (use two percent signs (<b>%%</b>) BETWEEN paragraphs)<br>\n";
print "<textarea cols=65 rows=6 wrap=on name=\"content\">$body</textarea><br><br>\n";
print << 'END'
<b>Table (Optional):</b> use two percent signs (<b>%%</b>) BETWEEN rows, use 2 colons (<b>::</b>) BETWEEN fields.  for example:
<pre>
   su :: mo :: tu :: we :: th :: fr :: sa
%%    ::    ::    ::  1 ::  2 ::  3 ::  4
%%  5 ::  6 ::  7 ::  8 ::  9 :: 10 :: 11
%% 12 :: 13 :: 14 :: 15 :: 16 :: 17 :: 18
%% 19 :: 20 :: 21 :: 22 :: 23 :: 24 :: 25
%% 26 :: 27 :: 28 :: 29 :: 30
</pre>
END
;

$tbltext =~ s/%%/\n%%/g;
print "<textarea cols=65 rows=6 wrap=on name=\"tbltext\">$tbltext</textarea><br><br>";

print "<b>Links</b><br>\n";
print "<table width=75% cellpadding=2 cellspacing=2 border=0>\n";
print "<tr><td width=50% align=left valign=top>\n";
print "Link 1 URL:<br>\n";
print "<input type=text size=40 name=\"usrlink1\" value=\"$ahref1\"><br><br>\n";
print "Link 2 URL:<br>\n";
print "<input type=text size=40 name=\"usrlink2\" value=\"$ahref2\"><br><br>\n";
print "Link 3 URL:<br>\n";
print "<input type=text size=40 name=\"usrlink3\" value=\"$ahref3\"><br><br>\n";
print "</td>\n";
print "<td width=50% align=left valign=top>\n";
print "Link 1 Name:<br>\n";
print "<input type=text size=40 name=\"linkname1\" value=\"$ahrefname1\"><br><br>\n";
print "Link 2 Name:<br>\n";
print "<input type=text size=40 name=\"linkname2\" value=\"$ahref2name\"><br><br>\n";
print "Link 3 Name:<br>\n";
print "<input type=text size=40 name=\"linkname3\" value=\"$ahref3name\"><br><br>\n";
print "</td></tr></table>\n";
print "<b>Text</b><br>\n";
print "Text color:<br>\n";
print "<input type=radio name=\"textc\" value=\"#000000\"";
    if ($textcolor eq "#000000") {print "checked";}
    print ">Black\n";
print "<input type=radio name=\"textc\" value=\"#800000\"";
    if ($textcolor eq "#800000") {print "checked";}
    print ">Maroon\n";
print "<input type=radio name=\"textc\" value=\"#ff0000\"";
    if ($textcolor eq "#ff0000") {print "checked";}
    print ">Red\n";
print "<input type=radio name=\"textc\" value=\"#ffff00\"";
    if ($textcolor eq "#ffff00") {print "checked";}
    print ">Yellow\n";
print "<input type=radio name=\"textc\" value=\"#00ff00\"";
    if ($textcolor eq "#00ff00") {print "checked";}
    print ">Green\n";
print "<input type=radio name=\"textc\" value=\"#ffffff\"";
    if ($textcolor eq "#ffffff") {print "checked";}
    print ">White\n";
print "<input type=radio name=\"textc\" value=\"#0000ff\"";
    if ($textcolor eq "#0000ff") {print "checked";}
    print ">Blue<br><br>\n";
print "Link color:<br>\n";
print "<input type=radio name=\"linkc\" value=\"#000000\"";
    if ($linkcolor eq "#000000") {print "checked";}
    print ">Black\n";
print "<input type=radio name=\"linkc\" value=\"#800000\"";
    if ($linkcolor eq "#800000") {print "checked";}
    print ">Maroon\n";
print "<input type=radio name=\"linkc\" value=\"#ff0000\"";
    if ($linkcolor eq "#ff0000") {print "checked";}
    print ">Red\n";
print "<input type=radio name=\"linkc\" value=\"#ffff00\"";
    if ($linkcolor eq "#ffff00") {print "checked";}
    print ">Yellow\n";
print "<input type=radio name=\"linkc\" value=\"#00ff00\"";
    if ($linkcolor eq "#00ff00") {print "checked";}
    print ">Green\n";
print "<input type=radio name=\"linkc\" value=\"#ffffff\"";
    if ($linkcolor eq "#ffffff") {print "checked";}
    print ">White\n";
print "<input type=radio name=\"linkc\" value=\"#0000ff\"";
    if ($linkcolor eq "#0000ff") {print "checked";}
    print ">Blue<br><br>\n";
print "Visited Link Color:<br>\n";
print "<input type=radio name=\"vlinkc\" value=\"#000000\"";
    if ($vlinkcolor eq "#000000") {print "checked";}
    print ">Black\n";
print "<input type=radio name=\"vlinkc\" value=\"#800000\"";
    if ($vlinkcolor eq "#800000") {print "checked";}
    print ">Maroon\n";
print "<input type=radio name=\"vlinkc\" value=\"#ff0000\"";
    if ($vlinkcolor eq "#ff0000") {print "checked";}
    print ">Red\n";
print "<input type=radio name=\"vlinkc\" value=\"#ffff00\"";
    if ($vlinkcolor eq "#ffff00") {print "checked";}
    print ">Yellow\n";
print "<input type=radio name=\"vlinkc\" value=\"#00ff00\"";
    if ($vlinkcolor eq "#00ff00") {print "checked";}
    print ">Green\n";
print "<input type=radio name=\"vlinkc\" value=\"#ffffff\"";
    if ($vlinkcolor eq "#ffffff") {print "checked";}
    print ">White\n";
print "<input type=radio name=\"vlinkc\" value=\"#0000ff\"";
    if ($vlinkcolor eq "#0000ff") {print "checked";}
    print ">Blue<br><br>\n";

print "<b>Background image:</b><br>\n";
      opendir (TN, "$tnbg_dir");
      rewinddir (TN);
      @tnlist =  grep(!/^\.\.?$/, readdir (TN));
      closedir (TN);

   $tnnum = @tnlist;
   $cnum = "0";
   while ($tnnum > $cnum) {
      print "<input type=radio name=\"background\" value=\"$tnbg_dir_url/$tnlist[$cnum]\" " ;
      if ($bgimage eq "$tnbg_dir_url/$tnlist[$cnum]") {print "checked";}
      print "><img src=\"$tnbg_dir_url/$tnlist[$cnum]\" border=1></a><br><br>\n";
      $cnum = $cnum + 1;
      print "\n";
   }
print "<b>Horizontal Line:</b><br>\n";
      opendir (TN, "$tn_dir");
      rewinddir (TN);
      @tnlist =  grep(!/^\.\.?$/, readdir (TN));
      closedir (TN);

   $tnnum = @tnlist;
   $cnum = "0";
      print "<input type=radio name=\"line\" value=\"0\"";
      if ($line2 eq "0") { print " checked";}
      print ">No Line</a><br><br>\n";
   while ($tnnum > $cnum) {
      print "<input type=radio name=\"line\" value=\"$tn_dir_url/$tnlist[$cnum]\"";
      if ($hrline eq "$tn_dir_url/$tnlist[$cnum]") {print "checked";}
      print "><img src=\"$tn_dir_url/$tnlist[$cnum]\" border=0></a><br><br>\n";
      $cnum = $cnum + 1;
      print "\n";
   }

print "<b>Bullet:</b><br>\n";
      opendir (TN, "$tnb_dir");
      rewinddir (TN);
      @tnlist =  grep(!/^\.\.?$/, readdir (TN));
      closedir (TN);

   $tnnum = @tnlist;
   $cnum = "0";
   print "<input type=radio name=\"bullet\" value=\"0\"";
   if($bullet eq "0") {print "checked";}
   print ">No Bullet (all text will be centered)</a><br><br>\n";
   $lend = "0";   
while ($tnnum > $cnum) {
      print "<input type=radio name=\"bullet\" value=\"$tnb_dir_url/$tnlist[$cnum]\"";
      if ($bullet eq "$tnb_dir_url/$tnlist[$cnum]") {print "checked";}
      print "><img src=\"$tnb_dir_url/$tnlist[$cnum]\" border=0></a>\n";
      $cnum = $cnum + 1;
    $lend = $lend + 1;
      if ($lend eq "10"){
    print "<br><br>\n";
    $lend = 0;
    }
   }

print "<b>Email image:</b><br>\n";
      opendir (TN, "$tne_dir");
      rewinddir (TN);
      @tnlist =  grep(!/^\.\.?$/, readdir (TN));
      closedir (TN);

   $tnnum = @tnlist;
   $cnum = "0";
   $lend = "0";   
while ($tnnum > $cnum) {
      print "<input type=radio name=\"emailgif\" value=\"$tne_dir_url/$tnlist[$cnum]\"";
      if ($emailpic eq "$tne_dir_url/$tnlist[$cnum]") {print "checked";}
      print "><img src=\"$tne_dir_url/$tnlist[$cnum]\" border=0></a>\n";
      $cnum = $cnum + 1;
    $lend = $lend + 1;
      if ($lend eq "4"){
    print "<br><br>\n";
    $lend = 0;
    }
   }
 }

sub error {
    local ($updact) = @_;
print "Content-type: text/html\n\n";
print "<html><head><title>Permission Denied</title></head>\n";
print "<body>\n";
print "<p><h1>Permission Denied</h1></p>\n";
print "You do not have permission to $updact\n";
print "<p>(Return to <a href=\"$baseurl\">User Pages</a>)\n";
print "</body></html>\n";
exit;
    }