#!/usr/local/bin/perl
######################################################################
# BEFORE TRYING TO EDIT THIS SCRIPT, READ THE README FILE
######################################################################
#
# Dream Catchers CGI Scripts Feel free to modify
# Form Return 4.0 this script to your
# Created by Seth Leonard needs, but please
# for Dream Catchers Technologies, Inc. keep this portion so
# that I get credit.
# http://dreamcatchersweb.com/scripts The same goes for
# distribution.
#
# (c)1996/1997 Dream Catchers Technologies, Inc.,
# All Rights Reserved
#
######################################################################
#ONLY EDIT THIS PART OF THE SCRIPT!!!!
$backurl = "http://academiegsi.com/mailOK.htm";
$backname = "Votre requête à été envoyé avec succès";
$mailprog = '/bin/sendmail';
$youmail = 'info@academiegsi.com';
# DO NOT EDIT BELOW THIS LINE!!!!
#################################################################
read(STDIN, $namevalues, $ENV{'CONTENT_LENGTH'});
open (MAIL, "|$mailprog $youmail") || die "Can't open $mailprog!\n";
print MAIL ("To: $youmail\n");
print MAIL ("From: Internet User\n");
print MAIL ("Subject: Form Response\n\n");
# Process info from Fill in Form
@namevalues = split(/&/, $namevalues);
foreach $namevalue (@namevalues) {
($name, $value) = split(/=/, $namevalue);
$name =~ tr/+/ /;
$value =~ tr/+/ /;
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$INPUT{$name} = $value;
unless ($value eq "") {
print MAIL ("$name: $value\n");
}
}
close (MAIL);
# Print Follow up HTML
print ("Content-Type: text/html\n\n");
print ("Merci\n");
print ("
Merci de votre intérêt
\n");
print ("L'information à été envoyé avec succès:
\n");
foreach $namevalue (@namevalues) {
($name, $value) = split(/=/, $namevalue);
$name =~ tr/+/ /;
$value =~ tr/+/ /;
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$INPUT{$name} = $value;
unless ($value eq "") {
print ("$name: $value
\n");
}
}
print ("
\n");
print ("Back to $backname
\n");
print ("© Al-Pha.ca\n");
print ("\n");
exit;