1. This site uses cookies. By continuing to use this site, you are agreeing to our use of cookies. Learn More.

Need help with pl script

Discussion in 'Perl' started by winxclub.us, Mar 15, 2007.

Thread Status:
Not open for further replies.
  1. winxclub.us

    winxclub.us New Member

    Joined:
    Mar 15, 2007
    Messages:
    2
    Likes Received:
    0
    Trophy Points:
    0
    Home Page:
    Hello,

    I found the ezhomepage scripts (from http://www.mannyjuan.com) that will let your website visitors make their own webpage at your stie. There are several versions, but the only one I was able to get to work at all is the exhomesite version. The problem is when I click on New Site (on this page: http://www.winxclub.us/ezhomesite/index.html) it takes you to the page to start a new site but at the bottom where you are supposed to click a button to creat the site, I get the following message:
    Content-type: text/html The following error occurred : Undefined subroutine &main::build_form_body called at /home/content/w/i/n/winxclub/html/cgi/ezhomesite.pl line 349.

    Below is the peice of code that I believe is getting the error. After that I will show the entire file.

    Code:
    &build_form_body($usrname, $mail, $head, $sub, $body, $body2, $body3, $body4, $body5, $bgimage, $bgimage2, $linkcolor, $vlinkcolor, 
            $ahref1, $ahref2, $ahref3, $ahrefname1, $ahref2name, $ahref3name,
                        $filename, $imurl, $hrline, $emailpic, $textcolor, $fontface, $bullet, $tbltext,
    $navigator1, $navigator2, $navigator3, $navigator4, $navigator5, $headpos, $pagepos, $imagepos);
    print "<input type=submit value=\"Create Site\">\n";
    print "</form>\n";
    Here is the full script for ezhomesite.pl. I am also not sure if entered all the path and urls correctly. If anyone can tell me what is wrong that would be just greatly appreciated:

    Code:
    #!/usr/bin/perl
    ##################################################################################
    # Original program was
    # HomePageMaker v.1.6 written by Dave Palmer <dave@upstatepress.com>
    # [url]http://www.upstatepress.com/dave/perl.shtml[/url]
    # Modified by Greg Mathews <webmaster@notts.net>.
    # Further modifications:
    ##################################################################################
    # ezhomepg - EZ Home Page Generator - by Manny Juan <manny@jps.net> 
    # [url]http://inet-images.com/manny/userpages/[/url]
    ##################################################################################
    # ver 1.22 - 02/18/2000 - modifications by Bill Hall Compucat Software
    # see end of configuration block for New Compucat Options
    ##################################################################################
    # ver 1.30 modified by Abuzer Khan. E-mail <san_trino@yahoo.com>
    # ver 1.30 - 16/5/2000 added folder creation, Editing, deleting with index page. 
    # Password protection. Pop up banner window in user pages. 
    # 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 
    ##################################################################################
    #
    # EZHomesite Modifications  ver 1.00 - 01/10/2000
    # Modified by Per Kristian Johansen <pkj@internor.com>
    # Creates multiple pages. The generator now creates a 5-page Homesite.
    # Added option to select contrasting background color.
    # Customized navigation menu. 
    # Content and title different in each page.
    # Option to center pages.
    # Changed fontselection
    ###################################################################################
    #
    # Anyone if free to use and modify this script if the footer or the button link 
    # and the credits in the script head remains as it is. Do not try to sell this script.
    #
    ##################################################################################
    # These variables need to be set
    # set this to 1 if your server is running in windows 95
    $win95=0;
    
    # Set this to the HTML directory where the new pages will reside. This is a PATH not a URL
    # $base_dir = "/home/content/w/i/n/winxclub/html/ezhomesite";
    # $base_dir = "../";
    $base_dir="/home/content/w/i/n/winxclub/html/ezhomesite";
    
    # This is your URL of this script - now you don't have to change it elsewhere
    # $cgiurl = "http://winxclub.us/cgi/ezhomesite.pl";
    # $cgiurl = "ezhomesite.pl";
    # $cgiurl = "http://www.winxclub.us/cgi/ezhomesite.pl";
    $cgiurl = "http://winxclub.us/cgi/ezhomesite.pl";
    
    # This is your URL of where the new HTML pages will be kept. keep the trailing slash
    # $baseurl = "http://www.winxclub.us/ezhomesite/";
    # $baseurl = "http://winxclub.us/ezhomesite/";
    $baseurl="http://winxclub.us/ezhomesite/";
    
    # this the URL of the banner page
    # $banner="/ezhomesite/banner.html";
    # $banner="http://www.winxclub.us/ezhomesite/banner.html";
    $banner="http://www.winxclub.us/ezhomesite/banner.html";
    
    
    # This is a URL and dir for the images sub directory in the ezhomesite directory.
    # Create the images directory in the ezhomesite directory. This is where
    # you will upload your background images
    # $imageurl = "http://www.winxclub.us/ezhomesite/images";
    # $imagedir = "../ezhomesite/images";
    $imageurl = "http://www.winxclub.us/ezhomesite/images";
    $imagedir="http://www.winxclub.us/ezhomesite/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: ezhomesite and chmod it 777
    $page_dir = "$base_dir";
    
    # This is the index of all pages created by Member Page Generator
    # This file should be chmod to 777 and placed in the ezhomesite 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="EZHomesite";
    
    #Yourname or Company
    $yourtitle="WinxClub.us Free WebPage";
    
    
    # self explanatory variables for your site logo
    $logo = "$imageurl/header.gif";
    $logoalt = "EZHomesite";
    
    # Location of the sendmail program
    $sendmail = "/usr/sbin/sendmail -t";
    
    # Your e-mail address here
    $myemail = "admin\@winxclub.us";
    
    # the text for the links section - if no links are entered it will not be displayed
    $linkstext = "My links";
    
    # The default font face for userpages. Must be same as syntax as options in form.
    # NOTE: In EZHomesite the font face will not impact the settings in the Create Page and 
    # Edit Page section.
    $fontface = "Arial";
    
    # Compucat Modifications  ver 1.21 - 01/29/2000
    # set csnotify to 1 to enable email notifications
    # set csnotify to 0 to disable email notifications
    # the user notification page differs with this option
    $csnotify = 1;
    
    # set csreeditindex to 1 to reedit the index page after Edits
    # set csreeditindex to 0 to disable reedit of the index page after Edits
    # the reediting of the index page is handled by sub csreeditentry
    # which deletes the entry from the index page writes it out
    # and then adds the entry to the index page and writes it out
    # putting the edited headline at the top of the index page
    $csreeditindex = 1;
    
    # set csdisplaylinks to 1 to enable Links in Design And Creation
    # set csdisplaylinks to 0 to disable Links
    $csdisplaylinks = 1;
    
    # set csdisplayoptable to 1 to enable Optional Table in Design And Creation
    # set csdisplayoptable to 0 to disable Optional Table in Design And Creation
    $csdisplayoptable = 1;
    
    # set csdisplaymailto to 1 to enable email image selection in Design And Creation
    # set csdisplaymailto to 0 to disable email image selection and the mailto
    $csdisplaymailto = 1;
    
    # End of Compucat Modifications
    # 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
    # EZHomesite modifications: navigator and content, pagepos and
    $login = $FORM{'login'};
    $usrname = $FORM{'usrname'};
    $email = $FORM{'email'};
    $background = $FORM{'background'};
    $background2 = $FORM{'background2'};
    $emailgif = $FORM{'emailgif'};
    $linkc = $FORM{'linkc'};
    $vlinkc = $FORM{'vlinkc'};
    $textc = $FORM{'textc'};
    $fontface = $FORM{'fontface'};
    $headline = $FORM{'headline'};
    $subhead = $FORM{'subhead'};
    $headpos = $FORM{'headpos'};
    $pagepos = $FORM{'pagepos'};
    $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'};
    $navigator1 = $FORM{'navigator1'};
    $navigator2 = $FORM{'navigator2'};
    $navigator3 = $FORM{'navigator3'};
    $navigator4 = $FORM{'navigator4'};
    $navigator5 = $FORM{'navigator5'};
    $content = $FORM{'content'};
    $content2 = $FORM{'content2'};
    $content3 = $FORM{'content3'};
    $content4 = $FORM{'content4'};
    $content5 = $FORM{'content5'};
    $images = $FORM{'images'};
    $password = $FORM{'password'};
    $bullet = $FORM{'bullet'};
    $tbltext = $FORM{'tbltext'};
    $updact = $FORM{'updact'};
    
    # Add the line breaks for paragraph spacing
    #$content =~ s/&&/<br><br>/g;
    $content =~ s/&&/%%/g;
    $content2 =~ s/&&/%%/g;
    $content3 =~ s/&&/%%/g;
    $content4 =~ s/&&/%%/g;
    $content5 =~ s/&&/%%/g;
    
    
    # This fixes the bug of white space and
    # other wierd spacing:
    $content =~ s/\cM//g;
    $content =~ s/\n/  /g;
    $content2 =~ s/\cM//g;
    $content2 =~ s/\n/  /g;
    $content3 =~ s/\cM//g;
    $content3 =~ s/\n/  /g;
    $content4 =~ s/\cM//g;
    $content4 =~ s/\n/  /g;
    $content5 =~ s/\cM//g;
    $content5 =~ s/\n/  /g;
    $tbltext =~ s/\cM//g;
    $tbltext =~ s/\n/  /g;
    
    # If the user tries to add more than one word in
    # the pages name field, this will put an underscore
    # in the spaces to make it one word
    $login =~ s/ /_/g;
    
    # Find out what the user wants to do
    if ($FORM{'action'} eq "New Site") {
        &newpage;
        }
    if ($FORM{'action'} eq "Create Site") {
        &create;
        }
    if ($FORM{'action'} eq "Edit Site") {
        &confirm("edit");
        }
    if ($FORM{'action'} eq "checkuser") {
        &checkuser;
        }
        if ($FORM{'action'} eq "recreate") {
        &recreate;
        }
    if ($FORM{'action'} eq "Delete Site") {
        &confirm("delete");
        }
    
    sub newpage() {
        local($usrname, $mail, $head, $sub, $body, $body2, $body3, $body4, $body5, $bgimage, $bgimage2, $linkcolor, $vlinkcolor, 
            $ahref1, $ahref2, $ahref3, $ahrefname1, $ahref2name, $ahref3name,
                        $password1, $imurl, $hrline, $emailpic, $textcolor, $bullet, $tbltext, 
    $navigator1, $navigator2, $navigator3, $navigator4, $navigator5, $headpos, $pagepos, $imagepos);
    
    ($usrname, $mail, $bgimage, $bgimage2, $head, $sub, $body, $body2, $body3, $body4, $body5, $linkcolor, $vlinkcolor, 
        $ahref1, $ahref2, $ahref3, $ahrefname1, $ahref2name, $ahref3name, 
        $password1, $imurl, $hrline, $emailpic, $textcolor, $bullet, $tbltext, 
    $navigator1, $navigator2, $navigator3, $navigator4, $navigator5, $headpos, $pagepos, $imagepos) = 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;
    $body2 =~ s/<br><br>/&&/g;
    $body3 =~ s/<br><br>/&&/g;
    $body4 =~ s/<br><br>/&&/g;
    $body5 =~ s/<br><br>/&&/g;
    
    # print the edit-page form
    
    print "Content-type: text/html\n\n";
    print "<html><head><title>Create Your Own Homesite</title></head>\n";
    print "<body bgcolor=\"#FFFFFF\" TEXT=\"#000000\" font face=\"Arial\" link=\"#008000\" vlink=\"#800040\">\n";
    print "<center>\n";
    print "<img src=\"$logo\" alt=\"$logoalt\" border=0>\n";
    print "<table width=640 cellspacing=2 cellpadding=2 border=0>\n";
    print "<tr><td width=100% align=left valign=top>\n";
    print "</td></tr><tr><td bgcolor=lightgrey><p><FONT face=\"verdana, helvetica, arial\" size=\"4\"><h2>Create Your Own Homesite</h2></font></p>\n";
    print "</td></tr><tr><td bgcolor=white><FONT face=\"verdana, helvetica, arial\" size=\"2\"><p>Below is an empty form for you to fill in. <br>The first five 
    
    fields are required.\n";
    print "<br>You can edit any part of your site later</font></p>\n";
    print "<form action=\"$cgiurl\" method=POST>\n";
    print "<input type=hidden name=\"action\" value=\"Create Site\">\n";
    print "</td></tr><tr><td bgcolor=lightgrey><font face=\"verdana, helvetica, arial\" size=\"1\"><b>Your name:</b></font><br>\n";
    print "</td></tr><tr><td bgcolor=white><font face=\"verdana, helvetica, arial\" 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 "</td></tr><tr><td bgcolor=lightgrey><font face=\"verdana, helvetica, arial\" size=\"1\"><b>The next 3 fields will be used for editing:</b>\n";
    print "</td></tr><tr><td bgcolor=lightgrey><font face=\"verdana, helvetica, arial\" size=\"1\"><b>Homesite Login and location:</b><br>\n";
    print "</td></tr><tr><td bgcolor=white><font face=\"verdana, helvetica, arial\" size=\"1\">(One word that would be your webadress. It's also used later for 
    
    editing)<br>\n";
    print "<input type=text size=40 name=\"login\" value=\"$login\"><br><br>\n";
    print "</td></tr><tr><td bgcolor=lightgrey><font face=\"verdana, helvetica, arial\" size=\"1\"><b>Your e-mail:</b><br>\n";
    print "</td></tr><tr><td bgcolor=white><font face=\"verdana, helvetica, arial\" size=\"1\">(For editing and will also appear in page)<br>\n";
    print "<input type=text size=40 name=\"email\" value=\"$mail\"><br><br>\n";
    print "</td></tr><tr><td bgcolor=lightgrey><font face=\"verdana, helvetica, arial\" size=\"1\"><b>Password:</b><br>\n";
    print "</td></tr><tr><td bgcolor=white><font face=\"verdana, helvetica, arial\" size=\"1\">(One word that will be your password for editing)<br>\n";
    print "<input type=password size=40 name=\"password\" value=\"$password1\"><br><br>\n";
    print "</td></tr><tr><td bgcolor=lightgrey><font face=\"verdana, helvetica, arial\" size=\"1\"><b>Homesite Title:</b><br>\n";
    print "</td></tr><tr><td bgcolor=white><font face=\"verdana, helvetica, arial\" size=\"1\">\n";
    print "(How your page will be listed in index and the main title of your site)<br></font>\n";
    print "<input type=text size=40 name=\"headline\" value=\"$head\"><br><br>\n";
    print "</td></tr><tr><td bgcolor=lightgrey><font face=\"verdana, helvetica, arial\" size=\"1\"><b>Do you want the title centered:</b>\n";
    print "<input type=radio name=\"headpos\" value=\"yes\" checked>Yes\n";
    print "<input type=radio name=\"headpos\" value=\"no\">No</font>\n";
    print "</td></tr><tr><td bgcolor=lightgrey><font face=\"verdana, helvetica, arial\" size=\"1\"><b>Name on webpages:</b></font><br>\n";
    print "</td></tr><tr><td bgcolor=white><font face=\"verdana, helvetica, arial\" size=\"1\">(Will also be the name of your navigation links)<br>\n";
    print "Page 1: <input type=text size=40 name=\"navigator1\" value=\"$navigator1\"><br>\n";
    print "Page 2: <input type=text size=40 name=\"navigator2\" value=\"$navigator2\"><br>\n";
    print "Page 3: <input type=text size=40 name=\"navigator3\" value=\"$navigator3\"><br>\n";
    print "Page 4: <input type=text size=40 name=\"navigator4\" value=\"$navigator4\"><br>\n";
    print "Page 5: <input type=text size=40 name=\"navigator5\" value=\"$navigator5\"></font><br><br>\n";
    print "</td></tr><tr><td bgcolor=lightgrey><font face=\"verdana, helvetica, arial\" size=\"1\"><b>Do you want the pages centered:</b> <input type=radio 
    
    name=\"pagepos\" value=\"yes\" checked>Yes\n";
    print "<input type=radio name=\"pagepos\" value=\"no\">No</font>\n";
    print "</td></tr><tr><td bgcolor=lightgrey><p><font face=\"verdana, helvetica, arial\" size=\"1\"><b>Slogan:</b></font><br>\n";
    print "</td></tr><tr><td bgcolor=white><font face=\"verdana, helvetica, arial\" size=\"1\">(Subtitle of your site)</font><br>\n";
    print "<input type=text size=40 name=\"subhead\" value=\"$sub\"><br><br>\n";
    &build_form_body($usrname, $mail, $head, $sub, $body, $body2, $body3, $body4, $body5, $bgimage, $bgimage2, $linkcolor, $vlinkcolor, 
            $ahref1, $ahref2, $ahref3, $ahrefname1, $ahref2name, $ahref3name,
                        $filename, $imurl, $hrline, $emailpic, $textcolor, $fontface, $bullet, $tbltext,
    $navigator1, $navigator2, $navigator3, $navigator4, $navigator5, $headpos, $pagepos, $imagepos);
    print "<input type=submit value=\"Create Site\">\n";
    print "</form>\n";
    print HTML "<p align=\"center\"><font face=\"Arial, Verdana\" size=\"2\">A <a href=\"mailto:$myemail\">$yourtitle</a> Customization Based On <a 
    
    href=\"http://www.internor.com/ezhomesite/\">EZHomesite</a></p>\n";
    print "</td></tr></table>\n";
    print "</font></center></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_login) unless $login;
    
    # if they try to name their page "index" This will stop them
    if ($login eq "admin") {
        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\">Index</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 :)
    if (-e "$page_dir/$login/index\.html") {
            print "Content-type: text/html\n\n";
            print "<html><head><title>Error</title></head>\n";
            print "<body><p>The Homesite Name: <b>$login</b>\n";
            print "is already taken.\n";
            print "Please go back and rename your Homesite</p>\n";
            print "<p>(Return to <a href=\"$baseurl\">Index</a>)\n";
            exit;
                    }
            mkdir ("$base_dir/$login", 0777) || die("Could not create user directory:");
    #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";
    if ($win95==0) { flock (FILE, 2) or die "can't lock data file\n"; }
    print FILE "$login&&$email&&$password\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";
    if ($win95==0) { 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";
    if ($win95==0) { 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=\"verdana, helvetica, arial\" size=\"3\"><a href=\"$baseurl$login/index.html\">$headline</a></font></p>\n";
    
            } else {
                print FILE $_;
            }
        }
    close(FILE);
    
    
    
    # Send the user an e-mail confirming their page
    if($csnotify){
      open (MAIL,"|$sendmail");
      print MAIL "To: $email\n";
      print MAIL "From: $myemail\n";
      print MAIL "Subject: Your URL on $title\n";
      print MAIL "Your site can be viewed at the URL below:\n";
      print MAIL "\n";
      print MAIL "$baseurl$login\n";
      print MAIL "\nThank you for using $title\n";
      print MAIL "\n\nHomesite Manager - $myemail\n";
      close (MAIL);
    
    # Notify us when someone creates a site
    open (MAIL, "|$sendmail");
      print MAIL "To: $myemail\n";
      print MAIL "From: $email\n";
      print MAIL "Subject: New EZHomesite Report\n";
      print MAIL "$usrname created a New Site:\n";
      print MAIL "$baseurl$login/index.html\n";
      print MAIL "\nThe content is :\n$content\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><p>\n";
    print "<BR><BR><FONT face=\"verdana, helvetica, arial\" size=\"1\">\n";
    print "Your site has been created, and you will receive an e-mail confirming this!\n";
    print "Your URL is: <a href=\"$baseurl$login/\">\n";
    print "$baseurl$login/</a> - remember to press Reload\n";
    print "Thanks for your participation!\n";
    print "<p>(Return to <a href=\"$baseurl\">Index</a>)\n";
    print HTML "<p align=\"center\"><font face=\"Arial, Verdana\" size=\"2\">A <a href=\"mailto:$myemail\">$yourtitle</a> Customization Based On <a 
    
    href=\"http://www.internor.com/ezhomesite/\">EZHomesite</a></p>\n";
    print "</body></html>\n";
    } else {
    # 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=\"ARIAL\">\n";
    print "Your Homesite has been created!\n";
    print "Your URL is: <a href=\"$baseurl$login\">\n";
    print "$baseurl$login/</a> - remember to press Reload\n";
    print "Thanks for your participation!\n";
    print "<p>(Return to <a href=\"$baseurl\">Index</a>)\n";
    print HTML "<p align=\"center\"><font face=\"Arial, Verdana\" size=\"2\">A <a href=\"mailto:$myemail\">$yourtitle</a> Customization Based On <a 
    
    href=\"http://www.internor.com/ezhomesite/\">EZHomesite</a></p>\n";
    print "</body></html>\n";
    }
            }
    
    sub recreate {
    #now, lets create our new html page
      &buildpage;
      if($csreeditindex){
      &csreeditentry;
      }
    if($csnotify){
    # Send the user a notice that their site has been re-done
      open (MAIL,"|$sendmail");
      print MAIL "To: $email\n";
      print MAIL "From: $myemail\n";
      print MAIL "Subject: Your Changes on the $title\n";
      print MAIL "Your revised site can be viewed at the URL below:\n";
      print MAIL "\n";
      print MAIL "$baseurl$login\n";
      print MAIL "\nOnce again thank you for using the $title\n";
      print MAIL "\n\nThe Homesite 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 face=\"verdana, helvetica, arial\" size=\"1\">\n";
    print "Your site has been revised, and you will receive an e-mail confirming this!\n";
    print "Your URL is: <a href=\"$baseurl$login\">\n";
    print "$baseurl$login/</a> - remember to press Reload\n";
    print "Thanks for your participation!\n";
    print "<p>(Return to <a href=\"$baseurl\">Index</a>)\n";
    print HTML "<p align=\"center\"><font face=\"Arial, Verdana\" size=\"2\">A <a href=\"mailto:$myemail\">$yourtitle</a> Customization Based On <a 
    
    href=\"http://www.internor.com/ezhomesite/\">EZHomesite</a></p>\n";
    print "</body></html>\n";
    } else {
    # 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 face=\"verdana, helvetica, arial\" size=\"1\">\n";
    print "Your site has been revised!\n";
    print "Your URL is: <a href=\"$baseurl/$login\">\n";
    print "$baseurl$login/</a> - remember to press Reload\n";
    print "Thanks for your participation!\n";
    print "<p>(Return to <a href=\"$baseurl\">Index</a>)\n";
    print HTML "<p align=\"center\"><font face=\"Arial, Verdana\" size=\"2\">A <a href=\"mailto:$myemail\">$yourtitle</a> Customization Based On <a 
    
    href=\"http://www.internor.com/ezhomesite/\">EZHomesite</a></p>\n";
    print "</body></html>\n";
    }
           }
    
    
    
    
    
    sub buildpage {
    ###############################################################
    # EZHomesite Modifications  ver 1.00 - 12/10/2000
    ###############################################################
    #  NEW PAGE STARTS HERE
    ###############################################################
    open(HTML, ">$page_dir/$login/index.html") || die "I can't create $login/index.html\n";
    if ($win95==0) { flock (HTML, 2) or die "can't lock html file\n"; }
    print HTML "<html><head><title>$headline</title></head>\n";
    
    # the next few lines are banner printing code
    print HTML ("<SCRIPT LANGUAGE=JavaScript>\n");
    print HTML ("<!--\n");
    print HTML ("window.open(\"$banner\", \"w3adIAYJAAII\",\n");
    print HTML ("\"width=640,height=80\")\;\n");
    print HTML ("//-->\n");
    print HTML ("</SCRIPT>\n");
    
    print HTML "<body background=\"$background\" text=$textc link=$linkc vlink=$vlinkc>\n";
    if ($pagepos eq "yes") {
        print HTML "<center>\n";
            }
    
    print HTML "<table width=\"80%\" border=\"0\" cellpadding=\"5\" cellspacing=\"1\"><tr><td colspan=\"3\" height=\"80\" valign=\"top\"  
    
    background=\"$background2\">\n";
    
        if ($headpos eq "yes") {
        print HTML "<center>\n";
            }
    print HTML "<p><font face=\"$fontface\" size=6>$headline</font><br>
    <font face=\"$fontface\" size=3><b>$subhead</b></p>\n";
        if ($headpos eq "yes") {
        print HTML "</center>\n";
            }
    print HTML "</tr></td>\n";
    
    print HTML "<tr><td width=\"15%\" valign=\"top\" background=\"$background2\">\n";
    print HTML "<font face=\"$fontface\" size=3><a href=\"index.html\">$navigator1</a></font><br>\n";
    print HTML "<font face=\"$fontface\" size=3><a href=\"page2.html\">$navigator2</a></font><br>\n";
    print HTML "<font face=\"$fontface\" size=3><a href=\"page3.html\">$navigator3</a></font><br>\n";
    print HTML "<font face=\"$fontface\" size=3><a href=\"page4.html\">$navigator4</a></font><br>\n";
    print HTML "<font face=\"$fontface\" size=3><a href=\"page5.html\">$navigator5</a></font><br>\n";
    print HTML "</td><td width=\"70%\" valign=\"top\">\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 "</center><p><font face=\"$fontface\" size=3><b>$navigator1</b></font>\n";
        if ($imagepos eq "yes") {
        print HTML "</p>\n";
            }
        print HTML "<center>";
        if (($line2 eq "0") or ($line2 eq "")) {
            print HTML "</center>";
            } 
        else {
           print HTML "<p><img src=\"$line2\"></center></p>\n";
            }
        }
    
    @atxt = split(/%%/, $content);
    if ($bullet eq "0") {
    
      foreach $txtline(@atxt) {
          print HTML "<p align=\"left\"><font face=\"$fontface\" size=3>$txtline</font></p>\n";
        }
      }
    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=\"$fontface\" size=3>$txtline</font></td></tr>\n";
      }
    print HTML "</table>\n";
    }
    if($csdisplayoptable){
    print HTML "<center>\n";
    print HTML "<table border=1 cellspacing=0 cellpadding=5>";
    @all = split(/%%/,$tbltext);
    foreach $tbline (@all) {
        print HTML "<tr>";
        @flds = split(/\:\:/, $tbline);
        foreach $fld (@flds) {
            print HTML "<td><font face=\"$fontface\">$fld</font></td>";
            }
        print HTML "</tr>";
        }
    print HTML "</table>";
    print HTML "</center>";
    }
    if(($csdisplaylinks)&&(($linkname1 ne "")||($linkname2 ne "")||($linkname3 ne ""))){
    if ($bullet eq "0") {
      print HTML "\n";
      }
    print HTML "<p align=\"left\"><i><font face=\"$fontface\" size=3><b>$linkstext:</i></b></font><br>\n";
    print HTML "<font face=\"$fontface\" size=3><a href=\"$usrlink1\" Target=\"_blank\">$linkname1</a><br>\n";
    print HTML "<a href=\"$usrlink2\" Target=\"_blank\">$linkname2</a><br>\n";
    print HTML "<a href=\"$usrlink3\" Target=\"_blank\">$linkname3</a></font></p>\n";
    if ($bullet eq "0") {
      print HTML "\n";
      }
    }
    
    print HTML "<p><center>";
    if (($line2 eq "0") or ($line2 eq "")) {
    print HTML "";
        } else {
    print HTML "<img src=\"$line2\"></center></p>\n";
        }
    print HTML "<p align=\"center\"><font face=\"$fontface\" size=3><a href=\"index.html\">$navigator1</a></font> \n";
    print HTML "<font face=\"$fontface\" size=3><a href=\"page2.html\">$navigator2</a></font> \n";
    print HTML "<font face=\"$fontface\" size=3><a href=\"page3.html\">$navigator3</a></font> \n";
    print HTML "<font face=\"$fontface\" size=3><a href=\"page4.html\">$navigator4</a></font> \n";
    print HTML "<font face=\"$fontface\" size=3><a href=\"page5.html\">$navigator5</a></font></p>\n";
    
    if($csdisplaymailto){
    print HTML "<p><center>";
    if (($emailgif ne "")&&($emailgif ne "0")) {
        print HTML "<img src=\"$emailgif\"><br>\n";
        }
    print HTML "<font face=\"$fontface\" size=3><a href=\"mailto:$email\">$usrname</a></font></center></p>\n";
    }
    
    print HTML "</td><td width=\"15%\" valign=\"top\"  background=\"$background2\">";
    print HTML "<p align=\"left\"><a href=\"http://internor.com/ezhomesite/\">\n";
    print HTML "<img src=\"$imageurl/button.gif\" alt=\"EZHomesite\"></a></p></td></tr>\n";
     if ($pagepos eq "yes") {
        print HTML "</center>\n";
            }
    
    print HTML "<tr><td colspan=\"3\" valign=\"top\"  background=\"$background2\"><p align=\"center\"><font face=\"Arial, Verdana\" size=\"2\">\n";
    print HTML "<p align=\"center\"><font face=\"Arial, Verdana\" size=\"2\">A <a href=\"mailto:$myemail\">$yourtitle</a> Customization Based On <a 
    
    href=\"http://www.internor.com/ezhomesite/\">EZHomesite</a></p>\n";
    print HTML "</td></tr></table></body></html>";
    close(HTML);
    
    ###############################################################
    #  NEW PAGE STARTS HERE
    ###############################################################
    open(HTML, ">$page_dir/$login/page2.html") || die "I can't create $login/page2.html\n";
    if ($win95==0) { flock (HTML, 2) or die "can't lock html file\n"; }
    print HTML "<html><head><title>$headline</title></head>\n";
    
    # the next few lines are banner printing code
    print HTML ("<SCRIPT LANGUAGE=JavaScript>\n");
    print HTML ("<!--\n");
    print HTML ("window.open(\"$banner\", \"w3adIAYJAAII\",\n");
    print HTML ("\"width=640,height=80\")\;\n");
    print HTML ("//-->\n");
    print HTML ("</SCRIPT>\n");
    
    print HTML "<body background=\"$background\" text=$textc link=$linkc vlink=$vlinkc><font face=\"Arial\">\n";
    if ($pagepos eq "yes") {
        print HTML "<center>\n";
            }
    
    print HTML "<table width=\"80%\" border=\"0\" cellpadding=\"5\" cellspacing=\"1\"><tr><td colspan=\"3\" height=\"80\" valign=\"top\"  
    
    background=\"$background2\">\n";
    
        if ($headpos eq "yes") {
        print HTML "<center>\n";
            }
    print HTML "<p><font face=\"$fontface\" size=6>$headline</font><br>
    <font face=\"$fontface\" size=3><b>$subhead</b></p>\n";
        if ($headpos eq "yes") {
        print HTML "</center>\n";
            }
    print HTML "</tr></td>\n";
    
    print HTML "<tr><td width=\"15%\" valign=\"top\" background=\"$background2\">\n";
    print HTML "<font face=\"$fontface\" size=3><a href=\"index.html\">$navigator1</a></font><br>\n";
    print HTML "<font face=\"$fontface\" size=3><a href=\"page2.html\">$navigator2</a></font><br>\n";
    print HTML "<font face=\"$fontface\" size=3><a href=\"page3.html\">$navigator3</a></font><br>\n";
    print HTML "<font face=\"$fontface\" size=3><a href=\"page4.html\">$navigator4</a></font><br>\n";
    print HTML "<font face=\"$fontface\" size=3><a href=\"page5.html\">$navigator5</a></font><br>\n";
    print HTML "</td><td width=\"70%\" valign=\"top\">\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 "</center><p><font face=\"$fontface\" size=3><b>$navigator2</b></font>\n";
        if ($imagepos eq "yes") {
        print HTML "</p>\n";
            }
        print HTML "<center>";
        if (($line2 eq "0") or ($line2 eq "")) {
            print HTML "</center>";
            } 
        else {
           print HTML "<p><img src=\"$line2\"></center></p>\n";
            }
        }
    
    @atxt = split(/%%/, $content2);
    if ($bullet eq "0") {
    
      foreach $txtline(@atxt) {
          print HTML "<p align=\"left\"><font face=\"$fontface\" size=3>$txtline</font></p>\n";
        }
      }
    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=\"$fontface\" size=3>$txtline</font></td></tr>\n";
      }
    print HTML "</table>\n";
    }
    if($csdisplayoptable){
    print HTML "<center>\n";
    print HTML "<table border=1 cellspacing=0 cellpadding=5>";
    @all = split(/%%/,$tbltext);
    foreach $tbline (@all) {
        print HTML "<tr>";
        @flds = split(/\:\:/, $tbline);
        foreach $fld (@flds) {
            print HTML "<td><font face=\"$fontface\">$fld</font></td>";
            }
        print HTML "</tr>";
        }
    print HTML "</table>";
    print HTML "</center>";
    }
    if(($csdisplaylinks)&&(($linkname1 ne "")||($linkname2 ne "")||($linkname3 ne ""))){
    if ($bullet eq "0") {
      print HTML "\n";
      }
    print HTML "<p align=\"left\"><i><font face=\"$fontface\" size=3><b>$linkstext:</i></b></font><br>\n";
    print HTML "<font face=\"$fontface\" size=3><a href=\"$usrlink1\" Target=\"_blank\">$linkname1</a><br>\n";
    print HTML "<a href=\"$usrlink2\" Target=\"_blank\">$linkname2</a><br>\n";
    print HTML "<a href=\"$usrlink3\" Target=\"_blank\">$linkname3</a></font></p>\n";
    if ($bullet eq "0") {
      print HTML "\n";
      }
    }
    
    print HTML "<p><center>";
    if (($line2 eq "0") or ($line2 eq "")) {
    print HTML "";
        } else {
    print HTML "<img src=\"$line2\"></center></p>\n";
        }
    print HTML "<p align=\"center\"><font face=\"$fontface\" size=3><a href=\"index.html\">$navigator1</a></font> \n";
    print HTML "<font face=\"$fontface\" size=3><a href=\"page2.html\">$navigator2</a></font> \n";
    print HTML "<font face=\"$fontface\" size=3><a href=\"page3.html\">$navigator3</a></font> \n";
    print HTML "<font face=\"$fontface\" size=3><a href=\"page4.html\">$navigator4</a></font> \n";
    print HTML "<font face=\"$fontface\" size=3><a href=\"page5.html\">$navigator5</a></font></p>\n";
    
    if($csdisplaymailto){
    print HTML "<p><center>";
    if (($emailgif ne "")&&($emailgif ne "0")) {
        print HTML "<img src=\"$emailgif\"><br>\n";
        }
    print HTML "<font face=\"$fontface\" size=3><a href=\"mailto:$email\">$usrname</a></font></center></p>\n";
    }
    
    print HTML "</td><td width=\"15%\" valign=\"top\"  background=\"$background2\">";
    print HTML "<p align=\"left\"><a href=\"http://internor.com/ezhomesite/\">\n";
    print HTML "<img src=\"$imageurl/button.gif\" alt=\"EZHomesite\"></a></p></td></tr>\n";
     if ($pagepos eq "yes") {
        print HTML "</center>\n";
            }
    
    print HTML "<tr><td colspan=\"3\" valign=\"top\"  background=\"$background2\"><p align=\"center\"><font face=\"Arial, Verdana\" size=\"2\">\n";
    print HTML "<p align=\"center\"><font face=\"Arial, Verdana\" size=\"2\">A <a href=\"mailto:$myemail\">$yourtitle</a> Customization Based On <a 
    
    href=\"http://www.internor.com/ezhomesite/\">EZHomesite</a></p>\n";
    print HTML "</td></tr></table></body></html>";
    close(HTML);
    
    ###############################################################
    #  NEW PAGE STARTS HERE
    ###############################################################
    open(HTML, ">$page_dir/$login/page3.html") || die "I can't create $login/page3.html\n";
    if ($win95==0) { flock (HTML, 2) or die "can't lock html file\n"; }
    print HTML "<html><head><title>$headline</title></head>\n";
    
    # the next few lines are banner printing code
    print HTML ("<SCRIPT LANGUAGE=JavaScript>\n");
    print HTML ("<!--\n");
    print HTML ("window.open(\"$banner\", \"w3adIAYJAAII\",\n");
    print HTML ("\"width=640,height=80\")\;\n");
    print HTML ("//-->\n");
    print HTML ("</SCRIPT>\n");
    
    print HTML "<body background=\"$background\" text=$textc link=$linkc vlink=$vlinkc><font face=\"Arial\">\n";
    if ($pagepos eq "yes") {
        print HTML "<center>\n";
            }
    
    print HTML "<table width=\"80%\" border=\"0\" cellpadding=\"5\" cellspacing=\"1\"><tr><td colspan=\"3\" height=\"80\"  valign=\"top\" 
    
    background=\"$background2\">\n";
    
        if ($headpos eq "yes") {
        print HTML "<center>\n";
            }
    print HTML "<p><font face=\"$fontface\" size=6>$headline</font><br>
    <font face=\"$fontface\" size=3><b>$subhead</b></p>\n";
        if ($headpos eq "yes") {
        print HTML "</center>\n";
            }
    print HTML "</tr></td>\n";
    
    print HTML "<tr><td width=\"15%\" valign=\"top\"  background=\"$background2\">\n";
    print HTML "<font face=\"$fontface\" size=3><a href=\"index.html\">$navigator1</a></font><br>\n";
    print HTML "<font face=\"$fontface\" size=3><a href=\"page2.html\">$navigator2</a></font><br>\n";
    print HTML "<font face=\"$fontface\" size=3><a href=\"page3.html\">$navigator3</a></font><br>\n";
    print HTML "<font face=\"$fontface\" size=3><a href=\"page4.html\">$navigator4</a></font><br>\n";
    print HTML "<font face=\"$fontface\" size=3><a href=\"page5.html\">$navigator5</a></font><br>\n";
    print HTML "</td><td width=\"70%\" valign=\"top\">\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 "</center><p><font face=\"$fontface\" size=3><b>$navigator3</b></font>\n";
        if ($imagepos eq "yes") {
        print HTML "</p>\n";
            }
        print HTML "<center>";
        if (($line2 eq "0") or ($line2 eq "")) {
            print HTML "</center>";
            } 
        else {
           print HTML "<p><img src=\"$line2\"></center></p>\n";
            }
        }
    
    @atxt = split(/%%/, $content3);
    if ($bullet eq "0") {
    
      foreach $txtline(@atxt) {
          print HTML "<p align=\"left\"><font face=\"$fontface\" size=3>$txtline</font></p>\n";
        }
      }
    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=\"$fontface\" size=3>$txtline</font></td></tr>\n";
      }
    print HTML "</table>\n";
    }
    if($csdisplayoptable){
    print HTML "<center>\n";
    print HTML "<table border=1 cellspacing=0 cellpadding=5>";
    @all = split(/%%/,$tbltext);
    foreach $tbline (@all) {
        print HTML "<tr>";
        @flds = split(/\:\:/, $tbline);
        foreach $fld (@flds) {
            print HTML "<td><font face=\"$fontface\">$fld</font></td>";
            }
        print HTML "</tr>";
        }
    print HTML "</table>";
    print HTML "</center>";
    }
    if(($csdisplaylinks)&&(($linkname1 ne "")||($linkname2 ne "")||($linkname3 ne ""))){
    if ($bullet eq "0") {
      print HTML "\n";
      }
    print HTML "<p align=\"left\"><i><font face=\"$fontface\" size=3><b>$linkstext:</i></b></font><br>\n";
    print HTML "<font face=\"$fontface\" size=3><a href=\"$usrlink1\" Target=\"_blank\">$linkname1</a><br>\n";
    print HTML "<a href=\"$usrlink2\" Target=\"_blank\">$linkname2</a><br>\n";
    print HTML "<a href=\"$usrlink3\" Target=\"_blank\">$linkname3</a></font></p>\n";
    if ($bullet eq "0") {
      print HTML "\n";
      }
    }
    
    print HTML "<p><center>";
    if (($line2 eq "0") or ($line2 eq "")) {
    print HTML "";
        } else {
    print HTML "<img src=\"$line2\"></center></p>\n";
        }
    print HTML "<p align=\"center\"><font face=\"$fontface\" size=3><a href=\"index.html\">$navigator1</a></font> \n";
    print HTML "<font face=\"$fontface\" size=3><a href=\"page2.html\">$navigator2</a></font> \n";
    print HTML "<font face=\"$fontface\" size=3><a href=\"page3.html\">$navigator3</a></font> \n";
    print HTML "<font face=\"$fontface\" size=3><a href=\"page4.html\">$navigator4</a></font> \n";
    print HTML "<font face=\"$fontface\" size=3><a href=\"page5.html\">$navigator5</a></font></p>\n";
    
    if($csdisplaymailto){
    print HTML "<p><center>";
    if (($emailgif ne "")&&($emailgif ne "0")) {
        print HTML "<img src=\"$emailgif\"><br>\n";
        }
    print HTML "<a href=\"mailto:$email\">$usrname</a></font></center></p>\n";
    }
    
    print HTML "</td><td width=\"15%\" valign=\"top\"  background=\"$background2\">";
    print HTML "<p align=\"left\"><a href=\"http://internor.com/ezhomesite/\">\n";
    print HTML "<img src=\"$imageurl/button.gif\" alt=\"EZHomesite\"></a></p></td></tr>\n";
     if ($pagepos eq "yes") {
        print HTML "</center>\n";
            }
    
    print HTML "<tr><td colspan=\"3\" valign=\"top\"  background=\"$background2\"><p align=\"center\"><font face=\"Arial, Verdana\" size=\"2\">\n";
    print HTML "<p align=\"center\"><font face=\"Arial, Verdana\" size=\"2\">A <a href=\"mailto:$myemail\">$yourtitle</a> Customization Based On <a 
    
    href=\"http://www.internor.com/ezhomesite/\">EZHomesite</a></p>\n";
    print HTML "</td></tr></table></body></html>";
    close(HTML);
    
    ###############################################################
    #  NEW PAGE STARTS HERE
    ###############################################################
    open(HTML, ">$page_dir/$login/page4.html") || die "I can't create $login/page4.html\n";
    if ($win95==0) { flock (HTML, 2) or die "can't lock html file\n"; }
    print HTML "<html><head><title>$headline</title></head>\n";
    
    # the next few lines are banner printing code
    print HTML ("<SCRIPT LANGUAGE=JavaScript>\n");
    print HTML ("<!--\n");
    print HTML ("window.open(\"$banner\", \"w3adIAYJAAII\",\n");
    print HTML ("\"width=640,height=80\")\;\n");
    print HTML ("//-->\n");
    print HTML ("</SCRIPT>\n");
    
    print HTML "<body background=\"$background\" text=$textc link=$linkc vlink=$vlinkc><font face=\"Arial\">\n";
    if ($pagepos eq "yes") {
        print HTML "<center>\n";
            }
    
    print HTML "<table width=\"80%\" border=\"0\" cellpadding=\"5\" cellspacing=\"1\"><tr><td colspan=\"3\" height=\"80\"  valign=\"top\" 
    
    background=\"$background2\">\n";
    
        if ($headpos eq "yes") {
        print HTML "<center>\n";
            }
    print HTML "<p><font face=\"$fontface\" size=6>$headline</font><br>
    <font face=\"$fontface\" size=3><b>$subhead</b></p>\n";
        if ($headpos eq "yes") {
        print HTML "</center>\n";
            }
    print HTML "</tr></td>\n";
    
    print HTML "<tr><td width=\"15%\" valign=\"top\"  background=\"$background2\">\n";
    print HTML "<font face=\"$fontface\" size=3><a href=\"index.html\">$navigator1</a></font><br>\n";
    print HTML "<font face=\"$fontface\" size=3><a href=\"page2.html\">$navigator2</a></font><br>\n";
    print HTML "<font face=\"$fontface\" size=3><a href=\"page3.html\">$navigator3</a></font><br>\n";
    print HTML "<font face=\"$fontface\" size=3><a href=\"page4.html\">$navigator4</a></font><br>\n";
    print HTML "<font face=\"$fontface\" size=3><a href=\"page5.html\">$navigator5</a></font><br>\n";
    print HTML "</td><td width=\"70%\" valign=\"top\">\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 "</center><p><font face=\"$fontface\" size=3><b>$navigator4</b></font>\n";
        if ($imagepos eq "yes") {
        print HTML "</p>\n";
            }
        print HTML "<center>";
        if (($line2 eq "0") or ($line2 eq "")) {
            print HTML "</center>";
            } 
        else {
           print HTML "<p><img src=\"$line2\"></center></p>\n";
            }
        }
    
    @atxt = split(/%%/, $content4);
    if ($bullet eq "0") {
    
      foreach $txtline(@atxt) {
          print HTML "<p align=\"left\"><font face=\"$fontface\" size=3>$txtline</font></p>\n";
        }
      }
    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=\"$fontface\" size=3>$txtline</font></td></tr>\n";
      }
    print HTML "</table>\n";
    }
    if($csdisplayoptable){
    print HTML "<center>\n";
    print HTML "<table border=1 cellspacing=0 cellpadding=5>";
    @all = split(/%%/,$tbltext);
    foreach $tbline (@all) {
        print HTML "<tr>";
        @flds = split(/\:\:/, $tbline);
      foreach $fld (@flds) {
            print HTML "<td><font face=\"$fontface\">$fld</font></td>";
            }
        print HTML "</tr>";
        }
    print HTML "</table>";
    print HTML "</center>";
    }
    if(($csdisplaylinks)&&(($linkname1 ne "")||($linkname2 ne "")||($linkname3 ne ""))){
    if ($bullet eq "0") {
      print HTML "\n";
      }
    print HTML "<p align=\"left\"><i><font face=\"$fontface\" size=3><b>$linkstext:</i></b></font><br>\n";
    print HTML "<font face=\"$fontface\" size=3><a href=\"$usrlink1\" Target=\"_blank\">$linkname1</a><br>\n";
    print HTML "<a href=\"$usrlink2\" Target=\"_blank\">$linkname2</a><br>\n";
    print HTML "<a href=\"$usrlink3\" Target=\"_blank\">$linkname3</a></font></p>\n";
    if ($bullet eq "0") {
      print HTML "\n";
      }
    }
    
    print HTML "<p><center>";
    if (($line2 eq "0") or ($line2 eq "")) {
    print HTML "";
        } else {
    print HTML "<img src=\"$line2\"></center></p>\n";
        }
    print HTML "<p align=\"center\"><font face=\"$fontface\" size=3><a href=\"index.html\">$navigator1</a></font> \n";
    print HTML "<font face=\"$fontface\" size=3><a href=\"page2.html\">$navigator2</a></font> \n";
    print HTML "<font face=\"$fontface\" size=3><a href=\"page3.html\">$navigator3</a></font> \n";
    print HTML "<font face=\"$fontface\" size=3><a href=\"page4.html\">$navigator4</a></font> \n";
    print HTML "<font face=\"$fontface\" size=3><a href=\"page5.html\">$navigator5</a></font></p>\n";
    
    if($csdisplaymailto){
    print HTML "<p><center>";
    if (($emailgif ne "")&&($emailgif ne "0")) {
        print HTML "<img src=\"$emailgif\"><br>\n";
        }
    print HTML "<a href=\"mailto:$email\">$usrname</a></font></center></p>\n";
    }
    
    print HTML "</td><td width=\"15%\" valign=\"top\"  background=\"$background2\">";
    print HTML "<p align=\"left\"><a href=\"http://internor.com/ezhomesite/\">\n";
    print HTML "<img src=\"$imageurl/button.gif\" alt=\"EZHomesite\"></a></p></td></tr>\n";
     if ($pagepos eq "yes") {
        print HTML "</center>\n";
            }
    
    print HTML "<tr><td colspan=\"3\" valign=\"top\"  background=\"$background2\"><p align=\"center\"><font face=\"Arial, Verdana\" size=\"2\">\n";
    print HTML "<p align=\"center\"><font face=\"Arial, Verdana\" size=\"2\">A <a href=\"mailto:$myemail\">$yourtitle</a> Customization Based On <a 
    
    href=\"http://www.internor.com/ezhomesite/\">EZHomesite</a></p>\n";
    print HTML "</td></tr></table></body></html>";
    close(HTML);
    
    ###############################################################
    #  NEW PAGE STARTS HERE
    ###############################################################
    open(HTML, ">$page_dir/$login/page5.html") || die "I can't create $login/page5.html\n";
    if ($win95==0) { flock (HTML, 2) or die "can't lock html file\n"; }
    print HTML "<html><head><title>$headline</title></head>\n";
    
    # the next few lines are banner printing code
    print HTML ("<SCRIPT LANGUAGE=JavaScript>\n");
    print HTML ("<!--\n");
    print HTML ("window.open(\"$banner\", \"w3adIAYJAAII\",\n");
    print HTML ("\"width=640,height=80\")\;\n");
    print HTML ("//-->\n");
    print HTML ("</SCRIPT>\n");
    
    print HTML "<body background=\"$background\" text=$textc link=$linkc vlink=$vlinkc><font face=\"Arial\">\n";
    if ($pagepos eq "yes") {
        print HTML "<center>\n";
            }
    
    print HTML "<table width=\"80%\" border=\"0\" cellpadding=\"5\" cellspacing=\"1\"><tr><td colspan=\"3\" height=\"80\"  valign=\"top\"  
    
    background=\"$background2\">\n";
    
        if ($headpos eq "yes") {
        print HTML "<center>\n";
            }
    print HTML "<p><font face=\"$fontface\" size=6>$headline</font><br>
    <font face=\"$fontface\" size=3><b>$subhead</b></p>\n";
        if ($headpos eq "yes") {
        print HTML "</center>\n";
            }
    print HTML "</tr></td>\n";
    
    print HTML "<tr><td width=\"15%\" valign=\"top\"  background=\"$background2\">\n";
    print HTML "<font face=\"$fontface\" size=3><a href=\"index.html\">$navigator1</a></font><br>\n";
    print HTML "<font face=\"$fontface\" size=3><a href=\"page2.html\">$navigator2</a></font><br>\n";
    print HTML "<font face=\"$fontface\" size=3><a href=\"page3.html\">$navigator3</a></font><br>\n";
    print HTML "<font face=\"$fontface\" size=3><a href=\"page4.html\">$navigator4</a></font><br>\n";
    print HTML "<font face=\"$fontface\" size=3><a href=\"page5.html\">$navigator5</a></font><br>\n";
    print HTML "</td><td width=\"70%\" valign=\"top\">\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 "</center><p><font face=\"$fontface\" size=3><b>$navigator5</b></font>\n";
        if ($imagepos eq "yes") {
        print HTML "</p>\n";
            }
        print HTML "<center>";
        if (($line2 eq "0") or ($line2 eq "")) {
            print HTML "</center>";
            } 
        else {
           print HTML "<p><img src=\"$line2\"></center></p>\n";
            }
        }
    
    @atxt = split(/%%/, $content5);
    if ($bullet eq "0") {
    
      foreach $txtline(@atxt) {
          print HTML "<p align=\"left\"><font face=\"$fontface\" size=3>$txtline</font></p>\n";
        }
      }
    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=\"$fontface\" size=3>$txtline</font></td></tr>\n";
      }
    print HTML "</table>\n";
    }
    if($csdisplayoptable){
    print HTML "<center>\n";
    print HTML "<table border=1 cellspacing=0 cellpadding=5>";
    @all = split(/%%/,$tbltext);
    foreach $tbline (@all) {
        print HTML "<tr>";
        @flds = split(/\:\:/, $tbline);
    foreach $fld (@flds) {
            print HTML "<td><font face=\"$fontface\">$fld</font></td>";
            }
        print HTML "</tr>";
        }
    print HTML "</table>";
    print HTML "</center>";
    }
    if(($csdisplaylinks)&&(($linkname1 ne "")||($linkname2 ne "")||($linkname3 ne ""))){
    if ($bullet eq "0") {
      print HTML "\n";
      }
    print HTML "<p align=\"left\"><i><font face=\"$fontface\" size=3><b>$linkstext:</i></b></font><br>\n";
    print HTML "<font face=\"$fontface\" size=3><a href=\"$usrlink1\" Target=\"_blank\">$linkname1</a><br>\n";
    print HTML "<a href=\"$usrlink2\" Target=\"_blank\">$linkname2</a><br>\n";
    print HTML "<a href=\"$usrlink3\" Target=\"_blank\">$linkname3</a></font></p>\n";
    if ($bullet eq "0") {
      print HTML "\n";
      }
    }
    
    print HTML "<p><center>";
    if (($line2 eq "0") or ($line2 eq "")) {
    print HTML "";
        } else {
    print HTML "<img src=\"$line2\"></center></p>\n";
        }
    print HTML "<p align=\"center\"><font face=\"$fontface\" size=3><a href=\"index.html\">$navigator1</a></font> \n";
    print HTML "<font face=\"$fontface\" size=3><a href=\"page2.html\">$navigator2</a></font> \n";
    print HTML "<font face=\"$fontface\" size=3><a href=\"page3.html\">$navigator3</a></font> \n";
    print HTML "<font face=\"$fontface\" size=3><a href=\"page4.html\">$navigator4</a></font> \n";
    print HTML "<font face=\"$fontface\" size=3><a href=\"page5.html\">$navigator5</a></font></p>\n";
    
    if($csdisplaymailto){
    print HTML "<p><center>";
    if (($emailgif ne "")&&($emailgif ne "0")) {
        print HTML "<img src=\"$emailgif\"><br>\n";
        }
    print HTML "<a href=\"mailto:$email\">$usrname</a></font></center></p>\n";
    }
    
    print HTML "</td><td width=\"15%\" valign=\"top\"  background=\"$background2\">";
    print HTML "<p align=\"left\"><a href=\"http://internor.com/ezhomesite/\">\n";
    print HTML "<img src=\"$imageurl/button.gif\" alt=\"EZHomesite\"></a></p></td></tr>\n";
     if ($pagepos eq "yes") {
        print HTML "</center>\n";
            }
    
    print HTML "<tr><td colspan=\"3\" valign=\"top\"  background=\"$background2\"><p align=\"center\"><font face=\"Arial, Verdana\" size=\"2\">\n";
    print HTML "<p align=\"center\"><font face=\"Arial, Verdana\" size=\"2\">A <a href=\"mailto:$myemail\">$yourtitle</a> Customization Based On <a 
    
    href=\"http://www.internor.com/ezhomesite/\">EZHomesite</a></p>\n";
    print HTML "</td></tr></table></body></html>";
    close(HTML);
    
    
    # Write all of the input into a flat file.
    open(FILE, ">$page_dir/$login/page.dat") || die "I can't create page.dat\n";
    if ($win95==0) { flock (FILE, 2) or die "can't lock user data file\n";  }
    $tbltext =~ s/\n/%%/g;
    print FILE 
    
    "$usrname&&$email&&$background&&$background2&&$headline&&$subhead&&$content&&$content2&&$content3&&$content4&&$content5&&$linkc&
    
    &$vlinkc&&$usrlink1&&$usrlink2&&$usrlink3&&$linkname1&&$linkname2&&$linkname3&&$password&&$topimage&&$line2&&$emailgif&&$textc&&$font
    
    face&&$bullet&&$tbltext&&$navigator1&&$navigator2&&$navigator3&&$navigator4&&$navigator5&&$headpos&&$pagepos&&$imagepos\n";
    close(FILE);
    chmod 0777, '$page_dir/$login/page.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><table width=\"640\"><IMG SRC=\"$logo\" alt=\"$logoalt\"  border=0></CENTER>\n";
    print "<P><BR><FONT SIZE=4 FACE=\"ARIAL\">\n";
    print "<p><h3>Please Enter your Homesite Login, E-mail and Password to $updact</h3></p>\n";
    print "<form action=\"$cgiurl\" method=POST>\n";
    print "<FONT SIZE=4 FACE=\"ARIAL\">\n";
    print "Homesite Login:<br>\n";
    print "<input size=40 type=text name=\"login\"><br>\n";
    print "<input size=40 type=hidden name=\"$login\">\n";
    print "Original E-Mail Address:<br>\n";
    print "<input size=40 type=text name=\"email\"><br>\n";
    print "Password:<br>\n";
    print "<input type=password size=40 name=\"password\"><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 HTML "<p align=\"center\"><font face=\"Arial, Verdana\" size=\"2\">A <a href=\"mailto:$myemail\">$yourtitle</a> Customization Based On <a 
    
    href=\"http://www.internor.com/ezhomesite/\">EZHomesite</a></p>\n";
    print "</form></table></body></html>\n";
        }
    
    sub checkuser {
    open(FILE, "$data") || die "I can't open $data\n";  
    if ($win95==0) { flock (FILE, 1) or die "can't lock data file\n"; }
    
        while(<FILE>) {
        chop;       
        @all = split(/\n/);
    
        foreach $line (@all) {
        ($loginname, $loginemail, $loginpassword) = split(/&&/, $line);
        if($loginname eq "$login" && $loginemail eq "$email" && $loginpassword eq "$password") {
            $match = 1;
            if($updact eq "edit") {
              &edit($loginpassword);
              }
            else {
              &delpage($loginpassword);
              }
            }
          }
        }
    
    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";
        if ($win95==0) { 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";
        if ($win95==0) { 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, $loginpassword) = split(/&&/, $w);
        if($loginname eq "$login" && $loginemail eq "$email" && $loginpassword eq "$password") {
              # 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=\"ARIAL\">\n";
        print "<p>Your page has been deleted";
        print "<p>(Return to <a href=\"$baseurl\">Index</a>)\n";
        print "</form></body></html>\n";
      }
    }
    
    sub edit {
    
        local ($editfile) = @_;
        
            open(FILE, "$page_dir/$login/page.dat") || die "I can't open page.dat\n";
        if ($win95==0) { 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/$login/page.dat", "$page_dir/$login/index.html", "$page_dir/$login/page2.html", "$page_dir/$login/page3.html", "$page_dir/
    
    $login/page4.html", "$page_dir/$login/page5.html";
            rmdir ("$page_dir/$login");
    
        # Suck the index page, and write the new entry to it
        open(FILE, "$indexpage") || die "I can't open that file\n";
        if ($win95==0) { 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";
        if ($win95==0) { flock (FILE, 2) or die "can't lock index file to delete entry\n"; }
    
                for ($a = 0; $a <= $sizelines; $a++) {
    
                $_ = $lines[$a];
    
            if (/$login/) {
              # do nothing  (ie. don't write)
              } 
            else {
              print FILE $_;
               }
            }
        close(FILE);
    
        }
    sub csreeditentry {
        local ($editfile) = @_;
        # Suck the index page, and write the new entry to it
        open(FILE, "$indexpage") || die "I can't open that file\n";
        if ($win95==0) { 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";
        if ($win95==0) { flock (FILE, 2) or die "can't lock index file to delete entry\n"; }
    
                for ($a = 0; $a <= $sizelines; $a++) {
    
                $_ = $lines[$a];
    
            if (/$login/) {
              # do nothing  (ie. don't write)
              } 
            else {
              print FILE $_;
               }
            }
        close(FILE);
    # Suck the index page, and write the new entry to it
     open(FILE, "$indexpage") || die "I can't open that file\n";
     if ($win95==0) { 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";
     if ($win95==0) { 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,Verdana\" size=3><a href=\"$baseurl$login/index.html\">$headline</a></font></p>\n";
       
            } else {
                print FILE $_;
            }
        }
     close(FILE);
         }
    
    sub build_edit_form($line) {
        local ($line) = @_;
        local($fullname, $mail, $head, $sub, $body, $body2, $body3, $body4, $body5, $bgimage, $bgimage2, $linkcolor, $vlinkcolor, 
            $ahref1, $ahref2, $ahref3, $ahrefname1, $ahref2name, $ahref3name,
                $password1, $imurl, $hrline, $emailpic, $textcolor, $fontface, $bullet, $tbltext,
    $navigator1, $navigator2, $navigator3, $navigator4, $navigator5, $headpos, $pagepos,$imagepos);
    
    ($fullname, $mail, $bgimage, $bgimage2, $head, $sub, $body, $body2, $body3, $body4, $body5, $linkcolor, $vlinkcolor, $ahref1, $ahref2,
     $ahref3, $ahrefname1, $ahref2name, $ahref3name, $password1, $imurl, $hrline, $emailpic, 
     $textcolor, $fontface, $bullet, $tbltext, $navigator1, $navigator2, $navigator3, $navigator4, $navigator5, $headpos, $pagepos, $imagepos) = 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> on all pages
    $body =~ s/<br><br>/&&/g;
    $body2 =~ s/<br><br>/&&/g;
    $body3 =~ s/<br><br>/&&/g;
    $body4 =~ s/<br><br>/&&/g;
    $body5 =~ 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>\n";
    print "<img src=\"$logo\" alt=\"$logoalt\" border=0>\n";
    print "<table width=640 cellspacing=2 cellpadding=2 border=0>\n";
    print "<tr><td width=100% align=left valign=top>\n";
    print "</td></tr><tr><td bgcolor=lightgrey><p><font face=\"verdana, helvetica, arial\" size=\"6\"><h2>Edit Your Page</h2></font></p>\n";
    print "</td></tr><tr><td bgcolor=white><p><FONT face=\"verdana, helvetica, arial\" size=\"2\">Below is a form with the contents\n";
    print "of the Homesite you created. You can edit any part of your site.</font></p>\n";
    print "<form action=\"$cgiurl\" method=POST>\n";
    print "<input type=hidden name=\"action\" value=\"recreate\">\n";
    print "<input type=hidden size=40 name=\"login\" value=\"$login\">\n";
    print "</td></tr><tr><td bgcolor=lightgrey><font face=\"verdana, helvetica, arial\" size=\"1\">Your name:<br>\n";
    print "</td></tr><tr><td bgcolor=white><input type=text size=40 name=\"usrname\" value=\"$fullname\"><br><br>\n";
    print "</td></tr><tr><td bgcolor=lightgrey><font face=\"verdana, helvetica, arial\" size=\"1\">Your e-mail:</font><br>\n";
    print "</td></tr><tr><td bgcolor=white><input type=text size=40 name=\"email\" value=\"$mail\"><br><br>\n";
    print "</td></tr><tr><td bgcolor=lightgrey><font face=\"verdana, helvetica, arial\" size=\"1\">Homesite Title:</font><br>\n";
    print "</td></tr><tr><td bgcolor=white><input type=text size=40 name=\"headline\" value=\"$head\"><br><br>\n";
    print "</td></tr><tr><td bgcolor=lightgrey><font face=\"verdana, helvetica, arial\" size=\"1\"><b>Do you want the title centered:</b> <input type=radio 
    
    name=\"headpos\" value=\"yes\"\n";
    if ($headpos eq "yes") { print " checked";}
    print ">Yes<input type=radio name=\"headpos\" value=\"no\"\n";
    if ($headpos eq "no") { print " checked";}
    print ">No</font></td></tr><tr><td bgcolor=lightgrey><font face=\"verdana, helvetica, arial\" size=\"1\"><b>Name on webpages:</b>\n";
    print "</font></td></tr><tr><td bgcolor=white><font face=\"verdana, helvetica, arial\" size=\"1\">(Will also be the name of your navigation links)
    
    </font><br>\n";
    print "<font face=\"verdana, helvetica, arial\" size=\"1\">Page 1: <input type=text size=40 name=\"navigator1\" value=\"$navigator1\"><br>\n";
    print "Page 2: <input type=text size=40 name=\"navigator2\" value=\"$navigator2\"><br>\n";
    print "Page 3: <input type=text size=40 name=\"navigator3\" value=\"$navigator3\"><br>\n";
    print "Page 4: <input type=text size=40 name=\"navigator4\" value=\"$navigator4\"><br>\n";
    print "Page 5: <input type=text size=40 name=\"navigator5\" value=\"$navigator5\"></font><br><br>\n";
    print "</td></tr><tr><td bgcolor=lightgrey><font face=\"verdana, helvetica, arial\" size=\"1\"><b>Pages centered:</b> <input type=radio name=\"pagepos\" 
    
    value=\"yes\"\n";
    if ($pagepos eq "yes") { print " checked";}
    print ">Yes<input type=radio name=\"pagepos\" value=\"no\"\n";
    if ($pagepos eq "no") { print " checked";}
    print ">No</font><b></td></tr><tr><td bgcolor=lightgrey><font face=\"verdana, helvetica, arial\" size=\"1\">Slogan:</font></b><br>\n";
    print "</td></tr><tr><td bgcolor=white><input type=text size=40 name=\"subhead\" value=\"$sub\"><br><br>\n";
    print "</td></tr><tr><td bgcolor=lightgrey><font face=\"verdana, helvetica, arial\" size=\"1\">Password: Not available</font><br><br>\n";
    print "<input type=hidden name=\"password\" value=\"$password1\">\n";
    &build_form_body($fullname, $mail, $head, $sub, $body, $body2, $body3, $body4, $body5, $bgimage, $bgimage2, $linkcolor, $vlinkcolor, 
            $ahref1, $ahref2, $ahref3, $ahrefname1, $ahref2name, $ahref3name,
                $password1, $imurl, $hrline, $emailpic, $textcolor, $fontface, $bullet, $tbltext,
    $navigator1, $navigator2, $navigator3, $navigator4, $navigator5, $headpos, $pagepos, $imagepos);
    print "<P><input type=submit value=\"Update Site\">\n";
    print "</form>\n";
    print "</td></tr></table>\n";
    print HTML "<p align=\"center\"><font face=\"Arial, Verdana\" size=\"2\">A <a href=\"mailto:$myemail\">$yourtitle</a> Customization Based On <a 
    
    href=\"http://www.internor.com/ezhomesite/\">EZHomesite</a></p>\n";
    print "</font></center></body></html>\n";
        }
    
    sub build_form_body($fullname, $mail, $head, $sub, $body, $body2, $body3, $body4, $body5, $bgimage, $bgimage2, $linkcolor, $vlinkcolor, 
            $ahref1, $ahref2, $ahref3, $ahrefname1, $ahref2name, $ahref3name,
                $password1, $imurl, $hrline, $emailpic, $textcolor, $fontface, $bullet, $tbltext,
    $navigator1, $navigator2, $navigator3, $navigator4, $navigator5, $headpos, $pagepos, $imagepos) {
    
    print "</td></tr><tr><td bgcolor=lightgrey><font face=\"verdana, helvetica, arial\" size=\"1\"><b>Pick Your Photo From The Gallery:</b>\n";
    print "</font></td></tr><tr><td bgcolor=white>\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\"><font face=\"verdana, helvetica, arial\" size=\"1\">No Graphic</font></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 "</td></tr><tr><td bgcolor=lightgrey><font face=\"verdana, helvetica, arial\" size=\"1\"><b>Do you want the image centered? :</b> <input type=radio 
    
    name=\"imagepos\" value=\"yes\"\n";
    if ($imagepos eq "yes") { print " checked";}
    print ">Yes<input type=radio name=\"imagepos\" value=\"no\"\n";
    if ($imagepos eq "no") { print " checked";}
    
    # EZHomesite enhanced
    print ">No</font>\n";
    print "</td></tr><tr><td bgcolor=lightgrey><font face=\"verdana, helvetica, arial\" size=\"1\"><b>Body Page 1:</b> (use two percent signs (<b>%%</b>) 
    
    BETWEEN paragraphs)</font><br>\n";
    print "</td></tr><tr><td bgcolor=white><textarea cols=50 rows=6 wrap=on name=\"content\">$body</textarea><br><br>\n";
    print "</td></tr><tr><td bgcolor=lightgrey><font face=\"verdana, helvetica, arial\" size=\"1\"><b>Body Page 2:</b> (use two percent signs (<b>%%</b>) 
    
    BETWEEN paragraphs)</font><br>\n";
    print "</td></tr><tr><td bgcolor=white><textarea cols=50 rows=6 wrap=on name=\"content2\">$body2</textarea><br><br>\n";
    print "</td></tr><tr><td bgcolor=lightgrey><font face=\"verdana, helvetica, arial\" size=\"1\"><b>Body Page 3:</b> (use two percent signs (<b>%%</b>) 
    
    BETWEEN paragraphs)</font><br>\n";
    print "</td></tr><tr><td bgcolor=white><textarea cols=50 rows=6 wrap=on name=\"content3\">$body3</textarea><br><br>\n";
    print "</td></tr><tr><td bgcolor=lightgrey><font face=\"verdana, helvetica, arial\" size=\"1\"><b>Body Page 4:</b> (use two percent signs (<b>%%</b>) 
    
    BETWEEN paragraphs)</font><br>\n";
    print "</td></tr><tr><td bgcolor=white><textarea cols=50 rows=6 wrap=on name=\"content4\">$body4</textarea><br><br>\n";
    print "</td></tr><tr><td bgcolor=lightgrey><font face=\"verdana, helvetica, arial\" size=\"1\"><b>Body Page 5:</b> (use two percent signs (<b>%%</b>) 
    
    BETWEEN paragraphs)</font><br>\n";
    print "</td></tr><tr><td bgcolor=white><textarea cols=50 rows=6 wrap=on name=\"content5\">$body5</textarea><br><br>\n";
    if($csdisplayoptable){
    print << 'END'
    </td></tr><tr><td bgcolor=lightgrey><font face="verdana, helvetica, arial" size="1"><b>Table (Optional: Will appear below body text on every pages):</b>
    </td></tr><tr><td bgcolor=white><font face="verdana, helvetica, arial" size="1"><br>Use two percent signs (<b>%%</b>) BETWEEN rows, use 2 colons 
    
    (<b>::</b>) BETWEEN fields.  for example (you can copy and paste the example for a start):
    <pre><font size=2>
       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 :: 31
    </font></pre></p>
    END
    ;
    
    $tbltext =~ s/%%/\n%%/g;
    print "<textarea cols=50 rows=6 wrap=on name=\"tbltext\">$tbltext</textarea></font><br><br>";
    } else {
    $tbltext =~ s/%%/\n%%/g;
    print "<input type=hidden name=\"tbltext\" value=\"$tbltext\">\n";
    }
    if($csdisplaylinks){
    print "</td></tr><tr><td bgcolor=lightgrey><font face=\"verdana, helvetica, arial\" size=\"1\"><b>$linkstext</b></text><br>\n";
    print "</td></tr><tr><td bgcolor=white><table width=80% cellpadding=2 cellspacing=2 border=0>\n";
    print "<tr><td width=50% align=left valign=top>\n";
    print "<font face=\"verdana, helvetica, arial\" size=\"1\">Link 1 URL:</font><br>\n";
    print "<input type=text size=40 name=\"usrlink1\" value=\"$ahref1\"></font><br><br>\n";
    print "<font face=\"verdana, helvetica, arial\" size=\"1\">Link 2 URL:</font><br>\n";
    print "<input type=text size=40 name=\"usrlink2\" value=\"$ahref2\"></font><br><br>\n";
    print "<font face=\"verdana, helvetica, arial\" size=\"1\">Link 3 URL:</font><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 "<font face=\"verdana, helvetica, arial\" size=\"1\">Link 1 Name:</font><br>\n";
    print "<input type=text size=40 name=\"linkname1\" value=\"$ahrefname1\"><br><br>\n";
    print "<font face=\"verdana, helvetica, arial\" size=\"1\">Link 2 Name:</font><br>\n";
    print "<input type=text size=40 name=\"linkname2\" value=\"$ahref2name\"><br><br>\n";
    print "<font face=\"verdana, helvetica, arial\" size=\"1\">Link 3 Name:</font><br>\n";
    print "<input type=text size=40 name=\"linkname3\" value=\"$ahref3name\"><br><br>\n";
    print "</td></tr></table>\n";
    } else {
     print "<input type=\"hidden\" name=\"usrlink1\" value=\"$ahref1\">\n";
     print "<input type=\"hidden\" name=\"usrlink2\" value=\"$ahref2\">\n";
     print "<input type=\"hidden\" name=\"usrlink3\" value=\"$ahref3\">\n";
     print "<input type=\"hidden\" name=\"linkname1\" value=\"$ahrefname1\">\n";
     print "<input type=\"hidden\" name=\"linkname2\" value=\"$ahrefname2\">\n";
     print "<input type=\"hidden\" name=\"linkname3\" value=\"$ahrefname2\">\n";
     }
    
    
    print "</td></tr><tr><td bgcolor=lightgrey><font face=\"verdana, helvetica, arial\" size=\"1\"><b>Text</b></font><br>\n";
    print "</td></tr><tr><td bgcolor=lightgrey><font face=\"verdana, helvetica, arial\" size=\"1\">Text color:</font><br>\n";
    print "<input type=radio name=\"textc\" value=\"#000000\"";
        if ($textcolor eq "#000000") {print "checked";}
        print "><font color=\"#000000\">Black\n";
    print "<input type=radio name=\"textc\" value=\"#800000\"";
        if ($textcolor eq "#800000") {print "checked";}
        print "><font color=\"Maroon\">Maroon</font>\n";
    print "<input type=radio name=\"textc\" value=\"#ff0000\"";
        if ($textcolor eq "#ff0000") {print "checked";}
        print "><font color=\"Red\">Red</font>\n";
    print "<input type=radio name=\"textc\" value=\"#ffff00\"";
        if ($textcolor eq "#ffff00") {print "checked";}
        print "><font color=\"Yellow\">Yellow</font>\n";
    print "<input type=radio name=\"textc\" value=\"#00ff00\"";
        if ($textcolor eq "#00ff00") {print "checked";}
        print "><font color=\"Green\">Green</font>\n";
    print "<input type=radio name=\"textc\" value=\"#ffffff\"";
        if ($textcolor eq "#ffffff") {print "checked";}
        print "><font color=\"White\">White\n";
    print "<input type=radio name=\"textc\" value=\"#0000ff\"";
        if ($textcolor eq "#0000ff") {print "checked";}
        print "><font color=\"Blue\">Blue</font><br><br>\n";
    print "<font face=\"verdana, helvetica, arial\" size=\"1\" color=\"black\">Link color:</font><br>\n";
    print "<input type=radio name=\"linkc\" value=\"#000000\"";
        if ($linkcolor eq "#000000") {print "checked";}
        print "><font color=\"#000000\">Black\n";
    print "<input type=radio name=\"linkc\" value=\"#800000\"";
        if ($linkcolor eq "#800000") {print "checked";}
        print "><font color=\"Maroon\">Maroon</font>\n";
    print "<input type=radio name=\"linkc\" value=\"#ff0000\"";
        if ($linkcolor eq "#ff0000") {print "checked";}
        print "><font color=\"Red\">Red</font>\n";
    print "<input type=radio name=\"linkc\" value=\"#ffff00\"";
        if ($linkcolor eq "#ffff00") {print "checked";}
        print "><font color=\"Yellow\">Yellow</font>\n";
    print "<input type=radio name=\"linkc\" value=\"#00ff00\"";
        if ($linkcolor eq "#00ff00") {print "checked";}
        print "><font color=\"Green\">Green</font>\n";
    print "<input type=radio name=\"linkc\" value=\"#ffffff\"";
        if ($linkcolor eq "#ffffff") {print "checked";}
        print "><font color=\"White\">White\n";
    print "<input type=radio name=\"linkc\" value=\"#0000ff\"";
        if ($linkcolor eq "#0000ff") {print "checked";}
        print "><font color=\"Blue\">Blue</font><br><br>\n";
    print "<font face=\"verdana, helvetica, arial\" size=\"1\" color=\"black\">Visited Link Color:</font><br>\n";
    print "<input type=radio name=\"vlinkc\" value=\"#000000\"";
        if ($vlinkcolor eq "#000000") {print "checked";}
        print "><font color=\"#000000\">Black\n";
    print "<input type=radio name=\"vlinkc\" value=\"#800000\"";
        if ($vlinkcolor eq "#800000") {print "checked";}
        print "><font color=\"Maroon\">Maroon</font>\n";
    print "<input type=radio name=\"vlinkc\" value=\"#ff0000\"";
        if ($vlinkcolor eq "#ff0000") {print "checked";}
        print "><font color=\"Red\">Red</font>\n";
    print "<input type=radio name=\"vlinkc\" value=\"#ffff00\"";
        if ($vlinkcolor eq "#ffff00") {print "checked";}
        print "><font color=\"Yellow\">Yellow</font>\n";
    print "<input type=radio name=\"vlinkc\" value=\"#00ff00\"";
        if ($vlinkcolor eq "#00ff00") {print "checked";}
        print "><font color=\"Green\">Green</font>\n";
    print "<input type=radio name=\"vlinkc\" value=\"#ffffff\"";
        if ($vlinkcolor eq "#ffffff") {print "checked";}
        print "><font color=\"White\">White\n";
    print "<input type=radio name=\"vlinkc\" value=\"#0000ff\"";
        if ($vlinkcolor eq "#0000ff") {print "checked";}
        print "><font color=\"Blue\">Blue</font><br><br>\n";
    
    
    print "</td></tr><tr><td bgcolor=lightgrey><font face=\"verdana, helvetica, arial\" size=\"1\"><b>Font face:</b></font><br>\n";
    print "</td></tr><tr><td bgcolor=white><input type=radio name=\"fontface\" value=\"Arial\"";
        if ($fontface eq "Arial") {print "checked";}
        print "><font face=\"Arial\">Arial</font><br><br>\n";
    print "<input type=radio name=\"fontface\" value=\"Times\"";
        if ($fontface eq "Times") {print "checked";}
        print "><font face=\"Times\">Times</a><br><br>\n";
    print "<input type=radio name=\"fontface\" value=\"Verdana\"";
        if ($fontface eq "Verdana") {print "checked";}
        print "><font face=\"Verdana\">Verdana</font><br><br>\n";
    print "<input type=radio name=\"fontface\" value=\"Georgia,times\"";
        if ($fontface eq "Georgia,times") {print "checked";}
        print "><font face=\"Georgia,times\">Georgia</font><br><br>\n";
    
    
    
    
    print "</td></tr><tr><td bgcolor=lightgrey><font face=\"verdana, helvetica, arial\" size=\"1\"><b>Background color:</b><br>\n";
    print "</font></td></tr><tr><td bgcolor=white>\n";
          opendir (TN, "$tnbg_dir");
          rewinddir (TN);
          @tnlist =  grep(!/^\.\.?$/, readdir (TN));
          closedir (TN);
    
       $tnnum = @tnlist;
       $cnum = "0";
       $lend = "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>\n";
          $cnum = $cnum + 1;
    $lend = $lend + 1;
       if ($lend eq "5"){
       print "<br><br>\n";
       $lend = 0;
        }
       }
    
    print "<br><br>\n";
    print "</td></tr><tr><td bgcolor=lightgrey><font face=\"verdana, helvetica, arial\" size=\"1\"><b>Contrast color:</b><br>\n";
    print "</td></tr><tr><td bgcolor=white>\n";
          opendir (TN, "$tnbg_dir");
          rewinddir (TN);
          @tnlist =  grep(!/^\.\.?$/, readdir (TN));
          closedir (TN);
    
       $tnnum = @tnlist;
       $cnum = "0";
       $lend = "0";   
       while ($tnnum > $cnum) {
          print "<input type=radio name=\"background2\" value=\"$tnbg_dir_url/$tnlist[$cnum]\" " ;
          if ($bgimage2 eq "$tnbg_dir_url/$tnlist[$cnum]") {print "checked";}
          print "><img src=\"$tnbg_dir_url/$tnlist[$cnum]\" border=1></a>\n";
          $cnum = $cnum + 1;
    $lend = $lend + 1;
       if ($lend eq "5"){
       print "<br><br>\n";
       $lend = 0;
        }
    
       }
    
    print "</font><br><br>\n";
    print "</td></tr><tr><td bgcolor=lightgrey><font face=\"verdana, helvetica, arial\" size=\"1\"><b>Horizontal Line:</b><br>\n";
    print "</font></td></tr><tr><td bgcolor=white>\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 "><font face=\"verdana, helvetica, arial\" size=\"1\">No Line</font><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 "</td></tr><tr><td bgcolor=lightgrey><font face=\"verdana, helvetica, arial\" size=\"1\"><b>Bullet:</b><br>\n";
    print "</font></td></tr><tr><td bgcolor=white>\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 "><font face=\"verdana, helvetica, arial\" size=\"1\">No Bullet</font><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;
        }
       }
    if(! $csdisplaymailto){
     print "<input type=hidden name=\"emailgif\" value=\"$emailpic\">\n";
    } else {
    print "</td></tr><tr><td bgcolor=lightgrey><font face=\"verdana, helvetica, arial\" size=\"1\"><b>E-mail image:</b><br>\n";
    print "</font></td></tr><tr><td bgcolor=white>\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></font>\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><font face=\"verdana, helvetica, arial\"><h1>Permission Denied</h1></p>\n";
    print "You do not have permission $updact\n";
    print "<p>(Return to <a href=\"$baseurl\">Index</a>)</font>\n";
    print "</body></html>\n";
    exit;
        }
     
    Last edited by a moderator: Mar 16, 2007
  2. shabbir

    shabbir Administrator Staff Member

    Joined:
    Jul 12, 2004
    Messages:
    15,283
    Likes Received:
    364
    Trophy Points:
    83
    Duplicate of [thread=3421]Help with ezhomesite script[/thread]. Thread closed.
     
Thread Status:
Not open for further replies.

Share This Page