$bidsnoload = 1 ; require 'bp/include/functions.cgi'; &loadcountries('bp') ; &loadsettings('bp') ; if ($settings{'debug'}) { open(DEBUG, ">$data_dir/debug.dat") } use CGI; use CGI::Carp qw/fatalsToBrowser/; $cgi = new CGI; my $country = getCountryFromURL($cgi->url()) ; $info{'COUNTRY'} = $country ; $info{'COUNTRY_STRING'} = $oCountryData{$country}{Name} ; $info{'COLOUR_GROUP'} = $oCountryData{$country}{Group} ; $info{'BACKGROUND_COLOUR'} = $oCountryData{$country}{Colour1} ; $info{'COUNTRY_SELECT'} = makeCountriesSelect($country) ; $info{'SITETITLE'} = $oCountryData{$country}{Site} ; $info{'FLAGIMAGE'} = $oCountryData{$country}{flag} ; $info{'MAPIMAGE'} = $oCountryData{$country}{map} ; $info{'BOLD_TITLE'} = $oCountryData{$country}{bold} ; $info{'FACT_ONE'} = $oCountryData{$country}{factone} ; $info{'FACT_TWO'} = $oCountryData{$country}{facttwo} ; $info{'FACT_THREE'} = $oCountryData{$country}{factthree} ; $info{'FACT_FOUR'} = $oCountryData{$country}{factfour} ; $info{'FACT_FIVE'} = $oCountryData{$country}{factfive} ; $info{'FACT_SIX'} = $oCountryData{$country}{factsix} ; $info{'META_DESCRIPTION'} = $oCountryData{$country}{Description} ; $info{'META_KEYWORDS'} = $oCountryData{$country}{Keywords} ; $info{'PLANET_SITETITLE'} = $oCountryData{$country}{Title} ; $info{'PLANET_HEADING1'} = $oCountryData{$country}{Heading1} ; $info{'PLANET_HEADING2'} = $oCountryData{$country}{Heading2} ; &readtemplate('search_index.tpl', 'bp') ; $tpl =~ s/<<([^>]+)>>/$info{$1}/g ; print $cgi->header ; print $tpl ; 1 ;