#! /usr/bin/env perl
# 
# vim: set autoindent shiftwidth=4 tabstop=8:

# pirobase imperia gmbh is the sole owner and producer of its software "imperia".
# For our software license and copyright information please refer to: License.txt
# Copyright (C) 1995-2025 pirobase imperia gmbh.  All rights reserved.

sub RemoveFromStart
{
	local($sourceString, $charToRemove) = @_;
	$sPattern = '^' . $charToRemove . '+' ;
	$sourceString =~ s/^$charToRemove+//g;
	return $sourceString;
}

sub RemoveFromEnd
{
	local($sourceString, $charToRemove) = @_;
	$sPattern = $charToRemove . '+$' ;
	$sourceString =~ s/$charToRemove+$//g;
	return $sourceString;
}

sub ConvertToXmlAttribute
{
	local($value) = @_;
	return(&specialchar_cnv($value));
}

sub specialchar_cnv
{
	local($ch) = @_;

	$ch =~ s/&/&/g;		# &
	$ch =~ s/\"/"/g;	#"
	$ch =~ s/\'/'/g;	# '
	$ch =~ s/</&lt;/g;		# <
	$ch =~ s/>/&gt;/g;		# >
	return($ch);
}

sub JS_cnv
{
	local($ch) = @_;

	$ch =~ s/\"/\\\"/g;	#"
	return($ch);
}

1;