diff options
| author | Francois Pons <fpons@mandriva.com> | 2002-08-07 14:33:28 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2002-08-07 14:33:28 +0000 |
| commit | 17f759c0d3a44c7e2b709c8bed27705bfe594939 (patch) | |
| tree | ef07a90c93b893f13622dc972bbd8fe13ae53ab1 | |
| parent | 7035a4a50596f24acfbaf7da10a79a7baf0df07f (diff) | |
| download | drakx-backup-do-not-use-17f759c0d3a44c7e2b709c8bed27705bfe594939.tar drakx-backup-do-not-use-17f759c0d3a44c7e2b709c8bed27705bfe594939.tar.gz drakx-backup-do-not-use-17f759c0d3a44c7e2b709c8bed27705bfe594939.tar.bz2 drakx-backup-do-not-use-17f759c0d3a44c7e2b709c8bed27705bfe594939.tar.xz drakx-backup-do-not-use-17f759c0d3a44c7e2b709c8bed27705bfe594939.zip | |
allow patching of mirror used.
| -rw-r--r-- | perl-install/crypto.pm | 78 |
1 files changed, 36 insertions, 42 deletions
diff --git a/perl-install/crypto.pm b/perl-install/crypto.pm index 06c8db3e6..952218f13 100644 --- a/perl-install/crypto.pm +++ b/perl-install/crypto.pm @@ -3,54 +3,48 @@ package crypto; # $Id$ use diagnostics; use strict; +use vars qw(%url2land %land2tzs %static_mirrors %mirrors); + use MDK::Common::System; use common; use log; use ftp; -my %url2land = ( - fr => _("France"), - cr => _("Costa Rica"), - be => _("Belgium"), - cz => _("Czech Republic"), - de => _("Germany"), - gr => _("Greece"), - no => _("Norway"), - se => _("Sweden"), - nl => _("Netherlands"), - it => _("Italy"), - at => _("Austria"), - ); - -my %land2tzs = ( - _("France") => [ 'Europe/Paris', 'Europe/Brussels', 'Europe/Berlin' ], - _("Belgium") => [ 'Europe/Brussels', 'Europe/Paris', 'Europe/Berlin' ], - _("Czech Republic") => [ 'Europe/Prague', 'Europe/Berlin' ], - _("Germany") => [ 'Europe/Berlin', 'Europe/Prague' ], - _("Greece") => [ 'Europe/Athens', 'Europe/Prague' ], - _("Norway") => [ 'Europe/Oslo', 'Europe/Stockholm' ], - _("Sweden") => [ 'Europe/Stockholm', 'Europe/Oslo' ], - _("United States") => [ 'America/New_York', 'Canada/Atlantic', 'Asia/Tokyo', 'Australia/Sydney', 'Europe/Paris' ], - _("Netherlands") => [ 'Europe/Amsterdam', 'Europe/Brussels', 'Europe/Berlin' ], - _("Italy") => [ 'Europe/Rome', 'Europe/Brussels', 'Europe/Paris' ], - _("Austria") => [ 'Europe/Vienna', 'Europe/Brussels', 'Europe/Berlin' ], - ); - -my %static_mirrors = ( -# "ackbar" => [ "Ackbar", "/updates", "a", "a" ], - ); - -my %mirrors; - -my %deps = ( - 'libcrypto.so.0' => 'openssl', - 'libssl.so.0' => 'openssl', - 'mod_sxnet.so' => 'mod_ssl-sxnet', -); - -sub require2package { $deps{$_[0]} || $_[0] } -sub mirror2text { $mirrors{$_[0]} && ($mirrors{$_[0]}[0] . '|' . $_[0]) } +%url2land = ( + fr => _("France"), + cr => _("Costa Rica"), + be => _("Belgium"), + cz => _("Czech Republic"), + de => _("Germany"), + gr => _("Greece"), + no => _("Norway"), + se => _("Sweden"), + nl => _("Netherlands"), + it => _("Italy"), + at => _("Austria"), + ); + +%land2tzs = ( + _("France") => [ 'Europe/Paris', 'Europe/Brussels', 'Europe/Berlin' ], + _("Belgium") => [ 'Europe/Brussels', 'Europe/Paris', 'Europe/Berlin' ], + _("Czech Republic") => [ 'Europe/Prague', 'Europe/Berlin' ], + _("Germany") => [ 'Europe/Berlin', 'Europe/Prague' ], + _("Greece") => [ 'Europe/Athens', 'Europe/Prague' ], + _("Norway") => [ 'Europe/Oslo', 'Europe/Stockholm' ], + _("Sweden") => [ 'Europe/Stockholm', 'Europe/Oslo' ], + _("United States") => [ 'America/New_York', 'Canada/Atlantic', 'Asia/Tokyo', 'Australia/Sydney', 'Europe/Paris' ], + _("Netherlands") => [ 'Europe/Amsterdam', 'Europe/Brussels', 'Europe/Berlin' ], + _("Italy") => [ 'Europe/Rome', 'Europe/Brussels', 'Europe/Paris' ], + _("Austria") => [ 'Europe/Vienna', 'Europe/Brussels', 'Europe/Berlin' ], + ); + +%static_mirrors = ( +# "ackbar" => [ "Ackbar", "/updates", "a", "a" ], + ); + +%mirrors = (); +sub mirror2text { $mirrors{$_[0]} && ($mirrors{$_[0]}[0] . '|' . $_[0]) } sub mirrors { unless (keys %mirrors) { #- contact the following URL to retrieve list of mirror. |