#!/usr/bin/perl

require "var.pl";
require "master.pl";
require "$siteroot/store/library/store_subs.pl";
require "$siteroot/store/data/settings.dat";


if(-e "$siteroot/store/store.cgi")
{
$sc_order_script_url = "http://$domainroot/store/store.cgi";
}

if(-e "$siteroot/cgi-bin/store.cgi")
{
$sc_order_script_url = "http://$domainroot/cgi-bin/store.cgi";
}

if(-e "$siteroot/store.cgi")
{
$sc_order_script_url = "http://$domainroot/store.cgi";
}


if(-e "$siteroot/cgi-bin/help.cgi")
{
$help_script_url = "http://$domainroot/cgi-bin/help.cgi";
}

if(-e "$siteroot/help.cgi")
{
$help_script_url = "http://$domainroot/help.cgi";
}



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

if ($ENV{'CONTENT_LENGTH'} ne "")
{
	my( @pairs, $pair, $name, $value );
	read(STDIN, $value, $ENV{'CONTENT_LENGTH'});
	@pairs = split(/&/, $value);
	foreach $pair (@pairs) {
		  ($name, $value) = split(/=/, $pair);
		  $name =~ tr/+/ /;
		  $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
		  $value =~ tr/+/ /;
		  $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
		  $form_data{$name} = "$value";
	}
}

if ($ENV{'QUERY_STRING'} ne "")
{
	@pairs = split(/&/, $ENV{QUERY_STRING});
	foreach $pair (@pairs) {
		  ($name,$value) = split(/=/, $pair);
		  $name =~ tr/+/ /;
		  $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
		  $value =~ tr/+/ /;
		  $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
		  $value =~ s/<!--(.|\n)*-->//g;
		  $form_data{$name} = $value;
	}
}


$case_sensitive = 0;



$toc = "faq";
$file = $form_data{'topic'};
$window = $form_data{'window'};
$search = $form_data{'search'};
$cart_id = $form_data{'cart_id'};
$refer_id = $form_data{'refer_id'};


    if(-e "$siteroot/help/text.txt")
    {
        
    open(DAT, "$siteroot/help/text.txt") || die("Could not open file!");
@dat=<DAT>;

close(DAT);
$faq_text=join('', @dat);

}
$title=qq~Questions and Answers~;
$side_title=qq~Questions and Answers~;
$side_info=qq~
$faq_text

<form method="post" action="$help_script_url">
These Questions and Answers have been prepared to help you use this site.
Find Answers and Questions relating to a topic by entering a Search term <input type="text" name="search" size=12 maxlength=35>
<input type = "hidden" name=cart_id value="$cart_id"> 
<input type = "hidden" name=refer_id value="$refer_id"> 
<input type="submit" value="GO">, or browse the Questions pages.
</form>

~;

&StoreHeader;

if ($toc ne "" && $search ne "")
{
  &search_faqs;
}
elsif ($toc ne "" && $file eq "" && $search eq "")
{
  &display_toc;
}
elsif ($toc ne "" && $file ne "")
{
  &show_answer;
}



