summaryrefslogtreecommitdiffstats
path: root/perl-install/timezone.pm
blob: 6515c041aff06d0be71716c8a8c010f3864b9844 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
package timezone; # $Id$

use diagnostics;
use strict;

use common;
use log;


sub getTimeZones() {
    my $prefix = $::testing ? '' : $::prefix;
    open(my $F, "cd $prefix/usr/share/zoneinfo && find [A-Z]* -type f |");
    my @l = difference2([ chomp_(<$F>) ], [ 'ROC', 'PRC' ]);
    close $F or die "cannot list the available zoneinfos";
    sort @l;
}

sub read() {
    my %t = getVarsFromSh("$::prefix/etc/sysconfig/clock") or return {};
    { timezone => $t{ZONE}, UTC => text2bool($t{UTC}) };
}

sub ntp_server {
    my $setting = @_ >= 1;
    my ($server) = @_;

    my $f = "$::prefix/etc/ntp.conf";
    -e $f or return;

    if ($setting) {
	my $added = 0;
	substInFile {
	    if (/^#?\s*server\s+(\S*)/ && $1 ne '127.127.1.0') {
		$_ = $added ? "#server $1\n" : "server $server\n";
		$added = 1;
	    }
	} $f;
	output_p("$::prefix/etc/ntp/step-tickers", "$server\n");
    } else {
	$server = find { $_ ne '127.127.1.0' } map { if_(/^\s*server\s+(\S*)/, $1) } cat_($f);
    }
    $server;
}

sub write {
    my ($t) = @_;

    ntp_server($t->{ntp});

    eval { cp_af("$::prefix/usr/share/zoneinfo/$t->{timezone}", "$::prefix/etc/localtime") };
    $@ and log::l("installing /etc/localtime failed");
    setVarsInSh("$::prefix/etc/sysconfig/clock", {
	ZONE => $t->{timezone},
	UTC  => bool2text($t->{UTC}),
	ARC  => "false",
    });
}

#- best guesses for a given country
my %c2t = (
'AM' => 'Asia/Yerevan',
'AR' => 'America/Buenos_Aires',
'AT' => 'Europe/Vienna',
'AU' => 'Australia/Sydney',
'BA' => 'Europe/Sarajevo',
'BE' => 'Europe/Brussels',
'BG' => 'Europe/Sofia',
'BR' => 'Brazil/East', #- most people live on the east coast
'BY' => 'Europe/Minsk',
'CA' => 'Canada/Eastern',
'CH' => 'Europe/Zurich',
'CN' => 'Asia/Beijing',
'CZ' => 'Europe/Prague',
'DE' => 'Europe/Berlin',
'DK' => 'Europe/Copenhagen',
'EE' => 'Europe/Tallinn',
'ES' => 'Europe/Madrid',
'FI' => 'Europe/Helsinki',
'FR' => 'Europe/Paris',
'GB' => 'Europe/London',
'GE' => 'Asia/Yerevan',
'GL' => 'Arctic/Longyearbyen',
'GR' => 'Europe/Athens',
'HR' => 'Europe/Zagreb',
'HU' => 'Europe/Budapest',
'ID' => 'Asia/Jakarta',
'IE' => 'Europe/Dublin',
'IL' => 'Asia/Tel_Aviv',
'IN' => 'Asia/Calcutta',
'IR' => 'Asia/Tehran',
'IS' => 'Atlantic/Reykjavik',
'IT' => 'Europe/Rome',
'JP' => 'Asia/Tokyo',
'KR' => 'Asia/Seoul',
'LT' => 'Europe/Vilnius',
'LV' => 'Europe/Riga',
'MK' => 'Europe/Skopje',
'MT' => 'Europe/Malta',
'MX' => 'America/Mexico_City',
'MY' => 'Asia/Kuala_Lumpur',
'NL' => 'Europe/Amsterdam',
'NO' => 'Europe/Oslo',
'NZ' => 'Pacific/Auckland',
'PL' => 'Europe/Warsaw',
'PT' => 'Europe/Lisbon',
'RO' => 'Europe/Bucharest',
'RU' => 'Europe/Moscow',
'SE' => 'Europe/Stockholm',
'SI' => 'Europe/Ljubljana',
'SK' => 'Europe/Bratislava',
'TH' => 'Asia/Bangkok',
'TJ' => 'Asia/Dushanbe',
'TR' => 'Europe/Istanbul',
'TW' => 'Asia/Taipei',
'UA' => 'Europe/Kiev',
'US' => 'America/New_York',
'UZ' => 'Asia/Tashkent',
'VN' => 'Asia/Saigon',
'YU' => 'Europe/Belgrade',
'ZA' => 'Africa/Johannesburg',
);

