base

gms/KT/httpd/wwwroot/tts/TTXMarkup.pm

@@ -0,0 +1,55 @@
+package TTXMarkup;
+#
+# Markup language pack/upack routines
+#
+# This module is a part of Trouble Ticket Express package
+# http://www.troubleticketexpress.com
+#
+# COPYRIGHT: 2004-2005, United Web Coders
+# http://www.unitedwebcoders.com
+#
+# $Revision: 156 $
+# $Date: 2006-05-05 03:02:47 -0400 (Fri, 05 May 2006) $
+#
+#
+$TTXMarkup::VERSION='2.22';
+BEGIN {
+  $TTXMarkup::REVISION = '$Revision: 156 $';
+  if ($TTXMarkup::REVISION =~ /(\d+)/) {
+    $TTXMarkup::REVISION = $1;
+  }
+};
+use strict;
+
+# ========================================================================= html
+
+sub html {
+  my $buff = shift;
+  $buff =~ s/\[(\/?)(u|b|i|code)]/<$1$2>/gi; # [b] [i] [u] [code]
+  $buff =~ s/\[\(]/[/g; # [[]
+  $buff =~ s/\[url\s+([^]\s]+)\s*]/<a href="$1" target=_blank>/gi;
+  $buff =~ s/\[\/url\s*]/<\/a>/gi;
+  $buff =~ s/\[(image|img)\s+([^]\s]+)\s*]/<img src="$2">/gi;
+  $buff =~ s/\[\/(image|img)\s*]/<\/img>/gi;
+  $buff =~ s/  /&nbsp; /g;
+  return $buff;
+}
+# ========================================================================= help
+
+sub help {
+  return undef;
+}
+# ======================================================================== strip
+
+sub strip {
+  my $buff = shift;
+  $buff =~ s/\[(\/?)(u|b|i|code)]//gi; # [b] [i] [u] [code]
+  $buff =~ s/\[\(]/[/g; # [[]
+  $buff =~ s/\[url\s+([^]\s]+)\s*]/$1 /gi;
+  $buff =~ s/\[\/url\s*]/ /gi;
+  $buff =~ s/\[(image|img)\s+([^]\s]+)\s*]/$2 /gi;
+  $buff =~ s/\[\/(image|img)\s*]//gi;
+  return $buff;
+}
+1;
+#