#!/usr/bin/perl #use CGI::Carp qw(fatalsToBrowser); use lib 'perlconf'; use schoeters_conf; &schoeters_conf::vars(); use DBI; $ran4 = int(rand(1000000000)); $ran2 = int(rand(9)) . int(rand(9)); $maa4 = `env TZ=Europe/Brussels date "+%d"`; chop $maa4; if ($ENV{'REQUEST_METHOD'} eq 'POST') { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); @vv = split(/&/, $buffer); foreach $pair(@vv) { ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $name =~ tr/+/ /; $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $value=~s/\\/\//gi; $value=~s/'/�/gi; $value=~s/;/,/gi; $value=~s/\n/\ /gi; $value=~s/"/"/gi; $value=~s/</gi; $value=~s/>/>/gi; $FORM{$name} = $value; # print "$name = $value
";
}
# data checks
if
(
$FORM{email}!~/^.+\@(\[?)[a-zA-Z0-9\-\.]+\.([a-zA-Z0-9]+)(\]?)$/
||
$FORM{email}=~/(@.*@)|(\.\.)|(@\.)|(\.@)|(^\.)/
)
{ data_error('Ongeldig emailadres.') }
my @eoa = split //, $FORM{REGID};
if ( $eoa[$#eoa-3].$eoa[$#eoa-2] ne $maa4 )
{
data_error('Onjuiste registratie ID.');
}
# bestaat het email-adres al in de databank ? Dan rerout naar wachtwoord vergeten pagina
$db = DBI->connect("DBI:mysql:$CONFIG{name}:$CONFIG{host}", $CONFIG{user}, $CONFIG{pass});
$query = $db->prepare("SELECT * FROM geregistreerdegebruikers WHERE LCASE(email) = LCASE('$FORM{email}') LIMIT 1");
$query->execute;
while (@array = $query->fetchrow_array)
{
$isal = 1;
}
$query->finish;
$db->disconnect;
&do_redirect() if ($isal == 1);
if (
($FORM{huiskoopmin} * 1.2 > $FORM{huiskoopmax} && $FORM{huiskoopmin} ne '' && $FORM{huiskoopmax} ne '') ||
($FORM{huishuurmin} * 1.2 > $FORM{huishuurmax} && $FORM{huishuurmin} ne '' && $FORM{huishuurmax} ne '') ||
($FORM{appkoopmin} * 1.2 > $FORM{appkoopmax} && $FORM{appkoopmin} ne '' && $FORM{appkoopmax} ne '') ||
($FORM{apphuurmin} * 1.2 > $FORM{apphuurmax} && $FORM{apphuurmin} ne '' && $FORM{apphuurmax} ne '') ||
($FORM{handelkoopmin} * 1.2 > $FORM{handelkoopmax} && $FORM{handelkoopmin} ne '' && $FORM{handelkoopmax} ne '') ||
($FORM{handelhuurmin} * 1.2 > $FORM{handelhuurmax} && $FORM{handelhuurmin} ne '' && $FORM{handelhuurmax} ne '') ||
($FORM{bouwkoopmin} * 1.2 > $FORM{bouwkoopmax} && $FORM{bouwkoopmin} ne '' && $FORM{bouwkoopmax} ne '')
)
{ data_error('Gelieve bij elk vakje de maximum prijs tenminste 20% duurder in te vullen dan de minimum prijs, a.u.b.') }
# return $ww met 4 willekeurige characters
my ($willek) = "1234567890";my (@aa) = split('',$willek);
while ($count<49){$rsalt = rand(@aa);$key=$key.$aa[$rsalt];$count++;}
$db = DBI->connect("DBI:mysql:$CONFIG{name}:$CONFIG{host}", $CONFIG{user}, $CONFIG{pass});
$query = $db->prepare("INSERT INTO aanvragengebruikers VALUES
('',
'$FORM{naam}',
'$FORM{email}',
'$FORM{straat}',
'$FORM{huisnummer}',
'$FORM{gemeente}',
'$FORM{postcode}',
'$FORM{land}',
'$FORM{telefoon}',
'$FORM{huiskoop}',
'$FORM{huiskoopmin}',
'$FORM{huiskoopmax}',
'$FORM{huishuur}',
'$FORM{huishuurmin}',
'$FORM{huishuurmax}',
'$FORM{appkoop}',
'$FORM{appkoopmin}',
'$FORM{appkoopmax}',
'$FORM{apphuur}',
'$FORM{apphuurmin}',
'$FORM{apphuurmax}',
'$FORM{handelkoop}',
'$FORM{handelkoopmin}',
'$FORM{handelkoopmax}',
'$FORM{handelhuur}',
'$FORM{handelhuurmin}',
'$FORM{handelhuurmax}',
'$FORM{bouwkoop}',
'$FORM{bouwkoopmin}',
'$FORM{bouwkoopmax}',
NOW(),
'$key',
'$FORM{optin}')
");
$query->execute;
$query->finish;
$db->disconnect;
insertOK();
}
###########################################################################################
# toon
###########################################################################################
print "Content-Type: text/html;\n\n";
# ========================================================================================
# HEADER FILE
# ========================================================================================
open(R, 'template/header.tmpl') or &die("Can't open header file: $!");
while ( Vul onderstaand formulier in, en u beschikt over alle adresgegevens van de eigendommen op onze website. U wordt dan tevens automatisch per email op de hoogte gehouden van onze nieuwe eigendommen met de bijhorende link. Er wordt hierbij geselecteerd op het soort eigendom dat u invulde (huis-villa, appartement, bouwgrond, handelseigendom) en op de prijscategorie. Uw aanvraag werd goed ontvangen. Deze aanvraag zal door ons MANUEEL worden bevestigd en u krijgt dan uw logingegevens per email. U bent op zoek naar een
koop- en/of huur-eigendom ?
Bedankt