#!/usr/bin/perl
require "config.idx";
print "Content-type: text/html\n\n";
$long = $ENV{'QUERY_STRING'};
if ($long) {
@pairs=split(/&/,$long);
foreach $item(@pairs) {
($name,$content)=split (/=/,$item,2);
$content=~tr/+/ /;
$content=~ s/%(..)/pack("c",hex($1))/ge;
if ($INPUT{$name}) { $INPUT{$name} = $INPUT{$name}.",".$content; }
else { $INPUT{$name} = $content; }
}
}
else {
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
if ($INPUT{$name}) { $INPUT{$name} = $INPUT{$name}.",".$value; }
else { $INPUT{$name} = $value; }
}
}
use DBI;
my $dsn = "DBI:mysql:database=$d_name;host=localhost";
my $dbh = DBI->connect($dsn, $d_username, $d_pass, {RaiseError => 1}) || die $DBI::errstr;
my $fasth = $dbh->prepare("SELECT access FROM users WHERE email = '$Cook{email}'");
$fasth->execute;
while (($access) = $fasth->fetchrow_array()) {
$gotaccess = $access;
}
unless ($gotaccess eq "officestaf" || $gotaccess eq "admin") {
print qq~
~;
&header;
print qq~
You Do Not Have Permission To Access This Area!
You may login to your existing account or create a FREE MuncieMLS.com MyHomes account below.
|
|
~;
&footer;
exit 0;
}
if ($INPUT{action} eq "directory_view") { &directory_view; }
elsif ($INPUT{action} eq "directory_edit") { &directory_edit; }
elsif ($INPUT{action} eq "listnew_view") { &listnew_view; }
elsif ($INPUT{action} eq "listnew_save") { &listnew_save; }
else { &main; }
sub main {
use DBI;
my $dsn = "DBI:mysql:database=$d_name;host=localhost";
my $dbh = DBI->connect($dsn, $d_username, $d_pass, {RaiseError => 1}) || die $DBI::errstr;
my $abasth = $dbh->prepare("select company from trans_boarddirectory GROUP BY company ASC");
$abasth->execute;
while (($company) = $abasth->fetchrow_array()) {
$buildcompany .= "";
}
print qq~
Company Directory -- ERA Eagle Real Estate MuncieMLS.com
~;
&header;
print qq~
view contacts and information the directory
|
~;
&footer;
}