sub fuzzyChoice { 
    my ($b, $count) = bestMatchSentence($_[0], keys %c2t);
    $count ? $b : '';
}
sub bestTimezone { $c2t{fuzzyChoice($_[0])} || 'GMT' }

sub ntp_servers() { 
    +{
	'time.sinectis.com.ar' => 'Argentina',
	'tick.nap.com.ar' => 'Argentina',
	'tock.nap.com.ar' => 'Argentina',
	'ntp.adelaide.edu.au' => 'Australia',
	'ntp.saard.net' => 'Australia',
	'ntp1.belbone.be' => 'Belgium',
	'ntp2.belbone.be' => 'Belgium',
	'ntp.cpsc.ucalgary.ca' => 'Canada',
	'ntp1.cmc.ec.gc.ca' => 'Canada',
	'ntp2.cmc.ec.gc.ca' => 'Canada',
	'time.chu.nrc.ca' => 'Canada',
	'time.nrc.ca' => 'Canada',
	'timelord.uregina.ca' => 'Canada',
	'ntp.globe.cz' => 'Czech republic',
	'ntp.karpo.cz' => 'Czech republic',
	'ntp1.contactel.cz' => 'Czech republic',
	'ntp2.contactel.cz' => 'Czech republic',
	'clock.netcetera.dk' => 'Denmark',
	'clock2.netcetera.dk' => 'Denmark',
	'slug.ctv.es' => 'Spain',
	'tick.keso.fi' => 'Finland',
	'tock.keso.fi' => 'Finland',
	'ntp.ndsoftwarenet.com' => 'France',
	'ntp.obspm.fr' => 'France',
	'ntp.tuxfamily.net' => 'France',
	'ntp1.tuxfamily.net' => 'France',
	'ntp2.tuxfamily.net' => 'France',
	'ntp.univ-lyon1.fr' => 'France',
	'zg1.ntp.carnet.hr' => 'Croatia',
	'zg2.ntp.carnet.hr' => 'Croatia',
	'st.ntp.carnet.hr' => 'Croatia',
	'ri.ntp.carnet.hr' => 'Croatia',
	'os.ntp.carnet.hr' => 'Croatia',
	'ntp.incaf.net' => 'Indonesia',
	'ntp.maths.tcd.ie' => 'Ireland',
	'time.ien.it' => 'Italy',
	'ntps.net4u.it' => 'Italy',
	'ntp.cyber-fleet.net' => 'Japan',
	'time.nuri.net' => 'Korea, republic of',
	'ntp2a.audiotel.com.mx' => 'Mexico',
	'ntp2b.audiotel.com.mx' => 'Mexico',
	'ntp2c.audiotel.com.mx' => 'Mexico',
	'ntp.doubleukay.com' => 'Malaysia',
	'ntp1.theinternetone.net' => 'Netherlands',
	'ntp2.theinternetone.net' => 'Netherlands',
	'ntp3.theinternetone.net' => 'Netherlands',
	'fartein.ifi.uio.no' => 'Norway',
	'info.cyf-kr.edu.pl' => 'Poland',
	'ntp.ip.ro' => 'Romania',
	'ntp.psn.ru' => 'Russia',
	'time.flygplats.net' => 'Sweden',
	'ntp.shim.org' => 'Singapore',
	'biofiz.mf.uni-lj.si' => 'Slovenia',
	'time.ijs.si' => 'Slovenia',
	'time.ijs.si' => 'Slovenia',
	'clock.cimat.ues.edu.sv' => 'El salvador',
	'a.ntp.alphazed.net' => 'United kingdom',
	'bear.zoo.bt.co.uk' => 'United kingdom',
	'ntp.cis.strath.ac.uk' => 'United kingdom',
	'ntp2a.mcc.ac.uk' => 'United kingdom',
	'ntp2b.mcc.ac.uk' => 'United kingdom',
	'ntp2c.mcc.ac.uk' => 'United kingdom',
	'ntp2d.mcc.ac.uk' => 'United kingdom',
	'tick.tanac.net' => 'United kingdom',
	'time-server.ndo.com' => 'United kingdom',
	'sushi.compsci.lyon.edu' => 'United states AR',
	'ntp.drydog.com' => 'United states AZ',
	'clock.fmt.he.net' => 'United states CA',
	'clock.sjc.he.net' => 'United states CA',
	'ntp.ucsd.edu' => 'United states CA',
	'ntp1.sf-bay.org' => 'United states CA',
	'ntp2.sf-bay.org' => 'United states CA',
	'time.berkeley.netdot.net' => 'United states CA',
	'ntp1.linuxmedialabs.com' => 'United states CO',
	'ntp1.tummy.com' => 'United states CO',
	'louie.udel.edu' => 'United states DE',
	'rolex.usg.edu' => 'United states GA',
	'timex.usg.edu' => 'United states GA',
	'ntp-0.cso.uiuc.edu' => 'United states IL',
	'ntp-1.cso.uiuc.edu' => 'United states IL',
	'ntp-1.mcs.anl.gov' => 'United states IL',
	'ntp-2.cso.uiuc.edu' => 'United states IL',
	'ntp-2.mcs.anl.gov' => 'United states IL',
	'gilbreth.ecn.purdue.edu' => 'United states IN',
	'harbor.ecn.purdue.edu' => 'United states IN',
	'molecule.ecn.purdue.edu' => 'United states IN',
	'ntp.ourconcord.net' => 'United states MA',
	'ns.nts.umn.edu' => 'United states MN',
	'nss.nts.umn.edu' => 'United states MN',
	'time-ext.missouri.edu' => 'United states MO',
	'chronos1.umt.edu' => 'United states MT',
	'chronos2.umt.edu' => 'United states MT',
	'chronos3.umt.edu' => 'United states MT',
	'tick.jrc.us' => 'United states NJ',
	'tock.jrc.us' => 'United states NJ',
	'cuckoo.nevada.edu' => 'United states NV',
	'tick.cs.unlv.edu' => 'United states NV',
	'tock.cs.unlv.edu' => 'United states NV',
	'clock.linuxshell.net' => 'United states NY',
	'clock.nyc.he.net' => 'United states NY',
	'ntp0.cornell.edu' => 'United states NY',
	'reva.sixgirls.org' => 'United states NY',
	'clock.psu.edu' => 'United states PA',
	'fuzz.psc.edu' => 'United states PA',
	'ntp-1.cede.psu.edu' => 'United states PA',
	'ntp-2.cede.psu.edu' => 'United states PA',
	'ntp-1.ece.cmu.edu' => 'United states PA',
	'ntp-2.ece.cmu.edu' => 'United states PA',
	'ntp.cox.smu.edu' => 'United states TX',
	'ntp.fnbhs.com' => 'United states TX',
	'ntppub.tamu.edu' => 'United states TX',
	'ntp-1.vt.edu' => 'United states VA',
	'ntp-2.vt.edu' => 'United states VA',
	'ntp.cmr.gov' => 'United states VA',
	'ntp1.cs.wisc.edu' => 'United states WI',
	'ntp3.cs.wisc.edu' => 'United states WI',
	'ntp3.sf-bay.org' => 'United states WI',
	'ntp.cs.unp.ac.za' => 'South africa',
	'tock.nml.csir.co.za' => 'South africa',
        'pool.ntp.org' => 'World Wide',
    };
}

