#!/usr/local/bin/perl

print"Content-type: text/html\n\n"; # need this line for all browsers


require 'ctime.pl';
$time = &ctime(time);
chop($time);
$time=~s/  / /g;
# print"time=$time<hr>\n";
$time=~s/ US\/Pacific//;

require "cgi-lib.pl";

&ReadParse; # this is below

# print"in==><br>$in<hr>\n";

$search=$in{'search'};
$text=$in{'text'};

if($search eq "general"){&search_general;goto end;}

$year1=$in{'year1'};
$year2=$in{'year2'};

if($year1 eq ""){$year1="1958";}
if($year2 eq ""){$year2="1962";}

&header1;

print"
													
<tr>
														
<td bgcolor=\"#999999\" align=center width=25%><font size=\"2\" face=\"Verdana\" color=\"white\"><b>Name</b></font></td>
														
<td bgcolor=\"#999999\" align=center width=25%><font size=\"2\" face=\"Verdana\" color=\"white\"><b>E-Mail</b></font></td>
														
<td bgcolor=\"#999999\" align=center width=20%><font size=\"2\" face=\"Verdana\" color=\"white\"><b>Current Residence</b></font></td>
														
<td bgcolor=\"#999999\" align=center width=20%><font size=\"2\" face=\"Verdana\" color=\"white\"><b>Field of Work</b></font></td>
														
<td bgcolor=\"#999999\" align=center width=10%><font size=\"2\" face=\"Verdana\" color=\"white\"><b>Graduation Year</b></font></td>

														
</tr>
\n";

