mirror of
https://github.com/mumble-voip/mumble.git
synced 2025-10-26 11:19:16 +00:00
22 lines
584 B
Perl
Executable File
22 lines
584 B
Perl
Executable File
#! /usr/bin/perl
|
|
#
|
|
# Copyright 2005-2016 The Mumble Developers. All rights reserved.
|
|
# Use of this source code is governed by a BSD-style license
|
|
# that can be found in the LICENSE file at the root of the
|
|
# Mumble source tree or at <https://www.mumble.info/LICENSE>.
|
|
|
|
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);
|
|
|