#!/usr/bin/perl -w
####################################
#
# COPYRIGHT NOTICE:
#
# Copyright 2000 Aytekin Tank.
#
# This program may be used and modified free of charge by anyone, so
# long as this copyright notice and the header above remain intact.
# Selling the code for this program without prior written consent is
# expressly forbidden.  Obtain permission before redistributing this
# program over the Internet or in any other medium.  In all cases
# copyright and header must remain intact.
#
# This program is distributed "as is" and without warranty of any
# kind, either express or implied. All responsibility is belong to 
# you if any damage or loss occurs.
####################################


###############################
# VARIABLES
###############################

###############################
# Place you password here:
###############################
$password = "admin";
 
###############################
# Directory
#
# if using NT, put the whole path like (/whole/path/)
# leave it blank like I did for unix:
###############################
$directory = "";

###############################
# FAQ files you will use:
###############################
@faq_files = ("faq.html", "other/faq.html", "other_fql.html");

###############################
# To give the looka and feel you want
# you can edit these parts in the FAQ tags
#
# they should be only one line:
###############################
$before_question = "<b><p>";
$after_question = "</b><br>";
$before_answer = "<font size=1>";
$after_answer = "</font>";

###############################
# Don't touch anything after this
# unless you know who is Larry Wall..
###############################









###############################
# MENU
###############################

 $addon = "<p><font size=1>Powered by <a href=http://www.interlogy.com/scripts/faqman>FAQ Manager</a><br></font><br>";
 &readQuery();
 print "Content-type: text/html\n\n";
 &initilize();
 if($password ne $input{'pass'})
 { &logOnForm(); &Exit();	}
 elsif ($input{'action'} eq "list")
 {	
	&ReadFile();
	&List();
 }
 elsif 
 	(($input{'action'} eq "add") or
 	($input{'action'} eq "edit") or
 	($input{'action'} eq "delete"))
 {	
	&ReadFile();
	&ChangeForm();
 }
 elsif ($input{'action'} eq "editnow")
 {	
	&EditQuestion();
 }
 elsif ($input{'action'} eq "addnow")
 {	
	&AddNewQuestion();
 }
 elsif ($input{'action'} eq "deletenow")
 {	
	&DeleteQuestion();
 }
 elsif ($input{'action'} eq "order")
 {	
	&ReadFile();
	&ChangeOrder();
 }

 &Exit;

###############################
# change order of the questions
###############################
sub ChangeOrder
{
	for ($i=1; $i<@questions; $i++)
	{
		if(not defined($input{$i}))
		{
			print "<p>Error: $i is undefined!</p>";
			&Exit;
		}
	}
	for ($i=1; $i<=@questions; $i++)
	{
			$newquestions[$input{$i}] = @questions[$i];
			$newanswers[$input{$i}] = @answers[$i];
	}
	@questions = @newquestions;
	@answers = @newanswers;
	&CreateHtmlFile();
	&Exit();
}

###############################
# Add a new question
###############################
sub AddNewQuestion
{
	&ReadFile();
	push(@questions, $input{'question'});
	push(@answers, $input{'answer'});
	&CreateHtmlFile();
	&Exit();
}

###############################
# Delete a question
###############################
sub DeleteQuestion
{
	&ReadFile();
	for ($i=0; $i<@questions; $i++)
	{
		if($i != $input{'no'})
		{
			push(@newquestions, $questions[$i]);
			push(@newanswers, $answers[$i]);
		}
	}
	@questions = @newquestions;
	@answers = @newanswers;
	&CreateHtmlFile();
	&Exit();
}

###############################
# Delete a question
###############################
sub EditQuestion
{
	&ReadFile();
	for ($i=0; $i<@questions; $i++)
	{
		if($i == $input{'no'})
		{
			$questions[$i] = $input{'question'};
			$answers[$i] = $input{'answer'};
		}
	}
	&CreateHtmlFile();
	&Exit();
}


###############################
# Parse the FAQ files
###############################
sub ReadFile
{
 &get_html_page();
 foreach (@faqfile) {
	 chomp;
 	 if($_ =~ m"<!--/FAQ-->" )
 	 	{$save=0; $end_start=1; next}
 	 elsif($_ =~ m"<!--FAQ-->" )
 	 	{$save=1; $start_end=1; next;}

 	 elsif($_ =~ m"^<!--FAQ-C-([0-9][0-9])-->" )
 	 {	$start_field=$1; next;	 }
 	 elsif($_ =~ m"^<!--/FAQ-C-([0-9][0-9])-->" )
 	 {	$start_field=0; next;	 }

 	 if($save)
 	 {
		 	 if($_ =~ m"^<!--FAQ-Q-([0-9][0-9])-->" )
 			 {	$question_field=$1; next;	 }
		 	 elsif($_ =~ m"^<!--/FAQ-Q-([0-9][0-9])-->" )
 			 {	$question_field=0; next;	 }
		 	 elsif($_ =~ m"^<!--FAQ-A-([0-9][0-9])-->" )
 			 {	$answer_field=$1; next;	 }
		 	 elsif($_ =~ m"^<!--/FAQ-A-([0-9][0-9])-->" )
 			 {	$answer_field=0; next;	 }

			 if($question_field != 0)
			 { 	$questions[$question_field] .= $_; next; }
			 if($answer_field != 0)
			 { 	$answers[$answer_field] .= $_; next; }
 	 }
 	 if(!$start_end){$before_faq .= "$_\n";} 
 	 if($end_start){$after_faq .= "$_\n";} 
 }
}

