#!/usr/bin/perl
#
# $Header: /home/whelan/cvsroot/joetbrw/2002/scripts/ranking_comparison,v 1.6 2002/03/03 8:24:01 whelan Exp $
#

use KRACH;
use Fcntl;
use Time::Local;
require 'common.pl';
require 'modpairwise.pl';

use Getopt::Long;
Getopt::Long::config('auto_abbrev');

GetOptions('i|scores=s' => \$infile, # Score input file (default STDIN)
	   'o|comps=s' => \$outfile, # PWC output file
	   'tucs=s' => \$losers, # TUCs specified by hand
	   'quick' => \$quickflag, # Only calculate PWCs
	   'kcomps=s' => \$koutfile, # KRACH-PWC output file
	   'refweight=f'=> \$refweight, # Weight for ref games in KRACH
	                                # (default 0)
	   'indata=s'=> \$indata, # read the non-TUC data from this file
                                  # (instead of calculating it)
	   'outdata=s'=> \$outdata, # write the non-TUC data to this file
	   'onetol=f' => \$onetol, # tolerance for one-shot KPct soln
	   'systol=f' => \$systol, # tolerance for KPct system soln
	   'nolink' => \$nlflag, # Suppress links in PWC table(s)
	   'date=i' => \$stopdate, # Only use scores before $stopdate
	   'folder=s' => \$tabsdir, # put tables in this directory
	   ); 

if (defined $onetol) {
    Criterion->tol($onetol);
}
if (defined $systol) {
    Group->tol($systol);
}
unless (defined $stopdate) {
        $stopdate = 30001231;
}


%name=(
Ab => 'Albany', 
AF => 'Air Force', 
Ar => 'Army', 
BC => 'Boston Coll',
Bh => 'Binghamton', 
Bk => 'Bucknell', 
Br => 'Brown', 
Bu => 'Butler', 
Cg => 'Colgate', 
Cn => 'Canisius', 
Cr => 'Cornell', 
Da => 'Dartmouth', 
De => 'Delaware', 
Dk => 'Duke', 
Dr => 'Drexel', 
DU => 'Denver', 
Ff => 'Fairfield', 
Gt => 'Georgetown', 
Ha => 'Harvard', 
Hb => 'Hobart', 
HC => 'Holy Cross', 
Hf => 'Hartford', 
Ho => 'Hofstra', 
JH => 'Johns Hopkins',
Le => 'Lehigh', 
Lf => 'Lafayette', 
Lo => 'Loyola', 
Ma => 'UMass', 
MB => 'UMBC', 
Md => 'Maryland', 
Mh => 'Manhattan', 
Mr => 'Marist', 
MS => 'Mt St Mary\'s', 
Na => 'Navy', 
NC => 'No. Carolina', 
ND => 'Notre Dame', 
OS => 'Ohio State', 
Pn => 'Pennsylvania', 
Pr => 'Princeton', 
PS => 'Penn State', 
Pv => 'Providence', 
Qn => 'Quinnipiac', 
Ru => 'Rutgers', 
SB => 'Stony Brook', 
SH => 'Sacred Heart', 
Si => 'Siena', 
SJ => 'St. Joseph\'s', 
Sy => 'Syracuse',
To => 'Towson', 
Va => 'Virginia', 
Vi => 'Villanova', 
VM => 'VMI',
Vt => 'Vermont', 
Wa => 'Wagner', 
       Ya => 'Yale');

unless ($quickflag) {

    %class=(1=>' class="won"','-1'=>' class="lost"',0=>'','-0'=>'');
	     
    %conf_team=(AC=>[qw(Dk Md NC Va)],
		AE=>[qw(Ab Bh Hf Qn SB Vt)],
		CA=>[qw(De Dr Ho Lo SH To Vi)],
		EC=>[qw(Gt Ma MB Na PS Ru)],
		GW=>[qw(AF Bu DU Ff ND OS)],
		IL=>[qw(Br Cr Da Ha Pn Pr Ya)],
		MA=>[qw(Cn Mh Mr MS Pv Si SJ Wa)],
		PL=>[qw(Ar Bk Cg Hb HC Le Lf)],
		Indy=>[qw(JH Sy)]);    
    
    @conf=keys %conf_team;

    foreach $conf (@conf) {
	foreach (@{$conf_team{$conf}}) {
	    $conf{$_}=$conf;
	}
    }
    
    %html_name=%name;
}

while (($abbr,$name)=each %name) {
    new Team(abbr=>$abbr, name=>$name);
}

if ($indata) {
    $dataref=retrieve($indata);
    %Team::TEAM=%{$dataref};
}
else {
    $date=&initscores($infile);
    if ($refweight) {
	$ref=new Team;
	foreach (Team->team) {
	    unless ($ref eq $_) {
		$ref->game(0,$_,0,weight=>$refweight);
	    }
	}
	foreach (Team->team) {
	    $_->krach;
	}
	warn $ref->krach if $^W;
	warn 1/(1+1/$ref->krach) if $^W;
	delete $Team::TEAM{$ref=$ref->abbr};
	foreach $team (Team->team) {
	    foreach (grep {/^_/} keys %{$team}) {
		next if $_ eq '_pf' or $_ eq '_krach' or $_ eq '_chain'
		    or $_ eq '_t' or $_ eq '_recent';
		delete $team->{$_};
	    }
	    delete $team->{_pf}{$ref};
	    delete $team->{_chain}[0]{$ref};
	    delete $team->{_chain}[1]{$ref};
	    shift @{$team->{_recent}};
	    shift @{$team->{_recent}};
	}
    }
    elsif ($koutfile) {
	warn "Caching KRACH" if $^W;
	foreach (Team->team) {
	    $_->krach;
	}
    }
    unless ($quickflag or not $koutfile) {
	warn "Caching last 8" if $^W;
	foreach $team (Team->team) {
	    $team->Last(8)->krach;
	}
	warn "Caching Hockey RPI" if $^W;
	foreach $team (Team->team) {
	    $team->rpi;
	}
	warn "Caching NCAA RPI" if $^W;
	foreach $team (Team->team) {
	    $team->rpi(.25,.5,.25);
	}
	warn "Caching RPIStr" if $^W;
	foreach $team (Team->team) {
	    $team->data('RPIStr',(10*$team->pct+3*$team->opppct)/13);
	}
	warn "Caching RPISOS" if $^W;
	foreach $team (Team->team) {
	    $team->data('RPISOS',(10*$team->opppct+3*$team->oppopppct)/13);
	}
	@tuc=TUCdef->tucdef->teams;
	warn "Caching common opponents" if $^W;
	foreach $team (@tuc) {
	    foreach (@tuc) {
		$team->common($_)->hhwp($_->common($team));	    
	    }
	}
    }
}

