#!/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 # Version 1.03 22-02-2005 coloca 30 links envezde 3 ########################################################################################################################### # 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]; ######################################### ##### DATOS A PERSONALIZAR ##### ######################################### $keyword = "Alquiler-de-coches" if($keyword eq ""); $destino = "Alicante-Aeropuerto" if($destino eq ""); $pais = "es" if($pais eq ""); $afiliado = "reserveaqui" if($afiliado eq ""); $donde = "tarifas"; $proveedor = ""; $dominio = "reserveaqui.com"; $ruta = "www.reserveaqui.com"; ######################################### $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; $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.html"); while(