First version of hxsp (new version of UWOBO implemented in Perl by

[helm.git] / helm / hxsp / splitted / 8.strrep.p.pl

diff --git a/helm/hxsp/splitted/8.strrep.p.pl b/helm/hxsp/splitted/8.strrep.p.pl
new file mode 100644 (file)
index 0000000..90557fe
--- /dev/null
+++ b/helm/hxsp/splitted/8.strrep.p.pl
@@ -0,0 +1,76 @@
+#################################################################################################
+#################################################################################################
+#################################################################################################
+# 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;
+}