#!/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;
$domain =~ s/ //g;

$user = $in{'user'};
$logging = $in{'logging'};
$logging = "n" unless $logging;

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

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

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

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

sub startup {
   &print_header;
   print <<_EOF_;
<form method=POST action=add_domain.cgi>
Use domainname.com, without the www.   ie. javahaus.com
<hr>
<input name=domain size=26> - Domain name to <b>Add</b>
<br><br>
<input name=user size=8 maxlength=12> - User Name to associate the Domain with
<br><br>
<input name=logging type=checkbox value=y> - Enable Logging<br><br>
<input type=submit value="Continue -&gt;">

<br>
</form>

$footer

_EOF_

   exit;
}

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


sub get_info {

   &print_header;

   $nslookup = `/usr/sbin/nslookup $domain`;
   unless ($nslookup =~ /209\.30\.0\.12/) {
   print <<_EOF_;
<h1>$domain</h1>
<hr>
This domain does not appear to be hosted by FlashNet and therefore will not
be added to the DB.
<pre>
$nslookup
</pre>
_EOF_
&printfooter;
}

unless ($user =~ /^\w{3}/) {
  print <<_EOF_;
<h1>$domain</h1>
<hr>
HEY!!!!  We have to know where to point the damn thing....  Go back and try
again....
_EOF_
&printfooter;
}

$frst = substr($user,0,1);
$scnd = substr($user,1,1);

unless (-e "/home/$frst/$scnd/$user/www/") {
  print <<_EOF_;
<h1>$domain</h1>
<hr>
Sorry, can't do it.... I do not show that the user directory<br>
/home/$frst/$scnd/$user/www<br>
actually exists, therefore I will not add the domain....  Try running FART
and then readding it, if that is the right username.
_EOF_
&printfooter;
}



print <<_EOF_;
<h1>$domain</h1>
<hr>

_EOF_
$db_file = "/home/httpd/conf/domains.db";
$db_obj = tie(%data, 'DB_File', $db_file, O_RDWR, 0666) or print $!;

if ($data{$domain}) {
  print "I show that the domain, <b>$domain</b>, already exists on our server.";
  print "If you need to make a change, go there...";

} else {
  print "OK, looks like you have a good one....";
  print " I have added the domain with the following info, if it isn't correct";
  print " try the Change Domain link.";
  $h = $domain;
  $host;
  $rootdir = "/home/$frst/$scnd/$user/www/";
  $serveraliases = $domain;
  $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>";
  $data{$domain} = "$rootdir||$domain||$logging";
  print "$domain=$rootdir||$domain||$logging";
  #mod by Jeremy to write to mail2.allow 6/29/98
  open(MAIL2LIST,">>/usr/local/etc/httpd/cgi-bin/mail2.list") or print "<br><br><br><br><br>$!<br>";
   print MAIL2LIST "$domain\n";
  close(MAIL2LIST);

}

undef $db_obj;
untie(%data);

&printfooter;
}


sub printfooter {
   print "$footer";
   exit;
}

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