PAL.C.T MINI SHELL
#!/usr/bin/perl
require './filemin-lib.pl';
&ReadParse();
get_paths();
if (!$in{'owner'} || !$in{'group'}) {
&redirect("index.cgi?path=".&urlize($path));
}
(my $login, my $pass, my $uid, my $gid) = getpwnam($in{'owner'});
my $grid = getgrnam($in{'group'});
my $recursive;
if ($in{'recursive'} eq 'true') {
$recursive = '-R';
}
else {
$recursive = '';
}
my @errors;
if (!defined($login)) {
push @errors, "<b>".&html_escape($in{'owner'})."</b> $text{'error_user_not_found'}";
}
if (!defined($grid)) {
push @errors, "<b>".&html_escape($in{'group'})."</b> $text{'error_group_not_found'}";
}
if (scalar(@errors) > 0) {
print_errors(@errors);
}
else {
foreach $name (split(/\0/, $in{'name'})) {
if (system_logged("chown $recursive $uid:$grid ".
quotemeta("$cwd/$name")) != 0) {
push @errors, "$name - $text{'error_chown'}: $?";
}
}
if (scalar(@errors) > 0) {
print_errors(@errors);
}
else {
&redirect("index.cgi?path=".&urlize($path));
}
}
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`