Hello John,
Good job, but... There is more than one way to write
something in Perl :)
Here what i did.
New price.conf file was created with hash like this
%one_domain_price = (
com => 10,
uk => 16,
whateverelse => 100,
);
Before "thank_you" you can parse domain names
to find tld of each and add current prices.
And small routine to calculate "total".
That was written for support of different currencies
in automatic mode (exchange rates downloaded directly from
bank's server and stored in price.conf), but must work
for different TLDs too.
All this work if you don't need to display price somewhere
in process of ordering.
Regards
Sergei
