This commit was manufactured by cvs2svn to create branch 'moogle'.

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