#!/usr/local/bin/perl
################################################################################
# sportsclub.cgi
# Point of entry for sportsline rewards. Send user to either club or signup page
# Author: Craig Rosenshein
# 10/25/98
################################################################################

use CGI qw(:standard);
require "/html/u/rewards/club_lib.pl";

$form = new CGI;

chop($system = `uname -n`);
$system = "cbs" unless $system eq "stage1";

####
#  put up the club page
####
%spl = $form->cookie('SportsLine');
$sid = $form->cookie('SessionID');

($usr_login, $fn, $ln, $points, $entries, $exp_date) = &get_name;
&print_club_page;	
exit;

sub get_name
{
  my $usr_login = "";
  my $first = "";
  my $last = "";
  my $pts = 0;
  my $entries = 0;
  my $date_entered = "";
  my ($exp_mon, $exp_day, $exp_year, $exp_date);

  $usr_login = $spl{'userid'};
  $usr_login =~ tr/A-Z/a-z/;

  if ($sid && !$usr_login)
  {
    my $sinfo = `/html/u/rewards/contests/register/get_scid $sid`;
    my @sfields = split(":,:", $sinfo);
    $usr_login = $sinfo[1] if ($sinfo[0] eq "0");
  }

  return ($usr_login, $first, $last, $pts, $entries, $exp_date) unless $usr_login;

  my $info = `/html/u/rewards/contests/register/get_info $usr_login`;
  my @mid = split(":,:", $info);
  my $scid = $mid[15];
  return ($usr_login, $first, $last, $pts, $entries, $exp_date) if ($mid[0] ne "0" || !$scid || $mid[23] eq "0");

  $first = $mid[5];
  $last = $mid[6];

  my $get_rwm = `/html/u/rewards/contests/register/get_rwmaster $scid`;
  my @rwmaster = split(":,:", $get_rwm);
  return ($usr_login, $first, $last, $pts, $entries, $exp_date) if ($rwmaster[0] < 0);

  $pts = $rwmaster[7];
  chomp($pts);

  # Use the date_entered to figure out the point expiration date for FREE members.
  $date_entered = $rwmaster[2];
  $user_type = $rwmaster[4];
  $exp_date = &gen_exp_date($date_entered, $user_type);

  my $sweeps = `/html/u/rewards/contests/register/get_rwsweeps $scid "$sweeps_name"`;
  my @sweeps = split(":,:", $sweeps);
  $entries = $sweeps[2] if ($sweeps[0] == 0);

  return ($usr_login, $first, $last, $pts, $entries, $exp_date);
}