40 lines
1.3 KiB
Perl
40 lines
1.3 KiB
Perl
--- inc/Alzabo/GUI/Mason/Build.pm~ Wed Feb 18 19:54:38 2004
|
|
+++ inc/Alzabo/GUI/Mason/Build.pm Wed Oct 13 15:39:43 2004
|
|
@@ -25,12 +25,10 @@
|
|
{
|
|
my $self = shift;
|
|
|
|
- $self->_make_mason_dirs( 'schema' );
|
|
-
|
|
require Alzabo::GUI::Mason::Config;
|
|
my $base = Alzabo::GUI::Mason::Config::mason_web_dir();
|
|
my $count = $self->_copy_dir( [ cwd(), 'mason' ],
|
|
- [ $base, 'schema' ] );
|
|
+ [ $base ] );
|
|
if ($count)
|
|
{
|
|
warn <<'EOF';
|
|
@@ -123,21 +121,9 @@
|
|
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}{user} = $ENV{WWWOWN};
|
|
|
|
- $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}{group} = $ENV{WWWGRP};
|
|
|
|
$self->{Alzabo}{uid} = (getpwnam( $self->{Alzabo}{user} ))[2] || $<;
|
|
$self->{Alzabo}{gid} = (getgrnam( $self->{Alzabo}{group} ))[2] || $(;
|