🚀 go-pugleaf

Hallo,

Ik heb hier een perl script met al mijn proceduren in een externe file
de volgende procedure is eigenlijk een functie, maar met ze aan te roepen
door "function" te zetten ipv "sub" ging ze niet, waarschijnlijk kon dit
niet ?

enfin, mijn code: dit is de procedure, die bedoeld is als functie eigenlijk
******************
sub BestaatNickname($nick){
 $openLeden = $path . "leden.txt";
  open (FILE ,"$openLeden");
   @members = (<FILE>);
  close FILE;
 for $i (0..$#members) {
  ($key, $val) = split(/=/,$members[$i],2);
  $ingevuld{$key} .= $val;

  if ($ingevuld{nickname} eq $nick) {
   return "ja";
  }
 }
  return "nee";
}
*******************

Dit is mijn code dat in het hoofdprogramma staat:
*******************
  # Bestaat de nickname al ?
   if ((BestaatNickname($ingevuld{nickname})) ne "ja") {


   # beginnen met toevoegen
    $openFile = $path . "leden.txt";
    open (FILE, ">>$openFile");
     print FILE
"$ingevuld{naam}~~~$ingevuld{voornaam}~~~$ingevuld{emailadres}~~~$ingevuld{w
oonplaats}~~~$ingevuld{nickname}~~~$ingevuld{paswoord}\n";
    close (FILE);


    if ($ingevuld{onthouden} ne "on") {
     header();
     print "Je bent nu geregistreerd";
    } {
     VoegGebruikerToeAanCookies(); }
     print "Je bent nu geregistreerd";
   } {
    header();
    print "Je was al geregistreerd";
   }
**********************


En ten slotte : dit is wat ik op mijn scherm krijg:
normaal zijn die codes van cookies goed, want ze werken in een ander
programma van mij
*********************
Je bent geregistreerdContent-type: text/html Set-Cookie: login=sdfd;
expires=mon, 02-sept-2026 00:00:00 GMT; path=/ Je bent geregistreerd
Content-type: text/html Je was al geregistreerd
*********************
Dat die Mime typen enzo naar het scherm komt , is normaal, de fout is dat
hij in het hoofdprogramma bij de if statements altijd "JA" zegt, ook bij de
else instructie doet hij gewoon verder

Weet iemand hoe dit komt ?

Tis wel wa lang, maar kon het moeilijk uitleggen :)

greetz
Ruben