Does anyone know how do I use this function or another one to search a valid
value on a text file I have from a FORM submitted from an HTML, this value
is read from an array because the text file is a database which has all the
values sent to the array already mentioned.
Attached is the CGI to give you all a better view of what I'm trying to do.
The parameter I want to know if exists is $pairsr[0] and is read from
$FORM{'moldura'}.
If it exists I want to leave the result as it is, but if not what I want to
display is a message informing that the numbered entered has no information
on the database.
Thanks in advance.
_________________________________________________________________
MSN Photos is the easiest way to share and print your photos:
http://photos.msn.com/support/worldwide.aspx
#!/usr/bin/perl -- -*-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;
$FORM{$name} = $value;
}
#------------------------------
open (DATOS,"<prtdmldr.d");
print <<EOF ;
<<title>BUSCAR DIBUJOS DE PARTES EN EL CIS</title></HEAD>
<BODY bgcolor="#000000" leftmargin="0" topmargin="0" marginwidth="0"
marginheight="0">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="27%" height="117"><img src="vitro.gif"></td>
<td width="73%" height="117">
<div align="right"><img src="todocispartes.jpg" width="502"
height="116"></div>
</td>
</tr>
</table>
<br>
<CENTER>
<font color="#FFFFFF" face="Arial, Helvetica, sans-serif"><b>OPCION PARA
BUSCAR
DIBUJOS DE PARTES DE MOLDURAS EN EL CIS:</b></font>
</CENTER>
<br>
<font face="Arial, Helvetica, sans-serif" color="#FFFFFF"><b>Parámetros de
búsqueda Moldura: =$FORM{'moldura'}, Planta: =$FORM{'planta'}, Proceso:
=$FORM{'proceso'}<br>
</b></font>
<font face="Arial, Helvetica, sans-serif" color="#FFFFFF"><b>Hacer un click
en
el número de la Parte deseada.</b> </font>
<hr>
<table border>
<tr>
<th><center><font color="#FFFF66">Moldura</font></center></th>
<th><center><font color="#FFFF66">Proceso</font></center></th>
<th><center><font color="#FFFF66">Planta</font></center></th>
<th><center><font color="#FFFF66">Parte</font></center></th>
<th><center><font color="#FFFF66">Versión</font></center></th>
<th><center><font color="#FFFF66">Fecha</font></center></th>
<th><center><font color="#FFFF66">Descripción</font></center></th>
</tr>
EOF
#---------------Borrado de archivos----------------
$borra = "parte01-".$ENV{'REMOTE_HOST'}.".txt" ;
system("rm",$borra);
$borra = "parte02-".$ENV{'REMOTE_HOST'}.".txt" ;
system("rm",$borra);
$borra = "parte03-".$ENV{'REMOTE_HOST'}.".txt" ;
system("rm",$borra);
$borra = "parte04-".$ENV{'REMOTE_HOST'}.".txt" ;
system("rm",$borra);
$borra = "parte05-".$ENV{'REMOTE_HOST'}.".txt" ;
system("rm",$borra);
$borra = "parte06-".$ENV{'REMOTE_HOST'}.".txt" ;
system("rm",$borra);
$borra = "parte07-".$ENV{'REMOTE_HOST'}.".txt" ;
system("rm",$borra);
$borra = "parte08-".$ENV{'REMOTE_HOST'}.".txt" ;
system("rm",$borra);
$borra = "parte09-".$ENV{'REMOTE_HOST'}.".txt" ;
system("rm",$borra);
$borra = "parte10-".$ENV{'REMOTE_HOST'}.".txt" ;
system("rm",$borra);
$borra = "parte11-".$ENV{'REMOTE_HOST'}.".txt" ;
system("rm",$borra);
$borra = "parte12-".$ENV{'REMOTE_HOST'}.".txt" ;
system("rm",$borra);
$borra = "parte13-".$ENV{'REMOTE_HOST'}.".txt" ;
system("rm",$borra);
$borra = "parte14-".$ENV{'REMOTE_HOST'}.".txt" ;
system("rm",$borra);
$borra = "parte15-".$ENV{'REMOTE_HOST'}.".txt" ;
system("rm",$borra);
$borra = "parte16-".$ENV{'REMOTE_HOST'}.".txt" ;
system("rm",$borra);
$borra = "parte17-".$ENV{'REMOTE_HOST'}.".txt" ;
system("rm",$borra);
$borra = "parte18-".$ENV{'REMOTE_HOST'}.".txt" ;
system("rm",$borra);
$borra = "parte19-".$ENV{'REMOTE_HOST'}.".txt" ;
system("rm",$borra);
$borra = "parte20-".$ENV{'REMOTE_HOST'}.".txt" ;
system("rm",$borra);
$borra = "parte21-".$ENV{'REMOTE_HOST'}.".txt" ;
system("rm",$borra);
$borra = "parte22-".$ENV{'REMOTE_HOST'}.".txt" ;
system("rm",$borra);
$borra = "parte23-".$ENV{'REMOTE_HOST'}.".txt" ;
system("rm",$borra);
$borra = "parte24-".$ENV{'REMOTE_HOST'}.".txt" ;
system("rm",$borra);
$borra = "parte25-".$ENV{'REMOTE_HOST'}.".txt" ;
system("rm",$borra);
$borra = "parte26-".$ENV{'REMOTE_HOST'}.".txt" ;
system("rm",$borra);
$borra = "parte27-".$ENV{'REMOTE_HOST'}.".txt" ;
system("rm",$borra);
$borra = "parte28-".$ENV{'REMOTE_HOST'}.".txt" ;
system("rm",$borra);
$borra = "parte29-".$ENV{'REMOTE_HOST'}.".txt" ;
system("rm",$borra);
$borra = "parte30-".$ENV{'REMOTE_HOST'}.".txt" ;
system("rm",$borra);
$borra = "parte31-".$ENV{'REMOTE_HOST'}.".txt" ;
system("rm",$borra);
$borra = "parte32-".$ENV{'REMOTE_HOST'}.".txt" ;
system("rm",$borra);
$borra = "parte33-".$ENV{'REMOTE_HOST'}.".txt" ;
system("rm",$borra);
#-------------------------------------------------
while ($buff = <DATOS>)
{
#print "<CENTER> $con - $buff </CENTER>\n";
@pairs = split(/"/,$buff);
$pairs[0] =~ s/ //eg;
$pairs[3] =~ s/ //eg;
$pairs[5] =~ s/ //eg;
@pairs2 = split (/ /, $pairs[6]);
@pairs3 = split('/',$pairs2[2]); #Rutina para partir la fecha en 3.
$sies = "1";
if ( $pairs[15] eq "E" ) { $sies = "1"; } else { if ( $pairs[15] eq "e" ) {
$sies = "1"; } else { $sies = "0" } }
if ( $pairs[0] ne $FORM{'moldura'} ) {$sies = "0"; }
if ( $FORM{'planta'} ne "" ) {
if ( $pairs[3] ne $FORM{'planta'} ) { $sies = "0"; }}
if ( $FORM{'proceso'} ne "" ) {
if ( $pairs[1] ne $FORM{'proceso'} ) { $sies = "0"; }}
if ( $sies eq "1" ) {
open (SALIDA,">> parte".$pairs[5]."-".$ENV{'REMOTE_HOST'}.".txt");
print SALIDA "moldura=$pairs[0]&";
print SALIDA "proceso=$pairs[1]&";
print SALIDA "planta=$pairs[3]&";
print SALIDA "parte=$pairs[5]&";
print SALIDA "version=$pairs2[1]&";
print SALIDA "fecha=$pairs2[2]&";
print SALIDA "descripcion=$pairs[7]&";
print SALIDA "ubicacion=$pairs[15]&";
print SALIDA "ruta=$pairs[17]&%";
close (SALIDA);
}
}
close (DATOS);
#-----------------------------------------
for($contador = 1; $contador < 34; $contador = $contador + 1 ) {
@pairsr = () ;
if ($contador eq 1 ) { $contador = "01"; }
if ($contador eq 2 ) { $contador = "02"; }
if ($contador eq 3 ) { $contador = "03"; }
if ($contador eq 4 ) { $contador = "04"; }
if ($contador eq 5 ) { $contador = "05"; }
if ($contador eq 6 ) { $contador = "06"; }
if ($contador eq 7 ) { $contador = "07"; }
if ($contador eq 8 ) { $contador = "08"; }
if ($contador eq 9 ) { $contador = "09"; }
$arch = "parte".$contador."-".$ENV{'REMOTE_HOST'}.".txt" ;
if ( -e "$arch" ) {
open (DATOS,"<".$arch);
$buff = <DATOS>;
close (DATOS);
@pairs0 = split(/%/,$buff);
$conta = 0 ;
foreach $pair0(@pairs0)
{
@pairs = split(/&/,$pairs0[$conta]);
$conta = $conta + 1 ;
foreach $pair(@pairs)
{
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$name} = $value;
} # fin del 2 for
@pairs3 = split('/',$FORM{'fecha'}); #Rutina para partir la fecha de archivo
en 3.
@pairs4 = split('/',$pairsr[10]); #Rutina para partir la fecha desplegable
en 3.
if ($pairs3[2] eq "00") {$pairs3[2] = "100";}
if ($pairs3[2] eq "01") {$pairs3[2] = "101";}
if ($pairs3[2] eq "02") {$pairs3[2] = "102";}
if ($pairs3[2] eq "03") {$pairs3[2] = "103";}
if ($pairs4[2] eq "00") {$pairs4[2] = "100";}
if ($pairs4[2] eq "01") {$pairs4[2] = "101";}
if ($pairs4[2] eq "02") {$pairs4[2] = "102";}
if ($pairs4[2] eq "03") {$pairs4[2] = "103";}
$fecha1 = $pairs3[2].$pairs3[1].$pairs3[0];
$fecha2 = $pairs4[2].$pairs4[1].$pairs4[0];
if ($fecha1 > $fecha2 ) {
$pairsr[0] = $FORM{'moldura'};
$pairsr[1] = $FORM{'proceso'};
$pairsr[3] = $FORM{'planta'};
$pairsr[5] = $FORM{'parte'};
$pairsr[6] = $FORM{'version'};
$pairsr[7] = $FORM{'descripcion'};
$pairsr[15] = $FORM{'ubicacion'};
$pairsr[17] = $FORM{'ruta'};
$pairsr[10] = $FORM{'fecha'};
}
} # fin del 1 for
#--------------------Nombre de Procesos-------------------------------------
if ($pairsr[1] eq "ps01") {$pairsr[1] = "<font color='#99FFFF'>Prensa Soplo
Simple Cavidad (ps01)</font>";}
if ($pairsr[1] eq "ps02") {$pairsr[1] = "<font color='#9999FF'>Prensa Soplo
DC 4 1/4 (ps02)</font>";}
if ($pairsr[1] eq "ps03") {$pairsr[1] = "<font color='#FFCCCC'>Prensa Soplo
DC 6 1/4 (ps03)</font>";}
if ($pairsr[1] eq "ps04") {$pairsr[1] = "<font color='#CCFFCC'>Prensa Soplo
DC 5 (ps04)</font>";}
if ($pairsr[1] eq "ps05") {$pairsr[1] = "<font color='#FF66CC'>Prensa Soplo
DC 6 (ps05)</font>";}
if ($pairsr[1] eq "ps10") {$pairsr[1] = "<font color='#FF6666'>P.S.B.A. DC 5
Quantum (ps10)</font>";}
if ($pairsr[1] eq "ps41") {$pairsr[1] = "<font color='#66FF66'>Prensa Soplo
41 TC 4 1/4 (ps41)</font>";}
if ($pairsr[1] eq "psb1") {$pairsr[1] = "<font color='#3333FF'>P.S.B.A. DC 6
1/4 Toyo (psb1)</font>";}
if ($pairsr[1] eq "psb2") {$pairsr[1] = "<font color='#FF3333'>P.S.B.A. DC 4
1/4 Toyo (psb2)</font>";}
if ($pairsr[1] eq "psb3") {$pairsr[1] = "<font color='#FF9933'>P.S.B.A. DC 6
1/4 Quantum (psb3)</font>";}
if ($pairsr[1] eq "psb4") {$pairsr[1] = "<font color='#CCCCCC'>P.S.B.A.
Triple Axial Cooling (psb4)</font>";}
if ($pairsr[1] eq "psb5") {$pairsr[1] = "<font color='#FFCC33'>P.S.B.A. Dual
4 1/4 Quantum (psb5)</font>";}
if ($pairsr[1] eq "psb6") {$pairsr[1] = "<font color='#CCFF66'>Doble Cavidad
6 1/4 Vertiflow (psb6)</font>";}
if ($pairsr[1] eq "psb7") {$pairsr[1] = "<font color='#66FF66'>P.S.B.A. Dual
4 1/4 Toyo (psb7)</font>";}
if ($pairsr[1] eq "psb8") {$pairsr[1] = "<font color='#3366CC'>P.S.B.A. DC 4
1/4 Quantum (psb8)</font>";}
if ($pairsr[1] eq "psb9") {$pairsr[1] = "<font color='#0000FF'>Doble Cavidad
4 1/4 Vertiflow (psb9)</font>";}
if ($pairsr[1] eq "psim") {$pairsr[1] = "<font color='#9900FF'>Prensa Soplo
IMI (psim)</font>";}
if ($pairsr[1] eq "ss01") {$pairsr[1] = "<font color='#CC6600'>Soplo Soplo
Simple Cavidad (ss01)</font>";}
if ($pairsr[1] eq "ss02") {$pairsr[1] = "<font color='#FFFF00'>Soplo Soplo
DC 4 1/4 Vertiflow (ss02)</font>";}
if ($pairsr[1] eq "ss03") {$pairsr[1] = "<font color='#00FF00'>Soplo Soplo
DC 4 1/4 Standard (ss03)</font>";}
if ($pairsr[1] eq "ss04") {$pairsr[1] = "<font color='#666666'>Soplo Soplo
TC 4 1/4 (ss04)</font>";}
if ($pairsr[1] eq "ss05") {$pairsr[1] = "<font color='#FFFFFF'>Soplo Soplo
Dual 4 1/4 (ss05)</font>";}
if ($pairsr[1] eq "ss06") {$pairsr[1] = "<font color='#009999'>Soplo Soplo
Triple 4 1/4 (ss06)</font>";}
if ($pairsr[1] eq "ss07") {$pairsr[1] = "<font color='#990099'>Soplo Soplo
DC 6 1/4 (ss07)</font>";}
if ($pairsr[1] eq "ss08") {$pairsr[1] = "<font color='#990000'>Soplo Soplo
DC 5 (ss08)</font>";}
if ($pairsr[1] eq "ss09") {$pairsr[1] = "<font color='#006600'>Soplo Soplo
41 DC 4 1/4 (ss09)</font>";}
if ($pairsr[1] eq "ss10") {$pairsr[1] = "<font color='#FF6633'>Soplo Soplo
DC 6 (ss10)</font>";}
if ($pairsr[1] eq "ss11") {$pairsr[1] = "<font color='#99CC33'>Soplo Soplo
DC Dual 4 1/4 (ss11)</font>";}
if ($pairsr[1] eq "ss12") {$pairsr[1] = "<font color='#993333'>Soplo Soplo
DC 5 Vertiflow (ss12)</font>";}
if ($pairsr[1] eq "ssim") {$pairsr[1] = "<font color='#CCCC66'>Soplo Soplo
IMI (ssim)</font>";}
#---------------------------------------------------------------------------
#--------------------------Nombre de las Partes-----------------------------
$pairsr[20] = $pairsr[5];
if ($pairsr[5] eq "01") {$pairsr[20] = "Molde";}
if ($pairsr[5] eq "02") {$pairsr[20] = "Fondo";}
if ($pairsr[5] eq "03") {$pairsr[20] = "Bombillo";}
if ($pairsr[5] eq "04") {$pairsr[20] = "Obturador";}
if ($pairsr[5] eq "05") {$pairsr[20] = "Embudo";}
if ($pairsr[5] eq "06") {$pairsr[20] = "Corona (rosca)";}
if ($pairsr[5] eq "07") {$pairsr[20] = "Guía (rosca)";}
if ($pairsr[5] eq "08") {$pairsr[20] = "Pistón (rosca)";}
if ($pairsr[5] eq "09") {$pairsr[20] = "Cabeza de soplo (rosca)";}
if ($pairsr[5] eq "10") {$pairsr[20] = "Dedos";}
if ($pairsr[5] eq "11") {$pairsr[20] = "Corona (corcho)";}
if ($pairsr[5] eq "12") {$pairsr[20] = "Guía (corcho)";}
if ($pairsr[5] eq "13") {$pairsr[20] = "Pistón (corcho)";}
if ($pairsr[5] eq "14") {$pairsr[20] = "Cable de Soplo (corcho)";}
if ($pairsr[5] eq "15") {$pairsr[20] = "Enfriador";}
if ($pairsr[5] eq "16") {$pairsr[20] = "Anillo";}
if ($pairsr[5] eq "17") {$pairsr[20] = "Molde 1a. operación";}
if ($pairsr[5] eq "18") {$pairsr[20] = "Fondo 1a. operación";}
if ($pairsr[5] eq "19") {$pairsr[20] = "Bombillo 1a. operación";}
if ($pairsr[5] eq "20") {$pairsr[20] = "Obturador 1a. operación";}
if ($pairsr[5] eq "21") {$pairsr[20] = "Placa para fondo";}
if ($pairsr[5] eq "22") {$pairsr[20] = "Válvula";}
if ($pairsr[5] eq "23") {$pairsr[20] = "Cavidad de Bombillo";}
if ($pairsr[5] eq "24") {$pairsr[20] = "Inserto de Embudo";}
if ($pairsr[5] eq "25") {$pairsr[20] = "Cavidad de Molde";}
if ($pairsr[5] eq "26") {$pairsr[20] = "Placa molde";}
if ($pairsr[5] eq "27") {$pairsr[20] = "Molde prueba";}
if ($pairsr[5] eq "28") {$pairsr[20] = "Fondo prueba";}
if ($pairsr[5] eq "29") {$pairsr[20] = "Bombillo prueba";}
if ($pairsr[5] eq "30") {$pairsr[20] = "Obturador prueba";}
if ($pairsr[5] eq "31") {$pairsr[20] = "Embudo prueba";}
if ($pairsr[5] eq "32") {$pairsr[20] = "Pistón prueba";}
if ($pairsr[5] eq "33") {$pairsr[20] = "Diseño envase";}
#---------------------------------------------------------------------------
#---------------------Nombre de las Plantas--------------------------------
if ($pairsr[3] eq "dc") {$pairsr[3] = "<font color='#FFFFFF'>Diseño
Central</font>";}
if ($pairsr[3] eq "vcl") {$pairsr[3] = "<font color='#00FFFF'>Vidirera
Mexicali</font>";}
if ($pairsr[3] eq "vg") {$pairsr[3] = "<font color='#FF0000'>Vidirera
Guadalajara</font>";}
if ($pairsr[3] eq "vmo") {$pairsr[3] = "<font color='#00FF00'>Vidriera
Monterrey</font>";}
if ($pairsr[3] eq "vq") {$pairsr[3] = "<font color='#3333FF'>Vidriera
Querétaro</font>";}
if ($pairsr[3] eq "vr") {$pairsr[3] = "<font color='#FFCCCC'>Vidriera los
Reyes</font>";}
if ($pairsr[3] eq "vt") {$pairsr[3] = "<font color='#FF33FF'>Vidriera
Toluca</font>";}
if ($pairsr[3] eq "vx") {$pairsr[3] = "<font color='#CCCCFF'>Vidriera
México</font>";}
#-------------------------------------------------------------------------------------------
print <<EOF ;
<tr>
<th><center><font color="#00CCCC"><a target="_blank"
href=verparte.cgi?moldura=$pairsr[0]&ruta=$pairsr[17]&parte=$pairsr[5]>$pairsr[0]</a></font></center></th>
<th><center>$pairsr[1]</center></th>
<th><center>$pairsr[3]</center></th>
<th><center><font color="#00CCCC">$pairsr[20]</font></center></th>
<th><center><font color="#00CCCC">$pairsr[6]</font></center></th>
<th><center><font color="#00CCCC">$pairsr[10]</font></center></th>
<th><center><font color="#00CCCC">$pairsr[7]</font></center></th>
</tr>
EOF
} # fin del if
} # fin del for
#------------------------------------
print "</table>\n\n" ;
print <<EOF ;
<hr>
<table width="100%" cellspacing=0 cellpadding=0><tr>
<td><b><a href="#top"><font color="#FFFF66" face="Arial, Helvetica,
sans-serif">Volver
a la parte Alta</font></a></b></td>
</tr></table>
<DIV ALIGN="CENTER"><A HREF="JavaScript:window.close()"><IMG SRC="Close.jpg"
WIDTH="77" HEIGHT="24" BORDER="0"></A>
</DIV>
EOF
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