###############################
# List all questions for admin purposes
###############################
sub List
{
 my $question_lenght = 70;
 print "<table border=0 bgcolor=black cellspacing=5 cellpadding=4>\n";
 print qq~
 	<form action=faqman.cgi method=get>
	<input type=hidden name=action value=order>
	<input type=hidden name=pass value=$input{'pass'}>
	<input type=hidden name=page value="$input{'page'}">
 ~;
 print "<tr bgcolor=red><td>Order</td><td>Question</td><td>Edit</td><td>Delete</td></tr>\n";
 for($i=1; $i<@questions; $i++)
 { 
 	@qsqp = split("", $questions[$i]);
 	if (@qsqp<$question_lenght) {
 		$short_question = $questions[$i];
 	} else {
 		for ($j=0;$j<$question_lenght; $j++){
 			$short_question .= $qsqp[$j];
 		}
 			$short_question .= "...";
 	} 		
	print "\n\n\t<tr>";
	print "\n\t\t<td><input type=text size=2 name=$i value=$i> </td>";
	print "\n\t<td><font size=1 face=Verdana><b>$short_question</b></font></td>";
	print "\n\t\t<td><font size=1 face=Verdana>";
	print qq~  <a href="javascript:openAWindow('faqman.cgi?action=edit&pass=$input{'pass'}&page=$input{'page'}&image=nope&no=$i','newWin',550,300,1);"class="ctl">Edit</a></td> ~;
	print "\n\t\t<td><font size=1 face=Verdana>";
	print qq~  <a href="javascript:openAWindow('faqman.cgi?action=delete&pass=$input{'pass'}&page=$input{'page'}&image=nope&no=$i','newWin',550,300,1);"class="ctl">Delete</a></td> ~;
	print "\n\t</tr>";
	$short_question="";
 }
 print "\n\n\t<tr bgcolor=red>";
 print "\n\t\t<td><input type=submit size=1 value=RE></td></form>";
 print "\n\t\t<td><center><font size=1 face=Verdana>";
 print qq~  <a href="javascript:openAWindow('faqman.cgi?action=add&pass=$input{'pass'}&page=$input{'page'}&image=nope','newWin',550,300,1);"class="ctl">Add New Question</a></center></td> ~;

 print "\n\t\t<td></td><td></td></tr>\n";
 print "\n</table>";
}

###############################
# Create fie for add/modify/delete
###############################
sub CreateHtmlFile
{
 open (HTML, ">${directory}$input{'page'}") or "wrong path to $input{'page'}";
 print HTML $before_faq."\n<!--FAQ-->";
 for($i=1; $i<@questions; $i++)
 { 
	if ($i<10) { $no = "0$i"; } else { $no = $i; }
	print HTML "\n<!--FAQ-Q-$no-->${before_question}$i. \n$questions[$i]\n<!--/FAQ-Q-$no-->${after_question}";
	print HTML "\n<!--FAQ-A-$no-->${before_answer}\n$answers[$i]\n<!--/FAQ-A-$no-->${after_answer}\n";
 }
 print HTML "<!--/FAQ-->$addon\n${after_faq}\n";
 close HTML;
}

###############################
# Get FAQ page - for internal use only from other subroutines
###############################
sub get_html_page
{
	open (FILE, "<${directory}$input{'page'}") or "wrong path to $input{'page'}!";
	@faqfile = <FILE>;
	close FILE;
}

