Add new countries to match the mirror list

1 files changed, 39 insertions, 4 deletions

diff --git a/perl-install/crypto.pm b/perl-install/crypto.pm
index 2c1045d79..033a87fc6 100644
--- a/perl-install/crypto.pm
+++ b/perl-install/crypto.pm
@@ -12,35 +12,70 @@ use ftp;
 
 %url2land = (
 	     at => N("Austria"),
+	     au => N("Australia"),
 	     be => N("Belgium"),
+	     br => N("Brazil"),
+	     ca => N("Canada"),
 	     ch => N("Switzerland"),
 	     cr => N("Costa Rica"),
 	     cz => N("Czech Republic"),
 	     de => N("Germany"),
+	     dk => N("Denmark"),
+	     ee => N("Estonia"),
+	     es => N("Spain"),
+	     fi => N("Finland"),
 	     fr => N("France"),
 	     gr => N("Greece"),
 	     hu => N("Hungary"),
+	     ie => N("Ireland"),
+	     il => N("Israel"),
 	     it => N("Italy"),
+	     jp => N("Japan"),
 	     nl => N("Netherlands"),
 	     no => N("Norway"),
+	     nz => N("New Zealand"),
 	     pl => N("Poland"),
+	     pt => N("Portugal"),
+	     ru => N("Russia"),
 	     se => N("Sweden"),
 	     sk => N("Slovakia"),
+	     th => N("Thailand"),
 	     tw => N("Taiwan"),
+	     za => N("South Africa"),
 	    );
 
 %land2tzs = (
-	     N("France") => [ 'Europe/Paris', 'Europe/Brussels', 'Europe/Berlin' ],
+	     N("Australia") => [ 'Australia/Sydney' ],
+	     N("Austria") => [ 'Europe/Vienna', 'Europe/Brussels', 'Europe/Berlin' ],
 	     N("Belgium") => [ 'Europe/Brussels', 'Europe/Paris', 'Europe/Berlin' ],
+	     N("Brazil") => [ 'Brazil/East' ],
+	     N("Canada") => [ 'Canada/Atlantic', 'Canada/Eastern' ],
 	     N("Czech Republic") => [ 'Europe/Prague', 'Europe/Berlin' ],
+	     N("Denmark") => [ 'Europe/Copenhagen', 'Europe/Berlin' ],
+	     N("Estonia") => [ 'Europe/Tallinn', 'Europe/Helsinki' ],
+	     N("Finland") => [ 'Europe/Helsinki', 'Europe/Tallinn' ],
+	     N("France") => [ 'Europe/Paris', 'Europe/Brussels', 'Europe/Berlin' ],
 	     N("Germany") => [ 'Europe/Berlin', 'Europe/Prague' ],
 	     N("Greece") => [ 'Europe/Athens', 'Europe/Prague' ],
+	     N("Hungary") => [ 'Europe/Budapest' ],
+	     N("Ireland") => [ 'Europe/Dublin', 'Europe/London' ],
+	     N("Israel") => [ 'Asia/Tel_Aviv' ],
+	     N("Italy") => [ 'Europe/Rome', 'Europe/Brussels', 'Europe/Paris' ],
+	     N("Japan") => [ 'Asia/Tokyo', 'Asia/Seoul' ],
+	     N("Netherlands") => [ 'Europe/Amsterdam', 'Europe/Brussels', 'Europe/Berlin' ],
+	     N("New Zealand") => [ 'Pacific/Auckland' ],
 	     N("Norway") => [ 'Europe/Oslo', 'Europe/Stockholm' ],
+	     N("Poland") => [ 'Europe/Warsaw' ],
+	     N("Portugal") => [ 'Europe/Lisbon', 'Europe/Madrid' ],
+	     N("Russia") => [ 'Europe/Moscow', ],
+	     N("Slovakia") => [ 'Europe/Bratislava' ],
+	     N("South Africa") => [ 'Africa/Johannesburg' ],
+	     N("Spain") => [ 'Europe/Madrid', 'Europe/Lisbon' ],
 	     N("Sweden") => [ 'Europe/Stockholm', 'Europe/Oslo' ],
+	     N("Switzerland") => [ 'Europe/Zurich', 'Europe/Berlin', 'Europe/Brussels' ],
+	     N("Taiwan") => [ 'Asia/Taipei', 'Asia/Seoul' ],
+	     N("Thailand") => [ 'Asia/Bangkok', 'Asia/Seoul' ],
 	     N("United States") => [ 'America/New_York', 'Canada/Atlantic', 'Asia/Tokyo', 'Australia/Sydney', 'Europe/Paris' ],
-	     N("Netherlands") => [ 'Europe/Amsterdam', 'Europe/Brussels', 'Europe/Berlin' ],
-	     N("Italy") => [ 'Europe/Rome', 'Europe/Brussels', 'Europe/Paris' ],
-	     N("Austria") => [ 'Europe/Vienna', 'Europe/Brussels', 'Europe/Berlin' ],
 	    );
 
 %static_mirrors = (