1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
|
#!/usr/bin/perl -w
# This code is a part of Slash, and is released under the GPL.
# Copyright 1997-2001 by Open Source Development Network. See README
# and COPYING for more information, or see http://slashcode.com/.
# $Id: hof.pl,v 1.5.2.6 2001/07/12 14:02:17 jamie Exp $
use strict;
use Slash;
use Slash::Display;
use Slash::Utility;
##################################################################
sub main {
my $slashdb = getCurrentDB();
my $form = getCurrentForm();
my $section = $slashdb->getSection($form->{section});
header(getData('head'), $section->{section});
my @topcomments = ( );
# getCommentsTop() comes in two versions as of 2001/07/12. The old
# version takes impossibly long to do a 3-way join on 2.5 million
# rows. The new version isn't really written yet. So I'm just
# commenting this out until the new version is done. See
# Slash/DB/MySQL/MySQL.pm getCommentsTop(). - Jamie 2001/07/12
# my $topcomments;
# $topcomments = $slashdb->getCommentsTop($form->{sid});
# for (@$topcomments) {
# my $top = $topcomments[@topcomments] = {};
# # leave as "aid" for now
# @{$top}{qw(section sid anickname title pid subj cdate sdate uid cid score)} = @$_;
# my $user_email = $slashdb->getUser($top->{uid}, ['fakeemail', 'nickname']);
# @{$top}{'fakeemail', 'nickname'} = @{$user_email}{'fakeemail', 'nickname'};
# }
slashDisplay('main', {
width => '98%',
actives => $slashdb->countStories(),
visited => $slashdb->countStoriesTopHits(),
activea => $slashdb->countStoriesAuthors(),
activep => $slashdb->countPollquestions(),
activesub => $slashdb->countStorySubmitters(),
currtime => timeCalc(scalar localtime),
topcomments => \@topcomments,
});
# this is commented out ... ?
# Not I. -Brian
# if (0) { # only do this in static mode
# print "<P>";
# titlebar("100%", "Most Popular Slashboxes");
# my $boxes = $I{dbobject}->getDescription('sectionblocks');
# my(%b, %titles);
#
# while (my($bid, $title) = each %$boxes) {
# $b{$bid} = 1;
# $titles{$bid} = $title;
# }
#
#
# #Something tells me we could simplify this with some
# # thought -Brian
# foreach my $bid (keys %b) {
# $b{$bid} = $I{dbobject}->countUsersIndexExboxesByBid($bid);
# }
#
# my $x;
# foreach my $bid (sort { $b{$b} <=> $b{$a} } keys %b) {
# $x++;
# $titles{$bid} =~ s/<(.*?)>//g;
# print <<EOT;
#
# <B>$b{$bid}</B> <A HREF="$I{rootdir}/users.pl?op=preview&bid=$bid">$titles{$bid}</A><BR>
# EOT
# last if $x > 10;
# }
# }
footer($form->{ssi});
}
#################################################################
createEnvironment();
main();
1;
|