sub display_toc
{

if($window eq "")
{
    opendir (DIR,"$siteroot/help") || 
&CgiDie ("Can't
open [directory_location]"); 

@filenames = grep (!/^\.\.?$/, readdir (DIR)); 


closedir (DIR);
foreach $file_name (@filenames)
{
if($file_name=~ /faq/)
{
push(@files_to_open, $file_name);
}
}

}
else
{
 $file_name="$window.faq";
 push(@files_to_open, $file_name);
   
}

foreach $fop (@files_to_open)
{
print "$template_top";
open(FAQ, "$siteroot/help/$fop");
@news=<FAQ>;
close FAQ;

$window=$fop;
$window=~ s/\.faq//g;
      $faq_title =shift(@news);
      chomp $faq_title;
      print qq~<TABLE BORDER = "0" WIDTH = "100%" cellspacing="0" cellpadding="5" 
align="center"><tr><td align="left" bgcolor="$color{'fg2'}" WIDTH = "100%"><hr class="fg2" WIDTH = "100%"><a 
      href="$help_script_url?window=$window&cart_id=$cart_id&refer_id=$refer_id" class="fg2">$faq_title :</a>
<hr class="fg2" WIDTH = "100%"></td></tr></table>
<TABLE BORDER = "0" WIDTH = "100%" cellspacing="0" cellpadding="5" 
align="center">\n~;

      $question_number = 1;
      foreach $new_line(@news)
      {
        if ($new_line=~ /^::/)
        {$new_line=~ s/^:://;
          print qq~<tr><td align="left" bgcolor="$color{'fg2'}" WIDTH = "100%">
<a href="$help_script_url?window=$window&topic=$question_number&cart_id=$cart_id&refer_id=$refer_id">$question_number - 
	  $new_line</a></td></tr>\n~;
          $question_number++;
        }
      
    }

     print "\n
<tr>
<td width=100%>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
</td></tr></table>
";
}




&StoreFooter;


}

sub show_answer
{





  $back_to = "";
  $forward_to = "";
  $back_to_name = "";
  $forward_to_name = "";
  $count = 0;
  $question = 1;


  open (FAQ, "$siteroot/help/$window.faq") || handle_error("Can't open file \"$file.faq\"<br>$!");
  $_ = <FAQ>;
  chomp;
  
  print qq~<TABLE BORDER = "0" WIDTH = "100%" cellspacing="0" cellpadding="5" 
align="center" bgcolor="$color{'fg2'}"><tr><td align="left" 
bgcolor="$color{'fg2'}"><hr class="fg2"><font size=2><a name="top" class="fg2">
<a href="$help_script_url?window=$window&cart_id=$cart_id&refer_id=$refer_id" class="menu">$_</a></font><hr 
class="fg2"></td></tr></table><TABLE BORDER = "0" WIDTH = "100%" 
cellspacing="0" cellpadding="10" 
align="center" bgcolor="$color{'fg1'}">
\n~;
 
  while (<FAQ>)
  {
    if (/^::[ ]*(.+)/)
    {
	if ($question eq "$file") {

      print qq~<tr><td align="left" 
bgcolor="$color{'fg1'}" class=fg1><b>$question</b>- $1</td></tr>\n~;
	}
	
    }
    else
   
    {
	if ($question eq "$file") {
	    
      print qq~<tr><td align="left" 
bgcolor="$color{'fg2'}">$_<div align=\"right\">> <a 
href="$help_script_url?cart_id=$cart_id&refer_id=$refer_id"><u>Main</u></a><hr class="titlebg"></a></td></tr>\n\n~;
}
  $question++;

    }
  }
  close FAQ;
   
 print "\n</table>";
&StoreFooter;

}


sub search_faqs
{
  
    opendir (DIR,"$siteroot/help") || 
&CgiDie ("Can't
open [directory_location]"); 

@filenames = grep (!/^\.\.?$/, readdir (DIR)); 


closedir (DIR);
foreach $file_name (@filenames)
{
if($file_name=~ /faq/)
{
push(@files_to_open, $file_name);
}
}
  
  $htmlsearch = $search;
@search_data=split(/\s/, $htmlsearch);
  print "<p id=\"faqsearch\">Search results for $htmlsearch. The following links contain information regarding your query.</p>\n"; 
  
foreach $fop (@files_to_open)
{
open(FAQ, "$siteroot/help/$fop");
@news=<FAQ>;
close FAQ;

$window=$fop;
$window=~ s/\.faq//g;
      $faq_title =shift(@news);
      chomp $faq_title;
      $sr=qq~<TABLE BORDER = "0" WIDTH = "100%" cellspacing="0" cellpadding="5" 
align="center"><tr><td align="left" bgcolor="$color{'fg2'}" WIDTH = "100%"><hr class="fg2" WIDTH = "100%"><a 
      href="$help_script_url?window=$window&cart_id=$cart_id&refer_id=$refer_id" class="fg2">$faq_title :</a>
<hr class="fg2" WIDTH = "100%"></td></tr></table>
<TABLE BORDER = "0" WIDTH = "100%" cellspacing="0" cellpadding="5" 
align="center">\n~;

      $question_number = 1;
      foreach $new_line (@news)
      {
        if ($new_line=~ /^::/)
        {$new_line=~ s/^:://;
          $part1=qq~<tr><td align="left" bgcolor="$color{'fg2'}" WIDTH = "100%">
<a href="$help_script_url?window=$window&topic=$question_number&cart_id=$cart_id&refer_id=$refer_id">$question_number - 
	  $new_line</a></td></tr>\n~;
               $question_number++;

        }
	else
 {
     foreach $sdata (@search_data)
     {
         
        if ($new_line=~ /$sdata/)
	{
	    $sr .="$part1";
	    
	     $doit="yes";
	     
	     
	}
     }
     
	    
     
 }
 
  }
  if($doit eq "yes") {
	print $sr;
	     $doit="";
	     $sr="";
	
    }
 
    }

     print "\n
<tr>
<td width=100%>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
</td></tr></table>
";
}
    

#
# main part of the script
#


exit;