view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

use strict;

use 5.005;

use lib 'inc';

use Alzabo::GUI::Mason::Build;

use File::Basename;
use File::Path;
use File::Spec;

config() unless grep { $_ eq '--dist' } @ARGV;

my $build =
    Alzabo::GUI::Mason::Build->new
    ( module_name    => 'Alzabo::GUI::Mason',
      requires       => { 'HTML::Mason'   => 1.10,
                          'URI::FromHash' => 0,
                        },
      sign           => 1,
      license        => 'perl',
    );

$build->create_build_script;

$build->add_to_cleanup( File::Spec->catdir( qw( lib Alzabo GUI Mason ) ),
                        File::Spec->catfile( qw( lib Alzabo GUI Mason Config.pm ) ) );

sub config
{
    my $config;
    if ( eval { require Alzabo::GUI::Mason::Config; 1; } )
    {
	$config = \%Alzabo::GUI::Mason::Config::CONFIG;
    }
    elsif ( eval { require AlzaboGUI::Mason::Config; 1; } )
    {
	$config = \%AlzaboGUI::Mason::Config::CONFIG;
    }
    elsif ( eval { require Alzabo::Config; 1; } )
    {
	$config = \%Alzabo::Config::CONFIG;
    }

    my $default = $config->{mason_web_dir};
    $default =~ s,/alzabo\Z,, if $default;

    do
    {
	print "\n *** The directory you selected does not exist ***\n"
            if defined $config->{mason_web_dir} && ! -d $config->{mason_web_dir};

	print <<'EOF';

Where would you like to install the mason components for this
interface (this must be under your component root)?  NOTE: The
installer will create an 'alzabo' subdirectory under the directory
given.

If you are not familiar with Mason, any directory underneath your web
server's document root will work.
EOF

	$config->{mason_web_dir} =
	    Module::Build->prompt( '  Mason directory?', $default || '' );
    } while ( ! -d $config->{mason_web_dir} );

    $config->{mason_web_dir} = File::Spec->catdir( $config->{mason_web_dir}, 'alzabo' );

    print <<'EOF';

You can pick a custom file extension for the mason components.  Only
components called as top level components will be given this
extension.  Components intended only for use by other components have
no extension at all
EOF


    $config->{mason_extension} =
	Module::Build->prompt( '  Mason component file extension?',
			       $config->{mason_extension} || '.mhtml' );

    write_config_module($config);
}

sub write_config_module
{
    my $config = shift;

    my @keys =
        qw( mason_web_dir mason_extension );

    my $file = File::Spec->catfile( 'inc', 'Alzabo', 'GUI', 'Mason', 'Config.pm.tmpl' );
    local *MOD;
    open MOD, "<$file"
	or die "can't open $file: $!\n";
    my $mod = join '', <MOD>;
    close MOD
	or die "can't close $file: $!\n";

    my $c = "(\n";
    foreach my $k (@keys)
    {
	my $val;
	if ( length $config->{$k} )
	{
	    $val = "'$config->{$k}'";
	}
	else
	{