mkflags.pl « scripts - github.com/mumble-voip/mumble.git - Unnamed repository; edit this file 'description' to name the repository.

Welcome to mirror list, hosted at ThFree Co, Russian Federation.

mkflags.pl « scripts - github.com/mumble-voip/mumble.git - Unnamed repository; edit this file 'description' to name the repository.

summary refs log tree commit diff

path: root/scripts/mkflags.pl

blob: fe3fea9a815f732c308c39471a3f1c698d62ad9b (plain)

#! /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);