#!/usr/bin/perl
use strict;
use warnings;

use File::Temp qw/tempfile/;

my @add_modules = qw(
DB_File
Getopt::Long
Pod::Usage
Pod::Select
Storable
Data::Dumper
Tie::Hash::Abbrev
Text::ParseWords
Term::ReadKey
Time::HiRes
Config::IniFiles
File::Find
File::Copy
File::Basename
File::Path
);

my $shell = '-add ' . join(';', @add_modules) . ' ' . join(' ', split /\n/, <<'HERE');
-exe mp3shell.exe
-bind mp3shell.pl[extract,0777]
-bind album.db[extract,0777]
-bind artist.db[extract,0777]
-bind cd.db[extract,0777]
-bind file.db[extract,0777]
-bind genre.db[extract,0777]
-bind songs.db[extract,0777]
-bind title.db[extract,0777]
-bind year.db[extract,0777]
-verbose
mp3shell.pl
HERE
$shell .= ' ' . join(" ", @ARGV) if @ARGV;

my ($fh, $file) = tempfile(UNLINK => 1);

print $shell;
print $fh $shell;

system('perlapp', "\@$file");

=pod

=head1 NAME

createexe - create stand-alone executables from mp3shell application

=head1 DESCRIPTION

Please see the documentation for the mp3shell application on how to
use this program.

This program requires that you have the File::Temp module installed.

=head1 AUTHOR

Steffen Mueller, mail at steffen-mueller dot net

=head1 COPYRIGHT

Copyright (c) 2003 Steffen Mueller. All rights reserved.
This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.

This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
Artistic License or the GNU General Public License for more
details.

=head1 SEE ALSO

L<mp3shell>

=cut