#!/usr/bin/perl use CGI; # Sends Errors to Browser use CGI::Carp qw(fatalsToBrowser); $query = new CGI; # File location of the member info $user_file = "members.txt"; # File location of member program info $progs_file = "memprogs.txt"; # Gets value from information string $user = $query->param('user'); # Retrieve data open(USERS,$user_file); @users=; close(USERS); # Look for member and print info $match = 0; foreach $member (@users){ chomp($member); ($userid, $name, $username, $email, $age, $city, $aim, $yahooid, $icq, $webname, $webaddy, $webdes, $calcown, $calcprog, $calclang, $complang, $otherinfo, $date, $progs, $dloads) = split(/\|/,$member); if ($userid eq $user){ $match = 1; &print_page($userid, $name, $username, $email, $age, $city, $aim, $yahooid, $icq, $webname, $webaddy, $webdes, $calcown, $calcprog, $calclang, $complang, $otherinfo, $date, $progs, $dloads); } } # Displays if a member match isn't found if ($match==0){ print $query->header; print< Member Profile Not Found

Member Profile Not Found

The member profile that you are trying to display was not found. If you are receiving this message becuase you tried to type in the URL to the member's profile, then click here to go to the List of Members page. If you got here by clicking on a link on this site, please let me know about it so that I can fix it. Make sure to include where on the page the link was that got you here.

 NOMATCH } # Print the member's profile sub print_page{ print $query->header; print< $name ($username)

HOME >> Members >> List of Members >> $name

TEXT1 if ($age != null) { print< AGE } if ($city ne "null") { print< CITY } if ($aim ne "null") { print< AIM } if ($yahooid ne "null") { print< YAHOOID } if ($icq ne "null") { print< ICQ } if (($webname ne "null") && ($webaddy ne "null")) { print< \n\n"; } if (calcown ne "null") { print< \n\n"; } if ($calcprog ne "null") { print< \n\n"; } if ($calclang ne "null") { print< \n\n"; } if ($complang ne "null") { print< COMPLANG } if ($otherinfo ne "null") { print< OTHERINFO } if ($date ne "null") { foreach $membersince ($date){ ($month, $day, $year)=split(/\*/,$membersince); } print< DATE } print "
$name
User Name: $username
User ID\#: $userid
E-Mail: $email
Age: $age
City: $city
AIM: $aim
Yahoo! Messenger: $yahooid
ICQ: $icq
Website $webname WEBSITE if ($webdes ne "null") { print " -- " . $webdes; } print "
Calculator(s) Owned: CALCOWN foreach $calcs ($calcown){ (@calculators)=split(/\*/,$calcs); } $numcalcs = scalar @calculators - 1; foreach $calc (@calculators){ print $calc; if ($calc ne $calculators[$numcalcs]) { if ($calc eq $calculators[$numcalcs-1]) { print " & "; } else { print ", "; } } } print "
Calculator(s) Programmed For: CALCPROG foreach $calcsprog ($calcprog){ (@calculatorsprog)=split(/\*/,$calcsprog); } $numcalcsprog = scalar @calculatorsprog - 1; foreach $calcsprog (@calculatorsprog){ print $calcsprog; if ($calcsprog ne $calculatorsprog[$numcalcsprog]) { if ($calcsprog eq $calculatorsprog[$numcalcsprog-1]) { print " & "; } else { print ", "; } } } print "
Calculator Language(s) Known: CALCLANG foreach $calclangs ($calclang){ (@calculatorlangs)=split(/\*/,$calclangs); } $numcalclangs = scalar @calculatorlangs - 1; foreach $calclangs (@calculatorlangs){ print $calclangs; if ($calclangs ne $calculatorlangs[$numcalclangs]) { if ($calclangs eq $calculatorlangs[$numcalclangs-1]) { print " & "; } else { print ", "; } } } print "
Computer Language(s) Known: $complang
Other Info: $otherinfo
Member Since: $month $day, $year
\n"; if ($progs > 0){ open(USERS,$user_file); @users=; close(USERS); $index = 0; @list = (); foreach $member (@users){ chomp($member); (@members) = split(/\|/,$member); @list[$index] = $members[19] . "|" . $members[0]; $index++; } $length = scalar @list; for ($p = 1; $p < ($length-1); $p++) { for ($q = 0; $q < ($length-$p); $q++) { ($dloads_a, $userid_a) = split(/\|/,@list[$q]); ($dloads_b, $userid_b) = split(/\|/,@list[$q+1]); if ($dloads_a < $dloads_b) { $temp = @list[$q]; @list[$q] = @list[$q+1]; @list[$q+1] = $temp; } } } for ($i = 0; $i < $length; $i++) { ($dloads_c, $userid_c) = split(/\|/,@list[$i]); if ($userid == $userid_c) { $rank = $i + 1; } } open(USERS,$user_file); @users=; close(USERS); $index = 0; @list = (); foreach $member (@users){ chomp($member); (@members) = split(/\|/,$member); @list[$index] = $members[18] . "|" . $members[0]; $index++; } $length = scalar @list; for ($p = 1; $p < ($length-1); $p++) { for ($q = 0; $q < ($length-$p); $q++) { ($progs_a, $userid_a) = split(/\|/,@list[$q]); ($progs_b, $userid_b) = split(/\|/,@list[$q+1]); if ($progs_a < $progs_b) { $temp = @list[$q]; @list[$q] = @list[$q+1]; @list[$q+1] = $temp; } } } for ($i = 0; $i < $length; $i++) { ($progs_c, $userid_c) = split(/\|/,@list[$i]); if ($userid == $userid_c) { $ranka = $i + 1; } } print "

" . $name . " is ranked \#" . $ranka . " with " . $progs . ""; if ($progs == 1) { print " program"; } else { print " programs"; } print " and ranked \#" . $rank . " with " . $dloads . ""; if ($dloads == 1) { print " program download\n"; } else { print " program downloads\n"; } print "

\n"; print< TABLEBEGIN open(PROGS,$progs_file); @programs=; close(PROGS); foreach $memprog (@programs){ chomp($memprog); (@progs) = split(/\|/,$memprog); if ($progs[0] eq $user){ &display_progs(@progs); } } print "
MY PROGRAMS
Title File Type

\n"; } print<Back to List of Members




Problems with this page?
Contact the Webmaster.
TEXT3 } sub display_progs { $bgcolor = 0; $i = 0; foreach $proginfo (@progs) { (@calcinfo)=split(/\*/,$proginfo); if ($calcinfo[0] ne $user) { if ($bgcolor == 1) { $color = "ADD8E6"; } else { $color = "FFFFFF"; } print< $calcinfo[0] $calcinfo[3] ROW $bgcolor = !($bgcolor); $i++; } } }