view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

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 =

Makefile.PL  view on Meta::CPAN

use strict;

unless (eval "use Module::Build::Compat 0.02; 1" ) {
    print "This module requires Module::Build to install itself.\n";

    require ExtUtils::MakeMaker;
    my $yn = ExtUtils::MakeMaker::prompt
        ('  Install Module::Build from CPAN?', 'y');

    if ($yn =~ /^y/i) {
        require Cwd;
        require File::Spec;
        require CPAN;

        # Save this 'cause CPAN will chdir all over the place.
        my $cwd = Cwd::cwd();
        my $makefile = File::Spec->rel2abs($0);

inc/Alzabo/GUI/Mason/Build.pm  view on Meta::CPAN

}

sub _get_uid_gid
{
    my $self = shift;

    return if ( exists $self->{Alzabo}{uid} &&
                exists $self->{Alzabo}{gid} );

    $self->{Alzabo}{user} =
        $self->prompt( <<'EOF',

What user would you like to own the directories and files used for the
Mason components as well as the components themselves?
EOF
                       $self->_possible_web_user );

    $self->{Alzabo}{group} =
        $self->prompt( <<'EOF',

What group would you like to own the directories and files used for
the Mason components as well as the components themselves?
EOF
                       $self->_possible_web_group );

    $self->{Alzabo}{uid} = (getpwnam( $self->{Alzabo}{user} ))[2] || $<;
    $self->{Alzabo}{gid} = (getgrnam( $self->{Alzabo}{group} ))[2] || $(;
}