tengo un problema y es que no se recepcionar los datos del formulario y devolverlo en código PERL. Os adjunto la página web, lo que quiero es que una vez introducidos todos los datos te devuelva una página con todos los datos, y te calcule el precio final multiplicando el precio web * unidades del producto. Tampoco me funciona un contador tengo el código de la página HTML y perl (.pl)
Haber si me podeis echar una mano, es que soy novatillo.
Muchas gracias y un saludo.
Código pagina htlm:
- Código: Seleccionar todo
<html>
<head>
<meta http-equiv="Content-Language" content="es">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>www.RCLAND.es Tú página de modelismo</title>
<script language="JavaScript">
<!--Muestra fecha y hora actual en la página-->
var all;
var month;
var period;
var day;
function time(){
var currentDate=new Date()
hour=currentDate.getHours()
min=currentDate.getMinutes()
sec=currentDate.getSeconds()
date=currentDate.getDate()
switch(currentDate.getMonth()){
case 0:month="Enero";break;
case 1:month="Febrero";break;
case 2:month="Marzo";break;
case 3:month="Abril";break;
case 4:month="Mayo";break;
case 5:month="Junio";break;
case 6:month="Julio";break;
case 7:month="Agosto";break;
case 8:month="Septiembre";break;
case 9:month="Octubre";break;
case 10:month="Noviembre";break;
case 11:month="Diciembre";break;
}
switch(currentDate.getDay()){
case 0:day="Domingo";break;
case 1:day="Lunes";break;
case 2:day="Martes";break;
case 3:day="Miercoles";break;
case 4:day="Jueves";break;
case 5:day="Viernes";break;
case 6:day="Sabado";break;
}
if(sec<10){sec="0"+sec}
if(min<10){min="0"+min}
if(hour>12){hour-=12;period="pm"} else {period="am"}
if(currentDate.getHours()==12){period="pm"}
if(currentDate.getHours()==24){period="am"}
var all="Hoy es: "+day+", "+date+ " de "+month+". La hora es: "+hour+":"+min+":"+sec+period
window.status=all
window.setTimeout("time()",300)
}
time()
<!--
function FP_swapImg() {//v1.0
var doc=document,args=arguments,elm,n; doc.$imgSwaps=new Array(); for(n=2; n<args.length;
n+=2) { elm=FP_getObjectByID(args[n]); if(elm) { doc.$imgSwaps[doc.$imgSwaps.length]=elm;
elm.$src=elm.src; elm.src=args[n+1]; } }
}
function FP_getObjectByID(id,o) {//v1.0
var c,el,els,f,m,n; if(!o)o=document; if(o.getElementById) el=o.getElementById(id);
else if(o.layers) c=o.layers; else if(o.all) el=o.all[id]; if(el) return el;
if(o.id==id || o.name==id) return o; if(o.childNodes) c=o.childNodes; if(c)
for(n=0; n<c.length; n++) { el=FP_getObjectByID(id,c[n]); if(el) return el; }
f=o.forms; if(f) for(n=0; n<f.length; n++) { els=f[n].elements;
for(m=0; m<els.length; m++){ el=FP_getObjectByID(id,els[n]); if(el) return el; } }
return null;
}
function FP_swapImg() {//v1.0
var doc=document,args=arguments,elm,n; doc.$imgSwaps=new Array(); for(n=2; n<args.length;
n+=2) { elm=FP_getObjectByID(args[n]); if(elm) { doc.$imgSwaps[doc.$imgSwaps.length]=elm;
elm.$src=elm.src; elm.src=args[n+1]; } }
}
function FP_preloadImgs() {//v1.0
var d=document,a=arguments; if(!d.FP_imgs) d.FP_imgs=new Array();
for(var i=0; i<a.length; i++) { d.FP_imgs[i]=new Image; d.FP_imgs[i].src=a[i]; }
}
// -->
</script>
</head>
<body onload="FP_preloadImgs(/*url*/'button35.jpg', /*url*/'button36.jpg', /*url*/'button38.jpg', /*url*/'button39.jpg', /*url*/'button3B.jpg', /*url*/'button3C.jpg', /*url*/'button3E.jpg', /*url*/'button3F.jpg', /*url*/'button41.jpg', /*url*/'button42.jpg', /*url*/'button44.jpg', /*url*/'button45.jpg', /*url*/'button47.jpg', /*url*/'button48.jpg', /*url*/'button4D.jpg', /*url*/'button4E.jpg')">
<div style="border-style:solid; border-width:2px; position: absolute; width: 766px; height: 895px; z-index: 1; left: 80px; top: 32px" id="Datoscliente">
<form method ="post" action ="Contador.pl>
<p><b><font size="4" color="#FFFFFF"><font color="#FFFFFF" size="4"><b><span style="background-color: #FF00FF">
Introduzca el nombre del producto, el precio y el número de unidades
deseadas:</span></font></b></b></font></p>
<p>
<b><font size="4" color="#FFFFFF">Nombre producto: </font></b>
<input type="text" name="NProd" size="32"><b><font size="4" color="#FFFFFF">
Precio Web:</font></b><input type="text" name="Precio" size="8" value="0"></p>
<p>
<b><font size="4" color="#FFFFFF">Nº de unidades del producto:</font></b><input type="text" name="NUnidades" size="5" value="0">
<font color="#FFFFFF" size="4"><b>Precio Pedido Final:</b></font><input type="text" name="PrecioFinal" size="8" value="0"></p>
<h3> </h3>
<h3><font color="#FFFFFF"><span style="background-color: #FF00FF">Por favor,
introduzca correctamente todos sus datos:</span></font></h3>
<h3><font color="#FFFFFF">Nombre</font></h3><input type="text" name="nombre" size="38"></h3>
<h3><font color="#FFFFFF">Apellidos</font></h3><input type="text" name="apellidos" size="40">
<h3><font color="#FFFFFF">Domicilio</font></h3><input type="text" name="domicilio" size="36">
<h3><font color="#FFFFFF">Provincia</font></h3><input type="text" name="provincia" size="10">
<h3><font color="#FFFFFF">País</font></h3><input type="text" name="país" size="36">
<h3><font color="#FFFFFF">Código Postal</font></h3><input type="text" name="CPostal" size="6">
<h3><font color="#FFFFFF">Teléfono</font></h3><input type="text" name="tlfno" size="9">
<h3><font color="#FFFFFF">E-Mail</font></h3><input type="text" name="E-Mail" size="20">
<p>
<input type="submit" value="Enviar datos">
<input type="reset" value="Borrar datos">
</p>
</form>
<div style="position: absolute; width: 116px; height: 339px; z-index: 1; left: 873px; top: 148px; border-style: solid; border-width: 2px" id="capa1">
<p align="center"><font color="#FF00FF">
<span style="font-weight: 700; background-color: #FFFF00">CONSULTAS</span></font></div>
</div>
<div style="position: absolute; width: 139px; height: 21px; z-index: 6; left: 568px; top: 941px" id="Volver">
<a href="../Principal.htm">
<img border="0" id="img17" src="button4C.jpg" height="31" width="155" alt="VOLVER A PRINCIPAL" fp-style="fp-btn: Soft Rectangle 6" fp-title="VOLVER A PRINCIPAL" onmouseover="FP_swapImg(1,0,/*id*/'img17',/*url*/'button4D.jpg')" onmouseout="FP_swapImg(0,0,/*id*/'img17',/*url*/'button4C.jpg')" onmousedown="FP_swapImg(1,0,/*id*/'img17',/*url*/'button4E.jpg')" onmouseup="FP_swapImg(0,0,/*id*/'img17',/*url*/'button4D.jpg')"></a></div>
<div style="position: absolute; width: 86px; height: 21px; z-index: 6; left: 962px; top: 480px" id="Volver6">
<a href="../PRecambios.htm">
<img border="0" id="img16" src="button46.jpg" height="20" width="100" alt="ACCESORIOS" onmouseover="FP_swapImg(1,0,/*id*/'img16',/*url*/'button47.jpg')" onmouseout="FP_swapImg(0,0,/*id*/'img16',/*url*/'button46.jpg')" onmousedown="FP_swapImg(1,0,/*id*/'img16',/*url*/'button48.jpg')" onmouseup="FP_swapImg(0,0,/*id*/'img16',/*url*/'button47.jpg')" fp-style="fp-btn: Soft Rectangle 6" fp-title="ACCESORIOS"></a></div>
<div style="position: absolute; width: 86px; height: 21px; z-index: 6; left: 962px; top: 437px" id="Volver5">
<a href="../PEmisoras.htm">
<img border="0" id="img15" src="button43.jpg" height="20" width="100" alt="EMISORAS" onmouseover="FP_swapImg(1,0,/*id*/'img15',/*url*/'button44.jpg')" onmouseout="FP_swapImg(0,0,/*id*/'img15',/*url*/'button43.jpg')" onmousedown="FP_swapImg(1,0,/*id*/'img15',/*url*/'button45.jpg')" onmouseup="FP_swapImg(0,0,/*id*/'img15',/*url*/'button44.jpg')" fp-style="fp-btn: Soft Rectangle 6" fp-title="EMISORAS"></a></div>
<div style="position: absolute; width: 86px; height: 21px; z-index: 6; left: 962px; top: 394px" id="Volver4">
<a href="../PBarcos.htm">
<img border="0" id="img14" src="button40.jpg" height="20" width="100" alt="BARCOS" onmouseover="FP_swapImg(1,0,/*id*/'img14',/*url*/'button41.jpg')" onmouseout="FP_swapImg(0,0,/*id*/'img14',/*url*/'button40.jpg')" onmousedown="FP_swapImg(1,0,/*id*/'img14',/*url*/'button42.jpg')" onmouseup="FP_swapImg(0,0,/*id*/'img14',/*url*/'button41.jpg')" fp-style="fp-btn: Soft Rectangle 6" fp-title="BARCOS"></a></div>
<div style="position: absolute; width: 86px; height: 21px; z-index: 6; left: 962px; top: 351px" id="Volver3">
<a href="../PAviones.htm">
<img border="0" id="img13" src="button3D.jpg" height="20" width="100" alt="AVIONES" onmouseover="FP_swapImg(1,0,/*id*/'img13',/*url*/'button3E.jpg')" onmouseout="FP_swapImg(0,0,/*id*/'img13',/*url*/'button3D.jpg')" onmousedown="FP_swapImg(1,0,/*id*/'img13',/*url*/'button3F.jpg')" onmouseup="FP_swapImg(0,0,/*id*/'img13',/*url*/'button3E.jpg')" fp-style="fp-btn: Soft Rectangle 6" fp-title="AVIONES"></a></div>
<div style="position: absolute; width: 86px; height: 21px; z-index: 6; left: 962px; top: 308px" id="Volver2">
<a href="../PCamiones.htm">
<img border="0" id="img12" src="button3A.jpg" height="20" width="100" alt="CAMIONES" onmouseover="FP_swapImg(1,0,/*id*/'img12',/*url*/'button3B.jpg')" onmouseout="FP_swapImg(0,0,/*id*/'img12',/*url*/'button3A.jpg')" onmousedown="FP_swapImg(1,0,/*id*/'img12',/*url*/'button3C.jpg')" onmouseup="FP_swapImg(0,0,/*id*/'img12',/*url*/'button3B.jpg')" fp-style="fp-btn: Soft Rectangle 6" fp-title="CAMIONES"></a></div>
<div style="position: absolute; width: 86px; height: 21px; z-index: 6; left: 962px; top: 265px" id="Volver1">
<a href="../PMotos.htm">
<img border="0" id="img11" src="button37.jpg" height="20" width="100" alt="MOTOS" onmouseover="FP_swapImg(1,0,/*id*/'img11',/*url*/'button38.jpg')" onmouseout="FP_swapImg(0,0,/*id*/'img11',/*url*/'button37.jpg')" onmousedown="FP_swapImg(1,0,/*id*/'img11',/*url*/'button39.jpg')" onmouseup="FP_swapImg(0,0,/*id*/'img11',/*url*/'button38.jpg')" fp-style="fp-btn: Soft Rectangle 6" fp-title="MOTOS"></a></div>
<div style="position: absolute; width: 86px; height: 21px; z-index: 6; left: 962px; top: 219px" id="Volver0">
<a href="../PCoches.htm">
<img border="0" id="img10" src="button34.jpg" height="20" width="100" alt="COCHES" onmouseover="FP_swapImg(1,0,/*id*/'img10',/*url*/'button35.jpg')" onmouseout="FP_swapImg(0,0,/*id*/'img10',/*url*/'button34.jpg')" onmousedown="FP_swapImg(1,0,/*id*/'img10',/*url*/'button36.jpg')" onmouseup="FP_swapImg(0,0,/*id*/'img10',/*url*/'button35.jpg')" fp-style="fp-btn: Soft Rectangle 6" fp-title="COCHES"></a></div>
<p align="center"><img border="0" src="../PCondiciones.JPG" width="1280" height="981"></p>
</body>
</html>
Código contador HTML:
- Código: Seleccionar todo
<html>
<head><title>Contador de Visitas</title></head>
<body>
<form method=“post” action="/cgi-bin/contador.pl">
<center>
<h2>Pulse el botón para incrementar el contador de visitas</h2>
<input type="submit" value="Nueva Visita">
<input type="submit" value="Enviar datos">
</center>
</form>
</body>
</html>
Código contador PERL:
- Código: Seleccionar todo
open(IN,"cuenta");
$n_visitas=<IN>;
close(IN);
$n_visitas++;
open(OUT,">cuenta_nueva");
print OUT $n_visitas;
close(OUT);
unlink("cuenta");
rename("cuenta_nueva","cuenta");
print "content-type: text/html\n\n";
print "<h2>El numero de visitas de esta pagina es $n_visitas</h2>";
