#!/usr/bin/perl
require "sm.pl";
require "sm_html.pl";
require "sm-lib.pl";

require "cookie-lib.pl";
require "Date.pl";


&formdata;
$mbr_id=$FORM{'i'};

$aff_id=$FORM{'aid'};
if ($aff_id ne ""){
 &getaffinfo;
}



$uid=$FORM{'uid'};
$datenow=&today;

if ($mbr_id eq ""){
 if (&GetCookies($cookiename)){
  &GetCompressedCookies($cookiename);
  $cookie_id=$Cookies{'a'};
  if ($cookie_id ne ""){
   &chkmbr_cookie;
  }
  else{
   &delete_cookie($cookiename);
   $mbr_id = "";
   $uid = "";
  }
 }
}
else{
 &getmbrinfo;
}

$before=$uid;
&chkuid;
$after=$uid;

if ($cookieset eq "N"){
 &sh_header;
}
&sh_title ("$title");
&sh_body ($bg);

if ($mbr_id ne ""){
 &updatefreq;
}

&tabs("WE");
&menubar;
&leftbar;
&openingpage;
&rightbar;
&sh_mainpg4;
&sh_artistlinks;
&sh_footer;

#************************************************************************