saint/discourse-legacysite-perl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

First pass at adding key files

Browse Source
This commit is contained in:
dsainty
2024-06-17 21:49:12 +10:00
commit aa25e9347f
1274 changed files with 392549 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

47
site/slowtwitch.com/cgi-bin/articles/admin/Plugins/NewestReviews.pm Normal file
View File

@ -0,0 +1,47 @@
# ==================================================================
# Plugins::NewestReviews - Auto Generated Program Module
#
# Plugins::NewestReviews
# Author : Jordan Rapp
# Version : 1.0
# Updated : Wed Sep 11 20:07:11 2008
#
# ==================================================================
#
package Plugins::NewestReviews;
# ==================================================================
use strict;
use GT::Base;
use GT::Plugins qw/STOP CONTINUE/;
use Links qw/:objects/;
# Inherit from base class for debug and error methods
@Plugins::NewestReviews::ISA = qw(GT::Base);
# Your code begins here.
# PLUGIN HOOKS
# ===================================================================
sub generate_newest_reviews {
my $mh = shift || 5;
require Links::Plugins;
#my $cfg = Links::Plugins::get_plugin_user_cfg('MostPopular');
my $db = $DB->table('Reviews');
my $linksdb = $DB->table('Links');
use Data::Dumper;
my $sth = $db->do("SELECT Review_Subject, Review_LinkID FROM glinks_Reviews WHERE Review_Validated = 'Yes' ORDER BY Review_Date DESC LIMIT 5");
my @loop;
while (my $row = $sth->fetchrow_hashref()) {
my $link = $linksdb->get($row->{Review_LinkID});
$link = Links::SiteHTML::tags('link',$link);
push @loop, { %$link, %$row };
}
return { NewestReviewsLinks => \@loop };
}
# Always end with a 1.
1;