Er der en der kan fortælle mig hvad dette gør

Hej jeg prøver lige igen det blev en gang rod


Jeg har et perl script hvor dette stykke kommer fra,( jeg ved godt at det checker felterne i en form ), men jeg får hele tiden af vide at jeg ikke har udfyldt alle felterne. Er der en der kan fortælle mig hvad funktion $kjj=0; og {$kjj=1;}

sub addad
{

if ($flflfl==1)
{
$kjj=0;
if(($FORM{\'title\'} eq \"\") || ($FORM{\'email\'} eq \"\") ){$kjj=1;}
foreach $key (sort keys(%deffld))
{
$nam3=$deffld{$key}[1];
if( ($deffld{$key}[4] eq \"text\") && ($FORM{$nam3} eq $deffld{$key}[5]))
{$kjj=1;}
}
if ($kjj==1)
{
&htmhead2;
print <<HTMLF;
<center>
<br>
</center>
<div align=\"center\">
  <center>
  <table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"80%\">
    <tr>
      <td width=\"100%\">
        <p align=\"center\"><font size=\"2\">Du har ikke udfyldt alle felterne, klik
        på link her under for at komme tilbage</font></td>
    </tr>
    <tr>
      <td width=\"100%\">
        <p align=\"center\"><A HREF=\"java script:history.go(-1)\"><font size=\"2\">Tilbage</font></A></p>
      </td>
    </tr>
  </table>
  </center>
</div>


Kim

$kjj=0 $kjj=1
Det er såmen bare at variablen $kjj sættes til nul/1. 

Det betyder i sig selv intet, men længere nede finder du
if ($kjj==1)
{


og derfor udføres det i tuborgparanteserne kun hvis $kkj er 1. programmøren bruger altså $kkj som flag der fortæller om formen er udfyldt korrekt.

$kkj er 1 (hvilket giver fejlmeddelelsen) hvis:

$FORM{\'title\'} eq \"\" (det vil sige hvis der ikke er skrevet noget i feltet title i formen)

eller

$FORM{\'email\'} eq \"\" (det vil sige hvis der ikke er skrevet noget i feltet email i formen)

eller hvis

$deffld{$key}[4] eq \"text\" OG
$FORM{$nam3} eq $deffld{$key}[5] (er sværere at gætte uden at se resten af scriptet.

Mit gæt er at fejlen er at du på formen har brugt små bogstaver eller slet ikke har feltet email eller title???

Jeg siger mange tak, jeg hvde stavet tile, så det kører nu

Hilsen Kim

ligesom jeg lige har gjort med havde *G*

Kim

Glad for at kunne hjælpe