use Bugzilla::Constants;
use Bugzilla::Error;
use Bugzilla::Install::Localconfig;
+use Bugzilla::Install::Util qw(install_string);
use Bugzilla::Util;
use File::Find;
sub _fix_perms {
my ($name, $owner, $group, $perms) = @_;
#printf ("Changing $name to %o\n", $perms);
- chown $owner, $group, $name
- || warn "Failed to change ownership of $name: $!";
+ chown $owner, $group, $name
+ or warn install_string('chown_failed', { path => $name,
+ error => $! }) . "\n";
chmod $perms, $name
- || warn "Failed to change permissions of $name: $!";
+ or warn install_string('chmod_failed', { path => $name,
+ error => $! }) . "\n";
}
sub _check_web_server_group {
checking_dbd => 'Checking available perl DBD modules...',
checking_optional => 'The following Perl modules are optional:',
checking_modules => 'Checking perl modules...',
+ chmod_failed => '##path##: Failed to change permissions: ##error##',
+ chown_failed => '##path##: Failed to change ownership: ##error##',
commands_dbd => <<EOT,
YOU MUST RUN ONE OF THE FOLLOWING COMMANDS (depending on which database
you use):