#!/usr/bin/perl -T
use strict;
use warnings;
use CGI;
my @reviews;
my $cgidata = new CGI;
$cgidata->import_names('P');
unless ($P::id =~ m/^\w{1,30}$/ && -e "./$P::id.reviews") {
print $cgidata->header(-status=>'404');
print '
Calumny!!!Oh! how I yearn for meaningful input, but you deny it me!';
exit;
}
open (DATA, "./$P::id.reviews");
while () {
my @fields = split(/\|/, $_);
if ($P::tags) {
if ($fields[1] && $fields[1] =~ m/\b$P::tags\b/) {
push (@reviews, $fields[0]);
}
} else {
push (@reviews, $fields[0]);
}
}
my $review = $reviews[int(rand $#reviews)];
print $cgidata->redirect("http://$P::id.stumbleupon.com/review/$review/");
exit 0;