JTs Unofficial Cortez High School WWW Page

#!/usr/bin/perl $total = 0; print "Content-type: text/html\n\n"; print < JTs Unofficial Cortez High School WWW Page JTs Unofficial Cortez High School WWW Page

welcome to the JTs unofficial web page for cortez high school which is located in the valley of the sun, a.ka. phoenix arizona
this page was created and maintanied (ocasionally) by jeremiah tieman - 1995 graduate.

the purpose of this page is to provide graduates a way to find old friends (maybe boy/girl friends? :)), teachers, etc.. basically a way to keep in touch. if *someone* finds an old friend or teacher or something really cool, please let me know, so I know it is worth my time.

if you would like your name added, please send me the following info:

name
e-mail adddress
web page (if avaialbe)
year graduated

....i may not be the fast updating the page, but it *will* get updated.
i am also working on a way to auto-update the page for each specific user.. STAY TUNED.

Links:
high school alumni . com
gradFinder.com
Official CHS RoboColt Homepage
chs - guestbook
the "official" CHS web page can be found here within the glendale union high school district site.

People Served:

	Update:  Feb 1999!
	Added a CGI system to the userpage, thus making it easier for me to add users.
	It is very basic, but will improve as I find time to do it.  Please stay tuned.

	Update:  Jan 1999!
	I changed the layout a bit of the page, and fixed a few minor details.
	Will be adding the rest of the people soon, as well as a new CGI system to add new users.

	Update:  December 1998!
	Please excuse me for the time being, but right now I am unable to update the CHS list.
	I will be updating the list (adding ALL of the names that have been sent in for the last
	two years) in February.. Meanwhile, please visit the GuestBook!

Graduates, Staff & Associates of Cortez

HTMLHEAD open (FIND, "find ./users -type f -print | sort -r |") || die "Couldn't run find: $!\n"; FILE: while ($file = ) { chop $file; open (USER, "$file"); @user = ; close(USER); print ""; foreach $line (@user) { chop $line; if ($line =~ m/\@/ ) { print ""; } else { print ""; } } print "\n"; $total = $total + 1; } print <
HTMLTAIL print <

People Registered: $total

Commets to jt\@jt.org FOOTER

name	e-mail	web	year
$line	$line