#!/opt/perl/bin/perl # Define constants local(%FORM); $CRLF="\r\n"; $DATE= &getlocaldate; # Tell the browser what's comming print "Content-type: text/html$CRLF$CRLF"; # Get the input from the browser read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); # Split the name-value pairs @pairs = split(/&/, $buffer); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-91])/pack("C", hex($1))/eg; # Stop people from using subshells to execute commands $value =~ s/~!/ ~!/g; # Uncomment for debugging purposes # print "Setting $name to $value
\n", $FORM{$name} = $value; } # Check for valid input data exit if ! $FORM{'key'}; $DBASEFILEDIR=$FORM{'datadir'}; # See if File Exists in Data Directory $DBASEFILEDIR=$FORM{'datadir'}; $DBASEFILE=$DBASEFILEDIR.$FORM{'key'}.".".$FORM{'code'}; if ( -e $DBASEFILE) { if ( -z $DBASEFILE) { print "The file $DBASEFILE is an empty file!"; exit; } if ( -T $DBASEFILE) { } else { print "The file $DBASEFILE is not a text file!"; exit; } } else { print "The file $DBASEFILE does not exist!"; exit; } # Get default values from the database file if ( -e $DBASEFILE) { if ( -z $DBASEFILE) { print "The file $DBASEFILE is corrupt - reenter all information!
\n"; } if ( -T $DBASEFILE) { } else { print "The file $DBASEFILE is corrupt - reenter all information!
\n"; } } else { print "The file $DBASEFILE does not exist - reenter all information!
\n"; } open(FILE, "$DBASEFILE") || print "Can't open database file $DBASEFILE: $!
\n"; while () { # split lines at a colon not preceded by a backslash if ($_ =~ /[^\\]:/) { ($name, $value) = split(/:/, $_, 2); # remove backslash from escaped colons $value =~ s/\\:/:/g; # remove backslash from escaped backslashes $value =~ s/\\\\/\\/g; $DBASE{$name} = $value; } else { # remove backslash from escaped colons $_ =~ s/\\:/:/g; # remove backslash from escaped backslashes $_ =~ s/\\\\/\\/g; $DBASE{$name} .= $_; } } close (FILE); # Insert CGI version of form here print "\n"; print "\n"; print " 2003 Collegiate Aviation Survey \n"; print "\n"; print "\n"; print "

2003 Collegiate Aviation Survey

\n"; print "
\n"; print "
\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "

A. INSTITUTIONAL DATA

