mirror of
https://github.com/mumble-voip/mumble.git
synced 2025-10-26 11:19:16 +00:00
17 lines
334 B
Perl
17 lines
334 B
Perl
#! /usr/bin/perl
|
|
|
|
use warnings;
|
|
use strict;
|
|
|
|
open(F, ">../src/mumble/mumble_flags.qrc");
|
|
print F qq|<RCC><qresource>\n|;
|
|
|
|
opendir(D, "../icons/flags");
|
|
my @entries = grep /\.png/, readdir(D);
|
|
foreach my $e (@entries) {
|
|
print F qq|<file alias="flags/$e">../../icons/flags/$e</file>\n|;
|
|
}
|
|
print F qq|</qresource></RCC>\n|;
|
|
close(F);
|
|
|