#!/usr/bin/perl

require "cgi-lib.pl";

$YARFbase = "./";
$YARFweb = "./";


$method = $ENV{"REQUEST_METHOD"};
$type = $ENV{"CONTENT_TYPE"};
#if ($method ne "POST" || $type ne "application/x-www-form-urlencoded") {
#    &print_header ("Form method error");
#    print "Index search querry must be a form with a POST method.\n";
#    print "Just what the hell are you trying to pull, anyway?";
#    print_footer();
#    exit 0;
#}

ShowHeader("YARF! The Index");


&ReadParse(*input);
#print "<P>", &PrintVariables (*input), "</P>";		# Debug output

if (!$input{'submit'}) {
	ShowLevel(1);
	print qq^
	The YARF index search engine allows you to search the table of contents of each YARF issue for
key words or phrases.

The database contains the following for each story, comic strip and
picture and outputs in the following format:<BR><BR>

<B>issue number, page number, piece title, artist/writer name,
type of piece</B><BR><BR>

Be careful about entering too general of a search. You could get a
lot of text back.

<FORM ACTION="indexsearch.cgi" METHOD="POST">
<FONT SIZE="+1">Search text:</FONT>
	<INPUT TYPE="text" NAME="query"VALUE="" SIZE=40>
	<INPUT TYPE="submit" NAME="submit" VALUE="Search">
</FORM>

<P>This entry will output the table of contents for any one issue</P>

<FORM ACTION="indexsearch.cgi" METHOD="POST">
<FONT SIZE="+1">Issue number:</FONT>
	<SELECT NAME="issue">
		<OPTION VALUE="S-1">SPECIAL #1</OPTION>
		<OPTION>0</OPTION>
		<OPTION>1</OPTION>
		<OPTION>2</OPTION>
		<OPTION>3</OPTION>
		<OPTION>4</OPTION>
		<OPTION>5</OPTION>
		<OPTION>6</OPTION>
		<OPTION>7</OPTION>
		<OPTION>8</OPTION>
		<OPTION>9</OPTION>
		<OPTION>10</OPTION>
		<OPTION>11</OPTION>
		<OPTION>12</OPTION>
		<OPTION>13</OPTION>
		<OPTION>14</OPTION>
		<OPTION>15</OPTION>
		<OPTION>16</OPTION>
		<OPTION>17</OPTION>
		<OPTION VALUE="18/19">18/19</OPTION>
		<OPTION>20</OPTION>
		<OPTION>21</OPTION>
		<OPTION>22</OPTION>
		<OPTION>23</OPTION>
		<OPTION>24</OPTION>
		<OPTION>25</OPTION>
		<OPTION>26</OPTION>
		<OPTION>27</OPTION>
		<OPTION>28</OPTION>
		<OPTION>29</OPTION>
		<OPTION>30</OPTION>
		<OPTION>31</OPTION>
		<OPTION>32</OPTION>
		<OPTION>33</OPTION>
		<OPTION>34</OPTION>
		<OPTION>35</OPTION>
		<OPTION>36</OPTION>
		<OPTION>37</OPTION>
		<OPTION>38</OPTION>
		<OPTION>39</OPTION>
		<OPTION>40</OPTION>
		<OPTION>41</OPTION>
		<OPTION>42</OPTION>
		<OPTION>43</OPTION>
		<OPTION>44</OPTION>
		<OPTION>45</OPTION>
		<OPTION>46</OPTION>
		<OPTION>47</OPTION>
		<OPTION>48</OPTION>
		<OPTION>49</OPTION>
		<OPTION>50</OPTION>
		<OPTION>51</OPTION>
		<OPTION>52</OPTION>
		<OPTION>53</OPTION>
		<OPTION>54</OPTION>
		<OPTION>55</OPTION>
		<OPTION>56</OPTION>
		<OPTION>57</OPTION>
		<OPTION>58</OPTION>
		<OPTION>59</OPTION>
		<OPTION>60</OPTION>
		<OPTION>61</OPTION>
		<OPTION>62</OPTION>
		<OPTION>63</OPTION>
		<OPTION>64</OPTION>
		<OPTION>65</OPTION>
		<OPTION>66</OPTION>
		<OPTION>67</OPTION>
	</SELECT>

	<INPUT TYPE="submit" NAME="submit" VALUE="Show">
</FORM>
^;
	ShowLevel(1);
}


# ---- Show table of content search results

