% my $rc = 0; % foreach my $celeb (@topcelebs) { % my $score = 5 + ($celeb->{num_nude_images} ? 2.5 : 0) + ($celeb->{num_titles} ? 2 : 0); % my $hsurl = $m->comp('/headshot.mc', celebname => $celeb->{celebname}); % my $curl = "/c/" . $celeb->{id} . "/" . $m->comp('/celebbase.mc', celebname => $celeb->{celebname}) . "/view?rsid=$ARGS{rsid}&marker=$ARGS{marker}"; % $rc++; % if ($rc == 3) { % $rc = 0; % } % } <& '/gendericon.mhtml', gender => $celeb->{gender} &> <% $celeb->{celebname} %> <% $celeb->{views} %> Views Content Rating: <& '/popbar.mhtml', score => $score, max => 10 &>

<%init> my $dbh = $m->comp('/connect_db.mc'); if (!$dbh) { return; } unless ($ENV{HTTP_REFERER} =~ /starseek\.com/i) { # Log hit $m->comp('log_hit.mc', zone => 'index'); } my @topcelebs; my $crit = $ARGS{g} ? "gender='$ARGS{g}'" : "1=1"; my $q = "SELECT * from celebs WHERE $crit ORDER BY views DESC,lastname LIMIT 27;"; my $sth = $dbh->prepare($q); $sth->execute(); while (my $_c = $sth->fetchrow_hashref()) { my %celeb = %$_c; my $titlesh = $dbh->prepare("SELECT COUNT(*) from movie_titles WHERE cid=?;"); $titlesh->execute($celeb{id}); $celeb{num_titles} = $titlesh->fetchrow_array(); push (@topcelebs, \%celeb); } $sth->finish; $dbh->disconnect; <%args> $cfg => {}