#################################################################################################
#################################################################################################
#################################################################################################
# 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/</&lt;/g;
    $no_at =~ s/>/&gt;/g;
    return $no_at;
}