1;
quot; => "Brooktree Corporation|Bt8xx Video Capture", "cpia_usb" => '', "ibmcam" => '', "mod_quickcam" => '', "ov511" => '', "ultracam" => '', "usbvideo" => '', }], [ 'scanner', { "scanner" => '', "microtek" => '', }], [ 'photo', { "dc2xx" => '', "mdc800" => '', }], [ 'joystick', { "ns558" => "Creative Labs SB Live! joystick", }], [ 'radio', { "radio-maxiradio" => "radio-maxiradio", }], [ 'scsi', { if_(arch() =~ /ppc/, "mesh" => "Apple Internal SCSI", "mac53c94" => "Apple External SCSI", ), if_(arch() =~ /^sparc/, "qlogicpti" => "Performance Technologies ISP", ), if_(arch() !~ /alpha/ && arch() !~ /sparc/, "3w-xxxx" => "3ware ATA-RAID", "53c7,8xx" => "NCR 53c7xx", "AM53C974" => "AMD SCSI", "BusLogic" => "BusLogic Adapters", "NCR53c406a" => "NCR 53c406a", "a100u2w" => "a100u2w", "advansys" => "AdvanSys Adapters", "aha152x" => "Adaptec 152x", "aha1542" => "Adaptec 1542", "aha1740" => "Adaptec 1740", "atp870u" => "atp870u (Acard/Artop)", "dc395x_trm" => "dc395x_trm", "dtc" => "DTC 3180/3280", "fdomain" => "Future Domain TMC-16x0", "g_NCR5380" => "NCR 5380", "in2000" => "Always IN2000", "initio" => "Initio", "pci2220i" => "Perceptive Solutions 2240I", "psi240i" => "psi240i", "qla1280" => "Q Logic QLA1280", "qla2x00" => "Q Logic QLA2200", "qlogicfas" => "Qlogic FAS", "qlogicfc" => "qlogicfc", "seagate" => "Seagate ST01/02", "sim710" => "NCR53c710", "sym53c416" => "sym53c416", "t128" => "Trantor T128/T128F/T228", "tmscsim" => "tmscsim", "u14-34f" => "UltraStor 14F/34F", "ultrastor" => "UltraStor 14F/24F/34F", "wd7000" => "Western Digital wd7000", ), "aic7xxx" => "Adaptec 2740, 2840, 2940", "ncr53c8xx" => "NCR 53C8xx PCI", "pci2000" => "Perceptive Solutions PCI-2000", # TODO "qlogicisp" => "Qlogic ISP", "sym53c8xx" => "Symbios 53c8xx", }], [ 'scsi_raw', { "scsi_mod" => "SCSI subsystem support", "sd_mod" => "Disk SCSI support", #- "ide-mod" => "ide-mod", #- "ide-probe" => "ide-probe", #- "ide-probe-mod" => "ide-probe-mod", }], [ 'disk', { if_(arch() =~ /^sparc/, "pluto" => "Sun SparcSTORAGE Array SCSI", #- name it "fc4:soc:pluto" ? ), if_(arch() !~ /alpha/ && arch() !~ /sparc/, "DAC960" => "Mylex DAC960", "dpt_i2o" => "Distributed Tech SmartCache/Raid I-V Controller", "megaraid" => "AMI MegaRAID", "aacraid" => "AACxxx Raid Controller", "cciss" => "Compaq Smart Array 5300 Controller", "cpqarray" => "Compaq Smart-2/P RAID Controller", "gdth" => "ICP Disk Array Controller", "i2o_block" => "Intel Integrated RAID", "ips" => "IBM ServeRAID controller", "eata" => "EATA SCSI PM2x24/PM3224", "eata_pio" => "EATA PIO Adapters", "eata_dma" => "EATA DMA Adapters", "ppa" => "Iomega PPA3 (parallel port Zip)", "imm" => "Iomega Zip (new driver, for post 31/Aug/1998 drives)", ), }], [ 'disk_raw', { #- "ide-disk" => "IDE disk", }], [ 'cdrom', { if_(arch() !~ /alpha/ && arch() !~ /sparc/, #******(missing-2.4) "sbpcd" => "SoundBlaster/Panasonic", #******(missing-2.4) "aztcd" => "Aztech CD", #******(missing-2.4) "gscd" => "Goldstar R420", #******(missing-2.4) "isp16" => "ISP16/MAD16/Mozart", #******(missing-2.4) "mcd" => "Mitsumi", #- removed for space #******(missing-2.4) "mcdx" => "Mitsumi (alternate)", #******(missing-2.4) "optcd" => "Optics Storage 8000", #******(missing-2.4) "cm206" => "Phillips CM206/CM260", #******(missing-2.4) "sjcd" => "Sanyo", #******(missing-2.4) "cdu31a" => "Sony CDU-31A", #******(missing-2.4) "sonycd535" => "Sony CDU-5xx", ), }], [ 'cdrom_raw', { "isofs" => "iso9660", "ide-cd" => "ide-cd", "sr_mod" => "SCSI CDROM support", "cdrom" => "cdrom", }], [ 'sound', { if_(arch() =~ /ppc/, "dmasound_awacs" => "Amiga or PowerMac DMA sound", ), if_(arch() !~ /^sparc/, "cmpci" => "C-Media Electronics CMI8338A CMI8338B CMI8738", "cs46xx" => "Cirrus Logic CrystalClear SoundFusion (cs46xx)", "cs4281" => "Cirrus Logic|Crystal CS4281 PCI Audio", "es1370" => "Ensoniq ES1370 [AudioPCI]", "es1371" => "Ensoniq ES1371 [AudioPCI-97]", "esssolo1" => "ESS Technology ES1969 Solo-1 Audiodrive", "i810_audio" => "i810 integrated sound card", "maestro" => "ESS Maestro 1/2", "maestro3" => "ESS Maestro-3", "nm256" => "Neomagic MagicMedia 256AV", "pas16" => "Pro Audio Spectrum/Studio 16", "trident" => "M5451 PCI South Bridge Audio", "via82cxxx" => "VIA VT82C686_5", "via82cxxx_audio" => "VIA Technologies|VT82C686 [Apollo Super AC97/Audio]", "sonicvibes" => "S3 SonicVibes", "snd-card-ice1712" => "IC Ensemble Inc|ICE1712 [Envy24]", "emu10k1" => "Creative Labs|SB Live! (audio)", "ymfpci" => "Yamaha YMF-740, DS-1", # "au8820" => "Aureal Semiconductor|Vortex 1", # "au8830" => "Aureal Semiconductor|Vortex 2", "snd-card-cmipci" => "CMI", "snd-card-cs461x" => "Cirrus Logic|CS 4610/11 [CrystalClear SoundFusion Audio Accelerator]", "snd-card-ens1371" => "Ensoniq/Creative Labs ES1371", "snd-card-es1938" => "ESS Technology|ES1969 Solo-1 Audiodrive", "snd-card-fm801" => "Fortemedia, Inc|Xwave QS3000A [FM801]<>Fortemedia, Inc|FM801 PCI Audio", "snd-card-intel8x0" => "Intel Corporation|82440MX AC'97 Audio Controller<>Intel Corporation", "snd-card-rme96" => "Xilinx, Inc.|RME Digi96<>Xilinx, Inc.", "snd-card-trident" => "Silicon Integrated Systems [SiS]|7018 PCI Audio", "snd-card-via686a" => "VIA Technologies|VT82C686 [Apollo Super AC97/Audio]", "snd-card-ymfpci" => "Yamaha Corporation|YMF-740", ), }], [ 'pcmcia', { if_(arch() !~ /^sparc/, "ide_cs" => "ide_cs", "fmvj18x_cs" => "fmvj18x_cs", "fdomain_cs" => "fdomain_cs", "netwave_cs" => "netwave_cs", "serial_cs" => "serial_cs", "wavelan_cs" => "wavelan_cs", "pcnet_cs" => "pcnet_cs", "aha152x_cs" => "aha152x_cs", "xirc2ps_cs" => "xirc2ps_cs", "3c574_cs" => "3c574_cs", "qlogic_cs" => "qlogic_cs", "nmclan_cs" => "nmclan_cs", "ibmtr_cs" => "ibmtr_cs", # "dummy_cs" => "dummy_cs", # "memory_cs" => "memory_cs", "ftl_cs" => "ftl_cs", "smc91c92_cs" => "smc91c92_cs", "3c589_cs" => "3c589_cs", #******(missing-2.4) "parport_cs" => "parport_cs", "3c575_cb" => "3c575_cb", "apa1480_cb" => "apa1480_cb", "cb_enabler" => "cb_enabler", "epic_cb" => "epic_cb", "iflash2+_mtd" => "iflash2+_mtd", "iflash2_mtd" => "iflash2_mtd", # "memory_cb" => "memory_cb", "serial_cb" => "serial_cb", # "sram_mtd" => "sram_mtd", "tulip_cb" => "tulip_cb", ), }], [ 'pcmcia_everywhere', { if_(arch() !~ /^sparc/, "pcmcia_core" => "PCMCIA core support", "tcic" => "PCMCIA tcic controller", "ds" => "PCMCIA card support", "i82365" => "PCMCIA i82365 controller", ), }], [ 'paride', { if_(arch() !~ /^sparc/, "aten" => "ATEN EH-100", "bpck" => "Microsolutions backpack", "comm" => "DataStor (older type) commuter adapter", "dstr" => "DataStor EP-2000", "epat" => "Shuttle EPAT", "epia" => "Shuttle EPIA", "fit2" => "Fidelity Intl. (older type)", "fit3" => "Fidelity Intl. TD-3000", "frpw" => "Freecom Power", "friq" => "Freecom IQ (ASIC-2)", "kbic" => "KingByte KBIC-951A and KBIC-971A", "ktti" => "KT Tech. PHd", "on20" => "OnSpec 90c20", "on26" => "OnSpec 90c26", "pd" => "Parallel port IDE disks", "pcd" => "Parallel port CD-ROM", "pf" => "Parallel port ATAPI disk", "paride" => "Main parallel port module", ), }], [ 'raid', { "linear" => "linear", "raid0" => "raid0", "raid1" => "raid1", "raid5" => "raid5", }], [ 'mouse', { if_(arch() !~ /^sparc/, "busmouse" => "busmouse", "msbusmouse" => "msbusmouse", "serial" => "serial", "qpmouse" => "qpmouse", "atixlmouse" => "atixlmouse", ), }], [ 'usb', { "usbcore" => "usbcore", "usb-uhci" => "USB Controller (uhci)", "usb-ohci" => "USB Controller (ohci)", "usb-ohci-hcd" => "USB (ohci-hcd)", }], [ 'fs', { "smbfs" => "Windows SMB", "fat" => "fat", "msdos" => "msdos", "romfs" => "romfs", "vfat" => "vfat", }], [ 'other', { "agpgart" => "agpgart", "buz" => "Zoran Corporation|ZR36057PQC Video cutting chipset", "defxx" => "DEC|DEFPA", "i810_rng" => "i810_rng", "ide-floppy" => "ide-floppy", "ide-scsi" => "ide-scsi", "ide-tape" => "ide-tape", "loop" => "Loopback device", "lp" => "Parallel Printer", "nbd" => "nbd", "rrunner" => "Essential Communications|Roadrunner serial HIPPI", "sg" => "sg", "st" => "st", }], ); my %type_aliases = ( scsi => 'disk', ); my @skip_big_modules_on_stage1 = ( # dgrs e1000 qw( olympic sk98lin acenic 3c90x aironet4500_card com20020-pci hamachi starfire winbond-840 dc395x_trm BusLogic seagate fdomain g_NCR5380 tmscsim ) ); #******(missing-2.4) dpt_i2o aztcd gscd isp16 mcd mcdx optcd cm206 sjcd cdu31a my @skip_modules_on_stage1 = ( qw(sktr tmspci ibmtr abyss), # alt token ring qw(old_tulip rtl8139), # doesn't exist in 2.4 if_(arch() =~ /alpha|ppc/, qw(sb1000)), "apa1480_cb", "imm", "ppa", "parport", "parport_pc", "plip", if_(arch() !~ /ia64/, qw(qla1280)), qw(3w-xxxx pci2220i qla2x00 i2o_block), qw(gdth eata eata_pio eata_dma ips), qw(ac3200 at1700 atp ni5010 ni52 ni65), #- unused from Jeff "u14-34f", #- duplicate from ultrastor.o ); my @drivers_fields = qw(text type); %drivers = (); foreach (@drivers_by_category) { my ($type, $l) = @$_; foreach (keys %$l) { $drivers{$_} = [ $l->{$_}, $type ]; } } while (my ($k, $v) = each %drivers) { my %l; @l{@drivers_fields} = @$v; $drivers{$k} = \%l; } sub module_of_type__4update_kernel { my ($type) = @_; $type = join "|", map { $_, $_ . "_raw" } split ' ', $type; my %skip; @skip{@skip_modules_on_stage1} = (); @skip{@skip_big_modules_on_stage1} = () if $type !~ /big/; "big" =~ /^($type)$/ ? @skip_big_modules_on_stage1 : (), grep { !exists $skip{$_} } grep { $drivers{$_}{type} =~ /^($type)$/ } keys %drivers; } sub module_of_type { my ($type) = @_; my $alias = $type_aliases{$type} || $type; grep { $drivers{$_}{type} =~ /^(($type)|$alias)$/ } keys %drivers; } sub module2text { $drivers{$_[0]}{text} or log::l("trying to get text of unknown module $_[0]"), return $_[0] } sub get_alias { my ($alias) = @_; $conf{$alias}{alias}; } sub get_options { my ($name) = @_; $conf{$name}{options}; } sub set_options { my ($name, $new_option) = @_; $conf{$name}{options} = $new_option; } sub add_alias { my ($alias, $name) = @_; $name =~ /ignore/ and return; /\Q$alias/ && $conf{$_}{alias} && $conf{$_}{alias} eq $name and return $_ foreach keys %conf; $alias .= $scsi++ || '' if $alias eq 'scsi_hostadapter'; log::l("adding alias $alias to $name"); $conf{$alias}{alias} ||= $name; if ($name =~ /^snd-card-/) { $conf{$name}{"post-install"} = "modprobe snd-pcm-oss"; } $alias; } sub remove_alias($) { my ($name) = @_; foreach (keys %conf) { $conf{$_}{alias} && $conf{$_}{alias} eq $name or next; delete $conf{$_}{alias}; return 1; } 0; } sub when_load { my ($name, $type, @options) = @_; if ($type =~ /\bscsi\b/ || $type eq $type_aliases{scsi}) { add_alias('scsi_hostadapter', $name), eval { load('sd_mod') }; } if ($type eq 'sound') { #- mainly for ppc add_alias('sound-slot-0', $name); } if ($name =~ /^snd-card-/) { load('snd-pcm-oss', 'prereq'); } $conf{$name}{options} = join " ", @options if @options; } sub load { my ($name, $type, @options) = @_; my @netdev = detect_devices::getNet() if $type eq 'net'; if ($::testing) { log::l("i try to install $name module (@options)"); } elsif ($::isStandalone || $::live) { run_program::run(-x "/sbin/modprobe.static" ? "/sbin/modprobe.static" : "/sbin/modprobe", $name, @options) or die "insmod'ing module $name failed"; } else { $conf{$name}{loaded} and return; eval { load($_, 'prereq') } foreach @{$deps{$name}}; load_raw([ $name, @options ]); } sleep 2 if $name =~ /usb-storage|mousedev/; if ($type eq 'net') { add_alias($_, $name) foreach difference2([ detect_devices::getNet() ], \@netdev); } when_load($name, $type, @options); } sub load_multi { my $f; $f = sub { map { $f->(@{$deps{$_}}), $_ } @_ }; my %l; my @l = grep { !$conf{$_}{loaded} } grep { my $o = $l{$_}; $l{$_} = 1; !$o } $f->(@_); if ($::testing) { log::l("i would install modules @l"); } elsif ($::isStandalone || $::live) { foreach (@l) { run_program::run(-x "/sbin/modprobe.static" ? "/sbin/modprobe.static" : "/sbin/modprobe", $_) } } else { load_raw(map { [ $_ ] } @l); } } sub unload { my ($m) = @_; if ($::testing) { log::l("rmmod $m"); } else { if (run_program::run("rmmod", $m)) { delete $conf{$m}{loaded}; } } } sub load_raw { my @l = map { my ($i, @i) = @$_; [ $i, \@i ] } grep { $_->[0] !~ /ignore/ } @_; my $cz = "/lib/modules" . (arch() eq 'sparc64' && "64") . ".cz-" . c::kernel_version(); if (!-e $cz) { unlink $_ foreach glob_("/lib/modules*.cz*"); require install_any; install_any::getAndSaveFile("Mandrake/mdkinst$cz", $cz) or die "failed to get modules $cz: $!"; } eval { require packdrake; my $packer = new packdrake($cz, quiet => 1); $packer->extract_archive("/tmp", map { "$_->[0].o" } @l); }; my @failed = grep { my $m = "/tmp/$_->[0].o"; if (-e $m && run_program::run(["/usr/bin/insmod_", "insmod"], '2>', '/dev/tty5', '-f', $m, @{$_->[1]})) { unlink $m; $conf{$_->[0]}{loaded} = 1; ''; } else { log::l("missing module $_->[0]") unless -e $m; -e $m; } } @l; die "insmod'ing module " . join(", ", map { $_->[0] } @failed) . " failed" if @failed; foreach (@l) { if ($_->[0] eq "parport_pc") { #- this is a hack to make plip go foreach (@{$_->[1]}) { /^irq=(\d+)/ and eval { output "/proc/parport/0/irq", $1 }; } } elsif ($_->[0] =~ /usb-[uo]hci/) { add_alias('usb-interface', $_->[0]); eval { require fs; fs::mount('/proc/bus/usb', '/proc/bus/usb', 'usbdevfs'); #- ensure keyboard is working, the kernel must do the job the BIOS was doing sleep 2; load_multi("usbkbd", "keybdev") if detect_devices::usbKeyboards(); } } } } sub read_already_loaded() { foreach (cat_("/proc/modules")) { my ($name) = split; $conf{$name}{loaded} = 1;