[Rt-commit] r2673 - in rt/branches/PLATANO-EXPERIMENTAL: . html/Search lib/RT/Search

[jesse at bestpractical.com]

Author: jesse
Date: Sat Apr 16 02:47:18 2005
New Revision: 2673

Added:
   rt/branches/PLATANO-EXPERIMENTAL/lib/RT/Search/Googleish.pm
Removed:
   rt/branches/PLATANO-EXPERIMENTAL/lib/RT/Search/Quick.pm
Modified:
   rt/branches/PLATANO-EXPERIMENTAL/   (props changed)
   rt/branches/PLATANO-EXPERIMENTAL/html/Search/Simple.html
Log:
 r13011 at hualien:  jesse | 2005-04-16 02:27:23 -0400
  r12752 at hualien:  jesse | 2005-04-12 09:51:37 -0400
  Renamed "quick" to "googlish"
 


Modified: rt/branches/PLATANO-EXPERIMENTAL/html/Search/Simple.html
==============================================================================
--- rt/branches/PLATANO-EXPERIMENTAL/html/Search/Simple.html	(original)
+++ rt/branches/PLATANO-EXPERIMENTAL/html/Search/Simple.html	Sat Apr 16 02:47:18 2005
@@ -57,11 +57,11 @@
 
 <%INIT>
 my $title = loc("Search for tickets");
-use RT::Search::Quick;
+use RT::Search::Googlish;
 
 if ( $ARGS{"q"}) {
     my $tickets = new RT::Tickets( $session{'CurrentUser'} );
-    my $search  = RT::Search::Quick->new(Argument   => $ARGS{"q"},
+    my $search  = RT::Search::Googlish->new(Argument   => $ARGS{"q"},
                                          TicketsObj => $tickets);
 
     $m->comp( "Results.html", Query   => $search->QueryToSQL());

Added: rt/branches/PLATANO-EXPERIMENTAL/lib/RT/Search/Googleish.pm
==============================================================================
--- (empty file)
+++ rt/branches/PLATANO-EXPERIMENTAL/lib/RT/Search/Googleish.pm	Sat Apr 16 02:47:18 2005
@@ -0,0 +1,143 @@
+
+# BEGIN BPS TAGGED BLOCK {{{
+# 
+# COPYRIGHT:
+#  
+# This software is Copyright (c) 1996-2005 Best Practical Solutions, LLC 
+#                                          <jesse at bestpractical.com>
+# 
+# (Except where explicitly superseded by other copyright notices)
+# 
+# 
+# LICENSE:
+# 
+# This work is made available to you under the terms of Version 2 of
+# the GNU General Public License. A copy of that license should have
+# been provided with this software, but in any event can be snarfed
+# from www.gnu.org.
+# 
+# This work is distributed in the hope that it will be useful, but
+# WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+# General Public License for more details.
+# 
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+# 
+# 
+# CONTRIBUTION SUBMISSION POLICY:
+# 
+# (The following paragraph is not intended to limit the rights granted
+# to you to modify and distribute this software under the terms of
+# the GNU General Public License and is only of importance to you if
+# you choose to contribute your changes and enhancements to the
+# community by submitting them to Best Practical Solutions, LLC.)
+# 
+# By intentionally submitting any modifications, corrections or
+# derivatives to this work, or any other work intended for use with
+# Request Tracker, to Best Practical Solutions, LLC, you confirm that
+# you are the copyright holder for those contributions and you grant
+# Best Practical Solutions,  LLC a nonexclusive, worldwide, irrevocable,
+# royalty-free, perpetual, license to use, copy, create derivative
+# works based on those contributions, and sublicense and distribute
+# those contributions and any derivatives thereof.
+# 
+# END BPS TAGGED BLOCK }}}
+=head1 NAME
+
+  RT::Search::Googlish
+
+=head1 SYNOPSIS
+
+=head1 DESCRIPTION
+
+Use the argument passed in as a "Google-style" set of keywords
+
+=head1 METHODS
+
+
+=begin testing
+
+ok (require RT::Search::Generic);
+
+=end testing
+
+
+=cut
+
+package RT::Search::Googlish;
+
+use strict;
+use base qw(RT::Search::Generic);
+
+
+# {{{ sub Describe 
+sub Describe  {
+  my $self = shift;
+  return ($self->loc("No description for [_1]", ref $self));
+}
+# }}}
+
+# {{{ sub QueryToSQL
+sub QueryToSQL {
+  my $self = shift;
+  my $query = shift || $self->Argument;
+  my @keywords = split /\s+/, $query;
+  my (@tql_clauses, @owner_clauses, @queue_clauses, @user_clauses, @id_clauses);
+  my ($Queue, $User);
+  for my $key (@keywords) {
+      # Is this a ticket number? If so, go to it.
+   if ($key =~ m/^\d+$/) {
+        push @id_clauses, "id = '$key'";
+   }
+
+    elsif ($key =~ /\w+\@\w+/) {
+        push @user_clauses, "Requestor LIKE '$key'";
+    }
+
+      # Is there a queue named $key?
+      elsif ($Queue =  RT::Queue->new($self->TicketsObj->CurrentUser) 
+              and $Queue->Load($key)) {
+          push @tql_clauses, "Queue = '". $Queue->Name. "'";
+      } 
+      # Is there a owner named $key?
+      elsif ($User = RT::User->new($self->TicketsObj->CurrentUser)
+              and $User->Load($key)
+              and $User->Privileged) {
+          push @owner_clauses, "Owner = '". $User->Name. "'";
+      } 
+      # Else, content must contain $key
+      else {
+          $key =~ s/['\\].*//;
+          push @tql_clauses, "Content LIKE '$key'";
+      }
+  }
+
+    push @tql_clauses,  join( " OR " , @id_clauses);
+    push @tql_clauses,  join( " OR " , @owner_clauses);
+    push @tql_clauses,  join( " OR " , @user_clauses);
+    push @tql_clauses, join( " OR " , @queue_clauses) ;
+    @tql_clauses =grep { $_ ? "( $_ )" : undef } @tql_clauses;
+  return join " AND ", @tql_clauses;
+}
+# }}}
+
+# {{{ sub Prepare
+sub Prepare  {
+  my $self = shift;
+  my $tql = $self->QueryToSQL($self->Argument);
+
+  $RT::Logger->crit($tql);
+
+  $self->TicketsObj->FromSQL($tql);
+  return(1);
+}
+# }}}
+
+eval "require RT::Search::Googlish_Vendor";
+die $@ if ($@ && $@ !~ qr{^Can't locate RT/Search/Googlish_Vendor.pm});
+eval "require RT::Search::Googlish_Local";
+die $@ if ($@ && $@ !~ qr{^Can't locate RT/Search/Googlish_Local.pm});
+
+1;