$error_loop=0;$browser_out=0;if($ENV{REQUEST_METHOD}eqGETandnot$ENV{QUERY_STRING}){$ENV{OUT_TITLE}=Tipsaenkompis!;@msg=(DATA);@msg
=ParseText(@msg);BrowserOut(@msg);exit(0);}CheckRef;ParseForm;if(@missing_valuesor@bad_emailsor@only_digitsor@only_words){Error(ev
ilvalues)}foreach$key(keys%FORM){if($key=~/^_send_email/){@lines=ReadFile(EmailTemplate,$FORM{$key});@lines=ParseText(@lines);Send
Mail(@lines);}elsif($key=~/^_out_file/){@lines=ReadFile(LogFile,$FORM{$key});@lines=ParseText(@lines);LogFile(LogFileTemplate,@lin
es);}elsif($key=~/^_browser_out/and$browser_out2){$browser_out++;@lines=ReadFile(BrowserTemplate,$FORM{$key});@lines=ParseText(@li
nes);BrowserOut(@lines);}elsif($key=~/^_redirect/and$browser_out2){$browser_out++;printLocation:$FORM{$key}\n\n;}}unless($browser_
out){@msg=(DATA);$ENV{OUT_TITLE}=Dittmeddelandeharskickats!;$ENV{OUT_MSG}=Ettmailharskickatstilldinkompisföratttipsaomfilmrecensio
nen.brbrahref=\$FORM{url}\$FORM{film}/abrahref=\http://www.lhasa.nu/~klue/bio/\Filmsidan/a;@msg=ParseText(@msg);BrowserOut(@msg);}
exit(0);subBrowserOut{print$content_type@_\n}subCheckRef{my($valid_referer,@terms);if((@Referers)and($ENV{HTTP_REFERER})){foreach$
referer(@Referers){if($ENV{HTTP_REFERER}=~m|http.*?://$referer|i){$valid_referer++;last;}}}else{$valid_referer++;}unless($valid_re
ferer){@terms=split(/\//,$ENV{HTTP_REFERER});Error(Ogiltigavsauml;ndarsida,Dukaninteskickameddelandenfrån$ENV{HTTP_REFERER}.);}}su
bError{++$error_loop;my$title=shift@_;my$msg=shift@_;my@error;if($titleeqevilvalues){my$val;if(@missing_values){$msg=qq|pFouml;lja
ndefauml;ltmaring;stefyllasi:/p\nol\n|;foreach$val(@missing_values){$msg.=li$val\n}$msg.=/ol\n;}if(@bad_emails){$msg.=qq|pFouml;lj
andefauml;ltmaring;steinneharing;llaemail-adresser:/p\nol\n|;foreach$val(