#!/usr/bin/perl

###########################################################################################################################
# Explicacion  Version sub 1.04 22-06-2004 Parche para resolver problema de "–" (ahora reemplaza "–" ("ń") por "n")
# Ultimas modificaciones: 
# Version 1.03 06-06-2004 tiene arreglado el Bug de las Mayusculas de la BD
###########################################################################################################################
# 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 gb usando la variable "$url_gb" (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 gb 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 gb 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];


$destino =~ s/--/-/g;

if ($pais eq "es") {
$prefijo = "alquiler-de-coches";
} elsif ($pais eq "uk") {
$prefijo = "car-hire";
} elsif ($pais eq "nl") {
$prefijo = "autoverhuur";
} elsif ($pais eq "ger") {
$prefijo = "autovermietung";
}

$url = "http://www.reserveaqui.com/$prefijo-$destino.htm";
print "Status: 301 Moved Permanantly\n";
print "Location:$url\n\n";
exit;




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

$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_gb;
&otros_links;
#########################################


print "Content-type: text/html\n\n";
open(FORM, "plantilla_frames.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_gb\)/$url_gb/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;
	$cofi_pais=~ s/ń/n/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 gb	   ######
#########################################
sub url_gb {
$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");

$vofi=~ s/ń/n/g;
 
    if ($destino eq $vofi) {

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

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