Ok, as Paul said, use CGI.pm. Add the following after the fatalsToBrowser part;
Code:
use CGI;
my $input = new CGI;
Then get rid of the following, as it is redundent now;
Code:
read(STDIN, $buffer, %ENV{'CONTENT_LENGHT'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs);
($name, $value) = split(/=/, $pair);
$value =~ /+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
Then change all references of $FORM{'stuff'} with either $input->param('stuff'); (obviously change 'stuff' with the appropriate variable being sent.
On one of your lines you have;
Quote:
diencie("Du har glemt å fylle ut noe i epost feltet. Vennligst gå tilbake å fyll ut alle felter.\n");
Notice that you have 'diencie', instead of 'dienice'...may wanna fix that too
Mmm..there is a lot of error here ;)
Code:
print MAIL "Subject: Påmelding til dataparty.";
I would change that to something like;
Code:
$subject = "Påmelding til dataparty.";
print MAIL "Subject: $subject \n";
Also, at the end of the subject, to and reply-to lines, you need a single \n, and then a \n\n at the 'reply-to' part...
Here, where you seem to be writing to the file called list.txt, why don't you have store the data all on one line?
Quote:
# Vi lagrer all informasjon som ble fylt ut i sjemaet inn i filen....
print LIST("Navn: $FORM{'navn'} | Alder: $FORM{'Alder'} | Epost: $FORM{'Email'} |\n");
print LIST("Antall PC'er: $FORM{'antall_pc'} | Prosessor: $FORM{'cpu'} | Ram: $FORM{'ram'} |\n");
print LIST("Operativsystem: $FORM{'operativsystem'} | Spill: $FORM{'jeg_vil_spille'} | Filmer: $FORM{'film'} |\n");
print LIST("Mat i cafe: $FORM{'mat_i_cafe'} | Utstyr: $FORM{'utstyr'} | Antivirus: $FORM{'antivirus'} |\n");
print LIST("Antall gang før: $FORM{'antall_gang_for'} | Dato sendt: $date\n\n");
Not sure if that will make a difference..but thats how I normally do it
These are just a few of the errors I can see...I'm sure there are quite a few more...but I don't have time to look at the rest of it all...sorry
Andy (mod)
andy@ultranerds.co.uk
Want to give me something back for my help? Please see my
Amazon Wish List GLinks ULTRA Package | GLinks ULTRA Package PRO Links SQL Plugins | Website Design and SEO | UltraNerds | ULTRAGLobals Plugin |
Pre-Made Template Sets |
FREE GLinks Plugins!
Help with a perl script
....I had no idea what "moniker" meant and that's what came up. 