#!/usr/local/bin/perl5

open (FILE,"/web/motp/html/shared/hendrick_int/domains.txt");
$dealer_domain="";
while (<FILE>){
    chomp;
    ($web_id,$domain)=split(/\t/);
    $path=`pwd`;
    chomp($path);
    if ($path=~/$web_id/){
	$dealer_domain=$domain;
	last;
    }
}
close(FILE);
if ($dealer_domain ne ""){
    print "<a href=$dealer_domain><img src=/shared/hendrick_int/images/dealer_link.gif border=0></a>\n";
}
else{
    print "<br>";
    }
1;