#!/usr/bin/perl
#
# Tomamos la entrada
#
# Gestion de entradas
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
$QUERY_STRING="$ENV{'QUERY_STRING'}";
$QUERY_STRING=~ s/\///g;
$QUERY_STRING=~ s/\%//g;
$QUERY_STRING=~ s/ofertas/oferta/g;
if ($QUERY_STRING =~ /crucero/ or $QUERY_STRING =~ /especial/ or $QUERY_STRING =~ /oferta/ or $QUERY_STRING =~ /ofertas/ or $QUERY_STRING =~ /anterior/ or $QUERY_STRING =~ /siguiente/ or $QUERY_STRING =~ /consultas/) {
$| = 1;
$buffer =~ /^(.+)\r\n/;
$bound = $1;
@pairs = split(/$bound/,$buffer);
@var = split(/\r\n/, $pairs[0]);
@namer = split(/\r\n/, $pairs[2]);
@actionr = split(/\r\n/, $pairs[3]);
$name = $namer[3];
$pairs[2] = $pairs[1];
($tipo,$destino,$refoferta,$afiliado,$titulo) = split(/-/, $QUERY_STRING);
} else {
if ($ENV{'QUERY_STRING'}) {
$buffer = "$buffer\&$ENV{'QUERY_STRING'}";
}
# Split para los pares name-value
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
# Un-Webify plus signs and %-encoding
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s///g;
$FORM{$name} = $value;
$opcion = $FORM{'opcion'};
$accion = $FORM{'accion'};
$idioma = $FORM{'idioma'};
}
}
#########################################
#Quitamos la Extension (.htm o .html)
($destino,$ext) = split(/\./, $destino);
($refoferta,$ext) = split(/\./, $refoferta);
($afiliado,$ext) = split(/\./, $afiliado);
($titulo,$ext) = split(/\./, $titulo);
$destino=~ s/_/ /g;
$titulo=~ s/porcien/%/g;
#########################################
# fin de la entrada
#
#print "Content-type: text/html\n\n";
#print "Hola: Tipo:$tipo, Destino:$destino, RefOferta:$refoferta, Afiliado:$afiliado, Titulo:$titulo, Idioma:$idioma
\n\n";
#print "Hola: $QUERY_STRING
\n\n";
#print "Hola: $query
\n\n";
#exit;
########################################################
#Usamos las librerias de acceso a BD
########################################################
use DBI;
my $base_datos_gb="global_bookings"; #Nombre de las base de datos
my $usuario_db_gb="globalb"; #Usuario de la BD
my $password_db_gb="ravana"; #Password de la BD
my $tabla_ofertas="bookingfax"; #Nombre de la tabla de Ofertas
my $base_datos="bco_cruceros"; #Nombre de las base de datos
my $usuario_db="bcocruceros"; #Usuario de la BD
my $password_db="ravana"; #Password de la BDmy $tabla_cruceros="cruceros"; #Nombre de la tabla de Cruceros
my $tabla_barcos="barcos"; #Nombre de la tabla de barcos
my $driver="mysql"; #Utilizamos el driver de mysql
########################################################
$date_command = "/bin/date";
#
$mailprog = '/usr/sbin/sendmail';
#
# cogemos la ruta de las imagenes
#
#$path_img = "http://hotels.global-bookings.com/fotos.cgi?";
#
#
# Dominio principal
#
$empresa = 'BCO Cruceros';
$dominio = 'http://www.bcocruceros.com/';
$mailempresa = 'travel@booking-centre-online.com';
#$ruta_plantillas = "http://hotels.global-bookings.com";
# Dominio del cual sacaremos datos
#
$dominiodest="http://www.travelcruceros.com/";
$year=&sys_date;
#
# tomamos el IP del usuario
#
$ip=$ENV{'REMOTE_ADDR'};
##########################################
#Variables para entrar a Pelo.
##########################################
#$accion="enter" if($accion eq "");
$afiliado="bco" if($afiliado eq "");
$idioma="es" if($idioma eq "");
##########################################
$afiliado=~ s/-/_/g; #(Cambiamos los Guiones por SubGuiones para evitar Conflictos de URL's)
require "/home/cruceros/cgi-bin/selectores.cgi";
&sacar_destinos_proveedores;
################################################
#Llamadas a Subrutinas
################################################
if($tipo eq "consultas") {
print "Content-type: text/html\n\n";
&cabecera;
print "
\n";
&form;
&menu_cruceros;
&menu;
print "
\n";
&pie;
exit;
}
################################################
########################################
#Imprimimos los datos en Pantalla
print "Content-type: text/html\n\n";
#&cabecera;
$encontrado="no";
my $dbh = DBI->connect("dbi:$driver:$base_datos_gb",$usuario_db_gb,$password_db_gb) || die "\nError al abrir la base datos: $DBI::errstr\n";
my $sth = $dbh->prepare("SELECT ref,fecha,fechadesde,fechahasta,tipo,destino,titulo,precio,proveedor,imagen FROM $tabla_ofertas WHERE ref=$refoferta;");
$sth->execute();
while ( @campo=$sth->fetchrow_array())
{
$ref=$campo[0];$fecha=$campo[1];$fechadesde=$campo[2];$fechahasta=$campo[3];$tipo=$campo[4];
$destino=$campo[5];$titulo=$campo[6];$precio=$campo[7];$proveedor=$campo[8];$imagen=$campo[9];
#print "\n\n";
$destino=$titulo;
&cabecera;
$encontrado="si";
$referrer="$ENV{'HTTP_REFERER'}";
print <