If statement gebruiken in CGI

[anoniem]

Ik heb een CGI script draaien. Het gaat om een aanvraagformulier waarbij je zaken kunt aanvinken. Ik krijg daarna een bericht waarin allen punten staan die aangevinkt kunnen worden. Wanneer er een vinkje is gezet staat de waarde "ja" er achter. print MAIL "Optie 1: $optie1\n"; Het nadeel hiervan is dat ik dit altijd tegen kom in het mailtje dat ik ontvang. Ik wil dit eigenlijk alleen zien als deze optie is aangevinkt. Ik weet alleen niet hoe ik dit in CGI moet aangeven. Ik stel me dit er bij voor maar dit klopt vast niet: If Not $optie1 = ' ' Then print MAIL "Module Beginnerscursus : $beginnerscursus\n"; End If Wie weet de oplossing?

[anoniem]

[url=http://www.google.nl/search?hl=nl&ie=UTF-8&oe=UTF-8&q=easy+cgi+tutorial&btnG=Google+zoeken&lr=]Tadaa!![/url] -Anne

[anoniem]

If ($optie1) { print MAIL "Module Beginnerscursus : $beginnerscursus\n"; }

[anoniem]

Bedankt Gerben :wink: Het werkt helaas niet. als ik jou regel opneemt dan werkt het script niet meer. Ik heb dus deze regel: print MAIL "Optie 1: $optie1\n"; Ik wil deze regel echter alleen printen wanneer optie 1 ook daadwerkelijk is aangevinkt in het formulier.

[anoniem]

Als de checkbox niet is aangevinkt, wordt hij volgens mij niet mee gestuurd. Als hij dus bij de variable (get of post) zit dan is hij dus aangeklikt. Hier staat een voorbeeld: http://www.comp.leeds.ac.uk/Perl/Cgi/forms.html wimb

[anoniem]

Ligt waarschijnlijk aan de naam van de variabele. Ik heb daar $optie1 neergezet, afgaand op de pseudocode. Maar het ligt er maar net aan, hoe jouw script variabelen uit de form output haalt, en die in het script weergeeft. Veelal wordt dit gedaan door bijvoorbeeld $in{'variabele'}, $FORM{'variabele'} of param('variabele'). Zonder het script te kennen, is het onmogelijk hier een uitspraak over te doen.

[anoniem]

Zo werkt mijn script niet. print MAIL "Optie 1: $optie1\n"; Dit betekent dat er altijd een stukje tekst wordt getoont. In dit geval: Optie 1: Wanneer er niets is aangevinkt is de variabele optie 1 leeg en zie je niets. Is deze wel aangevinkt dan zie je 1 of ja. Optie 1: Ja / 1 sub SendSubmission { open (MAIL,"|$MailProgram -t"); print MAIL "To: $YourEmail\n"; [b:2a785ec74e]if (index($introductie, " ") > 0) {&DoPrintNoError;} } sub DoPrintNoError { print "Module beginnerscursus: $introductie\n\n"; exit;[/b:2a785ec74e] } } Het vetgedrukte gedeelte is dus waar het nu op vast loopt. Ik wil dus: If $introductie = >0 (dus aangevinkt) dan print "Introdoctie = Ja"