UBB.Developers Forums UBB.classic V6 MultiHack Mods [6.3.x] [beta] PM Folders 1.0 Beta

sub IN_Folder_Review_Delete_Move {

code:
[qb]

Code

sub getpublicnamee{
        my $public_names=$_[0];
        my $num;
        my $one;
        my @line;
        @all_member_nums;
        @all_members_list = grep(/d{8}/, &OpenFileAsArray("$vars_config{MembersPath}/memberslist.cgi"));
        my $count=0;
        foreach $one (@all_members_list) {
        @line = split (/|!!|/, $one);
              chomp($line[1]);
              push (@all_member_nums, $line[1]);
              $count++;
        }
        @this_member;
        my $found=0;
        my @all_members_list2;
        @all_member_nums2;
        @all_member_name;
        my $count2=0;
        if (-e "$vars_config{MembersPath}/publicmemberslist.cgi"){
                @all_members_list2 = grep(/d{8}/, &OpenFileAsArray("$vars_config{MembersPath}/publicmemberslist.cgi"));
                foreach $one (@all_members_list2) {
                        @line = split (/|!!|/, $one);
                        chomp($line[1]);
                        push (@all_member_nums2, $line[1]);
                        push (@all_member_name, $line[0]);
                        $count2++;
                }
        }
        if ($count2 != $count){
                my @public_name_file;
                THIS: foreach $one (@all_member_nums) {
                 # open profile
                        @this_member = &OpenProfile($one);
                        chomp($this_member[15]);
                        push (@public_name_file, "$this_member[15]|!!|$one");
                        if ($this_member[15] eq ''){
                                $this_member[15]=$this_member[0];
                        }
                        if  ($this_member[15] eq $public_names){
                                $num=$one;
                        }
                }
                &WriteFileAsArray("$vars_config{MembersPath}/publicmemberslist.cgi",@public_name_file);
                chmod(0777, "$vars_config{MembersPath}/publicmemberslist.cgi");
        }
        else
        {
               $count=0;
                THIS: foreach $one (@all_member_nums2) {
                        if  ($all_member_name[$count] eq $public_names){
                                $num=$one;
                        }
                        $count++;
                }
        }
        return $num;
}

[/qb]

                        $num = &GetUserNumber($in{username});

code:
[qb]

Code

                        $num=&getpublicnamee($in{username});

[/qb]