#!/usr/bin/env perl

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

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

main();

