#!/srvtools/http/bin/perl
#  Falke Bruinsma (falke@innersource.com)
#  Inner Source Computer Services, Inc. (http://www.innersource.com)
#

require "../../cgiconf.pl";  # Contains the server variables

# URL for Student Center home directory
$home = "$ENV{'INFOMALL_URL'}";

#Directories that are writable by the server
$rw = "$ENV{'INFOMALL_DOCROOT_RW'}";
$tmp = "$ENV{'INFOMALL_TEMP'}";

$rw = "$rw/studentcenter";

$school_file = "$rw/highschools/schools.db";
$submit_file = "$rw/highschools/submitted.db";
$temp_file = "$tmp/tmp\$\$";
$abbrev = 'abbrev.txt';
$user = 'falke\@tulip.innersource.com';

$ErrorMessage = "<B>Error saving your submission<BR>Please notify the system administrator of this message.</B>";
$notify = 1;

$NAME = 0;
$URL = 1;
$CITY = 2;
$STATE = 3;

$E_LAST = "*last*";
$E_URL = "*url*";
$E_CITY = "*city*";
$E_STATE = "*state*";

sub PrintRecord {
  $lines = @_;
      if ($lines[$URL] ne $E_URL) {
        printf("<A HREF=\"$lines[$URL]\">$lines[$NAME]</A> - ");
      }
      if ($lines[$CITY] ne $E_CITY) {
        printf("$lines[$CITY] - ");
      }
      if ($lines[$STATE] ne $E_STATE) {
        printf("$lines[$STATE] - ");
      }
}
