#!/usr/bin/perl

require 'ladmanager.pl';
$globalbusycheck=&GlobalBusyStatus(1);
#$busycheck=&LadderBusyStatus($laddername);
#$globalbusycheck=0;
if ($globalbusycheck==0) {

$timeshiftinhours=&CheckTimeShift();

if (defined($ENV{'QUERY_STRING'})) {
        $lineinput=$ENV{'QUERY_STRING'};
        @linepairs = split(/&/, $lineinput);
        foreach $linepair (@linepairs) {
           ($name, $value) = split(/=/, $linepair);
           $value =~ tr/+/ /;
           $LINEFORM{$name} = $value;
        }
}

#Read in configuration file to get ladder data.
open(CONFIG, "< $ladconfigfile");
@cfglines=<CONFIG>;
close(CONFIG);
$counter=0;
@laddernames=();
@laddershortnames=();
@ladtypes=();
foreach $cfgline (@cfglines) {
    chop($cfgline);
    if ($counter==0) {
      (undef,undef,undef,$numladders)=split(/\t/,$cfgline);
    } else {
      ($laddername,$laddershortname,$ladtype,undef)=split(/\t/,$cfgline,4);
      push @laddernames, $laddername;
      push @laddershortnames, $laddershortname;
      push @ladtypes, $ladtype;
    }
    $counter++;
}

#Check for cookie info for showing the current view preferences in the output.
if (defined($ENV{ 'HTTP_COOKIE' })) {
    $cookieinfo=$ENV{ 'HTTP_COOKIE' };
# Split the name-value pairs from the line input IF necessary
    @cookiepairs = split(/; /, $cookieinfo);
    foreach $cookiepair (@cookiepairs) {
        ($cookiename, $cookievalue) = split(/=/, $cookiepair);
        $cookievalue =~ tr/+/ /;
        $COOKIEFORM{$cookiename} = $cookievalue;
    }
}
if($COOKIEFORM{'Ladderview'}) {
    ($mainwindpref,undef)=split(/~/,$COOKIEFORM{'Ladderview'});
} else {
# Set the default value
    $mainwindpref=-1;
}

if (defined($COOKIEFORM{'LadderID'})) {
    ($username,undef)=split(/~/,$COOKIEFORM{'LadderID'});
}

#   First get the required other values based on the ladder referred to.
$laddervalidflag=0;

# Give the URL line precedence so a user can view other ladders other than what is in their cookie.
# only use the Ladder cookie preference if no ladder specified in the cgi call URL.

if (defined($LINEFORM{'ladder'})) {
   for ($i=0;$i<@laddershortnames;$i++) {
       if ($laddershortnames[$i] eq $LINEFORM{'ladder'}) {
            $laddername=$laddernames[$i];
            $laddershortname=$laddershortnames[$i];
            $ladtype=$ladtypes[$i];
            $laddervalidflag=1;
       }
   }
} elsif ($mainwindpref>0) {
    $laddername=$laddernames[$mainwindpref-1];
    $laddershortname=$laddershortnames[$mainwindpref-1];
    $ladtype=$ladtypes[$mainwindpref-1];
    $laddervalidflag=1;

} else {
  $laddershortname="none";
}



# Print out a content-type for HTTP/1.0 compatibility
print "Content-type: text/html\n\n";

&PrintHeaders("main");

# Begin alert special announcement.
#print <<EOF;
#<table width="70%" align="center" border="1" bordercolor="#FF0000" bgcolor="#FFFFCC" cellpadding="5" CELLSPACING="2">
#<tr valign="top"><td class="annbody">
#<center><b>ATTENTION! SPECIAL MESSAGE FOR ALL PARTICIPANTS!!!</b></center>
#February 13, 2003<br>
#LGC Executive Director decision:<br><br>
#<b>NO</b> matches played before Feb 13, 2003 are to be reported to the ladder.
#<br>
#Inactivity penalties have been deactivated until February 20.<br>
#No inactivity penalties incurred as a result of the downtime.<br>
#The ladder is back in good shape and here for all to use.<br>
#<br>
#Happy Valentine's Day!  -blutch<br><br>
#Note from LN2:  I declare the ladders reopened for ladder play.  Play on!!!<br>
#For a more detailed report about this decision please read blutch's complete letter to the LGC 
#<a href="http://www.linksgolfcommunity.com/forums/viewtopic.php?topic=470&forum=14&0" target="_blank" class="annlink"><b>HERE</b></a>.
#</td></tr></table>
#<br>
#
#EOF
# end alert special announcement.


print "<table align=\"center\" width=\"99%\" BORDER=\"0\" CELLSPACING=\"0\" CELLPADDING=\"0\">\n";
print "<tr valign=\"top\">\n<td width=\"50%\" align=\"center\" class=\"clrtxt2\">\n";

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =gmtime(time-($timeshiftinhours*3600));
      print "<b>";
      $year=$year+1900;
      print "Welcome " . $username . " !&nbsp;&nbsp;&nbsp;&nbsp;" . $daysofweek[$wday] . ",&nbsp;" . $monthsofyear[$mon] . " " . $mday . ", " . $year . "</b><br><br>";




print "<table align=\"center\" BORDER=\"0\" CELLSPACING=\"0\" CELLPADDING=\"0\">\n";

print <<EOF;
   <tr>
     <td colspan="3">
             <table align="center" BORDER="0" CELLSPACING="0" CELLPADDING="5">
              <tr>
                <td>
              <form NAME="menu">
                 <select name="url" onchange="gotosite(this.options[this.selectedIndex].value)">
                   <option value="">--Select A Ladder--</option>
EOF
for ($i=0;$i<@laddershortnames;$i++) {
    print "                   <option value=\"index.cgi?ladder=" . $laddershortnames[$i] . "\"";
    if ($laddershortnames[$i] eq $laddershortname) {
      print " selected";
    }
    print ">" . $laddernames[$i] . " Ladder</option>\n";
}

  print <<EOF;
               </select>
               <INPUT type="HIDDEN" value="GO"  onsubmit="gotosite(document.forms[0].url.options[document.forms[0].url.selectedIndex].value);return false">
             </form>
           </td>
           </tr>
           </table>
           <br>
           <table align="center" border="0" width="85%" cellpadding="0" cellspacing="0"><tr><td height="2" bgcolor="#A3AB84"></td></tr></table>
        <br>
    </td>
  </tr>
EOF

if ($laddervalidflag==1) {  #means a certain ladder was selected to view
# Check for inactivities
  &CheckInactives($laddershortname);

   print "<tr>\n<td align=\"center\"><a href=\"leaderboard.cgi?ladder=" . $laddershortname;
   print "\" onMouseOver=\"HiLite('nav_board')\" onMouseOut=\"NoLite('nav_board')\">";
   print "<img src=\"../../ladder/images/boardoff.jpg\" alt=\"board\" border=\"0\" name=\"nav_board\"></a></td>\n";
   print "<td align=\"center\"><a href=\"stats.cgi?ladder=" . $laddershortname;
   print "\" onMouseOver=\"HiLite('nav_stats')\" onMouseOut=\"NoLite('nav_stats')\">";
   print "<img src=\"../../ladder/images/statsoff.jpg\" alt=\"Stats\" border=\"0\" name=\"nav_stats\"></a></td>\n";
   print "<td align=\"center\"><a href=\"reportloss.cgi?ladder=" . $laddershortname;
   print "\" onMouseOver=\"HiLite('nav_reportloss')\" onMouseOut=\"NoLite('nav_reportloss')\">";
   print "<img src=\"../../ladder/images/reportlossoff.jpg\" alt=\"Reportloss\" border=\"0\" name=\"nav_reportloss\"></a></td>\n</tr>\n";

# Read in data from the ladder and print the names for the Top 30.
$filename=$maindatapath . $laddershortname . "/" . $leaderboarddatfile;
open(FILE, "< $filename");
@lines=<FILE>;
close(FILE);
@names=('-','-','-','-','-','-','-','-','-','-','-','-','-','-','-','-','-','-','-','-','-','-','-','-','-','-','-','-','-','-');
@streaklist=(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0);
$counter=0;
foreach $line (@lines) {
     	chop($line);                    
   		($name, undef, undef, undef, undef, undef, $streak, undef) = split(/\t/,$line,8);
   		if ($counter<21) {
           $names[$counter]=$name;
           $streaklist[$counter]=$streak;
        }
        $counter++;
}

# Show top 21 if individual ladder, only top 10 if team ladder....team ladders won't be as large so no need to show top 21.
print "<tr><td align=\"left\" colspan=\"3\" class=\"mainlead\"><br><br>Top ";
if ($ladtype==0) {
    print "21 Leaders\n";
    print "<center>\n<table BORDER=\"0\" CELLSPACING=\"1\" CELLPADDING=\"3\">";
    print "<tr>";
    $counter=0;
    for ($i=0;$i<3;$i++) {
       print "<td width=\"120\" class=\"mainlead\"><br>";
       for ($j=0;$j<7;$j++) {
           if ($streaklist[$counter]>4) {
                print "<font color=\"#FFCF55\"><b>";
                print $counter+1 . "&nbsp;" . $names[$counter] . "</b></font><br>";
           } elsif ($streaklist[$counter]<-4) {
                print "<font color=\"#33FFFF\"><b>";
                print $counter+1 . "&nbsp;" . $names[$counter] . "</b></font><br>";
           } else {
                print $counter+1 . "&nbsp;" . $names[$counter] . "<br>";
           }
        $counter++;
        }
        print "</td>";
   }
   print "</tr>";
   print "</table></center>";
}  # end if ladtype==0

if ($ladtype==1) {
    print "10 Leaders\n";
    print "<center>\n<table BORDER=\"0\" CELLSPACING=\"1\" CELLPADDING=\"3\">";
    print "<tr>";
    $counter=0;
    for ($i=0;$i<2;$i++) {
       print "<td width=\"180\" class=\"mainlead\"><br>";
       for ($j=0;$j<5;$j++) {
           if ($streaklist[$counter]>4) {
                print "<font color=\"#FFCF55\"><b>";
                print $counter+1 . "&nbsp;" . $names[$counter] . "</b></font><br>";
           } elsif ($streaklist[$counter]<-4) {
                print "<font color=\"#33FFFF\"><b>";
                print $counter+1 . "&nbsp;" . $names[$counter] . "</b></font><br>";
           } else {
                print $counter+1 . "&nbsp;" . $names[$counter] . "<br>";
           }
        $counter++;
        }
        print "</td>";
   }
   print "</tr>";
   print "</table></center>";
}  # end if ladtype==1
   
print "</td>";
print "</tr>";

} else {
  print "<tr>\n<td class=\"mainlead\">\nWelcome, please select a ladder from the menu above.<br><br></td>\n</tr>\n";
}  #endif
print <<EOF;
</table>
EOF

print "</td>\n";

#Start announcements column

print <<EOF;
<td valign="top" width="2" bgcolor="#A3AB84"></td>
<td>
<table align="center" width="99%" BORDER="0" CELLSPACING="0" CELLPADDING="0">
<tr>
<td align="center" valign="top" colspan="4">
EOF
open(FILE, "< $ladannouncefile");
@lines=<FILE>;
close(FILE);
$i=0;
$noprintannouncementflag=0;
foreach $line (@lines) {
     	chop($line);                    
   		$ladannounce=$line;
#   		print "noprintannouncementflag = " . $noprintannouncementflag . "i = " . $i . "<br><br>";
        if ($ladannounce eq "None" and $i==0) {
            $noprintannouncementflag=1;
        }
#  Need a special if condition just to get headers printed only once if at all.
        if ($noprintannouncementflag==0 and $i==0) {
            print "<table align=\"center\" width=\"95%\" BORDER=\"0\" bordercolor=\"#E4F2CE\" CELLSPACING=\"0\" CELLPADDING=\"0\">";
            print "<tr><td align=\"center\" class=\"clrtxt2\">";
            print "Announcements<br><br>";
            print "<table width=\"95%\" border=\"1\" bordercolor=\"#FF0000\" bgcolor=\"#FFFFCC\" cellpadding=\"0\" CELLSPACING=\"2\">\n";
            print "<tr valign=\"top\">\n<td>\n";
            print "<div id=\"ann\" style=\"overflow:auto; width:100%; height:230px;\">\n";
            print "<table width=\"95%\" align=\"center\" border=\"0\" cellpadding=\"5\">\n<tr valign=\"top\">\n<td class=\"annbody\">";
            print $ladannounce;
        }
        if ($noprintannouncementflag==0 and $i!=0) {
            print $ladannounce;
        }
        $i++;
}
print "<br>";
if ($noprintannouncementflag==0) {
    print "\n</td></tr></table>\n</div>\n</td></tr></table>\n";
    print "</td></tr></table>";
}
print <<EOF;
</td></tr>
<tr>
<td align="center">
<img src="../../ladder/images/usa_ribbon.gif" alt="ribbon" width="51" height="77" border="0">
</td>
<td align="center">
EOF
print "<a href=\"" . $logolink . "\">" . $smlogoimagetag;
print <<EOF;
</a>
</td>
<td align="center">
<a href="http://www.pgatour.com/"><img src="../../ladder/images/pgatour.gif" height="72" width="53" border="0" alt="PGAtour.com"></a>
</td>
<td align="center">
<a href="http://golf.fantasysports.yahoo.com/golf">
<img alt="Fantasy Golf" src="../../ladder/images/golffront.gif" width="75" height="75" border="0"></a>
</td>
</tr>
<tr>
<td align="center" class="mainsm">United<br>We Stand!</td>
<td align="center" class="mainsm">LGC Home</td>
<td align="center" class="mainsm">PGA Tour</td>
<td align="center" class="mainsm">Yahoo<br>Fantasy Golf</td>
</tr>
</table>
</td>
</tr>
</table>
<br>
EOF

# Print out the last 3 days of news and match results for the ladder selected if there was one selected.
if ($laddervalidflag==1) {  
  print "<table align=\"center\" border=\"0\" width=\"85%\" cellpadding=\"0\" cellspacing=\"0\">\n";
  print "<tr><td height=\"2\" bgcolor=\"#A3AB84\"></td></tr>\n</table>\n";

# Read in ladder news
  $filename=$maindatapath . $laddershortname . "/" . $newsdat;
  open(FILE, "< $filename");
  @newslines=<FILE>;
  close(FILE);
# Read in match history
  $filename=$maindatapath . $laddershortname . "/" . $matchhistdat;
  open(FILE, "< $filename");
  @lines=<FILE>;
  close(FILE);
  print "<table width=\"95%\" BORDER=\"0\" CELLSPACING=\"0\" CELLPADDING=\"0\">\n";
  for ($numdays=0;$numdays<3;$numdays++) {
  #  First let's get the selected month, year, and day to use as a criteria.
      ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =gmtime(time-($timeshiftinhours*3600)-($numdays*86400));
# Ladder news criteria selection for display.
      @todaysladnews=();
      foreach $newsline (@newslines) {
           if ($numdays==0) {
     	      chop($newsline);
     	   }                    
   		   ($dayname, $dayofmonth, $month, $yyyear, $news) = split(/\t/,$newsline);
# if same day(today) then we want to update the today arrays so then we can display them on the main page.
   		   if ($dayofmonth==$mday and $month==$mon and $yyyear==$year) {
              push @todaysladnews, $news;
   		   }   		
      }
      print "<tr>";
      print "<td align=\"center\" valign=\"top\" width=\"50%\" class=\"mainlg\"><br><br>";
      if ($numdays==0) {
        print "Today's ";
      } elsif ($numdays==1) {
        print "Yesterday's ";
      } else {
        print $daysofweek[$wday] . "'s ";
      }
      print "News<br><br>";
      print "<table align=\"center\" BORDER=\"1\" bordercolor=\"#FFFFFF\" CELLSPACING=\"1\" CELLPADDING=\"3\">\n";
      $size=@todaysladnews;
      if ($size==0) {
         print "<tr><td align=\"center\" class=\"mainlead\">";
         print "None";
         print "</td></tr>";
      }
      for ($j=0;$j<$size;$j++) {
          print "<tr><td align=\"center\" class=\"mainlead\">";
          print $todaysladnews[$j] . "</td>\n</tr>\n";
      }
      print "</table>\n</td>\n";
      @todayswinners=();
      @todayswinranks=();
      @todayslosers=();
      @todaysloserranks=();
      @comments=();
      @todayschangeskillpts=();
      foreach $line (@lines) {
           if ($numdays==0) {
     	      chop($line);                    
     	   }                    
   		  ($winname, $winrank, $losername, $loserrank, $changepts, $dayname, $dayofmonth, $month, $yyyear, $comment) = split(/\t/,$line);
# if same day(today) then we want to update the today arrays so then we can display them on the main page.
   		  if ($dayofmonth==$mday and $month==$mon and $yyyear==$year) {
             push @todayswinners, $winname;
             push @todayswinranks, $winrank;
             push @todayslosers, $losername;
             push @todaysloserranks, $loserrank;
             push @todayschangeskillpts, $changepts;
             $comment =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
             $comment =~ s/\"/&quot;/g;
             $comment =~ s/'/\\'/g;
             push @comments, $comment;
   		  }   		
      }
      print "<td align=\"center\" valign=\"top\" width=\"50%\" class=\"mainlg\"><br><br>";
      if ($numdays==0) {
        print "Today's ";
      } elsif ($numdays==1) {
        print "Yesterday's ";
      } else {
        print $daysofweek[$wday] . "'s ";
      }
      print "Results<br><br>";
      print "<table align=\"center\" BORDER=\"1\" bordercolor=\"#FFFFFF\" CELLSPACING=\"1\" CELLPADDING=\"3\">\n";
      $size=@todayswinners;
      if ($size==0) {
          print "<tr><td align=\"center\" class=\"mainlead\">";
          print "None played";
          print "</td></tr>";
      }
      for ($j=0;$j<$size;$j++) {
          print "<tr><td align=\"center\" class=\"mainlead\">";
          print $todayswinners[$j] . " ( " . $todayswinranks[$j] . " ) defeated " . $todayslosers[$j] . " ( ";
          print $todaysloserranks[$j] . " ) -- " . $todayschangeskillpts[$j] . " pts ";
          if ($comments[$j] ne 'n') {
             print "<a href=\"javascript:writepopupComment('" . $comments[$j] . "')\">";
             print "<img src=\"../../ladder/images/comment.gif\" border=\"0\" height=\"15\" width=\"19\"></a>";
          }
          print "</td></tr>";
      }
      print "</table>\n</td>\n</tr>\n";
      print "<tr><td colspan=\"2\"><br>";
      print "<table align=\"center\" BORDER=\"0\" CELLSPACING=\"0\" CELLPADDING=\"0\">\n";
      print "<tr><td><br>\n";
      if ($numdays!=2) {
         print "<table align=\"center\" border=\"0\" width=\"200\" cellpadding=\"0\" cellspacing=\"0\">\n";
         print "<tr><td height=\"2\" bgcolor=\"#A3AB84\"></td></tr>\n</table>\n";
      }
      print "</td></tr></table>\n";
      print "</td></tr>\n";

  }  #end big for loop
# bgcolor=\"#CCFF00\"
print "</table>\n<br>\n";

}

&PrintFooter("main");

&GlobalBusyStatus(0);
}  #end main code