#!/usr/bin/perl
##############################################
##
## decido si parking o fw
##
##############################################
use CGI ;
use DBI;
$db = DBI->connect('DBI:mysql:database=dr:host=whois.dotregistrar.com:user=root:password=esd42j99') ;
my $cgi = new CGI ;
$dom = $ENV{HTTP_HOST} ;
if($dom =~ /www\.(.*)/) {
$dom = $1 ;
}
$url = "" ;
$s = 0 ;
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$month = (Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec)[$mon];
my $name = "PARKED_DOMAINS$mday$month$year";
my $name = "hits" ;
open FILE, ">>/var/log/httpd/$name" ;
print FILE "$dom\n";
close FILE;
$query = $db->prepare("select fwd.url,dmn.id from fwd,dmn where cod='$dom' and dmn.id=fwd.dmn");
$query->execute;
if (scalar $query->rows() > 0) {
my @url = $query->fetchrow_array ;
if($url[0] =~ /http:\/\/(.*)/) {
$url[0] = $1 ;
}
$url = "http://$url[0]" ;
print $cgi->header;
print "\n" ;
print "\n" ;
print "\n" ;
print "\n" ;
print "\n";
print "\n";
}
else {
$query2 = $db->prepare("select prk_url from dmn,pfl where cod='$dom' and dmn.crr_pfl=pfl.id and prk_url like 'http%'");
$query2->execute;
if (scalar $query2->rows() > 0) {
my @url = $query2->fetchrow_array ;
$url = "$url[0]" ;
print $cgi->header;
print "\n" ;
print "\n" ;
print "\n";
print "\n";
}
else {
$url = "http://$dom/parking.html" ;
print $cgi->redirect($url) ;
}
}