#!/usr/bin/perl

###########################################################################################################################
# Explicacion  Version 1.01 24-02-2004
###########################################################################################################################
# Este cgi genera doorways al vuelo cojiendo los datos de un oficinas.dat
#
# muestra de formato de la URL: index.cgi?car-hire&Alicante-Airport&uk&afiliado&0
#
# la primera variable es: $keyword ó $link_keyword (con guiones)
# la segunda variable es: $destino ó $link_clave (con guiones)
# la tercera es el Numero de linea de la BD (oficinas.dat)
#
# este cgi coloca 3 links a pie de pagina: Pagina atras, Actual y Siguiente pagina para crear un circulo!
#
# tambien se puede colocar un link directamente al sistema de BCO usando la variable "$url_bco" (en un frame o con un link!)
#
# para cambiar el idioma, simplemente cambia a: uk, es, nl ó ger en la seccion "DATOS A PERSONALIZAR"
# para cambiar el Afiliado, simplemente pon el Código de Afiliado deseado en la seccion "DATOS A PERSONALIZAR"
# para cambiar la Accion (pagina de BCO que muestra la URL), simplemente pon el Código de Accion deseado (tarifas, Enter, Dates, etc.) en el campo "donde" en la seccion "DATOS A PERSONALIZAR"
# para cambiar limitar el sistema de BCO a un solo proveedor, simplemente pon el Código de Proveedor deseado en el campo "proveedor" en la seccion "DATOS A PERSONALIZAR"
#
# Dominio reemplaza la variable var(dominio) en la plantilla.
# Ruta coloca la Ruta delante del chorizo del doorway.cgi (no pongas la ultima barra, la pone el sistema!) Ej. "www.all-in-prices.com/car-hire"
###########################################################################################################################


$cadena= $ENV{'QUERY_STRING'};
@cadena = split(/\&/,$cadena);
$keyword=$cadena[0];
$destino=$cadena[1];
$pais=$cadena[2];
$afiliado=$cadena[3];

#########################################
#####	  DATOS A PERSONALIZAR	    #####
#########################################
$keyword = "Car-Rental" if($keyword eq "");
$destino = "Alicante-Airport" if($destino eq "");
$pais = "uk" if($pais eq "");
$afiliado = "3steps" if($afiliado eq "");
$donde = "tarifas";
$proveedor = "";
$dominio = "3steps2rent.com";
$ruta = "www.3steps2rent.com/rentacar";
#########################################

$link_keyword=$keyword;
$link_clave=$destino;
$keyword =~ s/\-/ /g;
$destino =~ s/\-/ /g;

#########################################
#####Codigo para otros Keyword-links#####
#########################################

$keyword_pasado=$ENV{'QUERY_STRING'};
$keyword_pasado="alicante&1" if($keyword_pasado eq "");
$keyword_pasado="$ENV{'QUERY_STRING'}&$ENV{'QUERY_STRING'}" if($keyword_pasado ne /&/);
@b=split(/&/,$keyword_pasado);
$numero_linea=pop(@b);
$numero_linea=1 if($numero_linea == 0);
$keyword_pasado=pop(@b);
$kwd=$keyword_pasado;
$kwd=~ s/-/ /g;
&url_bco;
&otros_links;
#########################################


print "Content-type: text/html\n\n";
open(FORM, "plantilla.html");
 while(<FORM>)
  {
    chomp;
    ($linea) = split(/\|/,$_,1);
    $linea=~ s/var\(keyword\)/$keyword/g;
    $linea=~ s/var\(link_keyword\)/$link_keyword/g;
    $linea=~ s/var\(clave\)/$destino/g;
    $linea=~ s/var\(link_clave\)/$link_clave/g;
    $linea=~ s/var\(otros_key\)/$otros_key/g;
    $linea=~ s/var\(url_bco\)/$url_bco/g;
    $linea=~ s/var\(pais\)/$pais/g;
    $linea=~ s/var\(afiliado\)/$afiliado/g;
    $linea=~ s/var\(numero_linea\)/$numero_linea/g;
    $linea=~ s/var\(dominio\)/$dominio/g;
    print "$linea\n";
  }
close(FORM);


#########################################
######Subrutina otros Keyword-links######
#########################################
sub otros_links {
$data_keywords = "oficinas.dat";
if (open(DATOS, "$data_keywords")){
           @todos_keywords=<DATOS>;
           close (DATOS);
} else {
    exit;
}

$x=1;
$n=$numero_linea-1;
$m=$numero_linea+2;
$otros_key="";
foreach $linea_keywords (@todos_keywords)
  {
  chop($linea_keywords);
  ($cpais,$cpais_es,$cpais_uk,$cpais_nl,$cpais_ger,$czona,$desczona_es,$desczona_uk,$desczona_nl,$desczona_ger,$cproveedor,$cofi,$cofi_es,$cofi_uk,$cofi_nl,$cofi_ger,$des_es,$des_uk,$des_nl,$des_ger,$prov,$agen)=split(/\|/,$linea_keywords);
  
 $cofi_paisv = "cofi_$pais";
 $cofi_pais = $$cofi_paisv ;
    if ($x>=$n and $n < $m) {
	$key[$n]=$cofi_pais;
	$cofi_pais=~ s/ /-/g;
	$keyword[$n]=$cofi_pais;
        $nuevo_link="<a href='http://$ruta/index.cgi?$link_keyword&$keyword[$n]&$pais&$afiliado&$n'>$key[$n]</a>, ";
	$otros_key=$otros_key.$nuevo_link;
	$n++;

    } elsif ($n > $m) {
	last;
    }
    $x++;
  }
}
#########################################

#########################################
######  	Subrutina URL BCO	   ######
#########################################
sub url_bco {
$data_keywords = "oficinas.dat";
if (open(DATOS, "$data_keywords")){
           @todos_keywords=<DATOS>;
           close (DATOS);
} else {
    exit;
}


$otros_key="";
foreach $linea_keywords (@todos_keywords)
  {
  chop($linea_keywords);
  ($cpais,$cpais_es,$cpais_uk,$cpais_nl,$cpais_ger,$czona,$desczona_es,$desczona_uk,$desczona_nl,$desczona_ger,$cproveedor,$cofi,$cofi_es,$cofi_uk,$cofi_nl,$cofi_ger,$des_es,$des_uk,$des_nl,$des_ger,$prov,$agen)=split(/\|/,$linea_keywords);
 
$vofi=$cofi_uk if($pais eq "uk");
$vofi=$cofi_es if($pais eq "es");
$vofi=$cofi_nl if($pais eq "nl");
$vofi=$cofi_ger if($pais eq "ger");
$vofi=$cofi_fr if($pais eq "fr");
 
    if ($destino eq $vofi) {

        $url_bco="http://www.booking-centre-online.com/cgi-bin/gestortv.cgi?mostrar&$donde&$afiliado&$pais&es&$czona&$cofi&&$proveedor";
	
	$n++;

    } elsif ($n > $m) {
	last;
    }
    $x++;
  }
}
#########################################