\n"; print "\n"; print "
\n";
print "1.  Official Name:   \n";
print "2.  Street Address1: \n";
print "    Street Address2: \n";
print "    City:  State:  ZIP code: \n";
print "3.  Telephone:  Fax: \n";
print "4.  Website URL (omit the http://): \n";
if ($DBASE{'type'} =~ /pub/) {
   print "5.  Type:  Public  Proprietary\n";
} else {
   print "5.  Type:  Public  Proprietary\n";
}
if ($DBASE{'accred'} =~ /accredited/) {
   print "6.  Accreditation:  Accredited  Candidate  Not Accredited\n";
} else {
   if ($DBASE{'accred'} =~ /candidate/) {
      print "6.  Accreditation:  Accredited  Candidate  Not Accredited\n";
   } else {
      print "6.  Accreditation:  Accredited  Candidate  Not Accredited\n";
   }
}
print "    If accredited, specify agency: \n";
print "7.  Highest Degree Offered: \n";
if ($DBASE{'student_body'} =~ /coed/) {
   print "8.  Student Body:  Co-educational  Male Only  Female Only\n";
} else {
   if ($DBASE{'student_body'} =~ /male/) {
      print "8.  Student Body:  Co-educational  Male Only  Female Only\n";
   } else {
      print "8.  Student Body:  Co-educational  Male Only  Female Only\n";
   }
}
print "9.  Full-time Enrollment:  Undergraduate  Graduate \n";
if ($DBASE{'admission'} =~ /SAT/) {
   print "10. Freshman Admission Requirements:  SAT ";
} else {
   print "10. Freshman Admission Requirements:  SAT ";
}
if ($DBASE{'admission'} =~ /ACT/) {
   print " ACT ";
} else {
   print " ACT ";
}
if ($DBASE{'admission'} =~ /GPA/) {
   print " GPA\n";
} else {
   print " GPA\n";
}
print "    Other Requirements:\n";
print "    \n";
if ($DBASE{'calendar'} =~ /semester/) {
   print "11. Calendar System:  Semester  Quarter  Trimester  Other\n";
} else {
   if ($DBASE{'calendar'} =~ /quarter/) {
      print "11. Calendar System:  Semester  Quarter  Trimester  Other\n";
   } else {
      if ($DBASE{'calendar'} =~ /trimester/) {
         print "11. Calendar System:  Semester  Quarter  Trimester  Other\n";
      } else {
         print "11. Calendar System:  Semester  Quarter  Trimester  Other\n";
      }
   }
}
print "12. Annual Undergraduate Tuition and Fees:  Resident  Non-resident \n";
print "13. Point of contact:\n";
print "\n";
if ($DBASE{'salutation'} =~ /Dr./) {
   print "    Salutation Title:  Dr.  Mr.  Mrs.  Ms.  Miss  Other\n";
} else {
   if ($DBASE{'salutation'} =~ /Mr./) {
      print "    Salutation Title:  Dr.  Mr.  Mrs.  Ms.  Miss  Other\n";
   } else {
      if ($DBASE{'salutation'} =~ /Mrs./) {
         print "    Salutation Title:  Dr.  Mr.  Mrs.  Ms.  Miss  Other\n";
      } else {
         if ($DBASE{'salutation'} =~ /Ms./) {
            print "    Salutation Title:  Dr.  Mr.  Mrs.  Ms.  Miss  Other\n";
         } else {
            if ($DBASE{'salutation'} =~ /Miss/) {
               print "    Salutation Title:  Dr.  Mr.  Mrs.  Ms.  Miss  Other\n";
            } else {
               print "    Salutation Title:  Dr.  Mr.  Mrs.  Ms.  Miss  Other\n";
            }
         }
      }
   }
}
print "                      If other, please specify: \n";
print "    Contact Name:             \n";
print "    Aviation Department Name: \n";
print "    Street or P.O. Box:       \n";
print "    City:  State:  ZIP code: \n";
print "    Telephone:                 Fax: \n";
print "    Email Address:            \n";
print "
\n"; print "\n"; print "

B. AVIATION PROGRAMS

\n"; print "\n"; print "
\n";
print "1.  Traditional Programs:\n";
print "
\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; if ($DBASE{'avn_prog1_accred'} =~ /yes/) { print "\n"; print "\n"; } else { print "\n"; print "\n"; } print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; if ($DBASE{'avn_prog2_accred'} =~ /yes/) { print "\n"; print "\n"; } else { print "\n"; print "\n"; } print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; if ($DBASE{'avn_prog3_accred'} =~ /yes/) { print "\n"; print "\n"; } else { print "\n"; print "\n"; } print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; if ($DBASE{'avn_prog4_accred'} =~ /yes/) { print "\n"; print "\n"; } else { print "\n"; print "\n"; } print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; if ($DBASE{'avn_prog5_accred'} =~ /yes/) { print "\n"; print "\n"; } else { print "\n"; print "\n"; } print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; if ($DBASE{'avn_prog6_accred'} =~ /yes/) { print "\n"; print "\n"; } else { print "\n"; print "\n"; } print "\n"; print "\n"; print "\n"; print "
Program\n"; print "
\n";
print "Number of programs\n";
print "by type of degree\n";
print "
\n"; print "		\n"; print "
\n";
print "Credit\n";
print "Hours\n";
print "Required\n";
print "(See note 1)\n";
print "
\n"; print "		\n"; print "
\n";
print "    CAA\n";
print "Accreditation\n";
print "
\n"; print "		\n"; print "
\n";
print "Enrollment\n";
print "(See note2)\n";
print "
\n"; print "		Remarks
ABMDOYesNo
\n"; print "
\n";
print "Aviation Maintenance/    \n";
print "Acft. Maint. Mgmt.\n";
print "
\n"; print "
\n"; print "
\n";
print "Aviation Management/\n";
print "Airway Sci. Mgmt.\n";
print "
\n"; print "
\n"; print "
\n";
print "Aviation Studies\n";
print "(See note 3)\n";
print "
\n"; print "
\n"; print "
\n";
print "Avionics/\n";
print "Electronics          \n";
print "
\n"; print "
\n"; print "
\n";
print "Flight Education\n";
print "(See note 4)\n";
print "
\n"; print "
\n"; print "
\n";
print "Other\n";
print "(See note 5)\n";
print "
\n"; print "
\n"; print "\n"; print "
\n";
print "\n";
print "    NOTES: 1.  Include majors leading to a degree for A-associate;B-baccalaureate;M-master's;\n";
print "               D-doctorate; and for other than degrees, O-certificate/non-credit.\n";
print "           2.  Include total enrollment in all degree programs for most recent academic term.\n";
print "           3.  Include in this category meteorology, human factors, space studies, atmospheric\n";
print "               science and airway computer science.\n";
print "           4.  Include all professional flight that leads to commercial pilot and aircraft\n";
print "               systems management.\n";
print "           5.  Include all programs offered that do not fall under the five standard\n";
print "               classifications listed above.\n";
print "\n";
print "
\n";
print "2.  Online Aviation Programs:\n";
print "
\n";
print "\n";
print "\n";
print "\n";
print "\n";
print "\n";
print "\n";
print "\n";
print "\n";
print "\n";
print "\n";
print "\n";
print "\n";
print "\n";
print "\n";
print "\n";
print "\n";
print "\n";
print "\n";
print "\n";
print "\n";
print "\n";
print "\n";
print "\n";
print "\n";
print "\n";
print "\n";
print "\n";
print "\n";
print "\n";
print "\n";
if ($DBASE{'o_avn_prog1_accred'} =~ /yes/) {
   print "\n";
   print "\n";
} else {
   print "\n";
   print "\n";
 }
