]> git.proxmox.com Git - pve-firmware.git/blame - assemble-firmware.pl
update skip list with some globs
[pve-firmware.git] / assemble-firmware.pl
CommitLineData
8422a0e2 1#!/usr/bin/perl
7bbca2e6
FG
2
3use strict;
8422a0e2
TL
4use warnings;
5
7bbca2e6
FG
6use File::Basename;
7use File::Path;
8
7bbca2e6
FG
9my $fwsrc2 = "dvb-firmware.git";
10my $fwsrc3 = "firmware-misc";
11
12my $fwlist = shift;
13die "no firmware list specified" if !$fwlist || ! -f $fwlist;
14
15my $target = shift;
16die "no target directory" if !$target || ! -d $target;
17
7bbca2e6
FG
18my $skip = {};
19# debian squeeze also misses those files
20foreach my $fw (qw(
11262e92
TL
213826.arm
22BT3CPCC.bin
23FW10
24FW13
25RTL8192U/boot.img
26RTL8192U/data.img
27RTL8192U/main.img
7dff192c
TL
28amdgpu/cyan_skillfish_ce.bin
29amdgpu/cyan_skillfish_me.bin
30amdgpu/cyan_skillfish_mec.bin
31amdgpu/cyan_skillfish_mec2.bin
32amdgpu/cyan_skillfish_pfp.bin
33amdgpu/cyan_skillfish_rlc.bin
34amdgpu/cyan_skillfish_sdma.bin
35amdgpu/cyan_skillfish_sdma1.bin
64cbf07c 36amdgpu/navi10_mes.bin
73dd55c0 37amdgpu/sienna_cichlid_mes.bin
77fd7c2f 38amdgpu/vangogh_gpu_info.bin
7dff192c 39amdgpu/yellow_carp_gpu_info.bin
11262e92
TL
40ar9170.fw
41ast_dp501_fw.bin
11262e92 42ath10k/QCA6174/hw2.1/firmware-4.bin
11262e92 43ath10k/QCA6174/hw3.0/firmware-5.bin
11262e92
TL
44ath10k/QCA9887/hw1.0/board-2.bin
45ath10k/QCA988X/hw2.0/board-2.bin
11262e92
TL
46ath10k/QCA988X/hw2.0/firmware-2.bin
47ath10k/QCA988X/hw2.0/firmware-3.bin
11262e92
TL
48ath10k/QCA988X/hw2.0/firmware.bin
49ath6k/AR6003/hw2.0/bdata.bin
50ath6k/AR6003/hw2.1.1/bdata.bin
51ath6k/AR6004/hw1.0/bdata.DB132.bin
52ath6k/AR6004/hw1.0/bdata.bin
53ath6k/AR6004/hw1.0/fw.ram.bin
54ath6k/AR6004/hw1.1/bdata.DB132.bin
55ath6k/AR6004/hw1.1/bdata.bin
56ath6k/AR6004/hw1.1/fw.ram.bin
57ath6k/AR6004/hw1.2/fw.ram.bin
58ath6k/AR6004/hw1.3/fw.ram.bin
59b43/ucode11.fw
60b43/ucode13.fw
61b43/ucode14.fw
62b43/ucode15.fw
63b43/ucode16_lp.fw
64b43/ucode16_mimo.fw
65b43/ucode24_lcn.fw
66b43/ucode25_lcn.fw
67b43/ucode25_mimo.fw
68b43/ucode26_mimo.fw
69b43/ucode29_mimo.fw
70b43/ucode30_mimo.fw
71b43/ucode33_lcn40.fw
72b43/ucode40.fw
73b43/ucode42.fw
74b43/ucode5.fw
75b43/ucode9.fw
76b43legacy/ucode2.fw
77b43legacy/ucode4.fw
78bfubase.frm
77fd7c2f
TL
79brcm/brcm/brcmfmac*-pcie.*.txt
80brcm/brcm/brcmfmac*-sdio.*.txt
98b21930 81brcm/brcmfmac*-pcie.*.bin
d10fed35 82brcm/brcmfmac*-pcie.*.txt
98b21930 83brcm/brcmfmac*-pcie.txt
7dff192c 84brcm/brcmfmac*-sdio.*.bin
d10fed35 85brcm/brcmfmac*-sdio.*.txt
7bbca2e6 86brcm/brcmfmac-sdio.bin
11262e92
TL
87brcm/brcmfmac-sdio.txt
88brcm/brcmfmac43143-sdio.txt
7bbca2e6 89brcm/brcmfmac43241b0-sdio.txt
11262e92
TL
90brcm/brcmfmac43241b4-sdio.txt
91brcm/brcmfmac43241b5-sdio.txt
11262e92
TL
92brcm/brcmfmac4329-sdio.txt
93brcm/brcmfmac4330-sdio.txt
94brcm/brcmfmac4334-sdio.txt
95brcm/brcmfmac43340-sdio.txt
96brcm/brcmfmac4335-sdio.txt
97brcm/brcmfmac43362-sdio.txt
11262e92 98brcm/brcmfmac4339-sdio.txt
11262e92 99brcm/brcmfmac43430-sdio.txt
7dff192c 100brcm/brcmfmac43430b0-sdio.bin
11262e92 101brcm/brcmfmac43455-sdio.txt
64cbf07c 102brcm/brcmfmac43456-sdio.bin
11262e92
TL
103brcm/brcmfmac4350-pcie.txt
104brcm/brcmfmac4354-pcie.bin
105brcm/brcmfmac4354-pcie.txt
106brcm/brcmfmac4354-sdio.txt
7bbca2e6 107brcm/brcmfmac4356-pcie.txt
11262e92 108brcm/brcmfmac43570-pcie.txt
11262e92
TL
109brcm/brcmfmac4358-pcie.txt
110brcm/brcmfmac4359-pcie.bin
73dd55c0 111brcm/brcmfmac4359-sdio.bin
11262e92 112brcm/brcmfmac43602-pcie.txt
73dd55c0 113brcm/brcmfmac4364-pcie.bin
11262e92
TL
114brcm/brcmfmac4365b-pcie.bin
115brcm/brcmfmac4365b-pcie.txt
116brcm/brcmfmac4365c-pcie.bin
117brcm/brcmfmac4366b-pcie.txt
11262e92 118brcm/brcmfmac4371-pcie.txt
7dff192c
TL
119brcm/brcmfmac43752-sdio.bin
120brcm/brcmfmac43752-sdio.clm_blob
11262e92
TL
121c218tunx.cod
122c320tunx.cod
433982b1
TL
123cbfw-3.0.3.1.bin
124cbfw.bin
11262e92
TL
125comedi/jr3pci.idm
126cp204unx.cod
433982b1
TL
127ct2fw-3.0.3.1.bin
128ct2fw.bin
129ctfw-3.0.3.1.bin
130ctfw.bin
11262e92 131cxgb4/t4fw-1.3.10.0.bin
7bbca2e6 132cyzfirm.bin
11262e92
TL
133daqboard2000_firmware.bin
134fw.ram.bin
11262e92
TL
135i1480-phy-0.0.bin
136i1480-pre-phy-0.0.bin
137i1480-usb-0.0.bin
138i2400m-fw-sdio-1.3.sbcf
77fd7c2f 139idt82p33xxx.bin
7bbca2e6 140isi4608.bin
11262e92 141isi4616.bin
7bbca2e6
FG
142isi608.bin
143isi608em.bin
11262e92 144isi616em.bin
7bbca2e6 145isight.fw
7bbca2e6 146isl3886pci
11262e92
TL
147isl3886usb
148isl3887usb
7bbca2e6
FG
149iwlwifi-100-6.ucode
150iwlwifi-1000-6.ucode
11262e92 151iwlwifi-130-5.ucode
11262e92
TL
152iwlwifi-3165-10.ucode
153iwlwifi-3168-26.ucode
154iwlwifi-6000-6.ucode
b3bdbd58 155iwlwifi-6000g2b-IWL6000G2B_UCODE_API_MAX.ucode
11262e92
TL
156iwlwifi-7265D-26.ucode
157iwlwifi-8000-10.ucode
158iwlwifi-8000-12.ucode
159iwlwifi-8000-13.ucode
7bbca2e6 160iwlwifi-8000-8.ucode
11262e92
TL
161iwlwifi-8000C-26.ucode
162iwlwifi-8000C-33.ucode
163iwlwifi-8265-26.ucode
164iwlwifi-8265-33.ucode
165iwlwifi-9000-pu-a0-jf-a0--26.ucode
166iwlwifi-9000-pu-a0-jf-a0--33.ucode
167iwlwifi-9000-pu-a0-jf-a0-34.ucode
b3bdbd58 168iwlwifi-9000-pu-a0-jf-a0-43.ucode
11262e92
TL
169iwlwifi-9000-pu-a0-jf-b0--33.ucode
170iwlwifi-9000-pu-a0-jf-b0-34.ucode
b3bdbd58 171iwlwifi-9000-pu-a0-jf-b0-43.ucode
11262e92
TL
172iwlwifi-9000-pu-a0-lc-a0--26.ucode
173iwlwifi-9260-th-a0-jf-a0--26.ucode
174iwlwifi-9260-th-a0-jf-a0--33.ucode
175iwlwifi-9260-th-a0-jf-a0-34.ucode
b3bdbd58 176iwlwifi-9260-th-a0-jf-a0-43.ucode
11262e92
TL
177iwlwifi-9260-th-b0-jf-b0--33.ucode
178iwlwifi-Qu-a0-hr-a0--33.ucode
179iwlwifi-Qu-a0-hr-a0-34.ucode
b3bdbd58 180iwlwifi-Qu-a0-hr-a0-43.ucode
64cbf07c 181iwlwifi-Qu-a0-hr-a0-48.ucode
d31fb1a1 182iwlwifi-Qu-a0-hr-a0-50.ucode
11262e92
TL
183iwlwifi-Qu-a0-jf-b0--26.ucode
184iwlwifi-Qu-a0-jf-b0--33.ucode
185iwlwifi-Qu-a0-jf-b0-34.ucode
b3bdbd58 186iwlwifi-Qu-a0-jf-b0-43.ucode
64cbf07c 187iwlwifi-Qu-a0-jf-b0-48.ucode
d31fb1a1 188iwlwifi-Qu-a0-jf-b0-50.ucode
b3bdbd58
TL
189iwlwifi-Qu-b0-hr-b0-43.ucode
190iwlwifi-Qu-b0-jf-b0-43.ucode
11262e92 191iwlwifi-QuQnj-a0-hr-a0-34.ucode
b3bdbd58 192iwlwifi-QuQnj-a0-hr-a0-43.ucode
64cbf07c 193iwlwifi-QuQnj-a0-hr-a0-48.ucode
d31fb1a1 194iwlwifi-QuQnj-a0-hr-a0-50.ucode
11262e92 195iwlwifi-QuQnj-a0-jf-b0-34.ucode
b3bdbd58
TL
196iwlwifi-QuQnj-a0-jf-b0-43.ucode
197iwlwifi-QuQnj-b0-hr-b0-43.ucode
64cbf07c 198iwlwifi-QuQnj-b0-hr-b0-48.ucode
d31fb1a1 199iwlwifi-QuQnj-b0-hr-b0-50.ucode
73dd55c0 200iwlwifi-QuQnj-b0-hr-b0-59.ucode
d10fed35 201iwlwifi-QuQnj-b0-hr-b0-63.ucode
7dff192c 202iwlwifi-QuQnj-b0-hr-b0-66.ucode
64cbf07c 203iwlwifi-QuQnj-b0-jf-b0-48.ucode
d31fb1a1 204iwlwifi-QuQnj-b0-jf-b0-50.ucode
73dd55c0 205iwlwifi-QuQnj-b0-jf-b0-59.ucode
d10fed35 206iwlwifi-QuQnj-b0-jf-b0-63.ucode
7dff192c 207iwlwifi-QuQnj-b0-jf-b0-66.ucode
11262e92 208iwlwifi-QuQnj-f0-hr-a0-34.ucode
b3bdbd58 209iwlwifi-QuQnj-f0-hr-a0-43.ucode
64cbf07c 210iwlwifi-QuQnj-f0-hr-a0-48.ucode
d31fb1a1 211iwlwifi-QuQnj-f0-hr-a0-50.ucode
73dd55c0 212iwlwifi-SoSnj-a0-gf-a0-59.ucode
d10fed35 213iwlwifi-SoSnj-a0-gf-a0-63.ucode
7dff192c 214iwlwifi-SoSnj-a0-gf-a0-66.ucode
73dd55c0 215iwlwifi-SoSnj-a0-gf4-a0-59.ucode
d10fed35 216iwlwifi-SoSnj-a0-gf4-a0-63.ucode
7dff192c 217iwlwifi-SoSnj-a0-gf4-a0-66.ucode
73dd55c0 218iwlwifi-SoSnj-a0-hr-b0-59.ucode
d10fed35 219iwlwifi-SoSnj-a0-hr-b0-63.ucode
7dff192c 220iwlwifi-SoSnj-a0-hr-b0-66.ucode
d10fed35 221iwlwifi-SoSnj-a0-jf-b0-63.ucode
7dff192c 222iwlwifi-SoSnj-a0-jf-b0-66.ucode
77fd7c2f 223iwlwifi-SoSnj-a0-mr-a0-59.ucode
d10fed35 224iwlwifi-SoSnj-a0-mr-a0-63.ucode
7dff192c 225iwlwifi-SoSnj-a0-mr-a0-66.ucode
d10fed35 226iwlwifi-bz-a0-gf-a0-63.ucode
7dff192c 227iwlwifi-bz-a0-gf-a0-66.ucode
d10fed35 228iwlwifi-bz-a0-gf4-a0-63.ucode
7dff192c 229iwlwifi-bz-a0-gf4-a0-66.ucode
d10fed35 230iwlwifi-bz-a0-hr-b0-63.ucode
7dff192c 231iwlwifi-bz-a0-hr-b0-66.ucode
d10fed35 232iwlwifi-bz-a0-mr-a0-63.ucode
7dff192c 233iwlwifi-bz-a0-mr-a0-66.ucode
7dff192c 234iwlwifi-ma-a0-fm-a0-66.ucode
73dd55c0 235iwlwifi-ma-a0-gf-a0-59.ucode
d10fed35 236iwlwifi-ma-a0-gf-a0-63.ucode
7dff192c 237iwlwifi-ma-a0-gf-a0-66.ucode
d10fed35 238iwlwifi-ma-a0-gf4-a0-63.ucode
7dff192c 239iwlwifi-ma-a0-gf4-a0-66.ucode
d10fed35 240iwlwifi-ma-a0-hr-b0-63.ucode
7dff192c 241iwlwifi-ma-a0-hr-b0-66.ucode
73dd55c0 242iwlwifi-ma-a0-mr-a0-59.ucode
d10fed35 243iwlwifi-ma-a0-mr-a0-63.ucode
7dff192c 244iwlwifi-ma-a0-mr-a0-66.ucode
64cbf07c 245iwlwifi-so-a0-gf-a0-48.ucode
d31fb1a1 246iwlwifi-so-a0-gf-a0-50.ucode
73dd55c0 247iwlwifi-so-a0-gf-a0-59.ucode
d10fed35 248iwlwifi-so-a0-gf-a0-63.ucode
7dff192c 249iwlwifi-so-a0-gf-a0-66.ucode
64cbf07c 250iwlwifi-so-a0-hr-b0-48.ucode
d31fb1a1 251iwlwifi-so-a0-hr-b0-50.ucode
73dd55c0 252iwlwifi-so-a0-hr-b0-59.ucode
d10fed35 253iwlwifi-so-a0-hr-b0-63.ucode
7dff192c 254iwlwifi-so-a0-hr-b0-66.ucode
64cbf07c 255iwlwifi-so-a0-jf-b0-48.ucode
d31fb1a1 256iwlwifi-so-a0-jf-b0-50.ucode
73dd55c0 257iwlwifi-so-a0-jf-b0-59.ucode
d10fed35 258iwlwifi-so-a0-jf-b0-63.ucode
7dff192c 259iwlwifi-so-a0-jf-b0-66.ucode
b3bdbd58 260iwlwifi-su-z0-43.ucode
64cbf07c 261iwlwifi-ty-a0-gf-a0-48.ucode
d31fb1a1 262iwlwifi-ty-a0-gf-a0-50.ucode
11262e92
TL
263iwmc3200wifi-calib-sdio.bin
264iwmc3200wifi-lmac-sdio.bin
265iwmc3200wifi-umac-sdio.bin
266ks7010sd.rom
b3bdbd58
TL
267lantiq/xrx200_phy11g_a14.bin
268lantiq/xrx200_phy11g_a22.bin
269lantiq/xrx200_phy22f_a14.bin
270lantiq/xrx200_phy22f_a22.bin
271lantiq/xrx300_phy11g_a21.bin
272lantiq/xrx300_phy22f_a21.bin
11262e92 273lattice-ecp3.bit
11262e92 274libertas/cf8305.bin
433982b1 275libertas/gspi8385.bin
11262e92 276libertas/gspi8385_helper.bin
433982b1 277libertas/gspi8385_hlp.bin
11262e92
TL
278libertas/usb8388.bin
279libertas_cs.fw
280libertas_cs_helper.fw
281liquidio/lio_210nv.bin
282liquidio/lio_210sv.bin
283liquidio/lio_23xx.bin
284liquidio/lio_410nv.bin
7bbca2e6
FG
285me2600_firmware.bin
286me4000_firmware.bin
11262e92
TL
287mrvl/pcie8766_uapsta.bin
288mrvl/pcie8997_uapsta.bin
289mrvl/sd8786_uapsta.bin
64cbf07c
TL
290mrvl/sd8977_uapsta.bin
291mrvl/sd8987_uapsta.bin
11262e92 292mrvl/sd8997_uapsta.bin
11262e92 293mrvl/usb8997_uapsta.bin
64cbf07c
TL
294mt7603_e1.bin
295mt7603_e2.bin
296mt7628_e1.bin
297mt7628_e2.bin
11262e92 298mwl8k/fmimage_8363.fw
11262e92 299mwl8k/helper_8363.fw
11262e92
TL
300ni6534a.bin
301niscrb01.bin
302niscrb02.bin
303nx3fwct.bin
304nx3fwmn.bin
305nxromimg.bin
306orinoco_ezusb_fw
307pca200e_ecd.bin2
308phanfw-4.0.579.bin
309prism2_ru.fw
310prism_ap_fw.bin
311prism_sta_fw.bin
77fd7c2f
TL
312qat_4xxx.bin
313qat_4xxx_mmp.bin
6017019c
TL
314ql2600_fw.bin
315ql2700_fw.bin
316ql8100_fw.bin
317ql8300_fw.bin
73dd55c0 318renesas_usb_fw.mem
b3bdbd58
TL
319rtl_bt/rtl8723b_config.bin
320rtl_bt/rtl8723bs_config.bin
77fd7c2f 321wlwifi-SoSnj-a0-mr-a0-59.ucode
b3bdbd58
TL
322rtl_bt/rtl8723ds_config.bin
323rtl_bt/rtl8723ds_fw.bin
324rtl_bt/rtl8761a_config.bin
7bbca2e6 325rtlwifi/rtl8723bu_bt.bin
11262e92 326rtlwifi/rtl8723efw.bin
64cbf07c 327s5k4ecgx.bin
11262e92
TL
328sd8686.bin
329sd8686_helper.bin
11262e92
TL
330softing-4.6/bcard.bin
331softing-4.6/bcard2.bin
332softing-4.6/cancard.bin
333softing-4.6/cancrd2.bin
334softing-4.6/cansja.bin
335softing-4.6/ldcard.bin
336softing-4.6/ldcard2.bin
337solos-FPGA.bin
338solos-Firmware.bin
339solos-db-FPGA.bin
340symbol_sp24t_prim_fw
341symbol_sp24t_sec_fw
342tehuti/firmware.bin
343ti-connectivity/wl18xx-conf.bin
344tms380tr.bin
345usb8388.bin
346wd719x-risc.bin
347wd719x-wcs.bin
faefccd2 348wil6210_sparrow_plus.fw
b3bdbd58
TL
349wil6436.brd
350wil6436.fw
11262e92
TL
351wlan/prima/WCNSS_qcom_wlan_nv.bin
352zd1201-ap.fw
353zd1201.fw
7bbca2e6
FG
354)) {
355 $skip->{$fw} = 1;
356}
357
358sub copy_fw {
359 my ($src, $dstfw) = @_;
360
361 my $dest = "$target/$dstfw";
362
363 return if -f $dest;
364
365 mkpath dirname($dest);
58a59083 366 system ("cp '$src' '$dest'") == 0 or die "copy '$src' to '$dest' failed!\n";
7bbca2e6
FG
367}
368
369my $fwdone = {};
c3fe809a 370my $fwbase_name = {};
7bbca2e6 371
6bc6bdcb
FG
372my $error = 0;
373
f75a8ffb
TL
374open(my $fd, '<', $fwlist);
375while(defined(my $line = <$fd>)) {
7bbca2e6
FG
376 chomp $line;
377 my ($fw, $mod) = split(/\s+/, $line, 2);
378
c3fe809a
TL
379 my $fw_name = basename($fw);
380 $fwbase_name->{$fw_name} = 1;
381
7bbca2e6
FG
382 next if $mod =~ m|^kernel/sound|;
383 next if $mod =~ m|^kernel/drivers/isdn|;
384
385 # skip ZyDas usb wireless, use package zd1211-firmware instead
386 next if $fw =~ m|^zd1211/|;
387
388 # skip atmel at76c50x wireless networking chips.
389 # use package atmel-firmware instead
390 next if $fw =~ m|^atmel_at76c50|;
391
392 # skip Bluetooth dongles based on the Broadcom BCM203x
393 # use package bluez-firmware instead
394 next if $fw =~ m|^BCM2033|;
395
396 next if $fw =~ m|^xc3028-v27\.fw|; # found twice!
397 next if $fw =~ m|.inp|; # where are those files?
398 next if $fw =~ m|^ueagle-atm/|; # where are those files?
399
7bbca2e6
FG
400 next if $fwdone->{$fw};
401 $fwdone->{$fw} = 1;
402
403 my $fwdest = $fw;
404 if ($fw eq 'libertas/gspi8686.bin') {
405 $fw = 'libertas/gspi8686_v9.bin';
406 }
407 if ($fw eq 'libertas/gspi8686_hlp.bin') {
408 $fw = 'libertas/gspi8686_v9_helper.bin';
409 }
410
411 if ($fw eq 'PE520.cis') {
412 $fw = 'cis/PE520.cis';
413 }
414
279821b7 415 if (-e "$target/$fw") {
6017019c 416 warn "WARN: allowed to skip existing '$fw'\n" if $skip->{$fw};
7bbca2e6
FG
417 next;
418 }
419 if (-f "$fwsrc3/$fw") {
420 copy_fw("$fwsrc3/$fw", $fwdest);
421 next;
422 }
423
bb4be6eb 424 my $module = basename($mod);
7bbca2e6
FG
425 if ($fw =~ m|/|) {
426 next if $skip->{$fw};
427
bb4be6eb 428 warn "ERROR: unable to find firmware ($module): $fw\n";
6bc6bdcb
FG
429 $error++;
430 next;
7bbca2e6
FG
431 }
432
433 my $name = basename($fw);
434
279821b7 435 my $sr = `find '$target' \\( -type f -o -type l \\) -name '$name'`;
7bbca2e6
FG
436 chomp $sr;
437 if ($sr) {
279821b7
TL
438 my $found = 0;
439 for my $f (split("\n", $sr)) {
440 if ($f =~ /$fw$/) {
43424aac 441 print "found linked $fw in $f\n";
279821b7
TL
442 $found = 1;
443 }
444 }
445 next if $found;
7bbca2e6
FG
446 }
447
448 $sr = `find '$fwsrc2' -type f -name '$name'`;
449 chomp $sr;
450 if ($sr) {
451 print "found $fw in $sr\n";
452 copy_fw($sr, $fwdest);
453 next;
454 }
455
456 $sr = `find '$fwsrc3' -type f -name '$name'`;
457 chomp $sr;
458 if ($sr) {
33e03db5 459 print "found $fw in $sr\n";
7bbca2e6
FG
460 copy_fw($sr, $fwdest);
461 next;
462 }
463
464 next if $skip->{$fw};
465 next if $fw =~ m|^dvb-|;
466
bb4be6eb 467 warn "ERROR: unable to find firmware ($module): $fw\n";
6bc6bdcb
FG
468 $error++;
469 next;
7bbca2e6 470}
f75a8ffb 471close($fd);
7bbca2e6 472
c3fe809a
TL
473exit($error) if $error;
474
475my $target_fw_string = `find '$target' -type f -o -type l`;
476chomp $target_fw_string;
477exit(-1) if !$target_fw_string;
478
479my $all_fw_files = [ split("\n", $target_fw_string) ];
480
481my ($keep, $delete) = (0, 0);
482
483my $link_target = {};
484for my $f (@$all_fw_files) {
485 next if ! -l $f;
486 my $link = basename($f);
487 my $file = readlink($f);
488 my $target = basename($file);
489 $link_target->{$target} = 1 if $fwbase_name->{$link};
490 $link_target->{$file} = 1 if $fwbase_name->{$link};
491}
492
493for my $f (@$all_fw_files) {
494 my $name = basename($f);
495
496 if ($fwbase_name->{$name}) {
497 $keep++;
498 } elsif ($link_target->{$name}) {
499 #print "skip link target '$f'\n";
500 $keep++;
501 } else {
502 print "delete unreferenced $f\n";
503 unlink $f or warn "ERROR deleting '$f' - $!\n";
504 $delete++;
505 }
506}
507
508print "cleanup end result: keep: $keep, delete: $delete\n";
509
510exit(0);