#!/usr/bin/perl
require "config.idx";
$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; }
}
}
&checklogin;
if ($INPUT{action} eq "expiredlistings") { &expiredlistings; }
elsif ($INPUT{action} eq "create_transaction_verify") { &create_transaction_verify; }
else { &main; }
sub main {
print qq~
Connect.EagleSold.com - Admin Tools
~;
&header;
print qq~
~;
print qq~
Tools
Expired Listings
|
~;
&footer;
}
sub expiredlistings {
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;
$oasth = $dbh->prepare("SELECT DATE_FORMAT( now( ) , '%Y-%c-%e' )");
$oasth->execute;
while (($current_date) = $oasth->fetchrow_array()) {
}
$aoasth = $dbh->prepare("SELECT mlsnumber,status,expiredate from trans_board");
$aoasth->execute;
while (($mlsnumber,$status,$expiredate) = $aoasth->fetchrow_array()) {
$mlsnumber - $status - $expireddate
}
}
|