summaryrefslogtreecommitdiffstats
path: root/perl-install/crypto.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2002-08-07 14:33:28 +0000
committerFrancois Pons <fpons@mandriva.com>2002-08-07 14:33:28 +0000
commit17f759c0d3a44c7e2b709c8bed27705bfe594939 (patch)
treeef07a90c93b893f13622dc972bbd8fe13ae53ab1 /perl-install/crypto.pm
parent7035a4a50596f24acfbaf7da10a79a7baf0df07f (diff)
downloaddrakx-17f759c0d3a44c7e2b709c8bed27705bfe594939.tar
drakx-17f759c0d3a44c7e2b709c8bed27705bfe594939.tar.gz
drakx-17f759c0d3a44c7e2b709c8bed27705bfe594939.tar.bz2
drakx-17f759c0d3a44c7e2b709c8bed27705bfe594939.tar.xz
drakx-17f759c0d3a44c7e2b709c8bed27705bfe594939.zip
allow patching of mirror used.
Diffstat (limited to 'perl-install/crypto.pm')
-rw-r--r--perl-install/crypto.pm78
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.