sub ProcCreatingResourceInfo
{
my $dayNumber = POSIX::strftime("%j", gmtime time);
my $YearLastDigit = substr $build_number, 3, 1;
print "******************************************\n";
print "* Creating resource info ********\n";
print "******************************************\n";
my $myrepo_version = $repo_version;
$myrepo_version =~ s/\./,/g;
open FH, ">/tmp/pspp.rc";
print FH "PSPP-SPLASH ICON \"$MingwDir/share/pspp/icons/pspp.ico\"\n";
print FH "1 VERSIONINFO\n";
print FH "FILEVERSION $YearLastDigit$dayNumber$KindIndicator\n";
print FH "BEGIN\n";
print FH " BLOCK \"StringFileInfo\"\n";
print FH " BEGIN\n";
print FH " BLOCK \"080904E4\"\n";
print FH " BEGIN\n";
print FH " VALUE \"CompanyName\", \"
http://sourceforge.net/projects/pspp4windows\"\n";
print FH " VALUE \"FileDescription\", \"PSPPIRE (PSPP+GUI)\"\n";
print FH " VALUE \"FileVersion\", \"\"\n";
print FH " VALUE \"InternalName\", \"$binaryversion\"\n";
print FH " VALUE \"LegalCopyright\", \"(c)Free Software Foundation, Inc. GPLv3\"\n";
print FH " VALUE \"OriginalFilename\", \"PSPPIRE.exe\"\n";
print FH " VALUE \"ProductName\", \"$psppRepoVersion $gitbranch\"\n";
print FH " VALUE \"ProductVersion\", \"$psppVersion $WindowsPlatform\"\n";
print FH " END\n";
print FH " END\n";
print FH " BLOCK \"VarFileInfo\"\n";
print FH " BEGIN\n";
print FH " VALUE \"Translation\", 0x809, 1252\n";
print FH " END\n";
print FH "END\n";
close FH;
system("$MingwPrefix-w64-mingw32-windres /tmp/pspp.rc -O coff -o /tmp/pspp.res") == 0 or die "system 'windres' failed: $?";
}