Mailform .pl script !!!

#!/usr/bin/perl

### Ændre nedenfor

### Hvem skal mailen sendes til?
$to = 'panton@visio.dk';

### Hvad skal emnet være?
$subject ='Mailer: Homepage';

### Hvilken side skal vises når mailen er sendt?
$redirect = '../tak.html';

### Her er programmet som sender mailen
$mail_loc ="/usr/sbin/sendmail -t";

### Ændre ovenfor

$date = localtime(time);





### Her skives mailen
open(MAIL, "|$mail_loc");
print MAIL "To: $to\n";
print MAIL "From: MAILER";
print MAIL "Subject: $subject\n";
print MAIL "Date: $date\n\n";

print MAIL "En mail er sendt til din hjemmeside ($date), neden for vises hvilke data er blev sendt\n\n";

read(STDIN,$query,$ENV{'CONTENT_LENGTH'});
foreach (split(/[&;]/, $query)){
s/\+/ /g;
($key, $value) = split('=', $_);
$key =~ s/%([A-Fa-f0-9]{2})/pack("c",hex($1))/ge;
$value =~ s/%([A-Fa-f0-9]{2})/pack("c",hex($1))/ge;
print MAIL "$key : $value\n";
}



close (MAIL);


### Her redirectes du til en takkeside
print "Location: $redirect\n\n";


## GEM scriptet som fx. mailer.cgi

Det kan jeg også bruge.
Jeg har desuden brug for at kunne splitte emailen op til forskellige modtagere, så de kun får den info, der vedrører dem.
Der er tale om et bookingsystem, hvor der kan vælges ophold på forskellige steder. Ideen er at hvis et sæt "nøgle,værdi" indeholder en bestemt streng, skal denne streng sendes til en forud defineret modtager, blandt flere, samtidig skal alt sendes til admin.

?