58 lines
1.3 KiB
Perl
Executable File
58 lines
1.3 KiB
Perl
Executable File
#!/usr/bin/perl -w
|
|
|
|
use strict;
|
|
|
|
my $out = "../Settings.bundle/en.lproj/Acknowledgements.strings";
|
|
my $plistout = "../Settings.bundle/Acknowledgements.plist";
|
|
|
|
unlink $out;
|
|
|
|
open(my $outfh, '>', $out) or die $!;
|
|
open(my $plistfh, '>', $plistout) or die $!;
|
|
|
|
print $plistfh <<'EOD';
|
|
<?xml version="1.0" encoding="UTF-8"?>
|
|
<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
|
|
<plist version="1.0">
|
|
<dict>
|
|
<key>StringsTable</key>
|
|
<string>Acknowledgements</string>
|
|
<key>PreferenceSpecifiers</key>
|
|
<array>
|
|
EOD
|
|
for my $i (sort glob("*.license"))
|
|
{
|
|
my $value=`cat $i`;
|
|
$value =~ s/\r//g;
|
|
$value =~ s/\n/\r/g;
|
|
$value =~ s/[ \t]+\r/\r/g;
|
|
$value =~ s/\"/\'/g;
|
|
my $key=$i;
|
|
$key =~ s/\.license$//;
|
|
|
|
my $cnt = 1;
|
|
my $keynum = $key;
|
|
for my $str (split /\r\r/, $value)
|
|
{
|
|
print $plistfh <<"EOD";
|
|
<dict>
|
|
<key>Type</key>
|
|
<string>PSGroupSpecifier</string>
|
|
<key>FooterText</key>
|
|
<string>$keynum</string>
|
|
</dict>
|
|
EOD
|
|
|
|
print $outfh "\"$keynum\" = \"$str\";\n";
|
|
$keynum = $key.(++$cnt);
|
|
}
|
|
}
|
|
|
|
print $plistfh <<'EOD';
|
|
</array>
|
|
</dict>
|
|
</plist>
|
|
EOD
|
|
close($outfh);
|
|
close($plistfh);
|