###############################
# FORM PARSE
###############################
sub readQuery {
 if($ENV{'REQUEST_METHOD'} eq "GET")
 {
	@pairs = split(/&/, $ENV{'QUERY_STRING'}); 
	foreach $pair (@pairs) 
	{
		local($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; 
		$value =~ tr/\|/\//; 
		$input{$name} = $value; 
	} 
 }
 else
 {
	read(STDIN,$user_string,$ENV{'CONTENT_LENGTH'});
	if (length($ENV{'QUERY_STRING'})>0) {$user_string=$ENV{'QUERY_STRING'}};
	$user_string =~ s/\+/ /g;
	@name_value_pairs = split(/&/,$user_string);
	foreach $name_value_pair (@name_value_pairs) {
	        ($keyword,$value) = split(/=/,$name_value_pair);
	        $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/ge;
			$input{$keyword} = $value;
	}
 }
  $input{'login'} =~ s/\ /\_/g;
}

###############################
# Edit or add question form!
###############################
sub ChangeForm
{
 if($input{'action'} eq "edit")
 { 	$change = "Modify"; $action="editnow";}
 elsif($input{'action'} eq "delete")
 { 	$change = "Delete"; $action="deletenow";}
 else
 { 	
 	$input{'no'} = @questions;
  	$change = "Add"; 
  	$action = "addnow";
 }
 
 print qq~
	<form action=faqman.cgi method=post>
	<input type=hidden name=action value=$action>
	<input type=hidden name=pass value=$input{'pass'}>
	<input type=hidden name=page value="$input{'page'}">
	<input type=hidden name=no value="$input{'no'}">
	<font size="2" face="Verdana"><b>$change Question $input{'no'}:</b></font>
	<TABLE BORDER=0>
		<p align=left>
		<tr><td>
		<font size="2" face="Verdana">Question: </font>
		</td><td>
	        <textarea name="question" rows="3" cols="50"
	        wrap="soft">$questions[$input{'no'}]</textarea>&nbsp; 
		</td></tr>

		<tr><td>
		<font size="2" face="Verdana">Answer: </font>
		</td><td>
	        <textarea name="answer" rows="7" cols="50"
	        wrap="soft">$answers[$input{'no'}]</textarea>&nbsp; 
		</td></tr>
	</table>
	<p><input type="submit" name="submit" value="$change"></p>
	</form>
 ~;	

}
###############################
# Log on page
###############################
sub logOnForm
{
 print qq~
	<form action=faqman.cgi method=get>
	<input type=hidden name=action value=list>
	<TABLE BORDER=0>
		<p align=left>
		<tr><td>
		<font size="2" face="Verdana">FAQ Page: </font>
		</td><td>
		<select name="page">
 ~;
			foreach (@faq_files)
			{ print "\n<option value=\"$_\"> $_\n"; }
			
 print qq~
		</select>			 
		</td></tr>
		<TR><TD>
		<font size="2" face="Verdana">Password: </font></td>
		<td>
		<input type=password color=grey name=pass size=15>
		</td></tr>
	</table>
	<p><input type="submit" name="submit" value="Log On"></p>
	</form>
 ~;	
}

###############################
# Header of the pages
###############################
sub initilize
{
 print "<html><body bgcolor=black text=white link=white vlink=white><center>\n";
 print "<basefont size=2 color=red face=Arial>";
 
 if(not $input{'image'} eq "nope")
 {
  print qq~  <a href="javascript:openAWindow('http://www.interlogy.com/scripts/faqman/faqmanNews.html','newWin',200,200,1);"class="ctl"></td> ~;
  print "<img src=faqman.gif border=0></img></a></font>\n";
  print qq~
   <script language="javascript">
   function openAWindow( pageToLoad, winName, width, height, center) {
    xposition=0; yposition=0;
    if ((parseInt(navigator.appVersion) >= 4 ) && (center)){
        xposition = (screen.width - width) / 2;
        yposition = (screen.height - height) / 2;
    }
    args = "width=" + width + "," 
    + "height=" + height + "," 
    + "location=0," 
    + "menubar=0,"
    + "resizable=1,"
    + "scrollbars=0,"
    + "status=0," 
    + "titlebar=0,"
    + "toolbar=0,"
    + "hotkeys=0,"
    + "screenx=" + xposition + ","  //NN Only
    + "screeny=" + yposition + ","  //NN Only
    + "left=" + xposition + ","     //IE Only
    + "top=" + yposition;           //IE Only

    window.open( pageToLoad,winName,args );
  }
  </script>
  ~;
 }
}

###############################
# Footer of the pages
###############################
sub Exit
{
	 if(not $input{'image'} eq "nope")
	 {
	 	if(defined($input{'action'}))
	 	{
		 print qq~
			<br><br>
			<form action=faqman.cgi method=post>
			<input type=hidden name=action value=list>
			<input type=hidden name=pass value=$input{'pass'}>
			<input type=hidden name=page value="$input{'page'}">
			<p><input type="submit" name="submit" value="List"></p>
			</form>
		  ~;
		 }
		 			
		 print qq~
			<br><i><div align=center><font size=1 color=red>
			FAQ Manager version 0.1 <br>Copyright &copy; 2000 
			by <a href=http://www.interlogy.com/scripts/faqman>interlogy</a>
			</font></div></i><br>
		 ~;
		 
	}
	exit;
}