|
Get information and help for your real estateThis website is here to provide you with information and websites about real estate. You can break down the info by category, then state and finally by city. This way local vendors and businesses can work with you and we can put you in touch with them.To start please click on a category below: realtor home house real estate |
real estate websites and articles. #!/usr/bin/perl use strict; use CGI qw/:standard/; use CGI::Carp qw/fatalsToBrowser/; require './db_sonic.lib'; use vars ('$dbh'); my $min = 2; my $max =4; # pick one OR the other my $textfile = 'articles.txt'; my $table = 'ChurnData'; $|++; print header(); my $sql = "select * from Churn_fm02 where referer = '$ENV{REQUEST_URI}'"; my $sth = doqry($sql); my ($n, $codeline); if (my $row = $sth->fetchrow_hashref()) { $row->{expires} =~ s/\D//g; my @d = (localtime())[0...5]; $d[4]++; $d[5] += 1900; my $now = sprintf("%04d%02d%02d%02d%02d%02d", reverse @d); if ($row->{expires} <= $now) { # get random # of days between spec'd min and max (inclusive) $n = getrandnum(); # get random codeline $codeline = getrandline(); # update table entry $sql = "update Churn_fm02 set expires = date_add(now(), interval $n day), codeline = ? where churnID = $row->{churnID}"; $sth = prepqry($sql); $sth->execute($codeline); print $codeline; } else { print $row->{codeline}; } } else { # get random # of days between spec'd min and max (inclusive) $n = getrandnum(); # get random codeline $codeline = getrandline(); # insert into table $sql = "insert into Churn_fm02 values(NULL, '$ENV{REQUEST_URI}', date_add(now(), interval $n day), ?)"; $sth = prepqry($sql); $sth->execute($codeline); print $codeline; } #-------------------------- sub getrandnum { #-------------------------- my @n = ($min .. $max); return $n[rand @n]; } #-------------------------- sub getrandline { #-------------------------- my (%hash, @hash_keys); if ($textfile && open(T, $textfile)) { my $count; while ( |