Thanks, this is what I think we need.
I followed the ancient directions and the following was generated. Is this OK? And did it work? It appears to me that there might be a problem with httpd. If this script could be updated, it would be helpful to schools who want to use SME and allow students to develop skills in web page creation.
The response (sorry for including this, but it might mean something):
You now have the option to enable user web directories.
Would you like to enable User Directories? (y/N): y
WARNING in /etc/e-smith/templates//etc/httpd/conf/httpd.conf/90e-smithAccess50userdir: *WARNING* esmith::config(/home/e-smith/accounts) called with old database path. The following package needs to be updated: at /usr/lib/perl5/site_perl/esmith/config.pm line 374
esmith::config::TIEHASH('esmith::config', '/home/e-smith/accounts') called at /etc/e-smith/templates//etc/httpd/conf/httpd.conf/90e-smithAccess50userdir line 6
eval 'package esmith::__TEMPLATE__::1; ;
#line 1 /etc/e-smith/templates//etc/httpd/conf/httpd.conf/90e-smithAccess50userdir
my %conf;
tie %conf, \'esmith::config\';
my %accounts;
tie %accounts, \'esmith::config\', \'/home/e-smith/accounts\';
my $key;
my $value;
my $result = "";
# Global user dir assignments. Give ~user access
# Turned on/off globally through the var UserPublicWeb
# eg. to turn on run /sbin/e-smith/config set UserPublicWeb on
# to turn off run /sbin/e-smith/config set UserPublicWeb off
if(defined($conf{\'UserPublicWeb\'}) && ($conf{\'UserPublicWeb\'} eq "on"))
{
$result .= "#-------------------------------------------------------\\n";
$result .= "# Alias to enable /user aswell as /~user access\\n";
$result .= "#-------------------------------------------------------\\n";
while (($key,$value) = each %accounts)
{
my ($type, %properties) = split (/\\|/, $value, -1);
if ($type eq \'user\')
{
$result .= "Alias /$key /home/e-smith/files/users/$key/home/public_html\\n";
}
}
$result .= "\\n";
$result .= "#-------------------------------------------------------\\n";
$result .= "#Generic user dir access directive\\n";
$result .= "#-------------------------------------------------------\\n";
$result .= "<Directory /home/e-smith/files/users/*/home/public_html>\\n";
$result .= " AllowOverride FileInfo AuthConfig Limit\\n";
$result .= " Options MultiViews Indexes SymLinksIfOwnerMatch IncludesNoExec\\n";
$result .= " <Limit GET POST OPTIONS PROPFIND>\\n";
$result .= " Order allow,deny\\n";
$result .= " Allow from all\\n";
$result .= " </Limit>\\n";
$result .= " <Limit PUT DELETE PATCH PROPPATCH MKCOL COPY MOVE LOCK UNLOCK>\\n";
$result .= " Order deny,allow\\n";
$result .= " Deny from all\\n";
$result .= " </Limit>\\n";
$result .= "</Directory>\\n";
}
$result;
;' called at /usr/lib/perl5/vendor_perl/5.8.5/Text/Template.pm line 319
Text::Template::fill_in('Text::Template=HASH(0x923e2d8)', 'HASH', 'ARRAY(0x90b9b20)', 'PACKAGE', 'esmith::__TEMPLATE__::1', 'BROKEN', 'CODE(0x9157410)', 'UNTAINT', 1, ...) called at /usr/lib/perl5/vendor_perl/5.8.5/Text/Template.pm line 382
Text::Template::fill_in_file('/etc/e-smith/templates//etc/httpd/conf/httpd.conf/90e-smithAc...', 'HASH', 'ARRAY(0x90b9b20)', 'PACKAGE', 'esmith::__TEMPLATE__::1', 'BROKEN', 'CODE(0x9157410)', 'UNTAINT', 1, ...) called at /usr/lib/perl5/site_perl/esmith/templates.pm line 528
esmith::templates::processTemplate('HASH(0x8e812ec)') called at /sbin/e-smith/expand-template line 45
WARNING: Template processing succeeded for //etc/httpd/conf/httpd.conf: 1 fragment generated warnings
at /sbin/e-smith/expand-template line 45
'httpd' is not a valid service name
38 Replies
13910 Views