print "\n";
print "\n";
print "\n";
print "\n";
print "\n";
print "\n";
print "\n";
print "\n";
print "\n";
print "\n";
print "\n";
print "\n";
if ($DBASE{'o_avn_prog2_accred'} =~ /yes/) {
   print "\n";
   print "\n";
} else {
   print "\n";
   print "\n";
 }
print "\n";
print "\n";
print "\n";
print "\n";
print "\n";
print "\n";
print "\n";
print "\n";
print "\n";
print "\n";
print "\n";
print "\n";
if ($DBASE{'o_avn_prog3_accred'} =~ /yes/) {
   print "\n";
   print "\n";
} else {
   print "\n";
   print "\n";
 }
print "\n";
print "\n";
print "\n";
print "
Program\n";
print "
\n";
print "Number of programs\n";
print "by type of degree\n";
print "
\n";
print "		\n";
print "
\n";
print "Credit\n";
print "Hours\n";
print "Required\n";
print "(See note 1)\n";
print "
\n";
print "		\n";
print "
\n";
print "    CAA\n";
print "Accreditation\n";
print "
\n";
print "		\n";
print "
\n";
print "Enrollment\n";
print "(See note2)\n";
print "
\n";
print "		Remarks
ABMDOYesNo
\n";
print "\n";
print "
\n";
print "3.  Other Non-Traditional Offerings:\n";
print "\n";
if ($DBASE{'non_trad_sat'} =~ /yes/) {
   print "    a.  Any degrees or courses offered at satellite locations?  Yes  No\n";
} else {
   print "    a.  Any degrees or courses offered at satellite locations?  Yes  No\n";
}
print "\n";
if ($DBASE{'non_trad_dist'} =~ /yes/) {
   print "    b.  Any courses through distance learning?  Yes  No\n";
} else {
   print "    b.  Any courses through distance learning?  Yes  No\n";
}
print "\n";
if ($DBASE{'non_trad_corr'} =~ /yes/) {
   print "    c.  Any courses through correspondence?  Yes  No\n";
} else {
   print "    c.  Any courses through correspondence?  Yes  No\n";
}
print "\n";
print "    d.  Is credit given for FAA certificates and ratings\n";
if ($DBASE{'non_trad_cert'} =~ /yes/) {
   print "        held at the time of admission?  Yes  No\n";
} else {
   print "        held at the time of admission?  Yes  No\n";
}
print " \n";
print "4.  FAA Certificate Offerings:\n";
print "\n";
print "    a.  Certificates and ratings offered (check all that apply):\n";
print "\n";
print "        Flight\n";
if ($DBASE{'flight_cert'} =~ /Recreational/) {
   print "         Recreational  ";
} else {
   print "         Recreational  ";
}
if ($DBASE{'flight_cert'} =~ /Private/) {
   print " Private  ";
} else {
   print " Private  ";
}
if ($DBASE{'flight_cert'} =~ /Commercial/) {
   print " Commercial  ";
} else {
   print " Commercial  ";
}
if ($DBASE{'flight_cert'} =~ /Instrument/) {
   print " Instrument\n";
} else {
   print " Instrument\n";
}
if ($DBASE{'flight_cert'} =~ /Multi-engine/) {
   print "         Multi-engine  ";
} else {
   print "         Multi-engine  ";
}
if ($DBASE{'flight_cert'} =~ /CFI_airplane/) {
   print " CFI(airplane)  ";
} else {
   print " CFI(airplane)  ";
}
if ($DBASE{'flight_cert'} =~ /CFI_instrument/) {
   print " CFI(instrument)  ";
} else {
   print " CFI(instrument)  ";
}
if ($DBASE{'flight_cert'} =~ /ATP/) {
   print " ATP\n";
} else {
   print " ATP\n";
}
if ($DBASE{'flight_cert'} =~ /Glider/) {
   print "         Glider  ";
} else {
   print "         Glider  ";
}
if ($DBASE{'flight_cert'} =~ /Rotorcraft/) {
   print " Rotorcraft  ";
} else {
   print " Rotorcraft  ";
}
if ($DBASE{'flight_cert'} =~ /Flight Engineer/) {
   print " Flight Engineer\n";
} else {
   print " Flight Engineer\n";
}
print "\n";
print "        Non-flight\n";
if ($DBASE{'nonflight_cert'} =~ /Airframe/) {
   print "         Airframe  ";
} else {
   print "         Airframe  ";
}
if ($DBASE{'nonflight_cert'} =~ /Powerplant/) {
   print " Powerplant  ";
} else {
   print " Powerplant  ";
}
if ($DBASE{'nonflight_cert'} =~ /AP/) {
   print " Airframe & Powerplant\n";
} else {
   print " Airframe & Powerplant\n";
}
if ($DBASE{'nonflight_cert'} =~ /Avionics/) {
   print "         Avionics\n";
} else {
   print "         Avionics\n";
}
print "\n";
print "    b.  Instruction offered under FAA part (check all that apply):\n";
if ($DBASE{'flight_instr'} =~ /141/) {
   print "         141  ";
} else {
   print "         141  ";
}
if ($DBASE{'flight_instr'} =~ /147/) {
   print " 147  ";
} else {
   print " 147  ";
}
if ($DBASE{'flight_instr'} =~ /61/) {
   print " 61  ";
} else {
   print " 61  ";
}
if ($DBASE{'flight_instr'} =~ /Examining Authority/) {
   print " 141 Examining Authority\n";
} else {
   print " 141 Examining Authority\n";
}
print "\n";
print "    c.  Instruction conducted by (check):\n";
if ($DBASE{'instr_cond_by'} =~ /Institution/) {
   print "         Institution  ";
} else {
   print "         Institution  ";
}
if ($DBASE{'instr_cond_by'} =~ /Contractor/) {
   print " Contractor\n";
} else {
   print " Contractor\n";
}
print "\n";
print "        Describe:\n";
print "        \n";
print "        \n";
print "    d.  Cost of lab Fees:  Flight      Private                    \n";
print "                                       Commercial and Instrument  \n";
print "                                       CFI-Airplane               \n";
print "                                       Multi-engine               \n";
print "                                       Other                      \n";
print "                                       Total cost of certificates \n";
print "                                       and ratings in flight major\n";
print "\n";
print "                           Non-Flight  Airframe                   \n";
print "                                       Powerplant                 \n";
print "                                       Airframe & Powerplant      \n";
print "                                       Avionics                   \n";
print "                                       Other                      \n";
print "\n";
print "    e.  Flight Hours at graduation:   minimum    average    maximum\n";
print "\n";
print "5.  Opportunities - Industry/Employment/Learning\n";
print "\n";
print "    a.  Indicate government/industry employment/experience opportunities for\n";
print "        aviation students while enrolled or immediately after graduation: \n";
print "\n";
if ($DBASE{'opportunities'} =~ /Co-op Education/) {
   print "         Co-op Education   ";
} else {
   print "         Co-op Education   ";
}
if ($DBASE{'opportunities'} =~ /Internship while enrolled/) {
   print " Internship while enrolled   ";
} else {
   print " Internship while enrolled   ";
}
if ($DBASE{'opportunities'} =~ /Internship post graduate/) {
   print " Internship post graduate\n";
} else {
   print " Internship post graduate\n";
}
print "        Other:  \n";
print "\n";
print "6.  Scholarship/Financial Aid:\n";
print "\n";
print "    Scholarships available exclusively for aviation students:\n";
print "    Total Number   Total Annual Value  \n";
print "\n";
print "7.  Administration:\n";
print "    What year was the aviation program established?  \n";
if ($DBASE{'advisory_committee'} =~ /yes/) {
   print "    Does aviation program have an advisory committee?   Yes   No\n";
} else {
   print "    Does aviation program have an advisory committee?   Yes   No\n";
}
if ($DBASE{'placement_service'} =~ /yes/) {
   print "    Does aviation program have a graduate placement service?  Yes   No\n";
} else {
   print "    Does aviation program have a graduate placement service?  Yes   No\n";
}
print "    School/college/division in which the aviation program is located?  \n";
print "\n";
print "8.  Aviation Affiliations (check all that apply): \n";
if ($DBASE{'affiliations'} =~ /UAA Institutional Member/) {
   print "     UAA Institutional Member      ";
} else {
   print "     UAA Institutional Member      ";
}
if ($DBASE{'affiliations'} =~ /CAA Member/) {
   print " CAA Member\n";
} else {
   print " CAA Member\n";
}
if ($DBASE{'affiliations'} =~ /NIFA Member/) {
   print "     NIFA Member                   ";
} else {
   print "     NIFA Member                   ";
}
if ($DBASE{'affiliations'} =~ /Alpha Eta Rho Chapter/) {
   print " Alpha Eta Rho Chapter\n";
} else {
   print " Alpha Eta Rho Chapter\n";
}
print "    Other: \n";
print "\n";
print "9.  Articulation Agreements: \n";
print "\n";
print "    Indicate name(s) of institution(s) with which your institution has a formal articulation\n";
print "    agreement for admission of transfer students:\n";
print "    \n";
print "\n";
print "10. Other pertinent information or additions to above entries: \n";
print "    \n";
print "
\n";
print "
\n";
print "To submit, press this button:\n";
print "\n";
print "
\n";
print "To clear the form, press this button:\n";
print "\n";
print "
\n";
print "
\n";
print "\n";
print "\n";

