" . $fullCity[$x] . " to " . $fullCity[$x + 1] . " $to[1] " } if $DEBUG;
}
# Different bonus miles
if( $bonus_use_min )
{
$totalBonusMl = sprintf ( "%8g", &round_to_3( $totalMl * $bonus ) );
$totalBonusKm = sprintf ( "%8g", &round_to_3( $totalKm * $bonus ) );
}
else
{
$totalBonusMl = sprintf ( "%8g", &round_to_3( $rawTotalMl * $bonus ) );
$totalBonusKm = sprintf ( "%8g", &round_to_3( $rawTotalKm * $bonus ) );
}
if( $class_bonus_use_min )
{
$totalClassBonusMl = sprintf ( "%8g", &round_to_3( $totalMl * $class_bonus ) );
$totalClassBonusKm = sprintf ( "%8g", &round_to_3( $totalKm * $class_bonus ) );
}
else
{
$totalClassBonusMl = sprintf ( "%8g", &round_to_3( $rawTotalMl * $class_bonus ) );
$totalClassBonusKm = sprintf ( "%8g", &round_to_3( $rawTotalKm * $class_bonus ) );
}
if( $promo_bonus_use_min )
{
$totalPromoBonusMl = sprintf ( "%8g", &round_to_3( $totalMl * $promo_bonus ) );
$totalPromoBonusKm = sprintf ( "%8g", &round_to_3( $totalKm * $promo_bonus ) );
}
else
{
$totalPromoBonusMl = sprintf ( "%8g", &round_to_3( $rawTotalMl * $promo_bonus ) );
$totalPromoBonusKm = sprintf ( "%8g", &round_to_3( $rawTotalKm * $promo_bonus ) );
}
$roundTripBonusMl = $totalBonusMl * 2;
$roundTripBonusKm = $totalBonusKm * 2;
$roundTripClassBonusMl = $totalClassBonusMl * 2;
$roundTripClassBonusKm = $totalClassBonusKm * 2;
$roundTripPromoBonusMl = $totalPromoBonusMl * 2;
$roundTripPromoBonusKm = $totalPromoBonusKm * 2;
# Round Trip distance
$roundTripMl = $totalMl * 2;
$roundTripKm = $totalKm * 2;
# The grand totals.
$totalGtMl = $totalMl + $totalBonusMl + $totalClassBonusMl + $totalPromoBonusMl;
$totalGtKm = $totalKm + $totalBonusKm + $totalClassBonusKm + $totalPromoBonusKm;
$roundTripGtMl = $roundTripMl + $roundTripBonusMl + $roundTripClassBonusMl + $roundTripPromoBonusMl;
$roundTripGtKm = $roundTripKm + $roundTripBonusKm + $roundTripClassBonusKm + $roundTripPromoBonusKm;
# Get the cost per mile/km.
$roundTripCostPerMl = sprintf( "%.2f", $ticket_price / $roundTripGtMl );
$roundTripCostPerKm = sprintf( "%.2f", $ticket_price / $roundTripGtKm );
$totalCostPerMl = sprintf( "%.2f", $ticket_price / $totalGtMl );
$totalCostPerKm = sprintf( "%.2f", $ticket_price / $totalGtKm );
print "" . $totalMl . " ML " if $DEBUG;
do
{
undef ( $line );
$sections{'results'} =~ s|([\s\S]*?)||;
$rotation = $1;
foreach $x ( 0 .. $#fullCity )
{
my ( $temp ) = $rotation;
last unless ( $fullCity[$x] );
($code, $airportName, $city, $state, $country, $Lat, $Long) = split(/\t/, $fullCity[$x]);
$city_code[$x] = $code;
# This is a bit of a hack to add the 'to' to the end of a link if needed.
if( $fullCity[$x + 1] )
{
$to_text = ' to';
}
else
{
$to_text = '';
}
$airportName = $city . " Airport" unless $airportName;
$loc = ( $state ) ? $state : $country;
$temp =~ s//${$1}/g;
$line .= $temp;
}
$city_code_one = $city_code[0];
$city_code_two = $city_code[1];
$sections{'results'} =~ s//$line/;
$sections{'results'} =~ s//${$1}/g;
printOutput ( "results" );
} unless $DEBUG;
sub CleanCity {
my ($cityref) = shift;
open (STATE, "abriviations.df");
while ()
{
m!^([A-Z]{2})\t([A-Z]*)\t([0-9]*)\t(.+)!;
$cit = $4;
$cit =~ tr/a-z/A-Z/;
$twoChar{$cit} = $1;
# $twoChar{$2} = $1 if $2;
$twoChar{$3} = $1 if $3;
}
close (STATE);
$$cityref =~ tr/A-z/ /c; # Translate illegal to space
$$cityref =~ tr/ //s; # Squash mult spaces
$$cityref =~ s/(^ )|( $)//; # Remove leading and trailing space
my ( @parts ) = split ( / /, $$cityref );
foreach $x ( 1 .. $#parts ) # Don't process the first word, start on second.
{
$ct = $parts[$x];
$ct =~ tr/a-z/A-Z/;
$$cityref =~ s/$parts[$x]/$twoChar{$ct}/i if $twoChar{$ct};
}
}
sub findCity
{
my ($city, $index) = @_;
$found = 0;
return unless $city;
print $city, " -- ;
close DAT;
if ($city =~ /^[A-Z]{3}$/)
{
( $airport ) = grep( /^$city/, @cityList );
chomp ( $airport );
noMatch( $city, $index ) unless ($airport);
return $airport;
}
foreach $part (@parts)
{
@cityList = grep(/$part/i, @cityList);
}
toMany( $city, $index, @cityList ) if ($cityList[1]);
noMatch( $city, $index ) unless (@cityList);
chomp ($cityList[0]);
return $cityList[0];
}
sub toMany
{
local ($city, $index, @list) = @_;
($city, @rest) = split(/\t/, $city);
undef ( $formentries );
foreach $x ( 0 .. $#cities )
{
if ( $x eq $index )
{
$formentries .= " \n choose:\n";
foreach (@list)
{
my ($code, $airportName, $cityName, $state, $country, $Lat, $Long) = split(/\t/);
($airportName = $cityName . " Airport") unless $airportName;
$loc = ( $state ) ? $state : $country;
$formentries .= qq! $airportName ($code) - $cityName, $loc\n!;
}
$formentries .= " \n";
}
else { $formentries .= " From calDistance() )
{
if ( // )
{
$sec = $1;
while ( $sections{$sec} !~ // )
{ ( $sections{$sec} ) .= ; }
$template .= "";
}
else { $template .= $_; }
}
close (TMP);
}
sub printOutput
{
my ( $sec ) = @_;
$template =~ s//$sections{$sec}/;
print $q->header;
print $template;
exit (0);
}
sub km2miles
{
local ( $km ) = @_;
my $meters_per_mile = 1609.344;
my $dist = $km * 1000;
my $miles = sprintf ( "%8g", &round_to_3( $dist / $meters_per_mile ) );
return ( $miles );
}
sub miles2km
{
local ( $miles ) = @_;
my $meters_per_mile = 1609.344;
my $dist = $miles * $meters_per_mile;
my $km = sprintf ( "%8g", &round_to_3( $dist / 1000 ) );
return ( $km );
}
^top