if ($losers) {
    foreach (split /,/ , $losers) {
	Team->team($_)->maketuc;
    }
    @tuc=TUCdef->tucdef->teams;
}

@team = Team->team;

$UMBC = Team->team('MB');
unless ($quickflag or not $koutfile) {
    warn "Caching KSOS" if $^W;
    foreach $team (Team->team) {
	if ($team->pf && $team->hhwp($UMBC)) {
	    $team->data('KSOS',($team->krach*($team->pa)/($team->pf))) 
	    }
    }
}

foreach (@team) {
    if ($_->connection($UMBC,'>')) {
	warn $_->abbr, " infinite";
 	$_->data('KRACH','∞');
    }
    elsif ($_->connection($UMBC,'<')) {
	warn $_->abbr, " zero";
 	$_->data('KRACH',0);
    }
    else {
 	$_->data('KRACH',&five(100*$_->krach));
    }
}

unless ($quickflag or not $koutfile) {
    warn "Caching vs TUC" if $^W;
    foreach $team (@tuc) {
	foreach (@tuc) {
	    $team->tuc($_)->hhwp($_->tuc($team));	    
	}
    }

    if ($outdata) {
	store(\%Team::TEAM,$outdata);
    }

    warn "Sorting by RRWP" if $^W;
    
    @team = sort {$b->rrwp<=>$a->rrwp
		      or $a->name cmp $b->name} @team;
    
    $i=0;
    foreach (@team) {
	$_->data('RRWPrk',++$i);
    }
    
    warn "Sorting by winning percentage" if $^W;
    
    $i=0;
    foreach (@teambypct = sort {$b->pct<=>$a->pct 
				    or $a->name cmp $b->name} @team) {
	$_->data('Pctrk',++$i);
    }
    
    warn "Sorting by hockey RPI" if $^W;
    
    $i=0;
    foreach (sort {$b->rpi<=>$a->rpi
				    or $a->name cmp $b->name} @team) {
	$_->data('HRPIrk',++$i);
    }

    warn "Sorting by NCAA RPI" if $^W;
    
    $i=0;
    foreach (@teambyrpi = sort {$b->rpi(.25,.5,.25)<=>$a->rpi(.25,.5,.25)
				    or $a->name cmp $b->name} @team) {
	$_->data('NRPIrk',++$i);
    }

    warn "Sorting by RPIStr" if $^W;
    
    $i=0;
    foreach (sort {$b->data('RPIStr')<=>$a->data('RPIStr')
		       or $a->name cmp $b->name} @team) {
	$_->data('RPIStrrk',++$i);
    }

    warn "Sorting by Opp Pct" if $^W;
    
    $i=0;
    foreach (sort {$b->opppct<=>$a->opppct
		       or $a->name cmp $b->name} @team) {
	$_->data('OppPctrk',++$i);
    }

    warn "Sorting by Opp Opp Pct" if $^W;
    
    $i=0;
    foreach (sort {$b->oppopppct<=>$a->oppopppct
		       or $a->name cmp $b->name} @team) {
	$_->data('OppOppPctrk',++$i);
    }

    warn "Sorting by RPISOS" if $^W;
    
    $i=0;
    foreach (sort {$b->data('RPISOS')<=>$a->data('RPISOS')
		       or $a->name cmp $b->name} @team) {
	$_->data('RPISOSrk',++$i);
    }

    warn "Sorting by KSOS" if $^W;
    
    $i=0;

    foreach (sort {$b->data('KSOS')<=>$a->data('KSOS')
		       or $a->name cmp $b->name} @team) {
	$_->data('KSOSrk',++$i);
    }

    warn "Sorting by Last 8" if $^W;
    
    $i=0;

    foreach (sort {$b->Last(8)->pct<=>$a->Last(8)->pct
		       or $a->name cmp $b->name} @tuc) {
	$_->data('L8rk',++$i);
    }

    warn "Sorting by Last 8 KRACH" if $^W;
    
    $i=0;
}
    
@tuc=TUCdef->tucdef->teams;

warn 'Calculating pairwise comparisons' if $^W;

unless ($quickflag) {
    foreach $team (@team) {
	$team->data('PWR','');
	$team->data('PWRrk','');
    }
}

foreach $team (@tuc) {
    $team->data('PWC',{});
    $team->data('comps',[]);
    foreach (@tuc) {
	if ( ($team->data('PWC')->{$_->abbr}=&pairwise($team,$_)) > 0 ) {
	    unshift @{$team->data('comps')}, $_;
	}
    }
    $team->data('PWR',scalar(@{$team->data('comps')}));
}
warn Team->team('Pr')->data('PWC')->{Lo};

warn 'Sorting by PWCs' if $^W;

@tuc=&pwsort([@tuc],{map {($_->abbr, $_->data('PWR'))} @tuc});

$i=0;
foreach (@tuc) {
    $_->data('PWRrk',++$i);
}

if ($koutfile) {
    warn 'Calculating modified pairwise comparisons' if $^W;
    
    unless ($quickflag) {
	foreach $team (@team) {
	    $team->data('KPWR','');
	    $team->data('KPWRrk','');
	}
    }
    
    foreach $team (@tuc) {
	$team->data('KPWC',{});
	$team->data('Kcomps',[]);
	foreach (@tuc) {
	    if ( ($team->data('KPWC')->{$_->abbr}=&kpairwise($team,$_)) > 0 ) {
		unshift @{$team->data('Kcomps')}, $_;
	    }
	}
	$team->data('KPWR',scalar(@{$team->data('Kcomps')}));
    }
    
    warn 'Sorting by KPWCs' if $^W;
    
    @Ktuc=&kpwsort([@tuc],{map {($_->abbr, $_->data('KPWR'))} @tuc});
    
    $i=0;
    foreach (@Ktuc) {
	$_->data('KPWRrk',++$i);
    }
}

