|
Server : Apache/2.2.2 (Fedora) System : Linux App1.pathumtani.go.th 2.6.20-1.2320.fc5smp #1 SMP Tue Jun 12 19:40:16 EDT 2007 i686 User : apache ( 48) PHP Version : 5.2.9 Disable Function : NONE Directory : /usr/libexec/webmin/mailboxes/ |
Upload File : |
#!/usr/bin/perl
# find.cgi
# Display users matching some criteria
require './mailboxes-lib.pl';
&ReadParse();
# Build a list of all matching users
foreach $uinfo (&list_mail_users()) {
if (&can_user(@$uinfo)) {
if ($in{'match'} == 0 && lc($in{'user'}) eq $uinfo->[0] ||
$in{'match'} == 1 && $uinfo->[0] =~ /\Q$in{'user'}\E/i) {
push(@users, $uinfo);
}
}
}
if (@users == 1) {
# Can go direct to user
&redirect("list_mail.cgi?user=$users[0]->[0]");
}
elsif (@users == 0) {
# No matches
&error($text{'find_enone'});
}
else {
# Show table of matches
&ui_print_header(undef, $text{'find_title'}, "");
print &text('find_results', $in{'user'}),"<p>\n";
&show_users_table(\@users);
&ui_print_footer();
}