#!/usr/local/bin/perl

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

if ($ENV{'SERVER_PORT'} eq "443") {      
   print "Location: http://www.flash.net/~domain/tools/index.cgi\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>
<hr>
<form method=post action="http://pop.flash.net/cgi-bin/email_alias_domain.cgi">
<input name=domain size=25> - Check email aliases on this domain<br><br>
<input type=submit value="Continue ->">
</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 ->">
</form>
$footer
_EOF_
   exit;
}

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


sub get_info {

   &print_header;
   print "<h1>$domain</h1>\n<hr>\n";

   $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.comf</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> 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'}) {
	print "<pre>";
	print "<br><hr>\n<h3>NSLookUp</h3>\n";
	print `/usr/sbin/nslookup $domain`;
	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 = "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;
}

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