#!perl -w

require 5.008002;
use strict;
use ExtUtils::MakeMaker;

print <<MESSAGE;

Starting XUL-Node installation.

MESSAGE

my $NAME               = 'XUL::Node';
my $SERVER_SCRIPT_NAME = 'xul-node-server';
my $SERVER_ROOT_DIR    = 'xul-node';
my $SERVER_XUL_DIR     = "$SERVER_ROOT_DIR/xul";
my $SERVER_JS_DIR      = "$SERVER_XUL_DIR/jslib";
my $SERVER_JSLIB       = "$SERVER_XUL_DIR/NS6lib.js";
my $BLIB_SERVER_ROOT   = "blib/$SERVER_ROOT_DIR";
my $BLIB_SERVER_XUL    = "blib/$SERVER_XUL_DIR";
my $BLIB_SERVER_JS     = "blib/$SERVER_JS_DIR";
my $BLIB_SERVER_JSLIB  = "blib/$SERVER_JSLIB";
my $MODULE             = 'lib/XUL/Node.pm';
my $SERVER_SCRIPT      = "bin/$SERVER_SCRIPT_NAME";
my $JS_BUILD_SCRIPT    = 'bin/js-build';
my $BLIB_TESTS_XUL     = "$BLIB_SERVER_XUL/tests.xul";

my $PORT = prompt("\nEnter port for $SERVER_SCRIPT_NAME:\n", 8077);
my $INSTALL_DIR = prompt(
	"\nWhere do you want to install the server root directory?\n",
	$^O eq 'MSWin32'?
		"C:/perl/$SERVER_ROOT_DIR":
		"/usr/local/$SERVER_ROOT_DIR"
);

WriteMakefile(
	NAME          => $NAME,
	VERSION_FROM  => $MODULE,
	ABSTRACT      => 'server-side XUL for Perl',
	AUTHOR        => 'Ran Eilam <eilara@cpan.org>',
	dist          => {COMPRESS => 'gzip --force --best'},
	PL_FILES      => {"$SERVER_SCRIPT.PL" => $SERVER_SCRIPT},
	EXE_FILES     => [$SERVER_SCRIPT],
	clean         => {FILES => "$SERVER_SCRIPT"},
	PREREQ_PM     => {
		'Aspect'                             => '0.11',
		'Digest::MD5'                        => '2.3',
		'LWP'                                => '5.75',
		'MIME::Types'                        => '1.13',
		'POE'                                => '0.2802',
		'POE::Component::Server::HTTPServer' => '0.9',
		'Scalar::Util'                       => '1.13',
		'Test::Class'                        => '0.03',
		'Test::Exception'                    => '0.15',
		'XML::Parser'                        => '2.34',
	},
);

print <<FINAL_MESSAGE;

When installation is complete (after the 'make install' stage), you can
start the XUL-Node server using the command:

  xul-node-server

And access the examples by pointing Firefox at the default page:

  firefox http://localhost${\( $PORT == 80? '': ":$PORT" )}

FINAL_MESSAGE

package MY;

# add targets for building server, and installing it
sub postamble {qq[
build_server :: pm_to_blib
	\@\$(ECHO) "building server root directory in blib..."
	\@\$(PERL) $JS_BUILD_SCRIPT
	\@\$(MOD_INSTALL) $SERVER_XUL_DIR $BLIB_SERVER_XUL
	\@\$(RM_RF) $BLIB_SERVER_JS
	\@\$(RM_F) $SERVER_JSLIB
	\@\$(RM_F) $BLIB_TESTS_XUL

install_server :: build_server
	\@\$(ECHO) "installing server root directory from blib to $INSTALL_DIR..."
	\@\$(MOD_INSTALL) $BLIB_SERVER_ROOT $INSTALL_DIR
	\@\$(RM_F) $SERVER_SCRIPT
]}

# add install_server target to install as dependency
sub install {
	my $class = shift;
	my $basic = $class->SUPER::install(@_);
	my $add   = 'install_server';
	$basic    =~ s/^(install\s+::\s+.*)$/$1 $add/m;
	$basic;
}

# add port and install_dir to script generator command line args
sub processPL {
	my $inherited = shift->SUPER::processPL(@_);
	$inherited =~ s
		|($SERVER_SCRIPT\.PL $SERVER_SCRIPT)|$1 $PORT $INSTALL_DIR|;
	$inherited;
}