base

gms/LG/httpd/wwwroot/tts/TTXSearch.pm

@@ -0,0 +1,114 @@
+package TTXSearch;
+#
+# Common search functions
+#
+# This module is a part of Trouble Ticket Express package
+# http://www.troubleticketexpress.com
+#
+# COPYRIGHT: 2005, United Web Coders
+# http://www.unitedwebcoders.com
+#
+# $Revision: 156 $
+# $Date: 2006-05-05 03:02:47 -0400 (Fri, 05 May 2006) $
+#
+
+$TTXSearch::VERSION='2.22';
+BEGIN {
+  $TTXSearch::REVISION = '$Revision: 156 $';
+  if ($TTXSearch::REVISION =~ /(\d+)/) {
+    $TTXSearch::REVISION = $1;
+  }
+};
+use strict;
+
+# ===================================================================== tokenize
+
+sub tokenize {
+  my $s = $_[0];
+  $s =~ s /\*/\\\*/g;
+  $s =~ s /\?/\\\?/g;
+  $s =~ s /\+/\\\+/g;
+  $s =~ s /\{/\\\{/g;
+  my @tokens;
+  while ($s =~ /"([^"]*)"/) {
+    my $t = $1;
+    push @tokens, $t;
+    $s =~ s/"[^"]*"//;
+  }
+  push @tokens, split(/ /, $s);
+  my @cleantokens;
+  foreach my $token (@tokens) {
+    $token =~ s/\s+/ /g;
+    $token =~ s/^\s//;
+    $token =~ s/\s+$//;
+    next if $token eq undef;
+    next if grep(/^$token$/i, @cleantokens);
+    push @cleantokens, $token;
+  }
+  return \@cleantokens;
+}
+
+# ===================================================================== abstract
+
+sub abstract {
+  my ($text, $tokens) = @_;
+  $text =~ s/<([^>]*)>/&lt;$1&gt;/g;
+#
+# mark tokens
+#
+  foreach my $token (@{$tokens}) {
+    $token =~ s/ /(\\s+|\\s+<b>|<\/b>\\s+)/g;
+    $text =~ s/\b($token)\b/<b>$1<\/b>/gi;
+  }
+#
+# remove enclosed token marks
+#
+  $text =~ s/(<b>[^<]*)<b>/$1/g;
+  $text =~ s/<\/b>([^<]*<\/b>)/$1/g;
+#
+# remove extra text
+#
+  $text =~ /^([^<]*)<b>/;
+  my @plain = split(/<b>[^<]*<\/b>/, $text);
+  if (@plain < 1) {
+    push @plain, '';
+  }
+  $text = "</b>$text<b>";
+  my @bold = split(/<\/b>[^<]*<b>/, $text);
+  my $i = 1;
+  my $out;
+  my $wcnt = 10;
+  foreach (@plain) {
+    my $pt = $_;
+    $pt =~ s/^\s+//;
+    $pt =~ s/\s+$//;
+    my @words = split(/\s+/, $pt);
+    if ($i == 1 && @bold > 0) {
+      if (@words > 5) {
+        $out = "... ".join(" ", splice(@words, -5));
+      } else {
+        $out = join(" ", @words);
+      }
+    } elsif ($bold[$i] eq undef) {
+      $wcnt *= 8 if @bold == 0;
+      if (@words > $wcnt / 2) {
+        $out .= join(" ", splice(@words, 0, $wcnt / 2))." ...";
+      } else {
+        $out .= join(" ", @words);
+      }
+    } else {
+      if (@words <= $wcnt) {
+        $out .= join(" ", @words);
+      } else {
+        $out .= join(" ", splice(@words, 0, $wcnt / 2)).
+                " ... ".
+                join(" ", splice(@words, $wcnt / (-2)));
+      }
+    }
+    $out .= " <b>$bold[$i]</b> " if $bold[$i] ne undef;
+    $i++;
+  }
+  return $out;
+}
+1;
+#