#!/usr/local/bin/perl -- -*- C -*-

#perl routines to manage a client database
#
#can report Email addresses (as an HTML link), Return links (to a home page), etc.
#

sub CL_email {
 local($client,$data);
 $client = @_[0];
 open(CLIENTDB, "client.db") || die "Can't open Client Database: $!\n";

 while (<CLIENTDB>) {
  ($tag,$email,$http) = split(/::/, $_);
  $data = $email if ($tag eq $client);
 }
 close CLIENTDB;
 $data =~ s/\n//;
 if ($data ne "") { return $data; } else { return "webmaster\@mtgloan.com";}
}

sub CL_http {
 local($client,$data);
 $client = @_[0];
 open(CLIENTDB, "client.db") || die "Can't open Client Database: $!\n";

 while (<CLIENTDB>) {
  ($tag,$email,$http) = split(/::/, $_);
  $data = $http if ($tag eq $client);
 }
 close CLIENTDB;
 $data =~ s/\n//;
 if ($data ne "") { return $data; } else { return "http://www.mtgloan.com/abcmortgage"; }
 
}

1; #return true

#database format:

#abcmortgage::abcmortgage@mtgloan.com::http://www.mtgloan.com/abcmortgage/