$cnt=$cntmatch=0;
open(FILE,'data/alumni.txt');
while(<FILE>){
chomp;

next if($_=~/^#/);

$_=~s/"//g;

@a=split(/\t/,$_);

$a[0]=~s/^ //g;$a[0]=~s/ $//g;
$a[1]=~s/^ //g;$a[1]=~s/ $//g;

$rec[$cnt]="$a[4] $a[1] :: $_";

++$cnt;

} # end while

# sort by year
@rec=sort @rec;

for $x(0..$#rec){
@a=split(/ :: /,$rec[$x]);
$rec[$x]=$a[1];
}

$cnt=$cntmatch=0;

for $x(0..$#rec){

next if($_=~/^#/);

@a=split(/\t/,$rec[$x]);

# print"a[4]=$a[4]<br>\n";

# $a[6]=~s/\//-/g;$a[6]=~s/0//g;

if($a[4]>=$year1 && $a[4]<=$year2){++$cntmatch;goto start;}
else{
next;
}

start:

$name="$a[1], $a[0]";
$email=$a[2];
$residence=$a[3];
$yeargrad=$a[4];
$work=$a[9];

if($name eq ""){$name=" &nbsp; ";}
if($email eq ""){$email=" &nbsp; ";}
if($residence eq ""){$residence=" &nbsp; ";}
if($yeargrad eq ""){$yeargrad=" &nbsp; ";}
if($work eq ""){$work=" &nbsp; ";}

print"
<tr>
<td bgcolor=white align=center width=25%><font size=2 face=Verdana color=#666666><a href=alumni_read?first=$a[0]&last=$a[1]&year1=$year1&year2=$year2>$name</a></td>
<td bgcolor=white align=center width=25%><font size=2 face=Verdana color=#666666><a href=mailto:$email?subject=Staples>$email</a></td>
<td bgcolor=white align=center width=20%><font size=2 face=Verdana color=#666666>$residence</td>
<td bgcolor=white align=center width=20%><font size=2 face=Verdana color=#666666>$work</td>
<td bgcolor=white align=center width=10%><font size=2 face=Verdana color=#666666>$yeargrad</td>
</tr>
\n";

++$cnt;

} # end while

if($cntmatch==0){
print"
<tr><td colspan=5 bgcolor=white align=center><font color=ff6633 face=verdana size=2>
<b>Oops!<br>No Alumni Listings Found for Years $year1-$year2<br>Coming Soon!</td></tr>
\n";
}

## try to get year correctly
print"
<tr align=center>
<td bgcolor=white colspan=5><font size=1 face=Verdana color=666666>[ 
\n";

$x=1958;
here1:
$y=$x;
$z=$x+4;
$endlink="</a>";
if($z<2012){
$link="<a href=alumni?year1=$x&year2=$z>";
if($year1 eq $x && $year2 eq $z){$link="<font color=ff6633><b>";$endlink="</b></font>";}
if($z!=1987 && $z!=1992){print"$link$y-$z$endlink |\n";}
if($z==1987){print"$link$y-$z$endlink ]<br>\n";}
if($z==1992){print"[ $link$y-$z$endlink |\n";}
}

if($z==2012){
$link="<a href=alumni?year1=$x&year2=$z>";
if($year1 eq $x && $year2 eq $z){$link="<font color=ff6633><b>";$endlink="</b></font>";}
$z=2012;
print"$link$y-$z$endlink ]\n";
}

$x=$z+1;
if($x<2012){
goto here1;
}

print"</td></tr>\n";

&header2;

sub search_general{

# print"in search general\n";goto end;

&header1;

print"
<tr>
														
<td bgcolor=\"#999999\" align=center width=25%><font size=\"2\" face=\"Verdana\" color=\"white\"><b>Name</b></font></td>
														
<td bgcolor=\"#999999\" align=center width=25%><font size=\"2\" face=\"Verdana\" color=\"white\"><b>E-Mail</b></font></td>
														
<td bgcolor=\"#999999\" align=center width=20%><font size=\"2\" face=\"Verdana\" color=\"white\"><b>Current Residence</b></font></td>
														
<td bgcolor=\"#999999\" align=center width=20%><font size=\"2\" face=\"Verdana\" color=\"white\"><b>Field of Work</b></font></td>
														
<td bgcolor=\"#999999\" align=center width=10%><font size=\"2\" face=\"Verdana\" color=\"white\"><b>Graduation Year</b></font></td>

</tr>
\n";

$cnt=$cntmatch=0;
open(FILE,'data/alumni.txt');
while(<FILE>){
chomp;

$_=~s/"//g;

next if($_=~/^#/);

@a=split(/\t/,$_);

$a[0]=~s/^ //g;$a[0]=~s/ $//g;
$a[1]=~s/^ //g;$a[1]=~s/ $//g;

if($_=~/$text/i){
$rec[$cnt]="$a[4] $a[1] :: $_";
++$cnt;
++$cntmatch;
}

} # end while

@rec=sort @rec;

for $x(0..$#rec){
@a=split(/ :: /,$rec[$x]);
$rec[$x]=$a[1];
}

for $x(0..$#rec){

@a=split(/\t/,$rec[$x]);

$a[0]=~s/^ //g;$a[0]=~s/ $//g;
$a[1]=~s/^ //g;$a[1]=~s/ $//g;

# print"a0='$a[0]' a1='$a[1]'<br>\n";

$name="$a[1], $a[0]";
$email=$a[2];
$residence=$a[3];
$yeargrad=$a[4];
$work=$a[9];

if($name eq ""){$name=" &nbsp; ";}
if($email eq ""){$email=" &nbsp; ";}
if($residence eq ""){$residence=" &nbsp; ";}
if($yeargrad eq ""){$yeargrad=" &nbsp; ";}
if($work eq ""){$work=" &nbsp; ";}

print"
<tr>
<td bgcolor=white align=center width=25%><font size=2 face=Verdana color=#666666><a href=alumni_read?year1=$year1&year2=$year2&first=$a[0]&last=$a[1]>$name</a></td>
<td bgcolor=white align=center width=25%><font size=2 face=Verdana color=#666666><a href=mailto:$email?subject=Staples>$email</a></td>
<td bgcolor=white align=center width=20%><font size=2 face=Verdana color=#666666>$residence</td>
<td bgcolor=white align=center width=20%><font size=2 face=Verdana color=#666666>$work</td>
<td bgcolor=white align=center width=10%><font size=2 face=Verdana color=#666666>$yeargrad</td>
</tr>
\n";

++$cnt;

} # end for $x

if($cntmatch==0){
print"
<tr><td colspan=5 bgcolor=white align=center><font color=ff6633 face=verdana size=2>
<b>No Alumni Listings Found for Search Term $textx</td></tr>
\n";
}

## try to get year correctly
print"
<tr align=center>
<td bgcolor=white colspan=5><font size=1 face=Verdana color=666666>[ zzzzz
\n";

$x=1958;
here1:
$y=$x;
$z=$x+4;
$endlink="</a>";
if($z<2012){
$link="<a href=alumni?year1=$x&year2=$z>";
if($year1 eq $x && $year2 eq $z){$link="<font color=ff6633><b>";$endlink="</b></font>";}
if($z!=1987 && $z!=1992){print"$link$y-$z$endlink |\n";}
if($z==1987){print"$link$y-$z$endlink ]<br>\n";}
if($z==1992){print"[ $link$y-$z$endlink |\n";}
}

if($z==2012){
$link="<a href=alumni?year1=$x&year2=$z>";
if($year1 eq $x && $year2 eq $z){$link="<font color=ff6633><b>";$endlink="</b></font>";}
$z=2012;
print"$link$y-$z$endlink ]\n";
}

$x=$z+1;
if($x<2012){
goto here1;
}


print"</td></tr>\n";

&header2;

} # end sub search_general

sub header1{

print"
<html>

	<head>
		<meta http-equiv=\"content-type\" content=\"text/html;charset=ISO-8859-1\">
		<meta name=\"generator\" content=\"Adobe GoLive 5\">
		<title>Staples Soccer &gt; Stats</title>
		<csscriptdict>
			<script><!--
CSInit = new Array;
function CSScriptInit() {
if(typeof(skipPage) != \"undefined\") { if(skipPage) return; }
idxArray = new Array;
for(var i=0;i<CSInit.length;i++)
	idxArray[i] = i;
CSAction2(CSInit, idxArray);}
CSAg = window.navigator.userAgent; CSBVers = parseInt(CSAg.charAt(CSAg.indexOf(\"/\")+1),10);
function IsIE() { return CSAg.indexOf(\"MSIE\") > 0;}
function CSIEStyl(s) { return document.all.tags(\"div\")[s].style; }
function CSNSStyl(s) { return CSFindElement(s,0); }
function CSFindElement(n,ly) { if (CSBVers < 4) return document[n];
	var curDoc = ly ? ly.document : document; var elem = curDoc[n];
	if (!elem) { for (var i=0;i<curDoc.layers.length;i++) {
		elem = CSFindElement(n,curDoc.layers[i]); if (elem) return elem; }}
	return elem;
}

function CSClickReturn () {
	var bAgent = window.navigator.userAgent; 
	var bAppName = window.navigator.appName;
	if ((bAppName.indexOf(\"Explorer\") >= 0) && (bAgent.indexOf(\"Mozilla/3\") >= 0) && (bAgent.indexOf(\"Mac\") >= 0))
		return true; // dont follow link
	else return false; // dont follow link
}

function CSButtonReturn () {
	var bAgent = window.navigator.userAgent; 
	var bAppName = window.navigator.appName;
	if ((bAppName.indexOf(\"Explorer\") >= 0) && (bAgent.indexOf(\"Mozilla/3\") >= 0) && (bAgent.indexOf(\"Mac\") >= 0))
		return false; // follow link
	else return true; // follow link
}

CSIm = new Object();
function CSIShow(n,i) {
	if (document.images) {
		if (CSIm[n]) {
			var img = (!IsIE()) ? CSFindElement(n,0) : document[n];
			if (img && typeof(CSIm[n][i].src) != \"undefined\") {img.src = CSIm[n][i].src;}
			if(i != 0)
				self.status = CSIm[n][3];
			else
				self.status = \" \";
			return true;
		}
	}
	return false;
}
function CSILoad(action) {
	im = action[1];
	if (document.images) {
		CSIm[im] = new Object();
		for (var i=2;i<5;i++) {
			if (action[i] != '') { CSIm[im][i-2] = new Image(); CSIm[im][i-2].src = action[i]; }
			else CSIm[im][i-2] = 0;
		}
		CSIm[im][3] = action[5];
	}
}
CSStopExecution = false;
function CSAction(array) { 
	return CSAction2(CSAct, array);
}
function CSAction2(fct, array) { 
	var result;
	for (var i=0;i<array.length;i++) {
		if(CSStopExecution) return false; 
		var actArray = fct[array[i]];
		if (actArray == null) return false;
		var tempArray = new Array;
		for(var j=1;j<actArray.length;j++) {
			if((actArray[j] != null) && (typeof(actArray[j]) == \"object\") && (actArray[j].length == 2)) {
				if(actArray[j][0] == \"VAR\") {
					tempArray[j] = CSStateArray[actArray[j][1]];
				}
				else {
					if(actArray[j][0] == \"ACT\") {
						tempArray[j] = CSAction(new Array(new String(actArray[j][1])));
					}
				else
					tempArray[j] = actArray[j];
				}
			}
			else
				tempArray[j] = actArray[j];
		}			
		result = actArray[0](tempArray);
	}
	return result;
}
CSAct = new Object;


// --></script>
		</csscriptdict>
		<csactiondict>
			<script><!--
CSInit[CSInit.length] = new Array(CSILoad,/*CMP*/'home',/*URL*/'http://www.staplessoccer.com/images/navs_off_01.jpg',/*URL*/'http://www.staplessoccer.com/images/navs_on_01.jpg',/*URL*/'','');
CSInit[CSInit.length] = new Array(CSILoad,/*CMP*/'this season',/*URL*/'http://www.staplessoccer.com/images/navs_off_02.jpg',/*URL*/'http://www.staplessoccer.com/images/navs_on_02.jpg',/*URL*/'','');
CSInit[CSInit.length] = new Array(CSILoad,/*CMP*/'coaches',/*URL*/'http://www.staplessoccer.com/images/navs_off_03.jpg',/*URL*/'http://www.staplessoccer.com/images/navs_on_03.jpg',/*URL*/'','');
CSInit[CSInit.length] = new Array(CSILoad,/*CMP*/'alumni',/*URL*/'http://www.staplessoccer.com/images/navs_off_04.jpg',/*URL*/'http://www.staplessoccer.com/images/navs_on_04.jpg',/*URL*/'','');
CSInit[CSInit.length] = new Array(CSILoad,/*CMP*/'photos',/*URL*/'http://www.staplessoccer.com/images/navs_off_05.jpg',/*URL*/'http://www.staplessoccer.com/images/navs_on_05.jpg',/*URL*/'','');
CSInit[CSInit.length] = new Array(CSILoad,/*CMP*/'history',/*URL*/'http://www.staplessoccer.com/images/navs_off_06.jpg',/*URL*/'http://www.staplessoccer.com/images/navs_on_06.jpg',/*URL*/'','');
CSInit[CSInit.length] = new Array(CSILoad,/*CMP*/'stats',/*URL*/'http://www.staplessoccer.com/images/navs_off_07.jpg',/*URL*/'http://www.staplessoccer.com/images/navs_on_07.jpg',/*URL*/'','');
CSInit[CSInit.length] = new Array(CSILoad,/*CMP*/'stuff',/*URL*/'http://www.staplessoccer.com/images/navs_off_08.jpg',/*URL*/'http://www.staplessoccer.com/images/navs_on_08.jpg',/*URL*/'','');
CSInit[CSInit.length] = new Array(CSILoad,/*CMP*/'memoriam',/*URL*/'http://www.staplessoccer.com/images/navs_off_09.jpg',/*URL*/'http://www.staplessoccer.com/images/navs_on_09.jpg',/*URL*/'','');
CSInit[CSInit.length] = new Array(CSILoad,/*CMP*/'contact',/*URL*/'http://www.staplessoccer.com/images/navs_off_10.jpg',/*URL*/'http://www.staplessoccer.com/images/navs_on_10.jpg',/*URL*/'','');
CSInit[CSInit.length] = new Array(CSILoad,/*CMP*/'links',/*URL*/'http://www.staplessoccer.com/images/navs_off_11.jpg',/*URL*/'http://www.staplessoccer.com/images/navs_on_11.jpg',/*URL*/'','');
CSInit[CSInit.length] = new Array(CSILoad,/*CMP*/'guestbook and messageboard',/*URL*/'http://www.staplessoccer.com/images/navs_off_12.jpg',/*URL*/'http://www.staplessoccer.com/images/navs_on_12.jpg',/*URL*/'','');

// --></script>
		</csactiondict>
	</head>

	<body bgcolor=\"#ffffff\" leftmargin=\"0\" marginwidth=\"0\" topmargin=\"0\" marginheight=\"0\" onload=\"CSScriptInit();\" background=\"http://www.staplessoccer.com/images/bck.gif\" link=\"#333333\" alink=\"#333333\" vlink=\"#333333\">
		<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"64\">
			<tr>
				<td><img src=\"http://www.staplessoccer.com/images/top.jpg\" width=\"757\" height=\"86\" border=\"0\"></td>
			</tr>
			<tr>
				<td nowrap bgcolor=\"white\"><csobj w=\"42\" h=\"20\" t=\"Button\" ht=\"http://www.staplessoccer.com/images/navs_on_01.jpg\"><a href=\"http://www.staplessoccer.com/home.html\" onmouseover=\"return CSIShow(/*CMP*/'home',1)\" onmouseout=\"return CSIShow(/*CMP*/'home',0)\" onclick=\"return CSButtonReturn()\"><img src=\"http://www.staplessoccer.com/images/navs_off_01.jpg\" width=\"42\" height=\"20\" name=\"home\" border=\"0\"></a></csobj><csobj w=\"76\" h=\"20\" t=\"Button\" ht=\"http://www.staplessoccer.com/images/navs_on_02.jpg\"><a href=\"http://www.staplessoccer.com/this_season.html\" onmouseover=\"return CSIShow(/*CMP*/'this season',1)\" onmouseout=\"return CSIShow(/*CMP*/'this season',0)\" onclick=\"return CSButtonReturn()\"><img src=\"http://www.staplessoccer.com/images/navs_off_02.jpg\" width=\"76\" height=\"20\" name=\"this season\" border=\"0\"></a></csobj><csobj w=\"59\" h=\"20\" t=\"Button\" ht=\"http://www.staplessoccer.com/images/navs_on_03.jpg\"><a href=\"http://www.staplessoccer.com/coaches.html\" onmouseover=\"return CSIShow(/*CMP*/'coaches',1)\" onmouseout=\"return CSIShow(/*CMP*/'coaches',0)\" onclick=\"return CSButtonReturn()\"><img src=\"http://www.staplessoccer.com/images/navs_off_03.jpg\" width=\"59\" height=\"20\" name=\"coaches\" border=\"0\"></a></csobj><csobj w=\"49\" h=\"20\" t=\"Button\" ht=\"http://www.staplessoccer.com/images/navs_on_04.jpg\"><a href=\"http://www.staplessoccer.com/cgi/alumni/alumni\" onmouseover=\"return CSIShow(/*CMP*/'alumni',1)\" onmouseout=\"return CSIShow(/*CMP*/'alumni',0)\" onclick=\"return CSButtonReturn()\"><img src=\"http://www.staplessoccer.com/images/navs_off_04.jpg\" width=\"49\" height=\"20\" name=\"alumni\" border=\"0\"></a></csobj><csobj w=\"52\" h=\"20\" t=\"Button\" ht=\"http://www.staplessoccer.com/images/navs_on_05.jpg\"><a href=\"http://www.staplessoccer.com/cgi/upload/display.pl\" onmouseover=\"return CSIShow(/*CMP*/'photos',1)\" onmouseout=\"return CSIShow(/*CMP*/'photos',0)\" onclick=\"return CSButtonReturn()\"><img src=\"http://www.staplessoccer.com/images/navs_off_05.jpg\" width=\"52\" height=\"20\" name=\"photos\" border=\"0\"></a></csobj><csobj w=\"54\" h=\"20\" t=\"Button\" ht=\"http://www.staplessoccer.com/images/navs_on_06.jpg\"><a href=\"http://www.staplessoccer.com/history.html\" onmouseover=\"return CSIShow(/*CMP*/'history',1)\" onmouseout=\"return CSIShow(/*CMP*/'history',0)\" onclick=\"return CSButtonReturn()\"><img src=\"http://www.staplessoccer.com/images/navs_off_06.jpg\" width=\"54\" height=\"20\" name=\"history\" border=\"0\"></a></csobj><csobj w=\"44\" h=\"20\" t=\"Button\" ht=\"http://www.staplessoccer.com/images/navs_on_07.jpg\"><a href=\"http://www.staplessoccer.com/cgi/stats/stats.cgi\" onmouseover=\"return CSIShow(/*CMP*/'stats',1)\" onmouseout=\"return CSIShow(/*CMP*/'stats',0)\" onclick=\"return CSButtonReturn()\"><img src=\"http://www.staplessoccer.com/images/navs_off_07.jpg\" width=\"44\" height=\"20\" name=\"stats\" border=\"0\"></a></csobj><csobj w=\"44\" h=\"20\" t=\"Button\" ht=\"http://www.staplessoccer.com/images/navs_on_08.jpg\"><a href=\"http://www.staplessoccer.com/stuff.html\" onmouseover=\"return CSIShow(/*CMP*/'stuff',1)\" onmouseout=\"return CSIShow(/*CMP*/'stuff',0)\" onclick=\"return CSButtonReturn()\"><img src=\"http://www.staplessoccer.com/images/navs_off_08.jpg\" width=\"44\" height=\"20\" name=\"stuff\" border=\"0\"></a></csobj><csobj w=\"65\" h=\"20\" t=\"Button\" ht=\"http://www.staplessoccer.com/images/navs_on_09.jpg\"><a href=\"http://www.staplessoccer.com/memoriam.html\" onmouseover=\"return CSIShow(/*CMP*/'memoriam',1)\" onmouseout=\"return CSIShow(/*CMP*/'memoriam',0)\" onclick=\"return CSButtonReturn()\"><img src=\"http://www.staplessoccer.com/images/navs_off_09.jpg\" width=\"65\" height=\"20\" name=\"memoriam\" border=\"0\"></a></csobj><csobj w=\"59\" h=\"20\" t=\"Button\" ht=\"http://www.staplessoccer.com/images/navs_on_10.jpg\"><a href=\"http://www.staplessoccer.com/contact.html\" onmouseover=\"return CSIShow(/*CMP*/'contact',1)\" onmouseout=\"return CSIShow(/*CMP*/'contact',0)\" onclick=\"return CSButtonReturn()\"><img src=\"http://www.staplessoccer.com/images/navs_off_10.jpg\" width=\"59\" height=\"20\" name=\"contact\" border=\"0\"></a></csobj><csobj w=\"42\" h=\"20\" t=\"Button\" ht=\"http://www.staplessoccer.com/images/navs_on_11.jpg\"><a href=\"http://www.staplessoccer.com/links.html\" onmouseover=\"return CSIShow(/*CMP*/'links',1)\" onmouseout=\"return CSIShow(/*CMP*/'links',0)\" onclick=\"return CSButtonReturn()\"><img src=\"http://www.staplessoccer.com/images/navs_off_11.jpg\" width=\"42\" height=\"20\" name=\"links\" border=\"0\"></a></csobj><csobj w=\"171\" h=\"20\" t=\"Button\" ht=\"http://www.staplessoccer.com/images/navs_on_12.jpg\"><a href=\"http://www.staplessoccer.com/guest_message.html\" onmouseover=\"return CSIShow(/*CMP*/'guestbook and messageboard',1)\" onmouseout=\"return CSIShow(/*CMP*/'guestbook and messageboard',0)\" onclick=\"return CSButtonReturn()\"><img src=\"http://www.staplessoccer.com/images/navs_off_12.jpg\" width=\"171\" height=\"20\" name=\"guestbook and messageboard\" border=\"0\"></a></csobj></td>
			</tr>
			<tr>
				<td bgcolor=\"white\">
					<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\">
						<tr>
							<td valign=\"top\">
								<form action=\"alumni\" method=\"post\">
									<table border=\"0\" cellpadding=\"0\" cellspacing=\"10\" width=\"100%\">
										<tr>
											<td bgcolor=\"#666666\">
												<table border=\"0\" cellspacing=\"1\" cellpadding=\"5\" width=\"100%\" bgcolor=\"#666666\">
													<tr width=100%>
														<td colspan=5 bgcolor=\"#cccccc\">
															<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\">
																




<tr>
																	<td><a href=../../help.html><img src=\"http://www.staplessoccer.com/images/q.gif\" width=\"19\" height=\"22\" border=\"0\"></a></td>
																	<td><br>
																	</td>
																	<td><font face=\"Verdana\" size=\"4\" color=\"#666666\">|</font><font size=\"2\" face=\"Verdana\" color=\"#003399\"> <b>SEARCH</b></font><font size=\"2\" face=\"Verdana\" color=\"#666666\"> </font><input type=\"text\" name=\"text\" size=\"18\"><input type=hidden name=search value=general></td>
																	<td>
																		<div align=\"left\">
																			<input type=\"image\" src=\"http://www.staplessoccer.com/images/arrow.gif\" border=\"0\"></div>
																	</td>
																	<td><br>
																	</td>
																	<td> <font face=\"Verdana\" size=\"4\" color=\"#666666\">| </font></td>
																	<td><font size=\"2\" face=\"Verdana\" color=\"#003399\"><b>ADVANCED SEARCH </b></font></td>
																	<td><a href=alumni_search><img src=\"http://www.staplessoccer.com/images/arrow.gif\" border=\"0\"></a></td>
																	<td><br>
																	</td>
																	<td> <font face=\"Verdana\" size=\"4\" color=\"#666666\">| </font></td>
																	<td><font face=\"Verdana\" size=\"4\" color=\"#666666\"> </font><font size=\"2\" face=\"Verdana\" color=\"#ff3300\"><b>ADD PROFILE </b></font></td>
																	
<td><a href=../../alumni_add.html><img src=\"http://www.staplessoccer.com/images/arrow.gif\" border=\"0\"></a></td>
															
<td> <font face=\"Verdana\" size=\"4\" color=\"#666666\">| </font></td>
<td><font face=\"Verdana\" size=\"4\" color=\"#666666\"> </font><font size=\"2\" face=\"Verdana\" color=\"#ff3300\"><b>EDIT PROFILE </b></font></td>
																	
<td>
<a href=mailto:dwoog\@optonline.net?subject=Profile><img src=\"http://www.staplessoccer.com/images/arrow.gif\" border=\"0\"></a>
</td>
																
</tr>

															
</table>

														
</td>
														
													
</tr>
\n";


## try to get year correctly
print"
<tr align=center>
<td bgcolor=white colspan=5>
\n";

$textx=$text;
$textx=~tr/a-z/A-Z/;
if($year1 eq "" && $year2 eq ""){
print"
<font size=2 face=Verdana color=#666666>
<b>Search Term <font color=ff6633>$textx</b>
</font><br>
\n";
}


print"
<font size=1 face=Verdana color=666666>[ 
\n";

$x=1958;
here1:
$y=$x;
$z=$x+4;
$endlink="</a>";
if($z<2012){
$link="<a href=alumni?year1=$x&year2=$z>";
if($year1 eq $x && $year2 eq $z){$link="<font color=ff6633><b>";$endlink="</b></font>";}
if($z!=1987 && $z!=1992){print"$link$y-$z$endlink |\n";}
if($z==1987){print"$link$y-$z$endlink ]<br>\n";}
if($z==1992){print"[ $link$y-$z$endlink |\n";}
}

if($z==2012){
$link="<a href=alumni?year1=$x&year2=$z>";
if($year1 eq $x && $year2 eq $z){$link="<font color=ff6633><b>";$endlink="</b></font>";}
$z=2012;
print"$link$y-$z$endlink ]\n";
}

$x=$z+1;
if($x<2012){
goto here1;
}


print"</td></tr>\n";

} # end sub header1

sub header2{
print"

												</table>
											</td>
										</tr>
									</table>
								</form>
							</td>
						</tr>
					</table>
				</td>
			</tr>
			<tr>
				<td><img src=\"http://www.staplessoccer.com/images/bottom.gif\" width=\"757\" height=\"36\" border=\"0\"></td>
			</tr>
			<tr>
				<td bgcolor=\"#999999\">
					<table border=\"0\" cellpadding=\"10\" cellspacing=\"0\">
						<tr>
							<td><font face=\"Verdana\" size=\"1\" color=\"#333333\">&copy;2001 Staples High School. All Rights Reserved. - Phone 203.341.0054 - Email <a href=\"mailto:info\@staplessoccer.com\">info\@staplessoccer.com</a> - Site by <a href=\"http://www.dogsname.com\">dogsname.com</a></font></td>
						</tr>
					</table>
				</td>
			</tr>
		</table>
		<p></p>

</form>

	</body>

</html>
\n";
} # end sub header2


end;

1;