#!/usr/bin/perl -w

########################################
##  Author: Chris Pearson             ##
##  Copyright Chris Pearson (c) 2011  ##
##  BWPH - For Sale                   ##
########################################
 
use CGI qw (:standard);
use CGI::Carp qw(fatalsToBrowser);
use Time::Local;
use DBI;

require './../../../data/bwph/bwph.cfg';

$q = new CGI;

print $q->header;

print $q->start_html(-dtd=>'-//W3C//DTD HTML 4.01 Transitional//EN',
                     -bgcolor=>"#000000");

&do_bwph();

print $q->end_html();

exit;

#=============================================================================
sub do_bwph() {

print <<HTML;
  <link rel="stylesheet" type="text/css" href="$css/xbwph.css">
  <script type="text/javascript">
    if (top.location==self.location) {
      top.location="http://www.upland.co.uk/bwph2/For-Sale.html"
    }
  </script>
  <script language="javascript" type="text/javascript" src="$wpjs/jspngfix.js" ></script>
  <div id="USL-forsale-Empty">
Please contact the office for details.
  </div>
HTML

}

#=============================================================================