#!/usr/bin/perl print "Content-type:text/html\n\n"; read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); @pairs = split(/&/, $buffer); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $value =~ s/\n/ /g; # replace newlines with spaces $value =~ s/\r//g; # remove hard returns $value =~ s/\cM//g; # delete ^M's $FORM{$name} = $value; } ## rutina individual de identificacion de campos vacios------------------------ $email = $FORM{'email'}; $clave = $FORM{'clave'}; $nombre = $FORM{'nombre'}; ## busca si esta El username que es el email $fop1=$FORM{'email'}; $fop2=$FORM{'clave'}; $fop1 =~ s/ //g; $fop2 =~ s/ //g; &pantalla; &header; &pantalla1; sub pantalla{ print < EndHTML } sub pantalla1{ print <  

NUTRICIÓN Y MODO DE VIDA

Sabes si estás alimentándote como corresponde ?
Estás ordenando tu vida correctamente ?
Ahora podrás saberlo, sólo respondiendo a éste cuestionario.

Por favor, responde TODOS los datos que tengan un asterisco,
son obligatorios para poder usar el sistema.
Mientras más respondas, más real será la respuesta.
El test es absolutamente confidencial

EL TEST NO ES VÁLIDO PARA MENORES DE EDAD

Copyright (nutrilife Versión 1.0)

";} else { print"";} print <Apnea durante el sueño ";} else { print"";} print < ";} else { print"";} print <Infarto cardíaco ";} else { print"";} print < ";} else { print"";} print <Aumento de trigliceridos ";} else { print"";} print < ";} else { print"";} print <Roncador ";} else { print"";} print < ";} else { print"";} print <Tratam. anticoagulante ";} else { print"";} print < ";} else { print"";} print <acantosis nigricans ";} else { print"";} print < ";} else { print"";} print <verrugas múltiples en axilas ";} else { print"";} print < ";} else { print"";} print <contractura ";} else { print"";} print < ";} else { print"";} print <poliglobulia ";} else { print"";} print < ";} else { print"";} print <cancer ";} else { print"";} print < ";} else { print"";} print <tuvo obesidad infantil ";} else { print"";} print < ";} else { print"";} ## HASTA ACA SE HIZO LA CONVERSION ................ print < 
TUS DATOS --- REGISTRO Nº$index
   Tu Nombre $nombre  *  
 Tu email $email  *  
 Tu Edad  EndHTML if ($edad2 eq "0"){ print""; } else {print""; } if ($edad2 eq "1"){ print""; } else {print""; } if ($edad2 eq "2"){ print""; } else {print""; } if ($edad2 eq "3"){ print""; } else {print""; } if ($edad2 eq "4"){ print""; } else {print""; } if ($edad2 eq "5"){ print""; } else {print""; } if ($edad2 eq "6"){ print""; } else {print""; } if ($edad2 eq "7"){ print""; } else {print""; } if ($edad2 eq "8"){ print""; } else {print""; } if ($edad2 eq "9"){ print""; } else {print""; } print < años  *  
 Tu sexo  *  
 Color natural de cabello    
 Color actual de cabello    
 tipo de cabello    
 Tu estatura (Ejm 1.73) EndHTML if ($altura2 eq "0"){ print""; } else {print""; } if ($altura2 eq "1"){ print""; } else {print""; } if ($altura2 eq "2"){ print""; } else {print""; } if ($altura2 eq "3"){ print""; } else {print""; } if ($altura2 eq "4"){ print""; } else {print""; } if ($altura2 eq "5"){ print""; } else {print""; } if ($altura2 eq "6"){ print""; } else {print""; } if ($altura2 eq "7"){ print""; } else {print""; } if ($altura2 eq "8"){ print""; } else {print""; } if ($altura2 eq "9"){ print""; } else {print""; } print <  *  

 Tu peso (Ejm: 075)  