unless ($quickflag) {

    warn "Sorting by Last 8 KRACH" if $^W;
    
    $i=0;

    foreach (sort {$b->Last(8)->hhwp($a->Last(8)) <=> .5
		       or $a->name cmp $b->name} @tuc) {
	$_->data('KL8rk',++$i);
    }

    warn "Sorting by record vs TUC" if $^W;
    
    $i=0;

    foreach (sort {$b->tuc->pct<=>$a->tuc->pct
		       or $a->name cmp $b->name} @tuc) {
	$_->data('TUCrk',++$i);
    }

    $i=0;

    foreach (sort {$b->tuc->hhwp($a->tuc)<=> .5 
		       or $a->name cmp $b->name} @tuc) {
	$_->data('KTUCrk',++$i);
    }

    $yesterday=&today(localtime(timelocal(0,0,0,(1*substr($date,6,2)),
					  substr($date,4,2)-1,
					  substr($date,0,4)-1900)
				));
    if ($koutfile) {
	warn 'Printing rank information' if $^W;
	
	sysopen (TABLE, "$tabsdir/rankings.tab",
		 O_WRONLY|O_TRUNC|O_CREAT) or die $!;
	print TABLE '<table border="1">
  <thead>
    <tr>
      <th scope="col" rowspan="2">Team</th>
      <th scope="col" colspan="3">Record</th>
      <th scope="col" colspan="2">Hockey <a href="rpi.shtml"><acronym
          title="Ratings Percentage Index">RPI</acronym></a></th>
      <th scope="col" colspan="2">NCAA <a href="rpi.shtml"><acronym
          title="Ratings Percentage Index">RPI</acronym></a></th>
      <th scope="col" colspan="3"><a href="krach.shtml"><acronym
    title="Ken\'s Ratings for American College Hockey">KRACH</acronym></a></th>
      <th scope="col" colspan="2"><a href="pwr.shtml"><acronym
          title="Pairwise Rating">PWR</acronym></a></th>
      <th scope="col" colspan="2"><a href="kpwr.shtml"><acronym
          title="KRACH-modified Pairwise Rating">KPWR</acronym></a></th>
    </tr>
    <tr>
      <th scope="col"><abbr title="Rank">Rk</abbr></th>
      <th scope="col">W-L-T</th>
      <th scope="col">Pct.</th>
      <th scope="col"><abbr title="Rank">Rk</abbr></th>
      <th scope="col">Rating</th>
      <th scope="col"><abbr title="Rank">Rk</abbr></th>
      <th scope="col">Rating</th>
      <th scope="col"><abbr title="Rank">Rk</abbr></th>
      <th scope="col">Rating</th>
      <th scope="col"><acronym
          title="Round-Robin Winning Percentage">RRWP</acronym></th>
      <th scope="col"><abbr title="Rank">Rk</abbr></th>
      <th scope="col">Rating</th>
      <th scope="col"><abbr title="Rank">Rk</abbr></th>
      <th scope="col">Rating</th>
    </tr>
  </thead>
  <tbody>
';
	foreach (@teambypct) {
	    print TABLE '    <tr';
	    if (int(($_->data('Pctrk')-1)/5) % 2) {
		print TABLE ' class="tens';
	    }
	    else {
		print TABLE ' class="fives';
	    }
	    print TABLE 'cornell' if $_->abbr eq 'Cr';
	    print TABLE '">
      <td scope="row">',$_->name,'</td>
      <td>',$_->data('Pctrk'),'</td>
      <td>',&wlt($_),'</td>
      <td>',&pct($_->pct,4),'</td>
      <td class="flip">',$_->data('HRPIrk'),'</td>
      <td class="flip">',&pct($_->rpi,4),'</td>
      <td>',$_->data('NRPIrk'),'</td>
      <td>',&pct($_->rpi(.25,.5,.25),4),'</td>
      <td class="flip">',$_->data('RRWPrk'),'</td>
      <td class="flip">',$_->data('KRACH'),'</td>
      <td class="flip">',&pct($_->rrwp,4),'</td>
';
	    if ($_->istuc) {
		print TABLE '
      <td>',$_->data('PWRrk'),'</td>
      <td>',$_->data('PWR'),'</td>
      <td class="flip">',$_->data('KPWRrk'),'</td>
      <td class="flip">',$_->data('KPWR'),'</td>
';
	    }
	    print TABLE '    </tr>
';
	}
	
	print TABLE '  </tbody>
</table>
';
	
	close TABLE or die $!;
		
	warn 'Printing KRACH table' if $^W;
	
	sysopen (TABLE, "$tabsdir/krach.tab",
		 O_WRONLY|O_TRUNC|O_CREAT) or die $!;
	print TABLE '<h2>Current KRACH (including games of ',$yesterday,')</h2>

<table class="krach" border="1">
  <thead>
    <tr>
      <th scope="col" rowspan="2">Team</th>
      <th scope="col" colspan="3"><acronym
    title="Ken\'s Ratings for American College Hockey">KRACH</acronym></th>
      <th scope="col" colspan="3">Record</th>
      <th scope="col" colspan="2">Sched Strength</th>
    </tr>
    <tr>
      <th scope="col"><abbr title="Rank">Rk</abbr></th>
      <th scope="col">Rating</th>
      <th scope="col"><acronym
          title="Round-Robin Winning Percentage">RRWP</acronym></th>
      <th scope="col"><abbr title="Rank">Rk</abbr></th>
      <th scope="col">W-L-T</th>
      <th scope="col">PF/PA</th>
      <th scope="col"><abbr title="Rank">Rk</abbr></th>
      <th scope="col"><abbr title="Strength of Schedule">SOS</abbr></th>
    </tr>
  </thead>
  <tbody>
';

	foreach $team (@team) {
	    print TABLE '    <tr';
	    if (int(($team->data('RRWPrk')-1)/5) % 2) {
		print TABLE ' class="tens';
	    }
	    else {
		print TABLE ' class="fives';
	    }
	    print TABLE 'cornell' if $team->abbr eq 'Cr';
	    print TABLE '">
      <td scope="row">
          <a target="_blank" href="',$tabsdir,
	  '/Kcrit.',
	  $team->abbr,
	  '.shtml">',$team->name,'</a></td>
      <td>',$team->data('RRWPrk'),'</td>
      <td>',$team->data('KRACH'),'</td>
      <td>',&pct($team->rrwp,4),'</td>',
	  '      <td class="flip">',$team->data('Pctrk'),'</td>
      <td class="flip">',&wlt($team),'</td>
      <td class="flip">',($team->pa ? &five($team->pf/$team->pa) : '&infin;'),
      '</td>',
	      '      <td>',$team->data('KSOSrk'),'</td>
      <td>',&five(100*$team->data('KSOS')),'</td>
';
	    print TABLE '    </tr>
';
	    sysopen (COMP, "$tabsdir/Kcrit.".
		     $team->abbr.'.shtml', O_WRONLY|O_TRUNC|O_CREAT) or die $!;
	    print COMP '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0//EN">
<html lang="en-US"><head><title>BT-Modified Criteria for ',
		$team->name,'</title>
    <link href="../pairwise.css" rel="Stylesheet" type="text/css">
</head>
<body class="krach"><h1>Bradley-Terry Modified Criteria for ', $team->name,
    '</h1>
<table border="1"><thead><tr><th scope="col">Opponent</th><th scope="col">KRACH</th><th scope="col">Overall</th><th scope="col">TUC</th><th scope="col">Last 8</th></tr></thead>
<tfoot><tr><th scope="row" colspan="2">Criterion&nbsp;Rating</th><td>',
    $team->data('KRACH'),'</td><td>',
    &fivek($team->tuc,$team),'</td><td>',
    &fivek($team->Last(8),$team),'</td></tr>
<tr><th scope="row" colspan="2">Won-Lost-Tied</th><td>',
	&wlt($team->w,$team->l,$team->t),'</td><td>',
	&wlt($team->tuc->w,$team->tuc->l,$team->tuc->t),
	'</td><td>',
	&wlt($team->Last(8)->w,$team->Last(8)->l,
	     $team->Last(8)->t),'</td></tr>
</tfoot>
<tbody>';
	    foreach (sort {$b->rrwp <=> $a->rrwp} $team->opponents) {
		print COMP '<tr><td scope="row">',$_->name,'</td><td>',
		$_->data('KRACH'),'</td><td>',
		&wlt($team->w($_),$team->l($_),$team->t($_)),'</td>';
		foreach $crit ($team->tuc,$team->Last(8)) {
		    print COMP '<td>';
		    if ($crit->num($_)) {
			print COMP &wlt($crit->w($_),$crit->l($_),$crit->t($_));
		    }
		    print COMP '</td>';
		}
		print COMP '</tr>
';
	    }
	    print COMP '</tbody></table></body>
</html>
';
	}
	close COMP or die $!;

	print TABLE '  </tbody>
</table>
    ';
	
	close TABLE or die $!;
	
	warn 'Printing PWR table' if $^W;
	
	sysopen (TABLE, "$tabsdir/pwr.tab",
		 O_WRONLY|O_TRUNC|O_CREAT) or die $!;
	print TABLE '<table border="1">
  <thead>
    <tr>
      <th scope="col" rowspan="2">Team</th>
      <th scope="col" colspan="2">Comps Won</th>
      <th scope="col" colspan="2">
          <a href="rpi.shtml" target="_self">Hockey <acronym 
             title="Ratings Percentage Index">RPI</acronym></a>
      </th>
      <th scope="col" colspan="3">vs&nbsp;<abbr
                 title="Teams Under Consideration">TUCs</abbr>
      <th scope="col" colspan="3">Last 8</th>
      </th>
    </tr>
    <tr>
      <th scope="col"><abbr title="Rank">Rk</abbr></th>
      <th scope="col">PWR</th>
      <th scope="col"><abbr title="Rank">Rk</abbr></th>
      <th scope="col">Hockey RPI</th>
      <th scope="col"><abbr title="Rank">Rk</abbr></th>
      <th scope="col">W-L-T</th>
      <th scope="col">Pct</th>
      <th scope="col"><abbr title="Rank">Rk</abbr></th>
      <th scope="col">W-L-T</th>
      <th scope="col">Pct</th>
    </tr>
  </thead>
  <tbody>
';

	foreach (@tuc) {
	    print TABLE '    <tr';
	    if (int(($_->data('PWRrk')-1)/5) % 2) {
		print TABLE ' class="tens';
	    }
	    else {
		print TABLE ' class="fives';
	    }
	    print TABLE 'cornell' if $_->abbr eq 'Cr';
	    print TABLE '">
      <td scope="row">
          <a target="_blank" href="',$tabsdir,
	  '/crit.',
	  $_->abbr,
	  '.shtml">',$_->name,'</a></td>
      <td>',$_->data('PWRrk'),'</td>
      <td>',$_->data('PWR'),'</td>
      <td class="flip">',$_->data('HRPIrk'),'</td>
      <td class="flip">',&pct($_->rpi,4),'</td>
      <td>',$_->data('TUCrk'),'</td>
      <td>',&wlt($_->tuc),'</td>
      <td>',&pct($_->tuc->pct,4),'</td>
      <td class="flip">',$_->data('L8rk'),'</td>
      <td class="flip">',&wlt($_->Last(8)),'</td>
      <td class="flip">',&pct($_->Last(8)->pct,4),'</td>
';
	    print TABLE '    </tr>
';
	}
	print TABLE '  </tbody>
</table>
';
	
	close TABLE or die $!;
	
	warn 'Printing KPWR table' if $^W;
	
	sysopen (TABLE, "$tabsdir/kpwr.tab",
		 O_WRONLY|O_TRUNC|O_CREAT) or die $!;
	print TABLE '<table class="krach" border="1">
  <thead>
    <tr>
      <th scope="col" rowspan="2">Team</th>
      <th scope="col" colspan="2">Comps Won</th>
      <th scope="col" colspan="4"><acronym
    title="Ken\'s Ratings for American College Hockey">KRACH</acronym></th>
      <th scope="col" colspan="3">vs&nbsp;<abbr
                 title="Teams Under Consideration">TUCs</abbr>
      <th scope="col" colspan="3">Last 8</th>
      </th>
    </tr>
    <tr>
      <th scope="col"><abbr title="Rank">Rk</abbr></th>
      <th scope="col">KPWR</th>
      <th scope="col"><abbr title="Rank">Rk</abbr></th>
      <th scope="col">W-L-T</th>
      <th scope="col">Rating</th>
      <th scope="col">RRWP</th>
      <th scope="col"><abbr title="Rank">Rk</abbr></th>
      <th scope="col">W-L-T</th>
      <th scope="col">Rating</th>
      <th scope="col"><abbr title="Rank">Rk</abbr></th>
      <th scope="col">W-L-T</th>
      <th scope="col">Rating</th>
    </tr>
  </thead>
  <tbody>
';

	foreach (@Ktuc) {
	    print TABLE '    <tr';
	    if (int(($_->data('KPWRrk')-1)/5) % 2) {
		print TABLE ' class="tens';
	    }
	    else {
		print TABLE ' class="fives';
	    }
	    print TABLE 'cornell' if $_->abbr eq 'Cr';
	    print TABLE '">
      <td scope="row">
          <a target="_blank" href="',$tabsdir,
	  '/Kcrit.',
	  $_->abbr,
	  '.shtml">',$_->name,'</a></td>
      <td>',$_->data('KPWRrk'),'</td>
      <td>',$_->data('KPWR'),'</td>
      <td class="flip">',$_->data('RRWPrk'),'</td>
      <td class="flip">',&wlt($_),'</td>
      <td class="flip">',$_->data('KRACH'),'</td>
      <td class="flip">',&pct($_->rrwp,4),'</td>
      <td>',$_->data('KTUCrk'),'</td>
      <td>',&wlt($_->tuc),'</td>
      <td>',&fivek($_->tuc,$_),'</td>
      <td class="flip">',$_->data('KL8rk'),'</td>
      <td class="flip">',&wlt($_->Last(8)),'</td>
      <td class="flip">',&fivek($_->Last(8),$_),'</td>
';
	    print TABLE '    </tr>
';
	}
	
	print TABLE '  </tbody>
</table>
    ';
	
	close TABLE or die $!;

	warn 'Printing RPI table' if $^W;
	
	sysopen (TABLE, "$tabsdir/rpi.tab",
		 O_WRONLY|O_TRUNC|O_CREAT) or die $!;
	print TABLE '<h2>Current RPI (including games of ',$yesterday,')</h2>

<table border="1">
  <thead>
    <tr>
      <th scope="col" rowspan="2">Team</th>
      <th scope="col" colspan="2">
          Hockey
          <acronym title="Ratings Percentage Index">RPI</acronym>
      </th>
      <th scope="col" colspan="2">
          NCAA
          <acronym title="Ratings Percentage Index">RPI</acronym>
      </th>
      <th scope="col" colspan="3">Record</th>
      <th scope="col" colspan="2">Sched Strength</th>
      <th scope="col" colspan="2">
          <abbr title="Opponents\' Winning Percentage">Opp&nbsp;Pct</abbr>
      </th>
      <th scope="col" colspan="2">
          <abbr
title="Opponents\' Opponents\' Winning Percentage">Opp&nbsp;Opp&nbsp;Pct</abbr>
      </th>
      <th scope="col" colspan="2">
          <abbr title="Strength According to RPI">RPIStr</abbr>
      </th>
    </tr>
    <tr>
      <th scope="col"><abbr title="Rank">Rk</abbr></th>
      <th scope="col">Rating</th>
      <th scope="col"><abbr title="Rank">Rk</abbr></th>
      <th scope="col">Rating</th>
      <th scope="col"><abbr title="Rank">Rk</abbr></th>
      <th scope="col">W-L-T</th>
      <th scope="col">Pct</th>
      <th scope="col"><abbr title="Rank">Rk</abbr></th>
      <th scope="col"><abbr title="Strength of Schedule">SOS</abbr></th>
      <th scope="col"><abbr title="Rank">Rk</abbr></th>
      <th scope="col">
          <abbr title="Opponents\' Winning Percentage">OPct</abbr>
      </th>
      <th scope="col"><abbr title="Rank">Rk</abbr></th>
      <th scope="col">
          <abbr title="Opponents\' Opponents\' Winning Percentage">OOPct</abbr>
      </th>
      <th scope="col"><abbr title="Rank">Rk</abbr></th>
      <th scope="col">Rating</th>
    </tr>
  </thead>
  <tbody>
';

	foreach $team (@teambyrpi) {
	    print TABLE '    <tr';
	    if (int(($team->data('NRPIrk')-1)/5) % 2) {
		print TABLE ' class="tens';
	    }
	    else {
		print TABLE ' class="fives';
	    }
	    print TABLE 'cornell' if $team->abbr eq 'Cr';
	    print TABLE '">
      <td scope="row">
          <a target="_blank" href="',$tabsdir,
	  '/crit.',
	  $team->abbr,
	  '.shtml">',$team->name,'</a></td>
      <td>',$team->data('HRPIrk'),'</td>
      <td>',&pct($team->rpi,4),'</td>
      <td class="flip">',$team->data('NRPIrk'),'</td>
      <td class="flip">',&pct($team->rpi(.25,.5,.25),4),'</td>
      <td>',$team->data('Pctrk'),'</td>
      <td>',&wlt($team),'</td>
      <td>',&pct($team->pct,4),'</td>
      <td class="flip">',$team->data('RPISOSrk'),'</td>
      <td class="flip">',&pct($team->data('RPISOS'),4),'</td>
      <td>',$team->data('OppPctrk'),'</td>
      <td>',&pct($team->opppct,4),'</td>
      <td class="flip">',$team->data('OppOppPctrk'),'</td>
      <td class="flip">',&pct($team->oppopppct,4),'</td>
      <td>',$team->data('RPIStrrk'),'</td>
      <td>',&pct($team->data('RPIStr'),4),'</td>
';
	    print TABLE '    </tr>
';
	sysopen (COMP, "$tabsdir/crit.".
		 $team->abbr.'.shtml', O_WRONLY|O_TRUNC|O_CREAT) or die $!;
	print COMP '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0//EN">
<html lang="en-US"><head><title>Criteria for ',
	    $team->name,'</title>
    <link href="../pairwise.css" rel="Stylesheet" type="text/css">
</head>
<body><h1>Criteria for ', $team->name,
		    '</h1>
<table border="1"><thead><tr><th scope="col">Opponent</th><th scope="col">Strength</th><th scope="col">Overall</th><th scope="col">TUC</th><th scope="col">Last 8</th></tr></thead>
<tfoot><tr><th scope="row" colspan="2">RPI</th><td>',
    &pct($team->rpi,4),'</td></tr>
<tr><th scope="row" colspan="2">Won-Lost-Tied</th><td>',
			&wlt($team->w,$team->l,$team->t),'</td><td>',
			&wlt($team->tuc->w,$team->tuc->l,$team->tuc->t),
			    '</td><td>',
			&wlt($team->Last(8)->w,$team->Last(8)->l,
			     $team->Last(8)->t),'</td></tr>
</tfoot>
<tbody>';
	%strength=();
	foreach ($team->opponents) {
	    if ($team->num($_)) {
		$strength{$_->abbr}=(10*($_->pf-$_->pf($team))
				     /($_->num-$_->num($team))
				     +3*$_->opppct)/13;
	    }
	    else {
		$strength{$_->abbr}=$_->data('RPIStr');
	    }
	}
	foreach (sort {$strength{$b->abbr} <=> $strength{$a->abbr}}
		 $team->opponents) {
	    print COMP '<tr><td scope="row">',$_->name,'</td><td>',
	    &pct($strength{$_->abbr},4),'</td><td>',
	    &wlt($team->w($_),$team->l($_),$team->t($_)),'</td>';
	    foreach $crit ($team->tuc,$team->Last(8)) {
		print COMP '<td>';
		if ($crit->num($_)) {
		    print COMP &wlt($crit->w($_),$crit->l($_),$crit->t($_));
		}
		print COMP '</td>';
	    }
	    print COMP '</tr>
';
	}
	print COMP '</tbody></table></body>
</html>
';
	close COMP or die $!;
	}
	
	print TABLE '  </tbody>
</table>
    ';
	
	close TABLE or die $!;

    }

    warn 'Printing PWC table' if $^W;
    
    sysopen (TABLE, ($nlflag ? "$tabsdir/comps.tmp" :
		     "$tabsdir/comps.tab")
	     ,O_WRONLY|O_TRUNC|O_CREAT)
 or die $!;

    print TABLE '<h2>', ( $stopdate == 30001231 ? 'Current ' : () ),
    'Pairwise Comparisons (including games of ',
		  $yesterday,')</h2>

<table border="1" class="small" id="compstab">
  <caption>Pairwise Comparisons</caption>
  <thead>
    <tr>
      <th scope="col">Rk</th>
      <th scope="col">Team</th>
      <th scope="col"><acronym
          title="Pairwise Rating">PWR</acronym></th>
      <th scope="col"><acronym
          title="Ratings Percentage Index">RPI</acronym></th>
      <th scope="col" colspan="';
    if ($tuc[0]->data('PWR')==@tuc-1) {
	print TABLE @tuc-1;
    }
    else {
	print TABLE scalar(@tuc);
    }
    print TABLE '">Comparisons Won</th>
    </tr>
  </thead>
  <tbody>
';
    foreach $team (@tuc) {
	print TABLE '    <tr>
      <td>',$team->data('PWRrk'),'</td>
      <td scope="row">',
	  ($nlflag ? () :
	   ('<a target="_blank" href="',$tabsdir,
           '/crit.',
	    $team->abbr,
	    '.shtml">')
	   ),$html_name{$team->abbr},($nlflag ? () :'</a>'),'&nbsp;(',
	       $conf{$team->abbr},')</td>
      <td>',$team->data('PWR'),'</td>
      <td>',&pct($team->rpi,4),'</td>
';
	foreach (@tuc) {
	    next if $_->data('PWR')==@tuc-1;
	    if ($_ eq $team) {
		print TABLE '      <td class="self"></td>
';
	    }
	    elsif ($team->data('PWC')->{$_->abbr}>0) {
		print TABLE
		    '      <td class="won">',
		    ($nlflag ? () : (
		     '<a onclick="compWin(\'',
		     $team->abbr,$_->abbr,
		     '\')"  target="compwin" href="'.$tabsdir.'/comp.',
		     $team->abbr,$_->abbr,'.html">')),
			$_->abbr,($nlflag ? () :'</a>'),'</td>
';
		sysopen (COMP, "$tabsdir/comp.".
			 $team->abbr.$_->abbr.'.html',
			 O_WRONLY|O_TRUNC|O_CREAT) or die $!;
		print COMP '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0//EN"><html><head><title>',
		$team->abbr,' vs ',$_->abbr,'</title><link href="http://spiritone.com/~kepler/tbrw.css" rel="stylesheet" type="text/css"><link href="../pairwise.css" rel="stylesheet"><meta http-equiv="Cache-Control" content="no-cache"></head>
<body><table border="1"><thead><tr><th class="won" scope="col" colspan="2">',
		    $html_name{$team->abbr},
		    '</th><td></td><th class="lost" scope="col" colspan="2">',
		    $html_name{$_->abbr},'</th></tr></thead>
<tbody><tr><td>',&wlt($team),'</td><td';
		$winner=$team->rpi <=> $_->rpi;
		print COMP $class{$winner},'>',&pct($team->rpi,4),
		'</td><th scope="row">RPI</th><td',$class{-$winner},'>',
		&pct($_->rpi,4),'</td><td>',&wlt($_),
		'</td></tr>
';
		$winner=$team->tuc($_)->pct <=> $_->tuc($team)->pct;
		print COMP '<tr><td',$class{$winner},'>',&wlt($team->tuc($_)),
		'</td><td',$class{$winner},'>',&pct($team->tuc($_)->pct,4),
		'</td><th scope="row">TUC</th><td',
		$class{-$winner},'>',&pct($_->tuc($team)->pct,4),
		'</td><td',$class{-$winner},'>',&wlt($_->tuc($team)),
		'</td></tr>
';
		$winner=$team->Last(8)->pct <=> $_->Last(8)->pct;
		print COMP '<tr><td',$class{$winner},'>',&wlt($team->Last(8)),
		'</td><td',$class{$winner},'>',&pct($team->Last(8)->pct,4),
		'</td><th scope="row">L8</th><td',
		$class{-$winner},'>',&pct($_->Last(8)->pct,4),
		'</td><td',$class{-$winner},'>',&wlt($_->Last(8)),'</td></tr>
';
		$winner=$team->common($_)->pct <=> $_->common($team)->pct;
		print COMP '<tr><td',$class{$winner},'>',&wlt($team->common($_)),
		'</td><td',$class{$winner},'>',&pct($team->common($_)->pct,4),
		'</td><th scope="row">COp</th><td',
		$class{-$winner},'>',&pct($_->common($team)->pct,4),
		'</td><td',
		$class{-$winner},'>',&wlt($_->common($team)),
		'</td></tr>
';
		$winner=$team->w($_) <=> $_->w($team);
		print COMP '<tr><td colspan="2"',$class{$winner},'>',
		&wlt($team->w($_),$team->l($_),$team->t($_)),
		'</td><th scope="row">H2H</th><td colspan="2"',
		$class{-$winner},'>',
		&wlt($_->w($team),$_->l($team),$_->t($team)),
		'</td></tr>
</tbody></table></body></html>
';
		close COMP or die $!;
	    }
	    else {
		print TABLE '      <td class="lost">&nbsp;</td>
';
	    }
	}
	print TABLE '    </tr>
';
    }
    print TABLE '  </tbody>
</table>
';
    close TABLE or die $!;

    if ($koutfile) {
	warn 'Printing KPWC table' if $^W;
    
	sysopen (TABLE, ($nlflag ? "$tabsdir/Kcomps.tmp" :
			 "$tabsdir/Kcomps.tab")
		 ,O_WRONLY|O_TRUNC|O_CREAT) or die $!;
	print TABLE '<h2>Current KRACH-Modified Pairwise Comparisons
(including games of ',
    $yesterday,')</h2>
<table border="1" class="smallkrach">
  <caption>Bradley-Terry Modified Pairwise Comparisons</caption>
  <thead>
    <tr>
      <th scope="col">Rk</th>
      <th scope="col">Team</th>
      <th scope="col"><acronym
          title="KRACH-Modified Pairwise Rating">KPWR</acronym></th>
      <th scope="col"><acronym
          title="Round-Robin Winning Percentage">RRWP</acronym></th>
      <th scope="col" colspan="';
	if ($Ktuc[0]->data('KPWR')==@Ktuc-1) {
	    print TABLE @Ktuc-1;
	}
	else {
	    print TABLE scalar(@Ktuc);
	}
	print TABLE '">Comparisons Won</th>
    </tr>
  </thead>
  <tbody>
';
	foreach $team (@Ktuc) {
	    print TABLE '    <tr>
      <td>',$team->data('KPWRrk'),'</td>
      <td scope="row">',
	  ($nlflag ? () :
	   ('<a target="_blank" href="',$tabsdir,
	    '/Kcrit.',
	    $team->abbr,
	    '.shtml">')
	   ),$html_name{$team->abbr},($nlflag ? () :'</a>'),'&nbsp;(',
	       $conf{$team->abbr},')</td>
      <td>',$team->data('KPWR'),'</td>
      <td>',&pct($team->rrwp,4),'</td>
';
	    foreach (@Ktuc) {
		next if $_->data('KPWR')==@Ktuc-1;
		if ($_ eq $team) {
		    print TABLE '      <td class="self"></td>
';
		}
		elsif ($team->data('KPWC')->{$_->abbr}>0) {
		    print TABLE
			'      <td class="won">',
			($nlflag ? () :
			 ('<a onclick="KcompWin(\'',
			  $team->abbr,$_->abbr,
			  '\')"  target="Kcompwin" href="',$tabsdir,'/Kcomp.',
			  $team->abbr,$_->abbr,'.html">')),
			    $_->abbr,($nlflag ? () :'</a>'),
			    '</td>
';
		    sysopen (COMP, "$tabsdir/Kcomp.".
			 $team->abbr.$_->abbr.'.html',
			 O_WRONLY|O_TRUNC|O_CREAT) or die $!;
		print COMP '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0//EN"><html><head><title>',
		$team->abbr,' vs ',$_->abbr,'</title><link href="http://spiritone.com/~kepler/tbrw.css" rel="stylesheet" type="text/css"><link href="../pairwise.css" rel="stylesheet"><meta http-equiv="Expires" content="Saturday, 01 Jan 2000 01:00:00 GMT"><meta http-equiv="Cache-Control" content="no-cache"></head>
<body class="krach"><table border="1"><thead><tr><th class="won" scope="col" colspan="2">',
		    $html_name{$team->abbr},
		    '</th><td></td><th class="lost" scope="col" colspan="2">',
		    $html_name{$_->abbr},'</th></tr></thead>
<tbody><tr><td>',&wlt($team),'</td><td';
		    $winner=$team->rrwp <=> $_->rrwp;
		    print COMP $class{$winner},'>',$team->data('KRACH'),
		    '</td><th scope="row">KRACH</th><td',$class{-$winner},'>',
		    $_->data('KRACH'),'</td><td>',&wlt($_),
		    '</td></tr>
';
		    $winner=$team->tuc($_)->hhwp($_->tuc($team)) <=> 0.5;
		    print COMP '<tr><td>',&wlt($team->tuc($_)),
		    '</td><td',$class{$winner},'>',&fivek($team->tuc($_),$team),
		    '</td><th scope="row">TUC</th><td',
		    $class{-$winner},'>',&fivek($_->tuc($team),$_),
		    '</td><td>',&wlt($_->tuc($team)),
		    '</td></tr>
';
		    $winner=$team->Last(8)->hhwp($_->Last(8)) <=> 0.5;
		    print COMP '<tr><td>',&wlt($team->Last(8)),
		    '</td><td',$class{$winner},'>',
		    &fivek($team->Last(8),$_,$_->Last(8)),
		    '</td><th scope="row">L8</th><td',
		    $class{-$winner},'>',
		    &fivek($_->Last(8),$team,$team->Last(8)),
		    '</td><td>',&wlt($_->Last(8)),'</td></tr>
';
		    $winner=$team->common($_)->hhwp($_->common($team)) <=> 0.5;
		    print COMP '<tr><td>',&wlt($team->common($_)),
		    '</td><td',$class{$winner},'>',&fivek($team->common($_),$team),
		    '</td><th scope="row">COp</th><td',
		    $class{-$winner},'>',&fivek($_->common($team),$_),
		    '</td><td>',&wlt($_->common($team)),
		    '</td></tr>
';
		    $winner=$team->w($_) <=> $_->w($team);
		    print COMP '<tr><td colspan="2"',$class{$winner},'>',
		    &wlt($team->w($_),$team->l($_),$team->t($_)),
		    '</td><th scope="row">H2H</th><td colspan="2"',
		    $class{-$winner},'>',
		    &wlt($_->w($team),$_->l($team),$_->t($team)),
		    '</td></tr>
</tbody></table></body></html>
';
		    close COMP or die $!;
		}
		else {
		    print TABLE '      <td class="lost">&nbsp;</td>
';
		}
	    }
	    print TABLE '    </tr>
';
	}
	print TABLE '  </tbody>
</table>
';
	close TABLE or die $!;
    }
}

if ($outfile) {
    warn 'Outputting PWCs' if $^W;
    sysopen (COMPS, $outfile, O_WRONLY|O_TRUNC|O_CREAT) or die $!;
    print COMPS "$date\n";
    foreach $team (@tuc) {
	@{$team->data('comps')}=sort {$a->data('PWRrk')<=>$b->data('PWRrk')
				      } @{$team->data('comps')};
	print COMPS join ' ',$team->abbr,$team->rpi,
	(map {$_->abbr} @{$team->data('comps')}),"\n";
    }
    close COMPS or die $!;
}

if ($koutfile) {

    warn 'Outputting KPWCs' if $^W;
    sysopen (COMPS, $koutfile, O_WRONLY|O_TRUNC|O_CREAT) or die $!;
    print COMPS "$date\n";
    foreach $team (@Ktuc) {
	@{$team->data('Kcomps')}=sort {$a->data('KPWRrk')<=>$b->data('KPWRrk')
				       } @{$team->data('Kcomps')};
#	print COMPS join ' ',$team->abbr, 1/(1+1/$team->krach)
	print COMPS join ' ',$team->abbr, $team->rrwp
	    ,
	(map {$_->abbr} @{$team->data('Kcomps')}),"\n";
    }
    close COMPS or die $!;
}

exit;

warn "Finding average conference RPI" if $^W;

while (($conf,$cteam)=each %conf_team) {
    @{$cteam}=sort {Team->team($b)->rpi <=> Team->team($a)->rpi} @{$cteam};
    $confrpi{$conf}=0;
    foreach (@conf) {
	$confw{$conf}{$_}=0;
	$conft{$conf}{$_}=0;
	$confrrwp{$conf}{$_}=0;
    }
    foreach $team (@{$cteam}) {
	foreach (@team) {
	    unless (exists $conf{$_->abbr}) {
		die $team,$conf,$_,$_->abbr;
	    }
	    $confw{$conf}{$conf{$_->abbr}}+=Team->team($team)->w($_);
	    $conft{$conf}{$conf{$_->abbr}}+=Team->team($team)->t($_);
	    if ($koutfile) {
		$confrrwp{$conf}{$conf{$_->abbr}}+=Team->team($team)->hhwp($_);
	    }
	}
	$confrpi{$conf}+=Team->team($team)->rpi unless $team eq $cteam->[0];
    }
    $opprpi{$conf}=$confrpi{$conf}/(@{$cteam}-1);

    $confrpi{$conf}=($confrpi{$conf}+Team->team($cteam->[0])->rpi)/@{$cteam};
    foreach (@conf) {
	unless (@{$cteam}*@{$conf_team{$_}}) {
	    die "$conf $_ ", scalar(@{$cteam}),' ',scalar(@{$conf_team{$_}});
	}
	$confrrwp{$conf}{$_}/=(@{$cteam}*@{$conf_team{$_}});
    }
}

warn "Printing head-to-head and RPI tables" if $^W;

sysopen (TABLE, "$tabsdir/confrpi.tab",
	 O_WRONLY|O_TRUNC|O_CREAT) or die $!;
@conf = sort {$confrpi{$b} <=> $confrpi{$a}} @conf;
print TABLE '<table border="1">
  <thead>
    <tr>
      <th scope="col">Conference</th>
      <th scope="col">Avg RPI</th>
';
foreach (@conf) {
    print TABLE '      <th scope="col">vs ',$conf_abbr{$_},'</th>
';
}
print TABLE '      <th scope="col">Leader</th>
      <th scope="col">Opp RPI</th>
    </tr>
  </thead>
  <tbody>
';
foreach $conf (@conf) {
    print TABLE '    <tr>
      <td scope="row">', $conf_name{$conf}, ' (',$conf,')</td>
      <td>', &pct($confrpi{$conf},4), '</td>
';
    foreach (@conf) {
	if ($conf ne $_) {
	    print TABLE '      <td>',&wlt($confw{$conf}{$_},$confw{$_}{$conf},
					  $conft{$conf}{$_}),'</td>
';
	}
	else {
	    print TABLE '      <td></td>
';
	}
    }
    print TABLE '      <td>',$conf_team{$conf}->[0],'</td>
      <td>', &pct($opprpi{$conf},4),'</td>
    </tr>
';
}
print TABLE '  </tbody>
</table>
';

close TABLE or die $!;

if ($koutfile) {
    sysopen (TABLE, "$tabsdir/confrrwp.tab",
	     O_WRONLY|O_TRUNC|O_CREAT) or die $!;
    @conf = sort {$confrrwp{$b}{$a} <=> $confrrwp{$a}{$b}} @conf;
    print TABLE '<table border="1">
  <thead>
    <tr>
      <th scope="col">Conference</th>
';
    foreach (@conf) {
	print TABLE '      <th scope="col">vs ',$conf_name{$_},'</th>
';
    }
    print TABLE '    </tr>
  </thead>
  <tbody>
';
    foreach $conf (@conf) {
	print TABLE '    <tr>
      <td scope="row">', $conf_name{$conf}, '</td>
';
	foreach (@conf) {
	    if ($conf ne $_) {
		print TABLE '      <td>',&pct($confrrwp{$conf}{$_},4),'</td>
';
	    }
	    else {
		print TABLE '      <td></td>
';
	    }
	}
	print TABLE '    </tr>
';
    }
    print TABLE '  </tbody>
</table>
';
    
    close TABLE or die $!;
}