Phoenix Aerospace - Simulation Group

#!/usr/local/bin/perl use strict; use CGI; use DBI; use Switch; my $q = CGI->new; #survey hashes my %cc_hash; my %st_hash; my %ap_hash; my %os_hash; my %sim_hash; my %cp_hash; my %sx_hash; my %pilot_hash; my %ac_hash; #hash vars my $cc; # country code my $ccode; # country code from db my $ccname; # country name my $ac; # aircraft code my $ax; # axes my $acmo; my $flag; my $err; my $count; my $v0; #user_ID my $v1; #city my $v2; #state my $v3; #country my $v4; #airport my $v5; #aircraft_manufacture my $v6; #aircraft_manufacture_opt my $v7; #aircraft_type my $v8; #platform my $v9; #software my $v10; #network FS my $v11; #network ethernet my $v12; #network afdx my $v13; #network mil 1553 my $v14; #network airnic my $v15; #Base Hydro my $v16; #Base Phematics my $v17; #Base Motors my $v18; #Axes my $v19; #cockpit my $v20; #Pilot my $v21; #AC_flown my $vt10 = 0; my $vt11 = 0; my $vt12 = 0; my $vt13 = 0; my $vt14 = 0; my $vt15 = 0; my $vt16 = 0; my $vt17 = 0; my $vt18 = 0; my $vt19; my $vt20; my $vt21; my $cp1; my $cp2; my $cp3; my $cp4; my $cpt1; my $cpt2; my $cpt3; my $cpt4; my $cpt5; my $ax1; my $ax2; my $ax3; my $ax4; my $vm1; my $vm2; my $p1; my $p2; my $p3; my $p4; my $p5; my $acf1; my $acf2; my $acf3; my $acf4; my $acf5; my $acf6; my $acf7; my $acf8; my $acf9; my $acf10; my $os1; my $os2; my $os3; my $os4; my $os5; my $sim1; my $sim2; my $sim3; my $sim4; my $sim5; my $sim6; my $sim7; my $sim8; my $sim9; my $sim10; my $sim11; my $sim12; my $sim13; my $sim14; print "Content-type: text/html\n\n"; print <Phoenix Aerospace - Simulation Group

ENDHEADER $err =0; my $dbh=DBI->connect("DBI:mysql:phnxaero:localhost","root"); # First Test to see if we have DB connection if (defined ($dbh)) { #get every thing from the survey #vars my $count = 1; my $sth = $dbh->prepare("select * from user_survey"); $sth->execute(); print "Simulation Survey Results
"; print "To take part in this survey you must register!

"; print ""; print ""; print ""; print ""; print""; print""; print""; print""; while (($v0, $v1, $v2, $v3, $v4, $v5, $v6, $v7, $v8, $v9, $v10, $v11, $v12, $v13, $v14, $v15, $v16, $v17, $v18, $v19, $v20, $v21 ) = $sth->fetchrow()) { my $sth_cflag = $dbh->prepare("select flag from countrys where country_code = ?"); $sth_cflag->execute($v3); ($flag ) = $sth_cflag->fetchrow(); if ($v3 ne '' ) { ++ $cc_hash{$v3}}; # country hash if ($v2 ne '' ) { ++ $st_hash{$v2}}; # state hash if ($v8 ne '' ) { ++ $os_hash{$v8}}; if ($v9 ne '' ) { ++ $sim_hash{$v9}}; if ($v10 eq 'T') { $vt10++;} if ($v11 eq 'T') { $vt11++;} if ($v12 eq 'T') { $vt12++;} if ($v13 eq 'T') { $vt13++;} if ($v14 eq 'T') { $vt14++;} if ($v15 eq 'T') { $vt15++;} if ($v16 eq 'T') { $vt16++;} if ($v17 eq 'T') { $vt17++;} if ($v18 ne '' ) { ++ $sx_hash{$v18}} if ($v19 ne '' ) { ++ $cp_hash{$v19}}; if ($v20 != 0 ) { ++ $pilot_hash{$v20}}; if ($v21 != 0 ) { ++ $ac_hash{$v21}}; my $flagstring = 'images/ISO_3166-1_files/$flag'; print ""; print ""; print ""; #Country print ""; #State print ""; #airport print ""; #manufac print ""; #other manufac print ""; #type print""; print ""; print ""; print ""; print""; print ""; print ""; print ""; print""; print ""; print ""; print ""; print ""; print ""; $count++; } print "
Raw Data

