File Coverage

blib/lib/CGI/FCKeditor.pm

Criterion	Covered	Total	%
statement	69	85	81.1
branch	18	30	60.0
condition	6	14	42.8
subroutine	10	10	100.0
pod	8	8	100.0
total	111	147	75.5

package CGI::FCKeditor;
use strict;
use warnings;

our $VERSION = '0.02';

sub new {
	my $class = shift;
	my $self = {
		name => undef,
		base => undef,
		width => '100%',
		height => '500',
		set => undef,
		value => undef,
		fck => undef,
	};
	bless($self, $class);

	my ($name,$base,$set,$value) =@_;
	$self->set_name($name || 'fck');
	$self->set_base($base || 'FCKeditor');
	$self->set_set($set || 'Default');
	$self->set_value($value || '');
	return $self;
}

sub set_name {
	my $self = shift;
	if (@_) { $self->{name} = shift }
	return $self->{name};
}

sub set_base {
	my $self = shift;
	if (@_) { $self->{base} = shift }
	return $self->{base};
}

sub set_width {
	my $self = shift;
	if (@_) { $self->{width} = shift }
	return $self->{width};
}

sub set_height {
	my $self = shift;
	if (@_) { $self->{height} = shift }
	return $self->{height};
}

sub set_set {
	my $self = shift;
	if (@_) { $self->{set} = shift }
	return $self->{set};
}

sub set_value {
	my $self = shift;
	if (@_) { $self->{value} = shift }
	return $self->{value};
}

sub fck {
	my $self = shift;
	my $value = $self->{value};

	#For HTML Convert
	$value =~ s/&/&/g;		# &
	$value =~ s/\"/"/g;	# "
	$value =~ s/\'/'/g;		# '
	$value =~ s/
	$value =~ s/>/>/g;		# >

	#Browser Check
	unless ($ENV{'HTTP_USER_AGENT'}) {
		$ENV{'HTTP_USER_AGENT'} = 'test';
	}
	my $sAgent = $ENV{'HTTP_USER_AGENT'};
	my $iVersion = undef;
	my $uFlag = 0;
	if(($sAgent =~ /MSIE/i) && !($sAgent =~ /mac/i) && !($sAgent =~ /Opera/i)) {
		$iVersion = substr($sAgent,index($sAgent,'MSIE') + 5,3);
		if ($iVersion >= 5.5){
			$uFlag++;
		}
	} elsif($sAgent =~ /Gecko\//i) {
		$iVersion = substr($sAgent,index($sAgent,'Gecko/') + 6,8);
		if ($iVersion >= 20030210){
			$uFlag++;
		}
	}

	#Start Form Render
	my $name = $self->{name};
	my $base = $self->{base};
	my $width = $self->{width};
	my $height = $self->{height};
	my $set = $self->{set};

	my $Html = '';
	if($uFlag) {
		my $Link = $base . "editor/fckeditor.html?InstanceName=$name";
		if($set ne '') {
			$Link .= "&Toolbar=$set";
		}
		#// Render the linked hidden field.
		$Html .= "" ;

		#// Render the configurations hidden field.
		my $wk = $name."___Config";
		$Html .= "" ;

		#// Render the editor IFRAME.
		$wk = $name."___Frame";
		$Html .= "";
	} else {
		my $WidthCSS = undef;
		my $HeightCSS = undef;

		if($width =~ /\%/g){
			$WidthCSS = $width;
		} else {
			$WidthCSS = $width . 'px';
		}
		if($height =~ /\%/g){
			$HeightCSS = $height;
		} else {
			$HeightCSS = $height . 'px';
		}
		$Html .= "$value";
	}
	$Html .= '';

	$self->{fck} = $Html;
	return $self->{fck};
}

1;
__END__