#!/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;

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

$db_file = "/httpd/conf/domains.db";
$db_obj = tie(%data, 'DB_File', $db_file, O_RDONLY, 0444) or print $!;

while(($key,$value) = each %data) {
   # hrfs.com -> /home/r/h/rhr1000/www/||hrfs.com||n
   ($rootdir,$aliases,$logging) = split(/\|\|/, $value, 2);
   if (!&check_rootdir($rootdir)) {
      print "$key failed rootdir check: $rootdir doesn't exist.\n";
   }
}

undef $db_obj;
untie(%data);
exit;

sub check_rootdir {
   local($rootdir) = $_[0];
   if ( -e $rootdir ) {
      return(1);
   } else {
      return(0);
   }
}