#!/usr/bin/env perl

use File::Find;
use File::Spec;

use strict;
use warnings;

my $file = shift @ARGV or die 'Missing required argument';
die "Extra arguments: @ARGV" if @ARGV;

if (-d $file) {
	my $game = uc ($file);

	# Rename to uppercase for no reason
	finddepth ({no_chdir => 1, wanted => sub {
		use Data::Dumper;
		my @comp = File::Spec->splitdir($File::Find::name);
		$comp[$#comp] = uc $comp[$#comp];
		rename ($File::Find::name, File::Spec->join(@comp))
			or die `pwd`." $! $File::Find::name";
	}}, $file);

	# Pack it up
	$file = "$game.tar.lzma";
	system ("tar cf - $game |lzma -c -9 >$file")
		and die;
}

$file =~ /^([^\.]*)/ or die;
my $game = $1;
my $pkgname = lc $game;

# Determine the exe file
$_ = $file;
my $compress = /\.lzma$/ ? 'lzma -d'
	: (/\.gz$/ ? 'gzip -d'
	: (/\.bz(2)?$/ ? "bzip$1 -d"
	: 'cat'));
my $exefile;
foreach (split ("\n", `$compress <$file |tar tf -`)) {
	last if $exefile and $exefile =~ /$game.exe/i;
	/\.exe/i and $exefile = $_;
};

# Create a wrapper script
my ($exedir, $exebase) = File::Spec->splitdir($exefile);
$exefile =~ s/\//\\/g;
open (my $wrapper, ">$pkgname");
print $wrapper "#!/bin/sh\n";
print $wrapper 'exec /usr/bin/dosbox -c "$(echo -e "MOUNT C: /usr/games/dos\nC:\nCD '.
	$exedir.'\n'.$exebase.' $*\nEXIT")"';
close $wrapper;

open (my $desktop, ">$pkgname.desktop");
# Create a desktop entry
print $desktop <<EOF;
[Desktop Entry]
Categories=Game;ArcadeGame;
Name=$pkgname
Type=Application
Terminal=false
Exec=$pkgname
Icon=$pkgname
Comment=A classic DOS game
EOF
close $desktop;

my $banner = `date '+\%a \%b \%d \%Y'`;
chomp $banner;
$banner.= " ".(`rpm --eval %{packager}` or 'Need Real Name <nrn@example.com>');
chomp $banner;
open (my $spec, ">$pkgname.spec");
print $spec <<EOF;
Name:           $pkgname
Version:        1
Release:        1
Summary:        $pkgname

Group:          Amusements/Games
License:        Distributable
Source0:        $file
Source1:        $pkgname
Source2:        $pkgname.desktop
Source3:        $pkgname.png
BuildRoot:      %{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n)
BuildArch:      noarch

BuildRequires:  desktop-file-utils
Requires:       /usr/bin/dosbox

\%description
FILL ME IN


\%prep 
\%setup -q -c


\%build


\%install
rm -rf \$RPM_BUILD_ROOT

# Directory structure
install -d \$RPM_BUILD_ROOT%{_prefix}/games/dos
install -d \$RPM_BUILD_ROOT%{_bindir}
install -d \$RPM_BUILD_ROOT%{_datadir}/applications
install -d \$RPM_BUILD_ROOT%{_datadir}/pixmaps

# Files
cp -a * \$RPM_BUILD_ROOT%{_prefix}/games/dos
install -pm 0755 %{SOURCE1} \$RPM_BUILD_ROOT%{_bindir}
desktop-file-install %{SOURCE2} --vendor='' --dir=\$RPM_BUILD_ROOT%{_datadir}/applications
install -pm 0644 %{SOURCE3} \$RPM_BUILD_ROOT%{_datadir}/pixmaps


\%clean
rm -rf \$RPM_BUILD_ROOT


\%files
\%defattr(-,root,root,-)
%{_prefix}/games/dos
%{_bindir}/%{name}
%{_datadir}/applications/%{name}.desktop
%{_datadir}/pixmaps/%{name}.png
#\%doc


\%changelog
* $banner - 1-1
- Initial packaging
EOF
close $spec;

# Icon
-f "$pkgname.png" or `touch "$pkgname.png"`;