pve-firmware/assemble-firmware.pl
Thomas Lamprecht cc8c8f8607 drop now available FW files from allow-missing list
Signed-off-by: Thomas Lamprecht <t.lamprecht@proxmox.com>
2023-04-17 14:46:09 +02:00

621 lines
15 KiB
Perl
Executable File

#!/usr/bin/perl
use strict;
use warnings;
use File::Basename;
use File::Path;
my $fwsrc2 = "dvb-firmware.git";
my $fwsrc3 = "firmware-misc";
my $fwlist = shift;
die "no firmware list specified" if !$fwlist || ! -f $fwlist;
my $target = shift;
die "no target directory" if !$target || ! -d $target;
my $FORCE_INCLUDE = [
'iwlwifi-*.pnvm',
];
my $ALLOW_MISSING = {};
# debian squeeze also misses those files
foreach my $fw (qw(
3826.arm
BT3CPCC.bin
FW10
FW13
RTL8192U/boot.img
RTL8192U/data.img
RTL8192U/main.img
amdgpu/aldebaran_cap.bin
amdgpu/cyan_skillfish_ce.bin
amdgpu/cyan_skillfish_me.bin
amdgpu/cyan_skillfish_mec.bin
amdgpu/cyan_skillfish_mec2.bin
amdgpu/cyan_skillfish_pfp.bin
amdgpu/cyan_skillfish_rlc.bin
amdgpu/cyan_skillfish_sdma.bin
amdgpu/cyan_skillfish_sdma1.bin
amdgpu/gc_11_0_0_toc.bin
amdgpu/gc_11_0_3_imu.bin
amdgpu/gc_11_0_3_me.bin
amdgpu/gc_11_0_3_mec.bin
amdgpu/gc_11_0_3_mes.bin
amdgpu/gc_11_0_3_mes1.bin
amdgpu/gc_11_0_3_pfp.bin
amdgpu/gc_11_0_3_rlc.bin
amdgpu/ip_discovery.bin
amdgpu/navi10_mes.bin
amdgpu/navi12_cap.bin
amdgpu/psp_13_0_10_sos.bin
amdgpu/psp_13_0_10_ta.bin
amdgpu/sdma_6_0_3.bin
amdgpu/sienna_cichlid_cap.bin
amdgpu/sienna_cichlid_mes.bin
amdgpu/sienna_cichlid_mes1.bin
amdgpu/smu_13_0_10.bin
amdgpu/vangogh_gpu_info.bin
amdgpu/vega10_cap.bin
amdgpu/yellow_carp_gpu_info.bin
ar9170.fw
ast_dp501_fw.bin
ath10k/QCA6174/hw2.1/firmware-4.bin
ath10k/QCA6174/hw3.0/firmware-5.bin
ath10k/QCA9887/hw1.0/board-2.bin
ath10k/QCA988X/hw2.0/board-2.bin
ath10k/QCA988X/hw2.0/firmware-2.bin
ath10k/QCA988X/hw2.0/firmware-3.bin
ath10k/QCA988X/hw2.0/firmware.bin
ath6k/AR6003/hw2.0/bdata.bin
ath6k/AR6003/hw2.1.1/bdata.bin
ath6k/AR6004/hw1.0/bdata.DB132.bin
ath6k/AR6004/hw1.0/bdata.bin
ath6k/AR6004/hw1.0/fw.ram.bin
ath6k/AR6004/hw1.1/bdata.DB132.bin
ath6k/AR6004/hw1.1/bdata.bin
ath6k/AR6004/hw1.1/fw.ram.bin
ath6k/AR6004/hw1.2/fw.ram.bin
ath6k/AR6004/hw1.3/fw.ram.bin
atmsar11.fw
b43/ucode11.fw
b43/ucode13.fw
b43/ucode14.fw
b43/ucode15.fw
b43/ucode16_lp.fw
b43/ucode16_mimo.fw
b43/ucode24_lcn.fw
b43/ucode25_lcn.fw
b43/ucode25_mimo.fw
b43/ucode26_mimo.fw
b43/ucode29_mimo.fw
b43/ucode30_mimo.fw
b43/ucode33_lcn40.fw
b43/ucode40.fw
b43/ucode42.fw
b43/ucode5.fw
b43/ucode9.fw
b43legacy/ucode2.fw
b43legacy/ucode4.fw
bfubase.frm
brcm/brcmbt4377*.bin
brcm/brcmbt4377*.ptb
brcm/brcmbt4378*.bin
brcm/brcmbt4378*.ptb
brcm/brcmbt4387*.bin
brcm/brcmbt4387*.ptb
brcm/brcmfmac*-pcie.*.clm_blob
brcm/brcmfmac*-pcie.txt
brcm/brcmfmac*-sdio.*.bin
brcm/brcmfmac-sdio.bin
brcm/brcmfmac-sdio.txt
brcm/brcmfmac43143-sdio.txt
brcm/brcmfmac43241b0-sdio.txt
brcm/brcmfmac43241b4-sdio.txt
brcm/brcmfmac43241b5-sdio.txt
brcm/brcmfmac4329-sdio.txt
brcm/brcmfmac4330-sdio.txt
brcm/brcmfmac4334-sdio.txt
brcm/brcmfmac43340-sdio.txt
brcm/brcmfmac4335-sdio.txt
brcm/brcmfmac43362-sdio.txt
brcm/brcmfmac4339-sdio.txt
brcm/brcmfmac43430-sdio.txt
brcm/brcmfmac43430b0-sdio.bin
brcm/brcmfmac43439-sdio.bin
brcm/brcmfmac43439-sdio.clm_blob
brcm/brcmfmac43455-sdio.txt
brcm/brcmfmac43456-sdio.bin
brcm/brcmfmac4350-pcie.txt
brcm/brcmfmac4354-pcie.bin
brcm/brcmfmac4354-pcie.txt
brcm/brcmfmac4354-sdio.txt
brcm/brcmfmac4355-pcie.bin
brcm/brcmfmac4355-pcie.clm_blob
brcm/brcmfmac4355c1-pcie.bin
brcm/brcmfmac4355c1-pcie.clm_blob
brcm/brcmfmac4356-pcie.txt
brcm/brcmfmac43570-pcie.txt
brcm/brcmfmac4358-pcie.txt
brcm/brcmfmac4359-pcie.bin
brcm/brcmfmac4359-sdio.bin
brcm/brcmfmac43602-pcie.txt
brcm/brcmfmac4364-pcie.bin
brcm/brcmfmac4364b2-pcie.bin
brcm/brcmfmac4364b2-pcie.clm_blob
brcm/brcmfmac4364b3-pcie.bin
brcm/brcmfmac4364b3-pcie.clm_blob
brcm/brcmfmac4365b-pcie.bin
brcm/brcmfmac4365b-pcie.txt
brcm/brcmfmac4365c-pcie.bin
brcm/brcmfmac4366b-pcie.txt
brcm/brcmfmac4371-pcie.txt
brcm/brcmfmac43752-sdio.bin
brcm/brcmfmac43752-sdio.clm_blob
brcm/brcmfmac4377b3-pcie.bin
brcm/brcmfmac4377b3-pcie.clm_blob
brcm/brcmfmac4378b1-pcie.bin
brcm/brcmfmac4378b1-pcie.clm_blob
brcm/brcmfmac89459-pcie.bin
c218tunx.cod
c320tunx.cod
cbfw-3.0.3.1.bin
cbfw.bin
comedi/jr3pci.idm
cp204unx.cod
ct2fw-3.0.3.1.bin
ct2fw.bin
ctfw-3.0.3.1.bin
ctfw.bin
cxgb4/t4fw-1.3.10.0.bin
cyzfirm.bin
daqboard2000_firmware.bin
dvb_driver_si2141_rom60.fw
dvb_driver_si2141_rom61.fw
dvb_driver_si2146_rom11.fw
dvb_driver_si2147_rom50.fw
dvb_driver_si2148_rom32.fw
dvb_driver_si2148_rom33.fw
dvb_driver_si2157_rom50.fw
dvb_driver_si2158_rom51.fw
dvb_driver_si2177_rom50.fw
dvb_driver_si2178_rom50.fw
fw.ram.bin
i1480-phy-0.0.bin
i1480-pre-phy-0.0.bin
i1480-usb-0.0.bin
i2400m-fw-sdio-1.3.sbcf
i2400m-fw-usb-1.5.sbcf
i6050-fw-usb-1.5.sbcf
idt82p33xxx.bin
inside-secure/eip197b/ifpp.bin
inside-secure/eip197b/ipue.bin
inside-secure/eip197d/ifpp.bin
inside-secure/eip197d/ipue.bin
isi4608.bin
isi4616.bin
isi608.bin
isi608em.bin
isi616em.bin
isight.fw
isl3886pci
isl3886usb
isl3887usb
iwlwifi-100-6.ucode
iwlwifi-1000-6.ucode
iwlwifi-130-5.ucode
iwlwifi-3165-10.ucode
iwlwifi-3168-26.ucode
iwlwifi-6000-6.ucode
iwlwifi-6000g2b-IWL6000G2B_UCODE_API_MAX.ucode
iwlwifi-7265D-26.ucode
iwlwifi-8000-10.ucode
iwlwifi-8000-12.ucode
iwlwifi-8000-13.ucode
iwlwifi-8000-8.ucode
iwlwifi-8000C-26.ucode
iwlwifi-8000C-33.ucode
iwlwifi-8265-26.ucode
iwlwifi-8265-33.ucode
iwlwifi-9000-pu-a0-jf-a0--26.ucode
iwlwifi-9000-pu-a0-jf-a0--33.ucode
iwlwifi-9000-pu-a0-jf-a0-34.ucode
iwlwifi-9000-pu-a0-jf-a0-43.ucode
iwlwifi-9000-pu-a0-jf-b0--33.ucode
iwlwifi-9000-pu-a0-jf-b0-34.ucode
iwlwifi-9000-pu-a0-jf-b0-43.ucode
iwlwifi-9000-pu-a0-lc-a0--26.ucode
iwlwifi-9260-th-a0-jf-a0--26.ucode
iwlwifi-9260-th-a0-jf-a0--33.ucode
iwlwifi-9260-th-a0-jf-a0-34.ucode
iwlwifi-9260-th-a0-jf-a0-43.ucode
iwlwifi-9260-th-b0-jf-b0--33.ucode
iwlwifi-BzBnj-a0-fm-a0-72.ucode
iwlwifi-BzBnj-a0-fm4-a0-72.ucode
iwlwifi-BzBnj-a0-gf-a0-72.ucode
iwlwifi-BzBnj-a0-gf4-a0-72.ucode
iwlwifi-BzBnj-a0-hr-b0-72.ucode
iwlwifi-BzBnj-b0-fm-b0-72.ucode
iwlwifi-Qu-a0-hr-a0--33.ucode
iwlwifi-Qu-a0-hr-a0-34.ucode
iwlwifi-Qu-a0-hr-a0-43.ucode
iwlwifi-Qu-a0-hr-a0-48.ucode
iwlwifi-Qu-a0-hr-a0-50.ucode
iwlwifi-Qu-a0-jf-b0--26.ucode
iwlwifi-Qu-a0-jf-b0--33.ucode
iwlwifi-Qu-a0-jf-b0-34.ucode
iwlwifi-Qu-a0-jf-b0-43.ucode
iwlwifi-Qu-a0-jf-b0-48.ucode
iwlwifi-Qu-a0-jf-b0-50.ucode
iwlwifi-Qu-b0-hr-b0-43.ucode
iwlwifi-Qu-b0-jf-b0-43.ucode
iwlwifi-QuQnj-a0-hr-a0-34.ucode
iwlwifi-QuQnj-a0-hr-a0-43.ucode
iwlwifi-QuQnj-a0-hr-a0-48.ucode
iwlwifi-QuQnj-a0-hr-a0-50.ucode
iwlwifi-QuQnj-a0-jf-b0-34.ucode
iwlwifi-QuQnj-a0-jf-b0-43.ucode
iwlwifi-QuQnj-b0-hr-b0-43.ucode
iwlwifi-QuQnj-b0-hr-b0-48.ucode
iwlwifi-QuQnj-b0-hr-b0-50.ucode
iwlwifi-QuQnj-b0-hr-b0-59.ucode
iwlwifi-QuQnj-b0-hr-b0-63.ucode
iwlwifi-QuQnj-b0-hr-b0-66.ucode
iwlwifi-QuQnj-b0-hr-b0-72.ucode
iwlwifi-QuQnj-b0-jf-b0-48.ucode
iwlwifi-QuQnj-b0-jf-b0-50.ucode
iwlwifi-QuQnj-b0-jf-b0-59.ucode
iwlwifi-QuQnj-b0-jf-b0-63.ucode
iwlwifi-QuQnj-b0-jf-b0-66.ucode
iwlwifi-QuQnj-b0-jf-b0-72.ucode
iwlwifi-QuQnj-f0-hr-a0-34.ucode
iwlwifi-QuQnj-f0-hr-a0-43.ucode
iwlwifi-QuQnj-f0-hr-a0-48.ucode
iwlwifi-QuQnj-f0-hr-a0-50.ucode
iwlwifi-SoSnj-a0-gf-a0-59.ucode
iwlwifi-SoSnj-a0-gf-a0-63.ucode
iwlwifi-SoSnj-a0-gf-a0-66.ucode
iwlwifi-SoSnj-a0-gf-a0-72.ucode
iwlwifi-SoSnj-a0-gf4-a0-59.ucode
iwlwifi-SoSnj-a0-gf4-a0-63.ucode
iwlwifi-SoSnj-a0-gf4-a0-66.ucode
iwlwifi-SoSnj-a0-gf4-a0-72.ucode
iwlwifi-SoSnj-a0-hr-b0-59.ucode
iwlwifi-SoSnj-a0-hr-b0-63.ucode
iwlwifi-SoSnj-a0-hr-b0-66.ucode
iwlwifi-SoSnj-a0-hr-b0-72.ucode
iwlwifi-SoSnj-a0-jf-b0-63.ucode
iwlwifi-SoSnj-a0-jf-b0-66.ucode
iwlwifi-SoSnj-a0-jf-b0-72.ucode
iwlwifi-SoSnj-a0-mr-a0-59.ucode
iwlwifi-SoSnj-a0-mr-a0-63.ucode
iwlwifi-SoSnj-a0-mr-a0-66.ucode
iwlwifi-SoSnj-a0-mr-a0-72.ucode
iwlwifi-bz-a0-fm-a0-72.ucode
iwlwifi-bz-a0-fm4-a0-72.ucode
iwlwifi-bz-a0-gf-a0-63.ucode
iwlwifi-bz-a0-gf-a0-66.ucode
iwlwifi-bz-a0-gf-a0-72.ucode
iwlwifi-bz-a0-gf4-a0-63.ucode
iwlwifi-bz-a0-gf4-a0-66.ucode
iwlwifi-bz-a0-gf4-a0-72.ucode
iwlwifi-bz-a0-hr-b0-63.ucode
iwlwifi-bz-a0-hr-b0-66.ucode
iwlwifi-bz-a0-hr-b0-72.ucode
iwlwifi-bz-a0-mr-a0-63.ucode
iwlwifi-bz-a0-mr-a0-66.ucode
iwlwifi-bz-a0-mr-a0-72.ucode
iwlwifi-gl-a0-fm-a0-72.ucode
iwlwifi-gl-b0-fm-b0-72.ucode
iwlwifi-ma-a0-fm-a0-66.ucode
iwlwifi-ma-a0-fm-a0-72.ucode
iwlwifi-ma-a0-gf-a0-59.ucode
iwlwifi-ma-a0-gf-a0-63.ucode
iwlwifi-ma-a0-gf-a0-66.ucode
iwlwifi-ma-a0-gf-a0-72.ucode
iwlwifi-ma-a0-gf4-a0-63.ucode
iwlwifi-ma-a0-gf4-a0-66.ucode
iwlwifi-ma-a0-gf4-a0-72.ucode
iwlwifi-ma-a0-hr-b0-63.ucode
iwlwifi-ma-a0-hr-b0-66.ucode
iwlwifi-ma-a0-hr-b0-72.ucode
iwlwifi-ma-a0-mr-a0-59.ucode
iwlwifi-ma-a0-mr-a0-63.ucode
iwlwifi-ma-a0-mr-a0-66.ucode
iwlwifi-ma-a0-mr-a0-72.ucode
iwlwifi-so-a0-gf-a0-48.ucode
iwlwifi-so-a0-gf-a0-50.ucode
iwlwifi-so-a0-gf-a0-59.ucode
iwlwifi-so-a0-gf-a0-63.ucode
iwlwifi-so-a0-gf-a0-66.ucode
iwlwifi-so-a0-hr-b0-48.ucode
iwlwifi-so-a0-hr-b0-50.ucode
iwlwifi-so-a0-hr-b0-59.ucode
iwlwifi-so-a0-hr-b0-63.ucode
iwlwifi-so-a0-hr-b0-66.ucode
iwlwifi-so-a0-jf-b0-48.ucode
iwlwifi-so-a0-jf-b0-50.ucode
iwlwifi-so-a0-jf-b0-59.ucode
iwlwifi-so-a0-jf-b0-63.ucode
iwlwifi-so-a0-jf-b0-66.ucode
iwlwifi-su-z0-43.ucode
iwlwifi-ty-a0-gf-a0-48.ucode
iwlwifi-ty-a0-gf-a0-50.ucode
iwmc3200wifi-calib-sdio.bin
iwmc3200wifi-lmac-sdio.bin
iwmc3200wifi-umac-sdio.bin
ks7010sd.rom
lantiq/xrx200_phy11g_a14.bin
lantiq/xrx200_phy11g_a22.bin
lantiq/xrx200_phy22f_a14.bin
lantiq/xrx200_phy22f_a22.bin
lantiq/xrx300_phy11g_a21.bin
lantiq/xrx300_phy22f_a21.bin
lattice-ecp3.bit
libertas/cf8305.bin
libertas/gspi8385.bin
libertas/gspi8385_helper.bin
libertas/gspi8385_hlp.bin
libertas/usb8388.bin
libertas_cs.fw
libertas_cs_helper.fw
liquidio/lio_210nv.bin
liquidio/lio_210sv.bin
liquidio/lio_23xx.bin
liquidio/lio_410nv.bin
me2600_firmware.bin
me4000_firmware.bin
mediatek/mt7996/mt7996_rom_patch.bin
mediatek/mt7996/mt7996_wa.bin
mediatek/mt7996/mt7996_wm.bin
mrvl/pcie8766_uapsta.bin
mrvl/pcie8997_uapsta.bin
mrvl/sd8786_uapsta.bin
mrvl/sd8977_uapsta.bin
mrvl/sd8987_uapsta.bin
mrvl/sd8997_uapsta.bin
mrvl/sdiouart8997_combo_v4.bin
mrvl/usb8997_uapsta.bin
mt7603_e1.bin
mt7603_e2.bin
mt7628_e1.bin
mt7628_e2.bin
mwl8k/fmimage_8363.fw
mwl8k/helper_8363.fw
ni6534a.bin
niscrb01.bin
niscrb02.bin
nx3fwct.bin
nx3fwmn.bin
nxromimg.bin
orinoco_ezusb_fw
pca200e_ecd.bin2
phanfw-4.0.579.bin
plfxlc/lifi-x.bin
prism2_ru.fw
prism_ap_fw.bin
prism_sta_fw.bin
ql2600_fw.bin
ql2700_fw.bin
ql8100_fw.bin
ql8300_fw.bin
regulatory.db
regulatory.db.p7s
renesas_usb_fw.mem
rtl_bt/rtl8723b_config.bin
rtl_bt/rtl8723bs_config.bin
rtl_bt/rtl8723ds_config.bin
rtl_bt/rtl8723ds_fw.bin
rtl_bt/rtl8761a_config.bin
rtlwifi/rtl8723bu_bt.bin
rtlwifi/rtl8723efw.bin
s5k4ecgx.bin
sd8686.bin
sd8686_helper.bin
softing-4.6/bcard.bin
softing-4.6/bcard2.bin
softing-4.6/cancard.bin
softing-4.6/cancrd2.bin
softing-4.6/cansja.bin
softing-4.6/ldcard.bin
softing-4.6/ldcard2.bin
solos-FPGA.bin
solos-Firmware.bin
solos-db-FPGA.bin
symbol_sp24t_prim_fw
symbol_sp24t_sec_fw
tehuti/firmware.bin
ti-connectivity/wl18xx-conf.bin
tms380tr.bin
usb8388.bin
wd719x-risc.bin
wd719x-wcs.bin
wil6210_sparrow_plus.fw
wil6436.brd
wil6436.fw
wlan/prima/WCNSS_qcom_wlan_nv.bin
wlwifi-SoSnj-a0-mr-a0-59.ucode
zd1201-ap.fw
zd1201.fw
)) {
$ALLOW_MISSING->{$fw} = 1;
}
sub copy_fw {
my ($src, $dstfw) = @_;
my $dest = "$target/$dstfw";
return if -f $dest || -f "${dest}.xz";
mkpath dirname($dest);
system ("cp '$src' '$dest'") == 0 or die "copy '$src' to '$dest' failed!\n";
}
my ($fwdone, $fwbase_name, $error) = ({}, {}, 0);
sub add_fw :prototype($$) {
my ($fw, $mod) = @_;
return if $fw =~ m/\b(?:microcode_amd|amd_sev_)/; # contained in amd64-microcode
my $fw_name = basename($fw);
$fwbase_name->{$fw_name} = 1;
return if $mod =~ m|^kernel/sound|;
return if $mod =~ m|^kernel/drivers/isdn|;
# skip ZyDas usb wireless, use package zd1211-firmware instead
return if $fw =~ m|^zd1211/|;
# skip atmel at76c50x wireless networking chips, use package atmel-firmware instead
return if $fw =~ m|^atmel_at76c50|;
# skip Bluetooth dongles based on the Broadcom BCM203x, use package bluez-firmware instead
return if $fw =~ m|^BCM2033|;
return if $fw =~ m|^xc3028-v27\.fw|; # found twice!
return if $fw =~ m|^ueagle-atm/|; # where are those files?
return if $fwdone->{$fw};
$fwdone->{$fw} = 1;
my $fwdest = $fw;
if ($fw eq 'libertas/gspi8686.bin') {
$fw = 'libertas/gspi8686_v9.bin';
}
if ($fw eq 'libertas/gspi8686_hlp.bin') {
$fw = 'libertas/gspi8686_v9_helper.bin';
}
if ($fw eq 'PE520.cis') {
$fw = 'cis/PE520.cis';
}
if (-e "$target/$fw") {
warn "WARN: allowed to skip existing '$fw'\n" if $ALLOW_MISSING->{$fw};
return;
}
if (-f "$fwsrc3/$fw") {
copy_fw("$fwsrc3/$fw", $fwdest);
return;
}
my $module = basename($mod);
my $name = basename($fw);
if ($name =~ /\*/) {
my $sr = `find '$target' \\( -type f -o -type l \\) -name '$name'`;
chomp $sr;
if ($sr) {
for my $f (split("\n", $sr)) {
print "found $f for GLOB '$name'\n";
my $f_name = basename($f);
$fwbase_name->{$f_name} = 1;
}
warn "WARN: allowed to skip existing '$fw'\n" if $ALLOW_MISSING->{$fw};
return;
} else {
return if $ALLOW_MISSING->{$fw};
warn "ERROR: unable to find FW for GLOB ($module): $fw\n";
$error++;
}
}
if ($fw =~ m|/|) {
return if $ALLOW_MISSING->{$fw};
warn "ERROR: unable to find firmware ($module): $fw\n";
$error++;
return;
}
my $sr = `find '$target' \\( -type f -o -type l \\) -name '$name'`;
chomp $sr;
if ($sr) {
my $found = 0;
for my $f (split("\n", $sr)) {
if ($f =~ /$fw$/) {
print "found linked $fw in $f\n";
$found = 1;
}
}
return if $found;
}
$sr = `find '$fwsrc2' -type f -name '$name'`;
chomp $sr;
if ($sr) {
print "found $fw in $sr\n";
copy_fw($sr, $fwdest);
return;
}
$sr = `find '$fwsrc3' -type f -name '$name'`;
chomp $sr;
if ($sr) {
print "found $fw in $sr\n";
copy_fw($sr, $fwdest);
return;
}
return if $ALLOW_MISSING->{$fw};
return if $fw =~ m|^dvb-| || $fw =~ m|\.inp$|;
warn "ERROR: unable to find firmware ($module): $fw\n";
$error++;
return;
}
open(my $fd, '<', $fwlist);
while(defined(my $line = <$fd>)) {
chomp $line;
my ($fw, $mod) = split(/\s+/, $line, 2);
add_fw($fw, $mod);
}
close($fd);
for my $fw ($FORCE_INCLUDE->@*) {
add_fw($fw, 'FORCE_INCLUDE');
}
exit($error) if $error;
my $target_fw_string = `find '$target' -type f -o -type l`;
chomp $target_fw_string;
exit(-1) if !$target_fw_string;
my $all_fw_files = [ split("\n", $target_fw_string) ];
my ($keep, $delete) = (0, 0);
my $link_target = {};
for my $f (@$all_fw_files) {
next if ! -l $f;
my $link = basename($f);
my $file = readlink($f);
my $target = basename($file);
$link_target->{$target} = 1 if $fwbase_name->{$link};
$link_target->{$file} = 1 if $fwbase_name->{$link};
}
for my $f (@$all_fw_files) {
my $name = basename($f);
if ($fwbase_name->{$name}) {
$keep++;
} elsif ($link_target->{$name}) {
#print "skip link target '$f'\n";
$keep++;
} else {
print "delete unreferenced $f\n";
unlink $f or warn "ERROR deleting '$f' - $!\n";
$delete++;
}
}
print "cleanup end result: keep: $keep, delete: $delete\n";
exit(0);