#!/usr/bin/perl -wT use strict; use CGI qw(:standard); use CGI::Carp qw(warningsToBrowser fatalsToBrowser); print "Content-type: text/html\n\n"; print "GPS on Watertight Search Engine\n"; print "\n"; my $ordf='order_conc4sqrt.txt'; my $df='dist_conc4sqrt.txt'; #my $protf ='models.txt'; open( ORDF, "<$ordf") or die "Could not read the order file...\n"; open( DF, "<$df") or die "Could not read the distance file...\n"; #open( PF, "<$protf") # or die "Could not read the protein file...\n"; my $searchd = $ENV{QUERY_STRING}-1; #index of object to be found, 1 -- m1.off my $no=0; #number of objects my @order; my @dist; my @prot; my $in; my $i; my $j; my $k; my $ggg; my $imgpath; while ( $in=) { $in=~ s/\n//; push @order, [ split /\t/,$in ]; $no=$no+1; } #print $no; while ( $in=) { $in=~ s/\n//; push @dist, [ split /\t/,$in ]; } #print $dist[0][1]; print '

Back to the model browser |'; print ' For method description visit GPS Project Page |'; print ' Back to home page

'; print '

Click onto a thumbnail to run another search

'; print ''; $i = 0; #only first 40 matches are to be displayed for $j (0 .. 1) { print ''; for $k (0 .. 9){ print ''; } print ''; } print '
'; #print "searchd " . $searchd." *** "; $ggg=$order[$searchd][$i]; #print $ggg; $imgpath='http://math.purdue.edu/~rustamov/GPSrelated/images_correct/med/'.$ggg.'.gif'; # print '--------'; print '

Match # : '.$i.'

'; # print '

Risunok nomresi : '.$ggg.'

'; print '

Distance : '.$dist[$searchd][$i].'

'; #print '

Protein name : '.$ggg.' --> '.$ggg.'

'; print ''.'

'."

\n"; $i = $i + 1; print '
'; print "\n";