<% use FV; use CGI qw(:standard); my $cgi = new CGI(); for($cgi->param()) { @{$cgi->{param}{$_}}[0] =~ s/\'|\"|\)|\(|\;|\-|\||\<|\>|\!|\.|\#//g; } my $debug = 0; # set 0 in production my @debugInfo; my $RefID = FV::GetCookie('RefID'); # Do an initial check for an existing RefID cookie if($RefID !~ /^[aA0-9]\d{4}$/) { $RefID = ''; } # first test of the RefID, test again before set if(!$RefID) { # If we still have no RefID then lets do a domain to refID translation $RefID = FV->TrakkerTran(); if($RefID) { if($RefID =~ /^[aA0-9]\d{4}$/) { FV::PrintCookie('RefID',$RefID,1); } else { $RefID = ''; } push(@debugInfo, "REFID by DTR: $RefID"); } else { # if there is still no RefID lets look for one on the URI if(!$RefID) { if($ENV{REQUEST_URI} =~ /.*\b\d{5}\/?$/) { $URI =~ s/^(.*)(\d{5})\/{0,1}$//; $RefID = $2; } elsif($ENV{REQUEST_URI} =~ /.*a\d{4}\/{0,1}$/i) { $ENV{REQUEST_URI} =~ s/^(.*)(a\d{4})\/{0,1}$//i; $RefID = $2; } if($RefID) { if($RefID =~ /^[aA0-9]\d{4}$/) { FV::PrintCookie('RefID',$RefID,1); } else { $RefID = ''; } push(@debugInfo, "REFID by URI: $RefID"); } else { # If still no cookie was found with a RefID start hunting for one via CGI $RefID = $cgi->param('RefID'); if($RefID) { if($RefID =~ /^[aA0-9]\d{4}$/) { FV::PrintCookie('RefID',$RefID,1); } else { $RefID = ''; } push(@debugInfo, "REFID by CGI: $RefID"); } } } } } # Dump the debug data. if($debug) { print "\n"; } %>

International Rates: The countries listed below cannot directly access our toll free numbers although many do have ways of reaching them through a dial around service. However, for a company wishing to do business in the States but who has some or all of its personnel overseas, we can forward calls to you overseas at the rates listed below.

NOTE: Outbound refers to the cost of the forwarded call. The total cost for Internationally forwarded calls is the domestic cost of the call plus the Outbound rate.

<% open(IN, "../rates.psv"); my @rates = ; close(IN); my $flipper = 0; foreach(@rates) { my ($country,$outbound,$connected) = split(/\|/, $_); if($flipper == 0) { print < EOF $flipper++; } else { print < EOF $flipper--; } } %>
          International Calls
Location Outbound
$country $outbound
$country $outbound