#!/usr/server/gnu/bin/perl

$DEFAULT_SHOW = "4,2";

$THISCGIURL = "http://www.stecf.org/bin/heic_images3.pl";
$HOMEURL    = "http://www.spacetelescope.org/gallery/";
$IMAGEDIRURL = "http://www.spacetelescope.org/HSTarchive";

print "Content-type: text/html\n\n";

$file = "/home/web/ecf/docs/bin/heic_images.dat";
open(I,"<$file") || die "Cannot read input file\n";
$numlines = `wc -l $file`;

#
# Save the UNESCAPED QUERY_STRING
#
{
   my ($k, $v, @save );
   ( @save ) = split(/\&/,$ENV{'QUERY_STRING'});
   foreach $save ( @save )
   {
      ( $k, $v ) = split(/=/, $save);
      $QS{ $k } = $v;
   }
}

#
# Get input parameters
#
use CGI;

$query = new CGI;

$fullsearch = $query->param("fullsearch");
$fullsearch = "ImPoSsIbLeEnTrY" unless $fullsearch;

$search = $query->param("search");
$search = "ImPoSsIbLeEnTrY" unless $search;

$from = $query->param("from");
$goto = $query->param("goto"); # possible values: "next" | "previous"
$show = $query->param("show");

$show = $DEFAULT_SHOW unless $show;

#
# Define the search creterion (bit see also the while loop afterword)
#
if ( $search ne "ImPoSsIbLeEnTrY" )
{
   $searchfor = $search;
}
elsif ( $fullsearch ne "ImPoSsIbLeEnTrY" )
{
   $searchfor = $fullsearch;
}

#
# Table aspect
#
( $TABLECOLS , $TABLEROWS ) = split(/,/,$show);

#
# Number of cells to show
#
$nshow =  $TABLECOLS * $TABLEROWS;

#
# Collect the FROM hash, which is structered in this way:
#
#   UptoRecord => NumMatchingRecordsFound, etc.
#
#  that is, 65=>8,127=>23 means 
#           from record  1 to record 65    8 matching records were found
#           from record  1 to record 123  23 matching records were found
#

%from = eval "($from)";

#
# Build the @form array ( ordered list of the keys of %form )
#
( @from ) = sort { $a <=> $b } keys ( %from );

#
# Build the @found array ( list of the values of %form [ordered according to @from] )
#
foreach $k ( @from ) { push ( @found, $from{$k} ); }

