#!/usr/bin/perl

#<ENC>46</ENC>

package dmodrw;

########################################################################
# COPYRIGHT NOTICE:
#
# Copyright 2008 FocalMedia.Net All Rights Reserved.
#
# Selling the code for this program without prior written consent 
# from FocalMedia.Net is expressly forbidden. You may not 
# redistribute this program in any shape or form.
# 
# This program is distributed "as is" and without warranty of any
# kind, either express or implied. In no event shall the liability 
# of FocalMedia.Net for any damages, losses and/or causes of action 
# exceed the total amount paid by the user for this software.
#
########################################################################

#### EDIT HERE -- FOR WINDOWS/IIS BASED INSTALLATIONS ONLY #######

$config_cgi = "../config.cgi"; ## <-- CHANGE THIS LINE TO THE FULL SERVER PATH TO config.cgi

# THE PATH ON A WINDOWS INSTALLATION WILL LOOK SOMETHING LIKE THIS:
# $config_cgi = "c:/inetpub/webpub/cgi-bin/pseek/config.cgi";

#### DO NOT CHANGE ANYTHING BELOW THIS LINE #################

#use FindBin;
#use lib $FindBin::Bin;
use CGI::Carp qw(fatalsToBrowser);
use CGI;
use MIME::Base64 qw(decode_base64 encode_base64);

require Exporter;
use vars qw/@ISA @EXPORT @EXPORT_OK $copyright $prgname/;

@ISA = qw(Exporter);

@EXPORT = qw(convert_cat); 

@EXPORT_OK = qw($cattstring);

####################################################################


sub convert_cat
{
my ($cattstring) = @_;

if (substr($cattstring, 0, 1) eq " ")
	{
	$cattstring = substr($cattstring, 1, length($cattstring) - 1);
	}
	

$cattstring =~ s/ /-/gi;
$cattstring =~ s/\$//gi;
$cattstring =~ s/\&//gi;
$cattstring =~ s/\+//gi;
$cattstring =~ s/\,//gi;
$cattstring =~ s/\///gi;
$cattstring =~ s/\\//gi;
$cattstring =~ s/://gi;
$cattstring =~ s/\;//gi;
$cattstring =~ s/\=//gi;
$cattstring =~ s/\?//gi;
$cattstring =~ s/\@//gi;

$cattstring =~ s/>//gi;
$cattstring =~ s/>//gi;
$cattstring =~ s/\#//gi;
$cattstring =~ s/\%//gi;
$cattstring =~ s/\{//gi;
$cattstring =~ s/\}//gi;
$cattstring =~ s/\|//gi;
$cattstring =~ s/\^//gi;
$cattstring =~ s/\~//gi;
$cattstring =~ s/\[//gi;
$cattstring =~ s/\]//gi;
$cattstring =~ s/\`//gi;
$cattstring =~ s/_/-/gi;

$cattstring =~ s/-------/-/gi;
$cattstring =~ s/------/-/gi;
$cattstring =~ s/-----/-/gi;
$cattstring =~ s/----/-/gi;
$cattstring =~ s/---/-/gi;
$cattstring =~ s/--/-/gi;

if ($cattstring > 200) { $cattstring = substr($cattstring, 0, 240); }

return ($cattstring);
}





1;