#!/usr/bin/perl
#------------------------------------------------------------------------------#
#
# Author: Eric Taylor
# Created: 17/12/2001
# Source: /usr/home/etaylor/POW.cgi
# Description: example residential property of week for graphics
# Notes: 1) SPE.pm must be saved in the same directory as this file
# 2) this file must be executable
# 3) more documentation is available at:
# http://spe.realestate.com.au/ username:guest password:guessed
#
#------------------------ realestate.com.au (c) 2001 --------------------------#
use lib ".";
use SPE;
use strict;
# directory you create to store cache information in cgi-bin
my $CacheDirectory = "./cache";
# do not change this line
SPE::UseCache($CacheDirectory) if ($CacheDirectory);
# agent code from admin system
my $AgentID = "MFFGLE";
# agent state from admin system (use "aus" if in more than one state)
my $AgentState = "vic";
# custom search code
my $AgentCustomCode = "MFFGLE";
# SPE password (get from programmer when access is set up)
my $Password = "m31br3a1";
# type of property, usually "res", or "ren"
my $PropertyType = "res";
# approximate number of characters in description
my $DescriptionLength = "170";
# size of image (Small=121x80, Medium=429x286, Large=724x482)
my $ImageSize = "Medium";
# image to use if property does not have one
my $NoImageAvailable = "/img/noimage.gif";
# use SPE::FeatureProp for properties set in admin system,
# or use SPE::RandomProp for a random property
my %prop = SPE::FeatureProp($AgentID, $Password, $PropertyType);
my $counter = 0;
while (($prop{'Sold'} > 0) && ($counter < 10)) {
my %prop = SPE::FeatureProp($AgentID, $Password, $PropertyType);
$counter++;
}
# do not change these lines
my $href = "$SPE::REAcgi?a=o&t=$PropertyType&id=$prop{'PropID'}&s=$AgentState&ag=$AgentID&cu=$AgentCustomCode";
my ($main) = split(/ /, $prop{$ImageSize.'Images'});
my $img = ($main) ? $SPE::REAimg.$main : $NoImageAvailable;
my $desc = SPE::Abbreviate($prop{'Description'}, $DescriptionLength, 1);
my $title = $prop{'Title'};
my $suburb = $prop{'Suburb'};
my $address = $prop{'Address'};
# print HTML after "Content-type" below, leaving the first line blank
print <<__END_PRINT__;
Content-type: text/html
 |
$suburb $desc |
__END_PRINT__
|
#!/usr/bin/perl
#------------------------------------------------------------------------------#
#
# Author: Eric Taylor
# Created: 17/12/2001
# Source: /usr/home/etaylor/POW.cgi
# Description: example residential property of week for graphics
# Notes: 1) SPE.pm must be saved in the same directory as this file
# 2) this file must be executable
# 3) more documentation is available at:
# http://spe.realestate.com.au/ username:guest password:guessed
#
#------------------------ realestate.com.au (c) 2001 --------------------------#
use lib ".";
use SPE;
use strict;
# directory you create to store cache information in cgi-bin
my $CacheDirectory = "./cache";
# do not change this line
SPE::UseCache($CacheDirectory) if ($CacheDirectory);
# agent code from admin system
my $AgentID = "MFFGLE";
# agent state from admin system (use "aus" if in more than one state)
my $AgentState = "vic";
# custom search code
my $AgentCustomCode = "MFFGLE";
# SPE password (get from programmer when access is set up)
my $Password = "m31br3a1";
# type of property, usually "res", or "ren"
my $PropertyType = "ren";
# approximate number of characters in description
my $DescriptionLength = "170";
# size of image (Small=121x80, Medium=429x286, Large=724x482)
my $ImageSize = "Medium";
# image to use if property does not have one
my $NoImageAvailable = "/img/noimage.gif";
# use SPE::FeatureProp for properties set in admin system,
# or use SPE::RandomProp for a random property
my %prop = SPE::FeatureProp($AgentID, $Password, $PropertyType);
my $counter = 0;
while (($prop{'Sold'} > 0) && ($counter < 10)) {
my %prop = SPE::FeatureProp($AgentID, $Password, $PropertyType);
$counter++;
}
# do not change these lines
my $href = "$SPE::REAcgi?a=o&t=$PropertyType&id=$prop{'PropID'}&s=$AgentState&ag=$AgentID&cu=$AgentCustomCode";
my ($main) = split(/ /, $prop{$ImageSize.'Images'});
my $img = ($main) ? $SPE::REAimg.$main : $NoImageAvailable;
my $desc = SPE::Abbreviate($prop{'Description'}, $DescriptionLength, 1);
my $title = $prop{'Title'};
my $suburb = $prop{'Suburb'};
my $address = $prop{'Address'};
# print HTML after "Content-type" below, leaving the first line blank
print <<__END_PRINT__;
Content-type: text/html
|
$suburb $desc |
__END_PRINT__
|
#!/usr/bin/perl
#------------------------------------------------------------------------------#
#
# Author: Eric Taylor
# Created: 17/12/2001
# Source: /usr/home/etaylor/POW.cgi
# Description: example residential property of week for graphics
# Notes: 1) SPE.pm must be saved in the same directory as this file
# 2) this file must be executable
# 3) more documentation is available at:
# http://spe.realestate.com.au/ username:guest password:guessed
#
#------------------------ realestate.com.au (c) 2001 --------------------------#
use lib ".";
use SPE;
use strict;
# directory you create to store cache information in cgi-bin
my $CacheDirectory = "./cache";
# do not change this line
SPE::UseCache($CacheDirectory) if ($CacheDirectory);
# agent code from admin system
my $AgentID = "MFFGLE";
# agent state from admin system (use "aus" if in more than one state)
my $AgentState = "vic";
# custom search code
my $AgentCustomCode = "MFFGLE";
# SPE password (get from programmer when access is set up)
my $Password = "m31br3a1";
# type of property, usually "res", or "ren"
my $PropertyType = "res";
# approximate number of characters in description
my $DescriptionLength = "170";
# size of image (Small=121x80, Medium=429x286, Large=724x482)
my $ImageSize = "Medium";
# image to use if property does not have one
my $NoImageAvailable = "/img/noimage.gif";
# use SPE::FeatureProp for properties set in admin system,
# or use SPE::RandomProp for a random property
#my %prop = SPE::FeatureProp($AgentID, $Password, $PropertyType);
my %prop = SPE::RandomProp($AgentID, $Password, $PropertyType, '', 'Sold = 0');
my $counter = 0;
while (($prop{'Sold'} > 0) && ($counter < 10)) {
my %prop = SPE::RandomProp($AgentID, $Password, $PropertyType);
$counter++;
}
# do not change these lines
my $href = "$SPE::REAcgi?a=o&t=$PropertyType&id=$prop{'PropID'}&s=$AgentState&ag=$AgentID&cu=$AgentCustomCode";
my ($main) = split(/ /, $prop{$ImageSize.'Images'});
my $img = ($main) ? $SPE::REAimg.$main : $NoImageAvailable;
my $desc = SPE::Abbreviate($prop{'Description'}, $DescriptionLength, 1);
my $title = $prop{'Title'};
my $suburb = $prop{'Suburb'};
my $address = $prop{'Address'};
# print HTML after "Content-type" below, leaving the first line blank
print <<__END_PRINT__;
Content-type: text/html
|
$suburb $desc |
__END_PRINT__
|