Country State Airport Manufacture Other Manufacture Type O/S SIM MS/FS
NET Ethernet AFDX 1553 429 Hydraulics Pneumatics Electric
Motors Axes Cockpit Pilot? Planes Flown
$count $v3 $v2 $v4 $v5 $v6 $v7 $v8 $v9 $v10 $v11 $v12 $v13 $v14 $v15 $v16 $v17 $v18 $v19 $v20 $v21

"; } else { $err = 15;} my $sth_m = $dbh->prepare("select * from manufacture"); $sth_m->execute(); while(( $vm1, $vm2 ) = $sth_m->fetchrow()){ $ap_hash{$vm2} = $vm1; } print "

"; print ""; print "

"; print ""; foreach $cc (sort keys %st_hash) { my $hashval = $st_hash{ $cc }; my $sth_cflag = $dbh->prepare("select * from uscanstates where state = ?"); $sth_cflag->execute($cc); ($ccode, $ccname, $flag ) = $sth_cflag->fetchrow(); print ""; } print "

Survey Results by State (US/CAN )
	$ccname	$hashval

"; print ""; foreach $cc (sort keys %cc_hash) { my $hashval = $cc_hash{ $cc }; my $sth_cflag = $dbh->prepare("select country_code, flag, country from countrys where country_code = ?"); $sth_cflag->execute($cc); ($ccode, $flag, $ccname ) = $sth_cflag->fetchrow(); print ""; } my $sth_ac = $dbh->prepare("select count(*), aircraft_manufacture, aircraft_manufacture_opt, aircraft_type from user_survey group by aircraft_manufacture, aircraft_type" ); $sth_ac->execute(); my $acc; my $acm; my $act; print "

Survey Results by Country
	$ccname	$hashval

"; print "

"; print" "; print" "; print"

"; print ""; my $sth_acm = $dbh->prepare("select man_name from manufacture where man_id = ?"); while (($acc, $acm, $acmo, $act) = $sth_ac->fetchrow()) { $sth_acm->execute( $acm ); my $ac_name = $sth_acm->fetchrow(); if ( $acm ne 'OT' ) { print ""; }else{ print ""; }} print "

Survey Results by Aircraft Types
$acc	$ac_name		$act
$acc	$ac_name	$acmo	$act

"; print ""; foreach $cc (sort keys %pilot_hash) { my $hashval = $pilot_hash{ $cc }; if ($cc == 1) {$p1 = $hashval;} if ($cc == 2) {$p2 = $hashval;} if ($cc == 3) {$p3 = $hashval;} if ($cc == 4) {$p4 = $hashval;} if ($cc == 5) {$p5 = $hashval;}} print ""; print ""; print ""; print ""; print ""; print "

Survey Results for Pilots
NO	$p1
YES: Recreational Licence	$p2
YES: Private license	$p3
YES: Commercial Licence	$p4
YES: Military Wings	$p5

"; print ""; foreach $cc (sort keys %ac_hash) { my $hashvalacf = $ac_hash{ $cc }; if ($cc == 1) {$acf1 = $hashvalacf;} if ($cc == 2) {$acf2 = $hashvalacf;} if ($cc == 3) {$acf3 = $hashvalacf;} if ($cc == 4) {$acf4 = $hashvalacf;} if ($cc == 5) {$acf5 = $hashvalacf;} if ($cc == 6) {$acf6 = $hashvalacf;} if ($cc == 7) {$acf7 = $hashvalacf;} if ($cc == 8) {$acf8 = $hashvalacf;} if ($cc == 9) {$acf9 = $hashvalacf;} if ($cc == 10) {$acf10 = $hashvalacf;}} print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print "