if ($input{'submit'} eq "Search") {
	ShowLevel(2);
	$query = $input{'query'};
	print qq^<P><B>Your request:</B>  $query<BR>^;
	
	print qq^
<TABLE BGCOLOR="#A0A0FF" BORDER=0 CELLPADING=0 CELLSPACING=1 WIDTH=100%>
<TR><TD>
	<TABLE BGCOLOR="#FFFFFF" BORDER=0 CELLPADDING=1 CELLSPACING=0 WIDTH=100%>
	<TR><TD>
		<TABLE BORDER=0>
		<TR BGCOLOR="#A0A0FF">
		<TD ALIGN=RIGHT><B>Issue</B></TD>
		<TD ALIGN=RIGHT><B>Page</B></TD>
		<TD ALIGN=LEFT><B>Title</B></TD>
		<TD ALIGN=LEFT><B>Artist/Writer</B></TD>
		<TD ALIGN=LEFT><B>Type</B></TD></TR>
	^;
	
	
	# -- Run throught the text index file. Match any lines. Change tabs to HTML formatting
	# -- Output with alternating white/grey backgounds
	$ix = 0;
	open (INDEXDB, "${YARFbase}indexsearch.txt");
	while (<INDEXDB>) {
		if (/$query/i) {
			$bg = "#FFFFFF";
			$bg = "#E0E0E0" if $ix & 1;
			@ent = split (/\t/);			
			$line0 = "<TD ALIGN=RIGHT><A HREF=indexsearch.cgi?submit=Show&issue=$ent[0]>$ent[0]</A></TD>";
			$line1 = "<TD>$ent[1]</TD>";
			$line2 = "<TD>$ent[2]</TD>";
			$line3 = "<TD>$ent[3]</TD>";
			$line4 = "<TD>$ent[4]</TD>";
			print qq^<TR BGCOLOR="$bg">$line0 $line1 $line2 $line3 $line4</TR>\n^;
			$ix++;
		}
	}
	close INDEXDB;
	
	print qq^</TABLE>^;
	if ($ix == 0) { print qq^<TR><TD>Sorry. No matches to your search.</TD></TR>^; }
	print qq^
	</TD></TR>
	</TABLE>
</TD></TR></TABLE>
	^;
	ShowLevel(2);
}


# --- Show the table of content of an issue

if ($input{'submit'} eq "Show") {
	ShowLevel(2);
	$query = $input{'issue'};
	$issue = $query;
	if ($issue < 10) { $issue = "0" . $issue; }
	if ($issue < 100) { $issue = "0" . $issue; }
	if ($query eq "S-1") { $issue = 'SP01'; }
	if ($query eq "18/19") { $issue = "018"; }
	
	print qq^
<TABLE BGCOLOR="#A0A0FF"  BORDER=0 CELLPADING=0 CELLSPACING=1 WIDTH=100%>
<TR><TD>

	<TABLE BGCOLOR="#FFFFFF" BORDER=0 CELLPADDING=2 CELLSPACING=1 WIDTH=100%>
	<TR BGCOLOR="#A0A0FF"><TD><B>Issue # $query</B></TD></TR>
	<TR ALIGN=CENTER><TD><IMG SRC="images/YARF$issue.jpg"></TD></TR>
	</TABLE>
	
	<TABLE BGCOLOR="#FFFFFF" BORDER=0 CELLPADDING=1 CELLSPACING=1 WIDTH=100%>
		<TR BGCOLOR="#A0A0FF">
		<TD ALIGN=RIGHT><B>Issue</B></TD>
		<TD ALIGN=RIGHT><B>Page</B></TD>
		<TD ALIGN=LEFT><B>Title</B></TD>
		<TD ALIGN=LEFT><B>Artist/Writer</B></TD>
		<TD ALIGN=LEFT><B>Type</B></TD></TR>
	^;
	
	$ix = 0;
	open (INDEXDB, "${YARFbase}indexsearch.txt");
	while (<INDEXDB>) {
		if (/^$query\t/i) {
			$bg = "#FFFFFF";
			$bg = "#E0E0E0" if $ix & 1;
			s|\t|</TD><TD><P ALIGN=RIGHT>|;
			s|\t|</TD><TD><P>|g;
			print qq^	<TR BGCOLOR="$bg"><TD ALIGN=RIGHT> $_ </TD></TR>\n^;
			$ix++;
		}
	}
	close INDEXDB;
	
	print qq^
		</TABLE>
	</TD></TR>
	</TABLE>
	^;
	ShowLevel(2);
}



ShowFooter();


# ---- SUBROUTINES ----

sub ShowHeader {
    my $title = shift;
    print "Content-type: text/html\r\n\r\n";
    print qq^
    <HTML>
    <HEAD>
    <TITLE>$title</TITLE>
    </HEAD>
    <BODY BACKGROUND="images/background.jpg">
   <TABLE BORDER=0 WIDTH="100%">
   <TR>
      <TD WIDTH=270><IMG SRC="images/yarflogo.gif"></TD>
      <TD><B><FONT SIZE="+3">Search Results</FONT></B></TD>
      </TR>
</TABLE>
^;
}

sub ShowLevel {
	my $level = shift;
	print qq^
	<TABLE BORDER=0 BORDER=0 CELLPADDING=1 CELLSPACING=0 WIDTH="100%">
	<TR BGCOLOR="#A0A0FF"><TD>
	<A HREF="index.html">Main page</A>
	^;
	if ($level == 2) { print qq^&nbsp;&gt;&nbsp;<A HREF="indexsearch.cgi">Search Page</A>^; }
	print qq^
	</TD></TR>
	</TABLE>
    ^;
}

sub ShowFooter {
	print qq^Contents copyright YARF! The Journal of Applied Anthropomorphics\n^;
    print qq^</BODY></HTML>^;
}