mirror of
https://github.com/webmin/webmin.git
synced 2026-02-08 08:19:57 +00:00
45 lines
1.1 KiB
Perl
Executable File
45 lines
1.1 KiB
Perl
Executable File
#!/usr/local/bin/perl
|
|
# search_user.cgi
|
|
# Search the password file, and display a list of results
|
|
|
|
require './user-lib.pl';
|
|
&ReadParse();
|
|
%access = &get_module_acl();
|
|
@ulist = &list_users();
|
|
$m = $in{'match'};
|
|
$w = $in{'what'};
|
|
if ($in{'field'} eq "group") {
|
|
$in{'field'} = "gid";
|
|
$w = &my_getgrnam($w) || $w;
|
|
}
|
|
for($i=0; $i<@ulist; $i++) {
|
|
$u = $ulist[$i];
|
|
$f = $u->{$in{'field'}};
|
|
if ($m == 0 && $f eq $w ||
|
|
$m == 1 && eval { $f =~ /$w/i } ||
|
|
$m == 4 && index($f, $w) >= 0 ||
|
|
$m == 2 && $f ne $w ||
|
|
$m == 3 && eval { $f !~ /$w/i } ||
|
|
$m == 5 && index($f, $w) < 0 ||
|
|
$m == 6 && $f < $w ||
|
|
$m == 7 && $f > $w) {
|
|
push(@match, $u) if (&can_edit_user(\%access, $u));
|
|
}
|
|
}
|
|
if (@match == 1) {
|
|
&redirect("edit_user.cgi?num=".$match[0]->{'num'});
|
|
}
|
|
else {
|
|
&ui_print_header(undef, $text{'search_title'}, "");
|
|
if (@match == 0) {
|
|
print "<b>$text{'search_notfound'}</b>. <p>\n";
|
|
}
|
|
else {
|
|
print "<b>",&text('search_found', scalar(@match)),"</b><br>\n";
|
|
@match = &sort_users(\@match, $config{'sort_mode'});
|
|
&users_table(\@match);
|
|
}
|
|
&ui_print_footer("", $text{'index_return'});
|
|
}
|
|
|