#!/usr/local/bin/perl

require '/httpd/cgi-bin/headfoot.pl';

if ($ENV{'SERVER_PORT'} eq "443") {      
   print "Location: http://www.flash.net/~domain/tools\n\n";
}

use Fcntl;
use DB_File;

read(STDIN,$in,$ENV{'CONTENT_LENGTH'});
@in = split(/&/,$in);
foreach $i (0 .. $#in) {
    $in[$i] =~ s/\+/ /g;
    ($key, $val) = split(/=/,$in[$i],2); 
    $key =~ s/%(..)/pack("c",hex($1))/ge;
    $val =~ s/%(..)/pack("c",hex($1))/ge;
    $in{$key} .= "\0" if (defined($in{$key}));
    $in{$key} .= $val;
    foreach (keys %in) {
 	 $in{$_} =~ tr/"/ /;
    }
}

$in{'domain'} =~ /(^.+)/;
$domain = $1;
$user = $in{'user'};

if ($domain) { &get_info; } elsif ($user) { &user; } else { &startup; }

########################################################################

sub print_header {
   print "Content-type: text/html \n\n";
   print "$header";
}

########################################################################

sub startup {

&print_header;

print <<_EOF_;
<form method=POST action=check_domain.cgi>
Use domainname.com, without the www.   ie. javahaus.com
<hr>
<input name=domain size=25> - Domain name to check on<br><br>
<input type=checkbox name=nslookup> - Include NSLookUp (this will take a little longer)
<br><br>
<input type=checkbox name=who_is> - Include WhoIs record (this will take a little longer)
<br><br>
<input type=submit value="Continue ->">
<br>
</form>
<form method=POST action=check_domain.cgi>
<hr>
<input name=user size=8 maxlength=8> - User name to check on<br><br>
<input type=submit value="Continue ->">
<br>
</form>
$footer
_EOF_
exit;
}

########################################################################


sub get_info {

&print_header;

print <<_EOF_;
<h1>$domain</h1>
<hr>
_EOF_
$db_file = "/home/httpd/conf/domains.db";
$db_obj = tie(%data, 'DB_File', $db_file, O_RDONLY, 0444) or print $!;
if (!$data{$domain}) {
   print "<h1>It is not in the httpd.conf</h1>";
} else {
   $h = $domain;
   ($rootdir,$serveraliases,$logging) = split(/\|\|/,$data{$h});
   $first = substr($h,0,1);
   $log_name = "${h}_log";
   $access_log = "/httpd/logs/domain_logs/$first/$log_name";  
   $serveralias = (split(' ',$serveraliases))[0];
   if ($h =~ /\d+\.\d+\.\d+\.\d+/) { $host = $serveralias; } else { $host = $h; }
   print "<table><tr><td>VirtualHost </td><tD>  $h</td></tr>";
   print "<tr><td>SeverAdmin </td><tD> webmaster\@$host</td></tr>";
   print "<tr><td>DocumentRoot </td><tD> $rootdir</td></tr>";
   print "<tr><td>ServerName </td><tD> $host</td></tr>";
   print "<tr><td>ServerAlias </td><tD> $serveraliases www.$serveralias</td></tr>";
   print "<tr><td>TransferLog </td><tD> ";
   if($logging eq "y"){
     print "$access_log";
   }else{
     print "n/a";
   }
   print "</td></tr>";
   print "<tr><td>ErrorLog </td><tD> /httpd/logs/error_log</td></tr></table>";
   if (! $rootdir) {
	print "<b>Sorry, that domain is not hosted by FlashNet Communications</b>\n\n";
   }
}
undef $db_obj;
untie(%data);


if ($in{'nslookup'}) {
   $nslookup = `/usr/sbin/nslookup $domain`;
	print "<pre>";
	print "<br><hr>\n<h3>NSLookUp</h3>\n";
	print "$nslookup";
	print "</pre>";
}
if ($in{'who_is'}) {
	print "<pre>";
	print "<br><hr>\n<h3>WhoIs Record</h3>\n";
	print `whois -h whois.crsnic.net $domain`;
	print "</pre>";
}

   print "</pre>";
   print "$footer";
   exit;
}

########################################################################

sub user {

&print_header;

print <<_EOF_;
<h1>$user</h1>
<hr>
_EOF_
$frst = substr($user,0,1);
$scnd = substr($user,1,1);
$rootdir = "/home/$frst/$scnd/$user/www";

$db_file = "/home/httpd/conf/domains.db";
$db_obj = tie(%data, 'DB_File', $db_file, O_RDONLY, 0444) or print $!;
for (keys %data) {
 if ($data{$_} =~ /$rootdir\/?/) {
   print "<h1>$_</h1>";
   $h = $domain = $_;
   ($rootdir,$serveraliases,$logging) = split(/\|\|/,$data{$h});
   $first = substr($h,0,1);
   $log_name = "${h}_log";
   $access_log = "/httpd/logs/domain_logs/$first/$log_name";  
   $serveralias = (split(' ',$serveraliases))[0];
   if ($h =~ /\d+\.\d+\.\d+\.\d+/) { $host = $serveralias; } else { $host = $h; }
   print "<table><tr><td>VirtualHost </td><tD>  $h</td></tr>";
   print "<tr><td>SeverAdmin </td><tD> webmaster\@$host</td></tr>";
   print "<tr><td>DocumentRoot </td><tD> $rootdir</td></tr>";
   print "<tr><td>ServerName </td><tD> $host</td></tr>";
   print "<tr><td>ServerAlias </td><tD> $serveraliases www.$serveralias</td></tr>";
   print "<tr><td>TransferLog </td><tD> ";
   if($logging eq "y"){
     print "$access_log";
   }else{
     print "n/a";
   }
   print "</td></tr>";
   print "<tr><td>ErrorLog </td><tD> logs/error_log</td></tr></table>";
 }
}
undef $db_obj;
untie(%data);
print "$footer";
exit;
}