#
# Define "uptonow"
#
#  It is the number of matching records from record 1 to the record after which
#  the new search will start.
#
$uptonow = $found[ $#found ];

# DEBUG: print "<font face=\"Verdana, Arial, Helvetica, sans-serif\" size=-2>
#        Search starts at line ",$from[$#from]+1,"<P></font>\n";

#
# Skip the first $from[$#from] lines
# (until which we know that we found $uptonow matches
#
$row = 1;
while( $row < $from[$#from] )
{
   $row++;
   <I>;
}

# DEBUG print "<P><H1>FIRST FOUND AT ROW: $row</H1>\n";

#
# SEARCH!
#
while(<I>)
{
$row++;
  (
   $thumbnail,
   $category,
   $opo_heic,
   $title,
   $description,
   $number,
   $original_file,
   $medium_jpeg,
   $large_jpeg,
   $object_name,
   $object_type,
   $year,
   $scientists,
   $credit,
   $instrument,
   $caption_link,
   $press_release_link
  ) = split(/\|/);
   if ( $object_type =~ /$search/i || /$fullsearch/i  )
   {
      $found++;
      #
      # Is this a query for a single selected record ? show="0,0" in that case.
      #
      if ( $show eq "0,0" )
      {
         #
         # In this case the search must be conducted onto the "number"
         #
         if ( $number eq $fullsearch )
         {
            #
            # Searched record found. Let's print it directly.
            #
            &PrintOne;
            last;
         }
         else
         {
            next;
         }
      }
      #
      # if it is not a query for a single selected record then ...
      #
      else
      {
         #
         # If there is still room, let's save also this matching record
         # otherwise, save the point where this is happening for the first time (lastrow)
         # but do not exit the loop, since we NEED to know how many other matching records there are.
         #
         if ( $found <= $nshow )
         {
            &StoreTableCell( $found - 1 );
         }
         else
         {
            if ( ! $lastrow )
            {
               $lastrow = $row -1;
            }
         }
      }
   }
}
close(I);

if ( ! $lastrow )
{
   #
   # it reached the end of file before finding any other matching entry.
   #
   $lastrow = $row-1;
}

# DEBUG print "<P><H1>LAST FOUND AT ROW: $row</H1>\n";

#
# totalfound is the number of matching records
# from the first given record ($from[$#from]) to the end of the file.
#
$totalfound = $found;
$row--;

#
# How many records were here displayed ?
# (Let's re-use $found for this purpose)
#
if ( $found < 1) { $found = "0"; }
if ( $found > $nshow ) { $found = $nshow; }

#
# Hence up to now (lastrow) we have seen $uptonow + $found records
#
$uptonow += $found;

#
# Update @from and @found with this new values
#
push ( @from, $lastrow );
push ( @found, $uptonow );

#
# If it was not a query for a single specific record
# then print:
#  1.- the table.
#  2.- the howmany-records found/left section
#  3.- the navigation (PREV/NEXT) buttons.
#
if ( $show ne "0,0" )
{
   &ESA_Header ( "Hubble Gallery Search Term:  $searchfor" );
   &PrintTable ( $found, $uptonow, $totalfound );

}

&ESA_Footer;

#
# *** END OF MAIN *****************************************************
#

sub PrintButtons
{
   my ( $nextfrom, $previousfrom );

         
   for ( $i=0; $i <= $#from; $i++)
   {
      if ($i > $#from-2)
      {
         $nextfrom .= $from[$i]."%3d%3e".$found[$i].",";
      }
      else
      {
         $nextfrom .= $from[$i]."%3d%3e".$found[$i].",";
         $previousfrom .= $from[$i]."%3d%3e".$found[$i].",";
      }
   }
   chop( $nextfrom ); # drop the comma
   chop( $previousfrom ); # drop the comma

   $search =~ s/\s/+/g;
   print "<P><BR>\n\n";

   if ( $from > 0 )
   {
      print "<A HREF=\"$THISCGIURL?search=$QS{'search'}&fullsearch=$QS{'fullsearch'}&from=$previousfrom&goto=previous&show=$show\"><IMG BORDER=0 SRC=\"$IMAGEDIRURL/imagearchive_prev.gif\" WIDTH=\"38\" HEIGHT=\"11\"></A>\n\n";
   }

   if ( $lastrow <= $numlines )
   {
      print "<A HREF=\"$THISCGIURL?search=$QS{'search'}&fullsearch=$QS{'fullsearch'}&from=$nextfrom&goto=next&show=$show\"><IMG BORDER=0 SRC=\"$IMAGEDIRURL/imagearchive_next.gif\" WIDTH=\"38\" HEIGHT=\"11\"></A>\n\n";
   }
   print "<P><BR>\n\n";

   print "<font face=\"Verdana, Arial, Helvetica, sans-serif\" size=-2>Back to: </font>\n";
   print " <A HREF=\"$HOMEURL\"><IMG ALIGN=BOTTOM BORDER=0 SRC=\"$IMAGEDIRURL/Hubblegallery.gif\" WIDTH=\"149\" HEIGHT=\"9\"></A>\n";
#XXX   print " <A HREF=\"$HOMEURL\"><IMG ALIGN=BOTTOM BORDER=0 SRC=\"$IMAGEDIRURL/hubble_gallery.jpg\" WIDTH=\"146\" HEIGHT=\"20\"></A>\n";


}

sub StoreTableCell
{
   my ( $cellnum ) = @_;

   $cellrow = ( $cellnum - $cellnum % $TABLECOLS ) / $TABLECOLS;
   $cellcol = ( $cellnum % $TABLECOLS );

   $Table[ $cellrow ][ $cellcol ] = "<IMG SRC=\"$IMAGEDIRURL/thumbs/$thumbnail\" BORDER=0 WIDTH=90% HEIGHT=90%>"; # WIDTH=140>";
   $Title[ $cellrow ][ $cellcol ] = "$title";
   $TableID[ $cellrow ][ $cellcol ] = "$number";
}

sub PrintTable
{
   my ( $ncells, $uptonow, $totalfound ) = @_;
   my $found = $ncells;
   my $cellrows = 0;
   my $cellcols = 0;
   my $row = 0;
   my $rows = 0;

   my $titleCellOpen = "<td width=\"100\" nowrap><div align=\"center\"><font face=\"Arial\" size=\"-2\" color=\"FFCC33\">";
   my $titleCellClose= "</font></div></td>";

   my $imageCellOpen = "<td width=\"100\" nowrap><div align=\"center\">";
   my $imageCellClose= "</div></td>";


   for ($cellnum=0; $cellnum<$ncells; $cellnum++)
   {
      $cellrow = ( $cellnum - $cellnum % $TABLECOLS ) / $TABLECOLS;
      $cellcol = ( $cellnum % $TABLECOLS );

      $ImageRow[ $cellrow ] .= $imageCellOpen;
      $TitleRow[ $cellrow ] .= $titleCellOpen.$Title[ $cellrow ][ $cellcol ].$titleCellClose;

      if ( $TableID[ $cellrow ][ $cellcol ] )
      {
         $ImageRow[ $cellrow ] .= "<A HREF=\"$THISCGIURL?fullsearch=".$TableID[ $cellrow ][ $cellcol ]."&show=0,0\">";
         $ImageRow[ $cellrow ] .= $Table[ $cellrow ][ $cellcol ];
         $ImageRow[ $cellrow ] .= "</A>";
      }
      else
      {
         $ImageRow[ $cellrow ] .= $Table[ $cellrow ][ $cellcol ];
      }
      $ImageRow[ $cellrow ] .= $imageCellClose;
   }

   print "<TABLE border=\"0\" cellpadding=\"0\" cellspacing=\"15\">\n\n\n";

   for( $row=0; $row < ( $ncells / $TABLECOLS ) ; $row++)
   {
      print "<tr align=\"center\" valign=\"middle\">\n";
      print " $ImageRow[ $row ]\n";
      print "</tr>\n\n";
 
      print "<tr align=\"center\" valign=\"top\">\n";
      print "  $TitleRow[ $row ]\n";
      print "</tr>\n\n";

   }
   print "<tr><td align=\"center\" colspan=$TABLECOLS>";
   print "<font face=\"Verdana, Arial, Helvetica, sans-serif\" size=-2 color=\"FFCC33\">\n";
   print ". "x80, "\n<P>\n";
   print "   Shown records: ", $uptonow - $found + 1 , " - ", $uptonow;
   print "   &nbsp; &nbsp; &nbsp; &nbsp; ";
   print "   Remaining records: ", $totalfound - $found ,"\n";

   print "\n<BR>\n", ". "x80, "\n";
   print "</font>\n";

   &PrintButtons;

   print "</td></tr>\n\n";
   print "</TABLE>\n\n\n";
   
}

sub PrintOne
{

&ESA_Header( $title );
print "<CENTER>
<table border=1 cellspacing=1 width=70%>
 <tr>
  <td colspan=2><P><BR>
    <font face=\"Verdana, Arial, Helvetica, sans-serif\" size=-1> $description
    <P><BR>

   <TABLE BORDER=3 CELLPADDING=5>
    <TR>
     <TD> <IMG SRC=\"$IMAGEDIRURL/thumbs/$thumbnail\" WIDTH=140>
     </TD>
     <TH>
       <FORM ACTION=\"$IMAGEDIRURL/medium/$medium_jpeg\"><INPUT BORDER=0 TYPE=IMAGE SRC=\"$IMAGEDIRURL/b_mediumjpg.jpg\" WIDTH=\"137\" HEIGHT=\"19\" VALUE=\"Medium Image\"></FORM>
       <P>
       <FORM ACTION=\"$IMAGEDIRURL/original/$original_file\"><INPUT BORDER=0 TYPE=IMAGE SRC=\"$IMAGEDIRURL/b_highres.jpg\" WIDTH=\"122\" HEIGHT=\"19\" VALUE=\"Original Image\"></FORM>
       <P>
       <FORM ACTION=\"$IMAGEDIRURL/large/$large_jpeg\"><INPUT BORDER=0 TYPE=IMAGE SRC=\"$IMAGEDIRURL/b_largejpg.jpg\" WIDTH=\"137\" HEIGHT=\"19\" VALUE=\"Large Image\"></FORM>
     </TH>
";

print " <TH><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=-1> ";

if ( $caption_link )
{
  print " <A HREF=\"$caption_link\"><STRONG>Caption</STRONG></A>";
  print " <P>\n";
}

if ( $press_release_link )
{
  print " Release: <A HREF=\"$press_release_link\"><STRONG>$number</STRONG></A>";
}
else
{
  print " Release: <STRONG>$number</STRONG>";
}

print "
       <P>
       Object: <STRONG>$object_name</STRONG>
       <P>
       Type: <STRONG>$object_type</STRONG>
       <P>
     </TD>
    </TR>
   </TABLE>
  </td>
 </tr>
";

print "
 <tr>
  <th align=left><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=-1>
   Credits:</th> 
";

print "   <td align=left><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=-1>";
if ( $scientists )
{
   print "  $scientists <BR> $credit</td>\n";
}
else
{
   print " $credit</td>\n";
}
print " </tr>
</table>
<BR>

";
   
}

sub ESA_Header
{

   my ( $title ) = @_;

   if ( ! $title ) { $title = "Image archive query result"; }

print '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN"> 
<html>
<!-- #BeginTemplate "/Templates/endcontent_template2.dwt" --> 
<head>
<!-- #BeginEditable "doctitle" --> 
<title>ESA SCIENCE: Hubble</title>
<meta name="Keywords" content="">
<meta name="Description" content="">
<!-- #EndEditable --> 
<STYLE TYPE="text/css">
        
        A:link {text-decoration:none;}
        A:visited {text-decoration:none;}
        -->
</STYLE>
</head>
<body bgcolor="#000000" leftmargin=0 topmargin=0 text="ffffff" link="FFCC33" vlink="808080" alink="FF0000">
<BASE HREF="http://www.spacetelescope.org/HSTArchive">
<layer left=0 top=0> 
<script language="JavaScript">
<!--
// jumpto
function jumpto(){
if (document.jumpform.jumpmenu.options[document.jumpform.jumpmenu.selectedIndex].value != "none") {';
print "
location = 'http://sci.esa.int' + document.jumpform.jumpmenu.options[document.jumpform.jumpmenu.selectedIndex].value
";
print '
                }
        }
//-->
</script>
<table width="640" border="0" cellspacing="0" cellpadding="0" height="68">
  <form name="jumpform">
    <tr> 
      <td rowspan="2" width="484" height="68"><a href="http://hubble.esa.int"><img src="/images/head.jpg" width=484 height=68 border=0 alt=""></a></td>
      <td width="156" height="41"><a href="http://sci.esa.int"><img src="/images/esa.jpg" width=156 height=41 border=0 alt=""></a></td>
    </tr>
    <tr> 
      <td width="156" height="27" align="center" bgcolor="#FFCC33"><!--stopindex--> 
        <font size="2"> 
        <select name="jumpmenu" size="1" onChange="jumpto()">
          <option value="none">jump to:</option>
          <option value="/home/astrophysics">Astrophysics</option>
          <option value="/home/futuremissions">Future missions</option>
          <option value="/home/homepage">Homepage</option>
          <option value="/home/missionsinprogress">Missions in progress</option>
          <option value="/home/pastmissions">Past missions</option>
          <option value="/home/publications">Publications</option>
          <option value="/home/solarsystem">Solar system</option>
          <option value="/home/spacetopics">Space topics</option>
          <option value="none">----------------</option>
          <option value="/home/bepicolombo">Bepi Colombo</option>
          <option value="/home/clusterii">Cluster II</option>
          <option value="/home/darwin">Darwin</option>
          <option value="/home/first">FIRST</option>
          <option value="/home/gaia">GAIA</option>
          <option value="/home/giotto">Giotto</option>
          <option value="/home/hipparcos">Hipparcos</option>
          <option value="/hubble/index.cfm">Hubble</option>
          <option value="/home/huygens">Huygens</option>
          <option value="/home/iso">ISO</option>
          <option value="/home/iue">IUE</option>
          <option value="/home/integral">Integral</option>
          <option value="/home/lisa">LISA</option>
          <option value="/home/marsexpress">Mars Express</option>
          <option value="/home/ngst">NGST</option>
          <option value="/home/planck">Planck</option>
          <option value="/home/rosetta">Rosetta</option>
          <option value="/home/smart-1">SMART-1</option>
          <option value="/home/soho">SOHO</option>
          <option value="/home/ulysses">Ulysses</option>
          <option value="/home/xmm-newton">XMM-Newton</option>
          <option value="/home/xeus">Xeus</option>
          <option value="none">----------------</option>
        </select>
        </font> <!--startindex--> </td>
    </tr>
  </form>
</table>
<table width="640" border="0" cellspacing="0" cellpadding="0" bgcolor="#000000">
  <tr> <!-- #BeginEditable "page%20image" --> 
    <td height="20"  colspan="3" align="left" valign="top"><img src="/gallery/Hubblegallery.jpg" border=0 alt="" width="144" height="9"></td>
    <!-- #EndEditable --> </tr>
  <td width="78"><img src="../images/blankposi.gif" width="78" height="8"></td>
  <td width="474" align="left" valign="top"> 
    <table border="0" cellspacing="0" cellpadding="0" bgcolor="000000">
      <tr> 
        <td width="15" height="8"><img src="/images/news_lt.gif" width="15" height="8"></td>
        <td background="../images/news_mt.jpg" height="8" width = "439"><img src="/images/blankposi.gif" width="1" height="1"></td>
        <td height="8" width="15"><img src="/images/news_rt.gif" width="15" height="8"></td>
      </tr>
      <tr> 
        <td background="../images/news_lm.jpg">&nbsp;</td>
          <td background="../images/news_mm.jpg"  height="8" align="left" valign="middle" width="439"><!-- #BeginEditable "document%20title" -->
            <p align="left"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="-1">'. $title .'</font></b></p>
            <!-- #EndEditable --></td>
        <td background="../images/news_rm.jpg">&nbsp;</td>
      </tr>
      <tr> 
        <td height="8" width="15"><img src="/images/news_lb.gif" width="15" height="8"></td>
        <td background="../images/news_mb.jpg" height="8"><img src="../images/blankposi.gif" width="1" height="8"></td>
        <td width="15" height="8"><img src="/images/news_rb.gif" width="15" height="8"></td>
      </tr>
    </table>
    <p>&nbsp;</p>
    <!-- #BeginEditable "content" --> 
';
#<p>&nbsp;</p>

}

sub ESA_Footer
{
print '
  <table><tr>
  <td width="78"><img src="../images/blankposi.gif" width="78" height="8"></td>
  </tr>
  <tr> 
    <td colspan=3 height=40>&nbsp;</td>
  </tr>
  </table>
</TD>
</TR>
</TABLE>
<img src="/images/search_640.jpg" width=640 height=37 border=0 alt="" usemap="#mappo2"></layer>
<map name="mappo2"> <area shape="rect" coords="357,0,443,36" href="http://spdext.estec.esa.nl:8000/query.html"> 
  <area shape="rect" coords="283,0,357,36" href="http://sci.esa.int/hubble/action/subscribe.cfm"> 
  <area shape="rect" coords="195,0,281,35" href="http://sci.esa.int/hubble/action/contact.cfm"> 
</map> 
<!-- #EndTemplate -->
';
}
# thumbnail            varchar(25)         null,
# category             varchar(25)         null,
# opo_heic             varchar(4)          null,
# title                varchar(255)        null,
# description          varchar(255)        null,
# number               varchar(15)         null,
# original_file        varchar(25)         null,
# medium_jpeg          varchar(25)         null,
# large_jpeg           varchar(25)         null,
# object_name          varchar(75)         null,
# object_type          varchar(35)         null,
# year                 varchar(4)          null,
# scientists           varchar(255)        null,
# credit               text(16)            null,
# instrument           varchar(10)         null,
# caption_link         varchar(100)        null,
# press_release_link   varchar(100)        null