dosbox-x/make-windows-release.pl

#!/usr/bin/perl
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime();
my $datestr = sprintf("%04u%02u%02u-%02u%02u%02u",$year+1900,$mon+1,$mday,$hour,$min,$sec);
my $zipname = "dosbox-x-windows-$datestr.zip";

my $ziptool = "vs2015/tool/zip.exe";

exit 0 if -f $zipname;

die unless -f $ziptool;

mkdir "release" unless -d "release";
mkdir "release/windows" unless -d "release/windows";

die "bin directory not exist" unless -d "bin";

print "$zipname\n";

my @filelist = ();

my @platforms = ('Win32', 'x64');
my @builds = ('Release', 'Release SDL2');
my @files = ('dosbox.reference.conf', 'dosbox-x.exe', 'FREECG98.bmp', 'changelog.txt');

foreach $platform (@platforms) {
	foreach $build (@builds) {
		foreach $file (@files) {
			$addfile = "bin/$platform/$build/$file";
			die "Missing file $addfile" unless -e $addfile;

			push(@filelist, $addfile);
		}
	}
}

# do it
$r = system($ziptool, '-9', "release/windows/$zipname", @filelist);
exit 1 unless $r == 0;