#!/usr/bin/perl use CGI; # Sends Errors to Browser use CGI::Carp qw(fatalsToBrowser); $query = new CGI; # File location of the program info $prog_file = "programs.txt"; $proga_file = "../../../programs.txt"; $redirect = "index.pl"; if (!$query->param()) { print $query->redirect($redirect); } else { &getinfo; } sub getinfo { $prog = $query->param('prog'); open(PROGS,$prog_file); @progs=; close(PROGS); $match = 0; foreach $program (@progs){ chomp($program); ($filename, $title, $description, $author, $userid, $directory, $category, $filesize, $documentation, $docfile, $screenshots, $votes, $total, $dloads) = split(/\|/,$program); if ($prog eq $filename){ $match = 1; &print_page($filename, $title, $description, $author, $userid, $directory, $category, $filesize, $documentation, $docfile, $screenshots, $dloads, $total, $votes); } } } if ($match == 0) { print $query->redirect($redirect); } sub print_page { print $query->header; print< $title

HOME >> Program Archives >> TI-83 >> BASIC >> Math >> $title

$title

File Name: $filename.zip

Description: $description

Author: $author

File Type: $category

File Size: $filesize bytes

HEADING open(PROGS,$proga_file); @programs=; close(PROGS); # Reorders data and puts each program into list element $index = 0; @list = (); foreach $program (@programs){ chomp($program); ($file, $name, $dir, $downloads) = split(/\|/,$program); @list[$index] = $downloads . "|" . $file . "|" . $name . "|" . $dir; $index++; } # Sorts Data $length = scalar @list; for ($p = 1; $p < ($length-1); $p++) { for ($q = 0; $q < ($length-$p); $q++) { ($downloads, $file, $name, $dir) = split(/\|/,@list[$q]); ($downloads_a, $file_a, $name_a, $dir_a) = split(/\|/,@list[$q+1]); if ($downloads < $downloads_a) { $temp = @list[$q]; @list[$q] = @list[$q+1]; @list[$q+1] = $temp; } } } for ($i = 0; $i < $length; $i++) { ($downloads_b, $file_b, $name_b, $dir_b) = split(/\|/,@list[$i]); if (($filename eq $file_b) && ($directory eq $dir_b)) { $rank = $i + 1; } } open(PROGS,$prog_file); @progs=; close(PROGS); $index = 0; @list = (); foreach $program (@progs){ chomp($program); (@programs) = split(/\|/,$program); @list[$index] = $programs[13] . "|" . $programs[0]. "|" . $programs[5]; $index++; } # Sorts Data $length = scalar @list; for ($p = 1; $p < ($length); $p++) { for ($q = 0; $q < ($length-$p); $q++) { ($downloads, $file, $dir) = split(/\|/,@list[$q]); ($downloads_a, $file_a, $dir_a) = split(/\|/,@list[$q+1]); if ($downloads < $downloads_a) { $temp = @list[$q]; @list[$q] = @list[$q+1]; @list[$q+1] = $temp; } } } for ($i = 0; $i < $length; $i++) { ($downloads_b, $file_b, $dir_b) = split(/\|/,@list[$i]); if (($filename eq $file_b) && ($directory eq $dir_b)) { $ranka = $i + 1; } } if ($length == 1) { $ranka = 1; } print "

\n"; print $title . " is ranked \#" . $rank . " out of all programs and \#" . $ranka . " in " . $category . " with " . $dloads . ""; if ($dloads == 1) { print " download.
\n"; } else { print " downloads.
\n"; } print "

\n"; if ($documentation eq "Yes") { print<Documentation: Yes

DOC } else { print<Documentation: No

NODOC } if ($screenshots ne "null") { foreach $shot ($screenshots){ (@ss)=split(/\*/,$shot); } print< SCREEN SHOTS
SS foreach $pic (@ss) { print<$title ROW } print "\n
\n"; } print<

PROGRAM OF THE MONTH NOMINATION

Do you think that this program is really good? Think it deserves to win some sort of award? If so, you can nominate it to be in the next Program of the Month (POM) poll. All you have to do is click the "NOMINATE ME" button below and it'll have a good chance of being a nominee in the next POM. Please vote only one time.

NOM print<

PROGRAM RATING

Current Rating:

Agree with this rating? Disagree with it? In any case, rate this program from 1 star to 5 stars. If you think this program is really, really good, you can not only give it a rating of 5 stars, but also leave your thoughts about it. On the other hand, if you think this program is "not-so-hot," you can give it a low rating. As in the case with most ratings, the rating of this program is based on the average rating that you, the users, give. This rating is not based on what one person thinks about the program. With that in mind, you should be able to have a good idea how good this program really is. Now, if you think this program really deserves a better (or worse) rating, just send yours and it will be counted for. Multiple submitted ratings will not be counted!!

Rate this program:

RATING print<




Problems with this page?
Contact the Webmaster.
TEXT3 }