98 lines
2.2 KiB
Perl
98 lines
2.2 KiB
Perl
#!/usr/bin/perl
|
|
#
|
|
# Write the Apache style configuration file
|
|
sub write_apache_file{
|
|
|
|
debugmsg("sub write_apache_file",3);
|
|
|
|
#Local variables
|
|
my $now = localtime();
|
|
my $uid = "";
|
|
my $username = "";
|
|
my $webdir = "";
|
|
my $blogdir = "";
|
|
my $writeok = 0;
|
|
|
|
# Open TEMP file for writing
|
|
open(OUTFILE,">$GLOBALVARS{'tempfile'}") or die "$WRITE_TEMP_OPEN_ERROR\n";
|
|
|
|
print OUTFILE <<"ENDHEAD";
|
|
# $GLOBALVARS{'apacheconfigfile'}
|
|
#
|
|
#
|
|
# Suggested S9Y Apache configuration
|
|
#
|
|
# $PROGNAME_LONG v$GLOBALVARS{'version'}
|
|
#
|
|
# $now
|
|
ENDHEAD
|
|
|
|
foreach $uid(sort(keys(%USERDATA))) {
|
|
$username = $USERDATA{$uid}[0];
|
|
$webdir = $USERDATA{$uid}[1];
|
|
$blogdir = $USERDATA{$uid}[2];
|
|
|
|
if ($blogdir eq "") {
|
|
$blogdir="$webdir"
|
|
}else{
|
|
$blogdir="$webdir/$blogdir"
|
|
}
|
|
|
|
print OUTFILE <<"ENDBLOCK";
|
|
|
|
|
|
#
|
|
# $username
|
|
#
|
|
<Directory \"$blogdir\">
|
|
AllowOverride All
|
|
php_value include_path \".:$GLOBALVARS{'libdir'}:$GLOBALVARS{'libdir'}/$GLOBALVARS{'s9ydir'}:$GLOBALVARS{'libdir'}/\$GLOBALVARS{'s9ydir'}/bundled-libs/:$blogdir/\"
|
|
php_admin_value open_basedir \"$GLOBALVARS{'libdir'}:$GLOBALVARS{'libdir'}/$GLOBALVARS{'s9ydir'}:$blogdir/:/usr/bin/\"
|
|
php_admin_value post_max_size \"10M\"
|
|
php_admin_value upload_max_filesize \"10M\"
|
|
</Directory>
|
|
ENDBLOCK
|
|
|
|
}
|
|
|
|
# Close file
|
|
close(OUTFILE);
|
|
|
|
# Move Temporary File to Output File
|
|
|
|
if (($GLOBALVARS{'sudo'} eq 'Y') && ($LOGIN_UID != 0) && ($LOGIN_GID != 0)) {
|
|
print "\n";
|
|
$writeok = system($GLOBALVARS{'commandprefix'}." mv ".$GLOBALVARS{'tempfile'}." ".$GLOBALVARS{'apacheconfigfile'});
|
|
debugmsg("sudo mv: ".$writeok,4);
|
|
unless ($writeok == 0) {
|
|
return(3);
|
|
}
|
|
$writeok = system($GLOBALVARS{'commandprefix'}." chown root:root ".$GLOBALVARS{'apacheconfigfile'});
|
|
debugmsg("sudo chown: ".$writeok,4);
|
|
unless ($writeok == 0) {
|
|
return(4);
|
|
}
|
|
$writeok = system($GLOBALVARS{'commandprefix'}." chmod 0644 ".$GLOBALVARS{'apacheconfigfile'});
|
|
debugmsg("sudo chmod: ".$writeok,4);
|
|
unless ($writeok == 0) {
|
|
return(5);
|
|
}
|
|
return(0);
|
|
}elsif (rename($GLOBALVARS{'tempfile'},$GLOBALVARS{'apacheconfigfile'})) {
|
|
# Chmod file to rw-,r--,r-- (0644)
|
|
if (chmod(0644,$GLOBALVARS{'apacheconfigfile'})) {
|
|
return(0);
|
|
}else{
|
|
return (1);
|
|
}
|
|
}else{
|
|
return(2);
|
|
|
|
}
|
|
|
|
return(0);
|
|
}
|
|
|
|
# This line is needed to satisfy require
|
|
1;
|