#!/usr/bin/perl
# Paths definitions
$file = '/afs/csail.mit.edu/u/b/brussell/public_html/research/LabelMe/Logs/querylog.txt';
# The index file is generated by running torralba/projects/LabelMe/queryTool/createIndexSearchAndCrops.m
$cachedqueries = '/afs/csail.mit.edu/u/b/brussell/public_html/research/LabelMe/querycache/indexobjects.txt';
%box = &read_query_string; # Read keys and values
$query = $box{'query'};
# Remove from the query bad characters
$query =~ tr/ A-Za-z0-9//cd;
# Store the length of the query string
$querylength = length($query);
# If the query is not empty run UNIX command
if ($querylength>0) {
# Save query in log file
$r = open(FILE, ">>$file");
print FILE "\nQueryObject: $query";
close(FILE);
@terms = split(' ', $query);
$querystring = "egrep -iw \'.*;.*;.*;.*$terms[0]\' $cachedqueries";
for ($i=1; $i <= $#terms; $i++) {
$querystring = "$querystring | egrep -iw \'.*;.*;.*;.*$terms[$i]\'";
}
@listoffiles = `$querystring`;
$numberofmatches = scalar(@listoffiles);
}
open(FP,"js/my_scripts.js");
@fp = readline(FP);
close(FP);
# CREATE PAGE-------------------
# WEB PAGE QUERY BOX
print "Content-type: text/html
LabelMe query
";
if ($querylength>0) {
#$query =~ tr/ /AND/cd;
print "
Your query ($query) matches $numberofmatches images.
Parts within each object are shown in color (only when labeled).
See
summary statistics for all the objects in the dataset, and the wordnet hierarchy.
";
# CREATE WEB PAGE AND THUMBNAILS POINTERS
# Parse file names
foreach $i (@listoffiles) {
($folder,$imagename,$objectname,$description) = split(";",$i);
#($imagename,$rest2) = split(";",$rest);
#($objectname,$rest3) = split(";",$rest2);
print "
![](\"http://people.csail.mit.edu/brussell/research/LabelMe/ThumbnailsObjects/$folder/$objectname\" "\\"$description\\"")
";
}
}
# CLOSE WEB PAGE
print "
![\"Site](\"http://s21.sitemeter.com/meter.asp?site=s21labelme\")
";
if ($querylength>0) {
# Save query result in log file
$r = open(FILE, ">>$file");
print FILE " Found $numberofmatches matches";
close(FILE);
}
sub read_query_string
{
local ($buffer, @pairs, $pair, $name, $value, %FORM);
# Read in text
$ENV{'REQUEST_METHOD'} =~ tr/a-z/A-Z/;
if ($ENV{'REQUEST_METHOD'} eq "POST")
{
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
} else
{
$buffer = $ENV{'QUERY_STRING'};
}
@pairs = split(/&/, $buffer);
foreach $pair (@pairs)
{
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%(..)/pack("C", hex($1))/eg;
$FORM{$name} = $value;
}
%FORM;
}
![](\"http://people.csail.mit.edu/brussell/research/LabelMe/Icons/LabelMeNEWtight198x55.gif\"){kind=icon}