Changeset 355

Timestamp:

04/21/08 02:08:05 (7 months ago)

Author:

jake

Message:

reponse time incr

Files:

• trunk/tutorial/tweetsearch/perl/tweetsearch.cgi (modified) (5 diffs)

trunk/tutorial/tweetsearch/perl/tweetsearch.cgi

@@ -4 +4 @@
 use warnings;
 
-use lib "../gen-perl";
+use lib "../../gen-perl";
 
 use CGI qw/:standard/;
@@ -28 +28 @@
 package TweetScan;
 use Time::HiRes qw(gettimeofday);
+use HTML::Entities;
 use Data::Dumper;
 
@@ -61 +62 @@
     eval{
        my $socket    = new Thrift::Socket("localhost",THRUDOC_PORT());
+       $socket->setRecvTimeout(5000);
+
        my $transport = new Thrift::FramedTransport($socket);
        my $protocol  = new Thrift::BinaryProtocol($transport);
@@ -79 +82 @@
     eval{
         my $socket    = new Thrift::Socket("localhost",THRUDEX_PORT());
+        $socket->setRecvTimeout(5000);
+
         my $transport = new Thrift::FramedTransport($socket);
         my $protocol  = new Thrift::BinaryProtocol($transport);
@@ -180 +185 @@
         if( defined $terms && $terms ne ""){
             
+            $terms = HTML::Entities::encode($terms);
+            
+            #escape this bad boy
+            my $pterms   = $terms;
+            $pterms      =~ s/([\+\-\&\|\!\(\)\{\}\[\]\^\"\~\*\?\:\\])/\\$1/g;
+            $pterms      = "+".join(" +",split(/\s+/,$pterms));
+
+            
             my $t0      = gettimeofday();
             
-            my ($total,$tweets) = $self->search( $terms, $offset );
+            my ($total,$tweets) = $self->search( $pterms, $offset );
             
             my $t1      = gettimeofday();