#!/usr/bin/env perl

use strict;
use warnings;
use FindBin qw($Bin);
use lib "$Bin";
use SB::Defaults qw($CONFIG $SB_CONFIG $SB_PREFIX);
use SB::Logging;
use File::Spec;
require SB::Utils;

sub main() {
	my $config = SB::Utils::parseIni($SB_CONFIG, $CONFIG);
	$Logger->init(File::Spec->devnull());
	$Logger->setShowLogName(0);
	my $retval = SB::Utils::changeOwner($config->{'internal'}->{'httpd_owner'});
	exit $retval;
}

main();

