$title

&MLMP::OpenCompanyDB; &MLMP::CompanyLinks($fields{'userid'},$fields{'parent'}); ##

##

#!/usr/bin/perl
###########################################################
# MLM Manager 2.0 Pro
# Mage Software, Inc.
# http://www.magesoft.com
# member_page.cgi
# Version 1.2.1
#----------------------------------------------------------
# DESCRIPTION
# This script generates the top level html for an
# individual member page.  It generates the title by
# querying the member database, then generates a top
# frame and a bottom frame, including header.cgi and
# page_body.cgi respectively. 
#
#----------------------------------------------------------
# Copyright 1996,2000
# Mage Software, Inc.
# http://www.magesoft.com
# All Rights Reserved
###############################################################
use strict;
use lib '/home/independence/.mgcfg/mlm_pro/lib';
use MLMP;

my $title;
my $header_text;
my $email;
my $tbody;
my $thing;
my @page;

if ($MLMP::disable) 
{
 &MLHTM::HTML_Header( "$MLMP::MLMWEB_NAME Member Pages" );
 &MLHTM::HTML_Section( "Down for Maintenance",
    "The $MLMP::MLMWEB_NAME automatic web page system is temporarily down\n".
    "for maintenance.  We apologize for any inconvenience.\n" );
 exit;
 }

#
# Get the member key from the URL name
#

my ($userid,$page_name)=&Grab_Info;
 
my $key=$userid;

  &MLMP::OpenMemberDB();

if ($key eq "MAINSITE")
  {
   $key=&MLMP::Rotate_Index; 
   print "Content-type: tex/html\n\n";
   print qq!!;
&MLHTM::HTML_FOOTER;
exit;
   }

my %fields=&MLMP::LoadMember($key);
  
if (scalar keys %fields <= 0) 
{
 $key=$MLMP::default_key;
 $title=$MLMP::default_title;
 $header_text=$MLMP::default_header_text;
 $email=$MLMP::default_email;
 } 
else 
{
 $title=$fields{'htmltitle'};
 $email=$fields{'email'};
 $header_text=$MLMP::default_header_text;
 }
$header_text =~ s/\W/+/g;
&MLMP::OpenCompanyDB;
&MLMP::CompanyLinks($fields{'userid'},$fields{'parent'});
if ($MLMP::frames_mode eq "off")
{
 open TEMPLATE,"<$MLMP::web_template_dir/$page_name";
 @page=