EndHTML if ($peso2 eq "0"){ print""; } else {print""; } if ($peso2 eq "1"){ print""; } else {print""; } if ($peso2 eq "2"){ print""; } else {print""; } if ($peso2 eq "3"){ print""; } else {print""; } if ($peso2 eq "4"){ print""; } else {print""; } if ($peso2 eq "5"){ print""; } else {print""; } if ($peso2 eq "6"){ print""; } else {print""; } if ($peso2 eq "7"){ print""; } else {print""; } if ($peso2 eq "8"){ print""; } else {print""; } if ($peso2 eq "9"){ print""; } else {print""; } print <  *  

 Perímetro de cintura
medir  la cintura a la altura del ombligo

    *
 Estado civil EndHTML if ($estadocivil eq "casado"){ print"casado
"; } else {print"casado
"; } if ($estadocivil eq "soltero"){ print"soltero
"; } else {print"soltero
"; } if ($estadocivil eq "viudo"){ print"viudo
"; } else {print"viudo
"; } if ($estadocivil eq "separado"){ print"separado
"; } else {print"separado
"; } if ($estadocivil eq "divorciado"){ print"divorciado
"; } else {print"divorciado
"; } if ($estadocivil eq "juntado"){ print"juntado
"; } else {print"juntado
"; } print <

Separaciones previas


  
 País donde vives  

Dinos si tienes o tuviste algunas de éstas enfermedades
   Diabetes EndHTML if ($diabetes eq "ON"){ print" EndHTML if ($apneas eq "ON"){ print"
 Hipertensión EndHTML if ($hipertension eq "ON"){ print" EndHTML if ($infartocorazon eq "ON"){ print"
 Aumento de colesterol EndHTML if ($colesterol eq "ON"){ print" EndHTML if ($trigliceridos eq "ON"){ print"
 Sobrepeso (obesidad) EndHTML if ($obesidad eq "ON"){ print" EndHTML if ($roncador eq "ON"){ print"
 Infarto Cerebral EndHTML if ($infartocerebral eq "ON"){ print" EndHTML if ($anticoagulante eq "ON"){ print"
 Ovario poliquístico EndHTML if ($sop eq "ON"){ print" EndHTML if ($acantosisnigricans eq "ON"){ print"
 verrugas múltiples en cuello EndHTML if ($verrugascuello eq "ON"){ print" EndHTML if ($verrugasaxila eq "ON"){ print"
 dolor de cabeza EndHTML if ($cefalea eq "ON"){ print" EndHTML if ($contractura eq "ON"){ print"
 anemia EndHTML if ($anemia eq "ON"){ print" EndHTML if ($poliglobulia eq "ON"){ print"
 Somnolencia diurna EndHTML if ($somnolencia eq "ON"){ print" EndHTML if ($cancer eq "ON"){ print"
 osteoporosis EndHTML if ($osteoporosis eq "ON"){ print" EndHTML if ($obesidadinfantil eq "ON"){ print"
tuvo obesidad en adolescencia ? EndHTML if ($obesidadadolescencia eq "ON"){ print"  

Cuéntenos sus hábitos y que consume

   Consumo de alcohol
 Consume vino ? cuántos litros de vino tomas por semana?
 Consume cerveza cuántos litros de cerveza tomas por semana?
 Consume bebidas alcohólicas fuertes cuántos vasos  tomas por semana?

 Considera que bebe:

 nada
poco
normal
mucho
 Consumo de tabaco
 Fumas cigarrillos ? SINO 

Cuántos fumas por día ?

 Fumas habanos o pipa? SINO 
 Estilo de alimentación
   Consumes azúcar ? SINO            cuántas cucharadas de azúcar le  colocas a una tacita de café ?         
 Cómo Desayunas ? nada
poco
normal
mucho
abundante
 Cómo almuerzas ? nada
poco
normal
mucho
abundante
 Cómo Meriendas ? nada
poco
normal
mucho
abundante
 Cómo cenas ? nada
poco
normal
mucho
abundante
 Cuàntas comidas tienes al día?

 Come chocolates nada
poco
normal
mucho
abundante
 luego de cenar me acuesto inmediato
1/2 hora
1 hora
2 horas
más de 2 horas
 Ritmo intestinal
Evacúas tu intestino 1 vez x semana
dia por medio
todos los días
dos veces al día
 Tipo y cantidad de alimentos que comes POR SEMANA
 

 Embutidos? (salame, chorizo,  bondiola, jamón )

 nada   poco   normal    mucho
 Queso entero nada   poco   normal    mucho
Queso descremado nada   poco   normal    mucho
 consume leche nada
poco
normal
mucho
 Crema de leche ? nada   poco   normal   mucho
 manteca nada   poco   normal   mucho

 Snacks ?
(papas fritas, chizitos, palitos)

 nunca
1 vez 
2 veces
3 veces                  por semana
4 veces   
más  de 4 veces

  pescado 

nunca  
1 vez  
2 veces
3 veces                 por semana
4 veces  
 más  de 4 veces 

 Nueces,
castañas, avellanas 

nunca  
1 vez  
2 veces
3 veces                 por semana
4 veces
más  de 4 veces 

 semillas de lino
 Trituradas

 nunca  
1 vez   
2 veces
3 veces                por semana
4 veces 
más  de 4 veces 
 aceitunas ? nunca  
1 vez   
2 veces
3 veces              por semana
4 veces
más  de 4 veces
 asado (barbacoa)? nunca  
1 vez   
2 veces
3 veces               por semana
4 veces
más  de 4 veces

carne que come asada habitualmente

 vaca 
cordero
cerdo
pollo 
pescado
 le saca la grasa a la carne? SI  NO
 Hamburguesas nunca
1 vez 
2 veces
3 veces                por semana
4 veces
más  de 4 veces 
 Verduras nunca
1 vez 
2 veces
3 veces               por semana
4 veces
más  de 4 veces 
 frutas nunca
1 vez 
2 veces                 por semana
3 veces
4 veces
más  de 4 veces 
 tortas dulces nunca
1 vez 
2 veces
3 veces                por semana
4 veces
más  de 4 veces 
 mermeladas, dulces nunca
1 vez  por semana
2 veces por semana
3 veces  por semana
todos los días solo en el desayuno
4 veces por semana
más  de 4 veces por semana
 frituras nunca
1 vez 
2 veces
3 veces                 por semana
4 veces
más  de 4 veces 
 usa mayonesa nunca
1 vez 
2 veces
3 veces                por semana
4 veces
más  de 4 veces 
 usa aceite nunca
1 vez 
2 veces
3 veces                por semana
4 veces
más  de 4 veces
 que aceite usa

oliva
soja
girasol
uva
maiz

 consume legumbres (porotos, lentejas)

 nunca
1 vez 
2 veces
3 veces                 por semana
4 veces
más  de 4 veces
 consume soja nunca
1 vez 
2 veces
3 veces                  por semana
4 veces
más  de 4 veces 

 consume berenjena

 nunca
1 vez 
2 veces
3 veces                  por semana
4 veces
más  de 4 veces 

 consume margarina
(de aceite hidrogenado)

 nunca
1 vez 
2 veces
3 veces                  por semana
4 veces
más  de 4 veces 
 consumes huevos nunca
1 vez 
2 veces
3 veces                 por semana
4 veces
más  de 4 veces

 verdura de hoja verde

 nunca
1 vez 
2 veces
3 veces                 por semana
4 veces
más  de 4 veces 

 consume coles
(coliflor, broccoli, zapallito bruselas )

 nunca
1 vez 
2 veces
3 veces                  por semana
4 veces
más  de 4 veces

 consume fibra dietaria
(salvado, avena)

 nunca
1 vez 
2 veces                  por semana
3 veces
4 veces   
más  de 4 veces

 con que frecuencia consume pan de harina blanca

 nunca
1 vez 
2 veces
3 veces                  por semana
4 veces
más  veces     
 mucha cantidad  
 consume pan integral nunca
1 vez 
2 veces
3 veces                   por semana
4 veces
más  de 4 veces

 consume cereales
(corn flakes, etc.)

 nunca
1 vez 
2 veces
3 veces                    por semana
4 veces
más  de 4 veces
 consume gaseosas nunca
1 vez 
2 veces
3 veces                     por semana
4 veces
más  de 4 veces  
mucha cantidad  
 consume gaseosas light nunca
1 vez 
2 veces
3 veces                      por semana
4 veces
más  de 4 veces 
mucha cantidad  

 consume jugos
(en polvo con agua)

 nunca
1 vez 
2 veces
3 veces                      por semana
4 veces
más  de 4 veces
mucha cantidad
 consume jugos light (en polvo con agua) nunca
1 vez 
2 veces
3 veces                         por semana
4 veces
más  de 4 veces
mucha cantidad  
 toma agua pura  (por dia)? nunca
1/2 litro 
1 litro
1,5 litros
2 litros
más  de 2 litros x día
 Actividades
 

 Hace ejercicio físico

 nunca
1 vez 
2 veces
3 veces                          por semana
4 veces
más  de 4 veces
Tipo de Ejercicio

 Visita a sus amigos

  nunca
 solo en fiestas y cumpleaños
 1 vez por semana
 dia por medio
 2 veces por semana
 casi todos los días
 Trabaja o estudia
 En el trabajo o en el estudio, te sientes=
 Te gusta tu trabajo
 Sale de vacaciones
 Concurre al médico
 Planifica sus viajes
 Trabaja de noche ?
 ves televisión?
 Te diviertes los fines de semana ?
 Sexualidad
  Tienes sexo SI  NO   
  Tienes sexo con  (mujeres, hombres)
  Tienes sexo cada  (frecuencia)
  Tus parejas han sido  cantidad
  Tipo de sexo  (vaginal, anal, oral)
  Te controlas VIH - HIV
  Usas preservativo
  sexo en grupo ?
 Hábitos y Costumbres
   Vives en una casa...
 tu casa es ...
 usas piercings ? SI  NO 
 te drogas?
 Tienes tatuajes ? SI  NO 
 Eres dark ? SI  NO 
 Cómo es tu sueño ?
 duermes de día o no
 cuánto duermes
 calidad de sueño
 cómo te levantas
 Computadora

 la usas
 Eventos RECIENTES (menos de 1 año)
   Mudanza                Separación                Divorcio                 
 Muerte de padre    Muerte de madre       Muerte de hijo        
 Muerte de esposa   Muerte de hermano    

Sugerencias al Sistema

 

ADVERTENCIA: El resultado de éste Test es meramente orientador y en nada pretende reemplazar la atención médica. Por el contrario, busca despertar conciencia sobre sus problemas en aquellas personas que los tengan. Ante cualquier duda o necesidad de atención debe consultar a su médico personalmente

Copyright (nutrilife Versión 1.0)

 

EndHTML } ##======================================================================================================================================= sub header{ print < function webmail(){ window.location.href ="http://www.alfinal.com/links/email.shtml";} function buscar() { window.location.href ="http://www.alfinal.com/personas/index.shtml";} function horoscopo() { window.location.href ="http://www.alfinal.com/ushuaia/horoscopo.shtml";} function chat() { window.location.href ="http://www.alfinal.com/parejas/chat.shtml";} function agregarsitio() { window.location.href ="http://www.alfinal.com/links/agregarsitio.shtml";} Alfinal.com:NUTRILIFE

ALFINAL.com

  

Google
Web www.alfinal.com
 


Un lugar privado para
 Nuestros Recuerdos

 
EndHTML }