Previous Thread
Next Thread
Print Thread
Rate Thread
Joined: Oct 2001
Posts: 22
Junior Member
Junior Member
Offline
Joined: Oct 2001
Posts: 22
here's a chunk of code from public_pntf_summary.pl which is part of the Who's Online script..

i was interested in making it so the list of usernames shows up sorted by name instead of the random order it seems to be showing up in..

i'm a bit unfamiliar with Perl and was wondering how i'd take this list of User Numbers and convert it into a sorted list of User Names.

here's the block of code..

my @userstring;
my $counter = 0;
my @xa = @{ $r->{'sortorder'} };
my $diff = 0;

if($vars_pntf{CountOnly} eq "limit") {
if(scalar(@xa) > $vars_pntf{NameLimit}) {
$diff = scalar(@xa) - $vars_pntf{NameLimit};
@xa = @xa[0 .. ($vars_pntf{NameLimit} - 1)];
}
}

$r->{"overflow"} += $diff;

####### Here's where it takes the user number and adds it to the list to show in the Who's Online
SORTORDER: foreach my $number (@xa) {
my $pn = &GetPubName($number);
my $user_status = (&OpenProfile($number))[8];
next SORTORDER unless $pn;
push(@userstring, qq($wol_se_s$pn$wol_se_e));
}

Sponsored Links
Joined: Aug 2000
Posts: 335
Member
Member
Offline
Joined: Aug 2000
Posts: 335
Replace

Code
[/code]with

[code]

Joined: Oct 2001
Posts: 22
Junior Member
Junior Member
Offline
Joined: Oct 2001
Posts: 22
great. thanks. smile

Joined: Aug 2000
Posts: 335
Member
Member
Offline
Joined: Aug 2000
Posts: 335
It occurred to me that this could be simplfied a bit by using a hash, instead of an array of arrays, assuming that public names are unique. I'm not sure which method is more efficient, though.

[code][/code]


Link Copied to Clipboard
Donate Today!
Donate via PayPal

Donate to UBBDev today to help aid in Operational, Server and Script Maintenance, and Development costs.

Please also see our parent organization VNC Web Services if you're in the need of a new UBB.threads Install or Upgrade, Site/Server Migrations, or Security and Coding Services.
Recommended Hosts
We have personally worked with and recommend the following Web Hosts:
Stable Host
bluehost
InterServer
Visit us on Facebook
Member Spotlight
Posts: 70
Joined: January 2007
Forum Statistics
Forums63
Topics37,573
Posts293,925
Members13,849
Most Online5,166
Sep 15th, 2019
Today's Statistics
Currently Online
Topics Created
Posts Made
Users Online
Birthdays
Top Posters
AllenAyres 21,079
JoshPet 10,369
LK 7,394
Lord Dexter 6,708
Gizmo 5,833
Greg Hard 4,625
Top Posters(30 Days)
Top Likes Received
isaac 82
Gizmo 20
Brett 7
Morgan 2
Top Likes Received (30 Days)
None yet
The UBB.Developers Network (UBB.Dev/Threads.Dev) is ©2000-2024 VNC Web Services

 
Powered by UBB.threads™ PHP Forum Software 8.0.0
(Preview build 20221218)