2.75: renew.cgi bug with .ca domains

[Gregory Neil Shapiro]

Renewals don't work properly for .ca domains in renew.cgi.  A fix:

Index: secure/renew.cgi
===================================================================
RCS file: /usr/local/src/cvsroot/www/retsiger.com/cgi-bin/secure/renew.cgi,v
retrieving revision 1.17
diff -u -r1.17 renew.cgi
--- secure/renew.cgi    22 Apr 2003 05:32:36 -0000      1.17
+++ secure/renew.cgi    31 May 2003 16:59:30 -0000
@@ -311,8 +311,16 @@
                        last PROCESS;
                }
 
-               $HTML{step1_owner} = 
$domain_info->{attributes}{contact_set}{owner}{email};
-               $HTML{step1_first_name} = 
$domain_info->{attributes}{contact_set}{owner}{first_name};
+               # .ca doesn't have owner email; use admin instead.
+               if ( $reg_domain =~ /\.ca$/i ) {
+                   $HTML{step1_owner} = 
$domain_info->{attributes}{contact_set}{admin}{email};
+                   $HTML{step1_first_name} = 
$domain_info->{attributes}{contact_set}{admin}{first_name};
+               }
+               else {
+                   $HTML{step1_owner} = 
$domain_info->{attributes}{contact_set}{owner}{email};
+                   $HTML{step1_first_name} = 
$domain_info->{attributes}{contact_set}{owner}{first_name};
+               }
+
                $HTML{step1_res} = "<font color=green>Success!</font>";
                $HTML{step1_expiredate} = $domain_info->{attributes}{ expiredate };
                $HTML{step1_auto_renew} = $domain_info->{attributes}{ auto_renew };