Survey Results Aircraft Types Flown
Glider	$acf1
Ultra-Light	$acf2
Experimental	$acf3
Helicopter	$acf4
Single Engine	$acf5
Twin Engine	$acf6
Biz Jet	$acf10
Commercial Airliner	$acf7
Military Fighters	$acf8
Military Other	$acf9

"; print "

"; print ""; print "

"; print ""; foreach $cc (sort keys %os_hash) { my $hashval = $os_hash{ $cc }; if ($cc == 98) {$os1 = $hashval;} if ($cc eq 'NT') {$os2 = $hashval;} if ($cc eq 'XP') {$os3 = $hashval;} if ($cc eq 'VI') {$os4 = $hashval;} if ($cc eq 'UL') {$os5 = $hashval;}} print ""; print ""; print ""; print ""; print ""; print "

Survey Results by Operating Systems
UNIX	$os5
WIN 98	$os1
NT	$os2
XP	$os3
Vista	$os4

"; print ""; foreach $cc (sort keys %sim_hash) { my $hashval = $sim_hash{ $cc }; if ($cc eq 'M4') {$sim1 = $hashval;} if ($cc eq 'M2') {$sim2 = $hashval;} if ($cc eq 'M0') {$sim3 = $hashval;} if ($cc eq 'F4') {$sim4 = $hashval;} if ($cc eq 'FG') {$sim5 = $hashval;} if ($cc eq 'MF') {$sim6 = $hashval;} if ($cc eq 'XP') {$sim7 = $hashval;} if ($cc eq 'PM') {$sim8 = $hashval;} if ($cc eq 'NG') {$sim9 = $hashval;} if ($cc eq 'SL') {$sim10 = $hashval;} if ($cc eq 'L3') {$sim11 = $hashval;} if ($cc eq 'OT') {$sim12 = $hashval;} if ($cc eq 'ST') {$sim13 = $hashval;} if ($cc eq 'MX') {$sim14 = $hashval;}} print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print "

Survey Results by Simulator Software
FS X	$sim14
FS 2004	$sim1
FS 2002	$sim2
FS 2000	$sim3
Falcon	$sim4
Flight Gear	$sim5
Micro Flight	$sim6
Orbiter	$sim13
X-Plane	$sim7
Project Magenta	$sim8
NexGen	$sim9
Singer Link	$sim10
L3	$sim11
OTHER	$sim12

"; print "

"; # store cockpit results foreach $ac ( keys %cp_hash) { my $hashval1 = $cp_hash{ $ac }; if ( $ac eq "SFO") { $cpt1 = $hashval1; } if ( $ac eq "SHW") { $cpt2 = $hashval1; } if ( $ac eq "MFD") { $cpt3 = $hashval1; } if ( $ac eq "MCS") { $cpt4 = $hashval1; } if ( $ac eq "ACS") { $cpt5 = $hashval1; }} # store axes results foreach $ax ( keys %sx_hash){ my $hashvalsx = $sx_hash{ $ax }; if ($ax == 1) { $ax1 = $hashvalsx; } if ($ax == 2) { $ax2 = $hashvalsx; } if ($ax == 3) { $ax3 = $hashvalsx; } if ($ax == 4) { $ax4 = $hashvalsx; }} print <

Survey Results for Cockpits
Software ONLY w/ Joystick/Throtles Off the shelf	$cpt1
Some Custom Hardware	$cpt2
Cockpit Mockup not a desk	$cpt3
Cockpit Section Mockup	$cpt4
Cockpit Section Real Plane	$cpt5

Survey Results for Networks
FS closed	$vt10
Ethernet	$vt11
AFDX	$vt12
MIL 1553	$vt13
ARINC 429	$vt14

Survey Results for Motion Bases
Hydraulics	$vt15
Pneumatics	$vt16
Electric Motors	$vt17

Survey Results for Motion Bases Axes
One Axes - Pitch	$ax1
Two Axes - Pitch / Roll	$ax2
Three Axes - Pitch / Roll / Vert	$ax3
More Than 3 Axes	$ax4

To take part in this survey you must register!

Copyright © 2004 - 2006 Phoenix Communications Services.	Please send all comments to the Webmaster.

ENDHTML