# End of main program
exit;

# Subroutines

sub getlocaldate {
   local($sec, $min, $hour, $mday, $month, $year, $wday, $yday, $isdst) = localtime(time);
   $month++; # months start with zero
   $min="00" if $min == 0;
   $min="0$min" if ($min < 10);
   $mday=" $mday" if ($mday < 10);
   local($mon)= "MONTH";
   $mon="Jan" if $month== 1;
   $mon="Feb" if $month== 2;
   $mon="Mar" if $month== 3;
   $mon="Apr" if $month== 4;
   $mon="May" if $month== 5;
   $mon="Jun" if $month== 6;
   $mon="Jul" if $month== 7;
   $mon="Aug" if $month== 8;
   $mon="Sep" if $month== 9;
   $mon="Oct" if $month==10;
   $mon="Nov" if $month==11;
   $mon="Dec" if $month==12;
   return "$mday $mon $year $hour:$min";
}

sub lock_excl {
   # File locking constants
   $LOCK_EXCL = 2;
   flock($_[0], $LOCK_EXCL);
   # seek($_[0], 0, 2);  # Seek to end (end=2)
}

sub lock_share {
   # File locking constants
   $LOCK_SHARED = 1;
   flock($_[0], $LOCK_SHARED);
}

sub lock_unlock {
   # File locking constants
    $LOCK_UNLOCK = 8;
    flock($_[0], $LOCK_UNLOCK);
}