MemberSearch 2.0 This is SP1.3.2 module modification, done by Golovanov.net This mod allows the admin to search for the members by: Username, Public Name, Email, Gender, ICQ, AIM, YIM and Location. This allows the admin to search using wildcards * for leading/middle/trailing word. If you just type the word/character, it will search for any occurence of your entry. example: jo* shows john, josh, Jogger, etc. *er shows minister, Jasper, killer, etc. mo*or shows moderator, Motor, motivator, etc. Altan, dOCda S!, Golovanov.net http://forum.dog-tracker.com Sources/SubList.pl 'markallasread',"BoardIndex.pl&MarkAllRead", 'memsearch1',"Search.pl&MemSearch1", 'memsearch2',"Search.pl&MemSearch2", Sources/Admin.pl - $txt{'6'}
- $mstxt{'01'}
Sources/Search.pl sub plushSearch1 { sub MemSearch1 { &is_admin; $yytitle = "$mstxt{'01'}"; $yymain .= qq~

$mstxt{'01'} $mstxt{'02'} $txt{'35'} $mstxt{'03'} $txt{'69'} $txt{'231'} $txt{'513'} $txt{'603'} $txt{'604'} $txt{'227'}   $mstxt{'04'}    $mstxt{'05'} $txt{'193'}

~; &template; exit; } sub MemSearch2 { &is_admin; $yytitle = "$mstxt{'01'}"; $find = $FORM{'find'}; $entry = $FORM{'value'}; if($find eq "none") { &fatal_error("$mstxt{'06'}") } $yymain .= qq~~; $im ="$txt{'513'}"; $alx = 8; $look = ""; if($find eq "9") {$im = "$txt{'603'}"; $alx = $find;} if($find eq "10") {$im = "$txt{'604'}"; $alx = $find;} if ($entry eq "" || $entry eq "*") { $entry = "\\w";} if($entry =~ /\*/) { $entry =~ s/\*+/\*/g; if($entry =~ /\*$/) {$entry=substr($entry,0,length($entry)-1); $look = "\^$entry";} elsif($entry =~ /^\*/) {$entry=substr($entry,1); $look = "$entry\$";} else { ($f,$l) = split(/\*/,$entry); $look = "\^($f).*($l)\$"; } } else {$look = $entry;} if($find eq "11" && $entry !~ /F/ig) {$look = "^M";} $yymain .= qq~

~; fopen(FILE, "$memberdir/memberlist.txt")|| die "$mstxt{'07'}"; @name = ; fclose(FILE); chop (@name); $count = 0; if($find eq "name") { foreach $user (@name) { if($user =~ /$look/ig) { &getuserdata; &shownames; $count++} } } else { foreach $user (@name) { &getuserdata; if ($member[$find] =~ /$look/ig) { &shownames; $count++;} } } if(!$count) {$yymain .= qq~~;} else { $tmp = ($count == 1 ? "$mstxt{'10'}" : "$mstxt{'11'}"); $yymain .= qq~~;} $yymain .= qq~ $txt{'35'} $mstxt{'03'} $txt{'69'} $im $txt{'231'} $txt{'227'} $mstxt{'08'} $txt{'193'} $count $tmp $mstxt{'09'}. $txt{'193'}

~; &template; exit; } sub shownames { $yymain .= qq~ $user $member[1] $member[2] $icqaimyim $member[11] $member[15] ~; return; } sub getuserdata { fopen(FILE,"$memberdir/$user.dat"); @member = ; fclose(FILE); chomp(@member); $icqaimyim = "$member[$alx]"; return; } english.lng 1; $mstxt{'01'} = "Search Members"; $mstxt{'02'} = "SEARCH :"; $mstxt{'03'} = "Alias"; $mstxt{'04'} = "contains"; $mstxt{'05'} = "Use * or leave blank to search for ALL
You can also use the wildcard character * for leading/middle/trailing keyword."; $mstxt{'06'} = "Please select a search criteria in the dropdown box."; $mstxt{'07'} = "Can't find member list file"; $mstxt{'08'} = "Sorry, didn't found what you're looking for."; $mstxt{'09'} = "found"; $mstxt{'10'} = "entry"; $mstxt{'11'} = "entries";