#!/usr/bin/perl
# ==================================================================
# Gossamer Links - enhanced directory management system
#
# Website : http://gossamer-threads.com/
# Support : http://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 'PATH';
use Links qw/$PLG $IN/;
use Links::User::Review;
use Unicode::MapUTF8 qw(to_utf8 from_utf8 utf8_supported_charset);


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

Links::init('PATH');
Links::init_user();


my $contents = $IN->param('Review_Contents');
$contents =~ s/([\200-\377]+)/from_utf8({ -string => $1, -charset => 'ISO-8859-1'})/eg;
$IN->param('Review_Contents' => $contents );

# print STDERR "contents is not $contents \n";

#print STDERR "BLA";

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