#!/usr/bin/perl

chdir('/WWW/vhosts') || die("Couldn't chdir!");

my @dom = `/WWW/web/GetDave.com/Domains/domains -dir -all -local`;
chomp(@dom);

foreach ( @dom ) {
  my ($domain,$dir) = split(/\t/);
  next if $domain =~ /\..*\./;  # Ignore subdomains
  my $a = lc($domain);
  print "$dir->$a\n";
  system("rm -f $a");
  system("ln -s $dir $a");
}