#!/usr/bin/perl
# ==================================================================
# Gossamer Links - enhanced directory management system
#
#   Website  : https://gossamer-threads.com/
#   Support  : https://gossamer-threads.com/scripts/support/
#   CVS Info : 087,068,085,094,083      
#   Revision : $Id: review.cgi,v 1.7 2005/03/22 08:18:05 jagerman Exp $
#
# Copyright (c) 2001 Gossamer Threads Inc.  All Rights Reserved.
# Redistribution in part or in whole strictly prohibited. Please
# see LICENSE file for full details.
# ==================================================================

use strict;
use lib '/home/sites/home/web/perl/admin';
use Links qw/:objects/;
#use Links qw/$PLG/;
Links::init('/home/sites/home/web/perl/admin');
Links::init_user();

use CGI;
use Links::User::MyReview;
#use encoding 'utf8';
use open ':std', ':encoding(utf-8)';

local $SIG{__DIE__} = \&Links::fatal;

if ($PLG->dispatch('check_request', \&Links::check_request)) {
    $PLG->dispatch('handle_review', \&Links::User::MyReview::handle);
}