Improving the script to report missing icons in icon packs. #1

Merged
germedeb merged 3 commits from sergiotarxz/IconToaster:master into master 2022-02-06 19:29:02 +01:00
1 changed files with 10 additions and 1 deletions
Showing only changes of commit 2751e2334d - Show all commits

View File

@ -47,15 +47,24 @@ while (my $line = <$desktop_filehandle>) {
close $desktop_filehandle;
open my $icon_filehandle, '<', $icon_search_file;
say '
Known Icons:
-------------
';
while (my $line = <$icon_filehandle>) {
chomp $line;
say $line;
$desktop_relation{$line} = 1;
}
close $icon_filehandle;
say '
Missing icons:
-------------
';
for my $key (keys %desktop_relation) {
unless ($desktop_relation{$key}) {
say qq($key is missing);
say $key;
}
}
EOF