-#################################################################################################
-#################################################################################################
-#################################################################################################
-# Subrutines to replace values between {} on loaded templates
-#################################################################################################
-#################################################################################################
-#################################################################################################
-
-sub ok_print
-{
- my $message = shift(@_);
- $message =~ s/(\n)/<br>\1/g;
- my $retval = $ok_tpl;
- $retval =~ s/\{MESSAGE\}/$message/g;
- return $retval;
-}
-
-sub operror_print
-{
- my $message = shift(@_);
- $message =~ s/(\n)/<br>\1/g;
- my $retval = $operror_tpl;
- $retval =~ s/\{ERROR\}/$message/g;
- return $retval;
-}
-
-sub synerror_print
-{
- my $message = shift(@_);
- my $us = shift(@_);
- $message =~ s/(\n)/<br>\1/g;
- my $retval = $synerror_tpl;
- $retval =~ s/\{ERROR\}/$message/g;
- $retval =~ s/\{USAGE\}/$us/g;
- return $retval;
-}
-
-#################################################################################################
-#################################################################################################
-#################################################################################################
-# Subrutines to replace values between {} on loaded messages
-#################################################################################################
-#################################################################################################
-#################################################################################################
-
-sub ok_replace
-{
- my $message = shift(@_);
- my $key = shift(@_);
- my $s_uri = shift(@_);
- $message =~ s/\{KEY\}/$key/g;
- $message =~ s/\{URI\}/$s_uri/g;
- return $message;
-}
-
-sub err_replace
-{
- my $message = shift(@_);
- my $key = shift(@_);
- my $s_uri = shift(@_);
- my $errr = shift(@_);
- $message =~ s/\{KEY\}/$key/g;
- $message =~ s/\{URI\}/$s_uri/g;
- $message =~ s/\{ERROR\}/$errr/g;
- $message =~ s/\{OLDKEY\}/$errr/g;
- return $message;
-}
-
-sub parser_error_replace
-{
- my $no_at = shift(@_);
- $no_at =~ s/(.*)\sat\s(.*)/\1/g;
- $no_at =~ s/</</g;
- $no_at =~ s/>/>/g;
- return $no_at;
-}