#!/usr/bin/perl

require "vars.cgi";

$apass="2chmona";

##########################################################################
##																		##
##							 SmartFAQ v2.0								##
##							 -------------								##
##					   by Jimmy (wordx@hotmail.com)						##
##						http://www.smartCGIs.com						##
##																		##
##	This is a free script, if anyone sold it to you please contact me.  ##
##  Please DO NOT remove any of the copyrights or links to our site,    ##
##  they keep this CGI free for everyone. Thanks!						##
##																		##
##				  (c) copyright 2000 SmartCGIs.com						##
##########################################################################
print "Content-type: text/html;charset=EUC-JP\n\n";

$buffer = $ENV{'QUERY_STRING'};
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name,$value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/~!/ ~!/g;
#$value =~ s/[\<\>\"\'\%\;\)\(\&\+\`]//g;
$value =~ s/<!--//ig;
$value =~ s/`//ig;

$in{$name} = $value;
}
$password = $in{'password'};
#$newsubject = $in{'newsubject'};
$subject = $in{'subject'};
$question = $in{'question'};
$editquestion = $in{'editquestion'};
$answer = $in{'answer'};
$id = $in{'id'};
$fid = $in{'fid'};
#$edit = $in{'edit'};
#$delete = $in{'delete'};
#$editsub = $in{'editsub'};
#$deletesub = $in{'deletesub'};
#$deletesub2 = $in{'deletesub2'};

if($password ne $apass) {
print <<EOF;
<title>Access Admin Area</title>
<center>
<big>SmartFAQ Admin</big><br>
<form method="GET" action="2ch.cgi">
<div align="center"><center><p><input type="text" name="password"
  size="14"><input type="submit" value="Access" name="B1"></p>
  </center></div>
</form>
<p><br><center><small>Script provided by <a href="http://www.smartcgis.com" target="_top">SmartCGIs.com</a></small></center>
EOF
exit;
}



if($newsubject ne "") { &newsubject; }
if($subject ne "") { &subject; }
if($question ne "") { &question; }
if($edit ne "") { &edit; }
if($editquestion ne "") { &edit2; }
if($delete ne "") { &delete; }
if($editsub ne "") { &editsub; }
if($deletesub ne "") { &deletesub; }
if($deletesub2 ne "") { &deletesub2; }

open(DATA,"subject.faq");
@subj = <DATA>;
close(DATA);

print <<EOF;
<title>Miranda IM --- Japanese FAQ 2ch admin area ---</title>
<center>
<big><big>Japanese FAQ 2ch admin</big></big>
<p>

EOF
$countsubj = 0;
foreach (@subj) { $countsubj++; }
if($countsubj eq 0) {
print "You need to add at least 1 subject before being able to do anything else.\n";
} else {
print "<form method=\"GET\" action=\"2ch.cgi\">セクションを選んでください。: <select name=\"subject\" size=\"1\">\n";
	foreach (@subj) {
	chomp($_);
	($id, $subject) = split(/\|/,$_);
	print "<option value=\"$id\">$subject</option>\n";
	}
print "</select> <input type=\"submit\" value=\"選択\" name=\"B1\"> <input type=\"hidden\" name=\"password\" value=\"$password\"></form>\n";
print <<EOF;
<script src="http://www.smartcgis.com/cgi-bin/vupdate/vu.cgi?script=faq&vn=2"></script>
<!---- SmartCGIs Version Update will notify you when a new version of this script is available ---->
EOF
print "<p><br><center><small>Script provided by <a href=\"http://www.smartcgis.com\" target=\"_top\">SmartCGIs.com</a></small></center>\n";
}

sub newsubject {
$time = time;
&Jcode::convert(\$newsubject,$prog_kcode);
open(DATA,">>subject.faq");
print DATA "$time|$newsubject\n";
close(DATA);
if (not(-e "subject")) { mkdir("subject", 0777) || &error("Can't create directory 'subject' ($!)"); }
mkdir("subject/$time", 0777) || &error("Can't create directory 'subject/$time' ($!)");

print <<EOF;
<title>New Subject Created</title>
Done. A new subject has been entered.<br>
<a href="2ch.cgi?password=$password">Go Back</a>
EOF
print "<p><br><center><small>Script provided by <a href=\"http://www.smartcgis.com\" target=\"_top\">SmartCGIs.com</a></small></center>\n";
exit;
}


sub subject {
open(DATA,"subject.faq");
@subj = <DATA>;
close(DATA);
	foreach (@subj) {
	chomp($_);
	($id, $sub) = split(/\|/,$_);
	if($id eq $subject) {
print <<EOF;
<title>SmartFAQ Subject: $sub</title>

<center><p><strong><big>セクション: $sub</big></strong> 

<p>
Location: <a href="$cgiurl/smartfaq.cgi?subject=$subject">$cgiurl/smartfaq.cgi?subject=$subject</a>
<p>
<form method="GET" action="2ch.cgi">
<input type="hidden" name="id" value="$subject">
  <div align="center"><center><table border="0">
    <tr>
      <td width="100%"><div align="left"><p><strong>質問:</strong><br>
      <textarea rows="2" name="question" cols="45"></textarea></p>
      </div><div align="left"><p><strong>回答:</strong><br>
      <textarea rows="5" name="answer" cols="52"></textarea></p>
      </div><div align="left"><p><input type="submit" value="追加" name="submit"></td>
    </tr>
  </table>
  </center></div>
<input type="hidden" name="password" value="$password">
</form>
<hr>
<table width=400><tr><td>
EOF
opendir (DIR, "subject/$id");
@files = grep { /.qa$/ } readdir(DIR);
close (DIR);

foreach $file(@files) {
$fid = $file;
$fid =~ s/.qa//g;
open(DATA,"subject/$id/$file");
@content = <DATA>;
close(DATA);
$content = join('',@content);
($q, $a) = split(/\|/,$content);
print "<b>$q</b> <br>$a<br>\n";

print "<hr />";

#print "<a href=\"2ch.cgi?edit=$fid&id=$id&password=$password\">Edit</a> - <a href=\"2ch.cgi?delete=$fid&id=$id&password=$password\">Delete</a> <p>\n";
}

print "</td></tr></table><p> <a href=\"2ch.cgi?password=$password\">Back to main</a>\n";
print "<p><br><center><small>Script provided by <a href=\"http://www.smartcgis.com\" target=\"_top\">SmartCGIs.com</a></small></center>\n";
exit;
	}
	}
exit;
}


sub error 
{
 my $error = shift;
print <<EOF;
<title>Error</title>
Error: $error
EOF
print "<p><br><center><small>Script provided by <a href=\"http://www.smartcgis.com\" target=\"_top\">SmartCGIs.com</a></small></center>\n";
exit;
}


sub question {
if($answer eq "") {
print <<EOF;
<title>No Answer Provided</title>
You did not provide an answer to your question. Please <A HREF=\"javascript:history.back()\">go back</a> and enter one.
EOF
print "<p><br><center><small>Script provided by <a href=\"http://www.smartcgis.com\" target=\"_top\">SmartCGIs.com</a></small></center>\n";
exit;
}
$time = time;

&Jcode::convert(\$question,$prog_kcode);
&Jcode::convert(\$answer,$prog_kcode);

@a = split(/\n/,$answer);
open(DATA,">subject/$id/$time.qa");
print DATA "$question|\n";
foreach (@a) { print DATA "$_<br>\n"; }
close(DATA);

print <<EOF;
<title>Entry Added</title>
Done. The question has been added to the FAQ.<br>
<a href="2ch.cgi?subject=$id&password=$password">Go back</a>
<META HTTP-EQUIV=REFRESH CONTENT="1; URL=2ch.cgi?subject=$id&password=$password">
EOF
print "<p><br><center><small>Script provided by <a href=\"http://www.smartcgis.com\" target=\"_top\">SmartCGIs.com</a></small></center>\n";
exit;
}


sub edit {
open(DATA,"subject/$id/$edit.qa");
@content = <DATA>;
close(DATA);
$content = join('',@content);
($q, $a) = split(/\|/,$content);

print <<EOF;
<title>Edit Entry</title>
<form method="GET" action="2ch.cgi">
<input type="hidden" name="id" value="$id">
<input type="hidden" name="fid" value="$edit">
  <div align="center"><center><table border="0">
    <tr>
      <td width="100%"><div align="left"><p><strong>Question:</strong><br>
      <textarea rows="2" name="editquestion" cols="45">$q</textarea></p>
      </div><div align="left"><p><strong>Answer:</strong><br>
      <textarea rows="5" name="answer" cols="52">$a</textarea></p>
      </div><div align="left"><p><input type="submit" value="Edit Entry" name="submit"></td>
    </tr>
  </table>
  </center></div>
<input type="hidden" name="password" value="$password">
</form>
EOF
print "<p><br><center><small>Script provided by <a href=\"http://www.smartcgis.com\" target=\"_top\">SmartCGIs.com</a></small></center>\n";
exit;
}

sub edit2 {
if($answer eq "") {
print <<EOF;
<title>No Answer Provided</title>
You did not provide an answer to your question. Please <A HREF=\"javascript:history.back()\">go back</a> and enter one.
EOF
print "<p><br><center><small>Script provided by <a href=\"http://www.smartcgis.com\" target=\"_top\">SmartCGIs.com</a></small></center>\n";
exit;
}

&Jcode::convert(\$editquestion,$prog_kcode);
&Jcode::convert(\$answer,$prog_kcode);
open(DATA,">subject/$id/$fid.qa");
print DATA "$editquestion|$answer";
close(DATA);

print <<EOF;
<title>Entry Added</title>
Done. The question has been edited.<br>
<a href="2ch.cgi?subject=$id&password=$password">Go back</a>
<META HTTP-EQUIV=REFRESH CONTENT="1; URL=2ch.cgi?subject=$id&password=$password">
EOF
print "<p><br><center><small>Script provided by <a href=\"http://www.smartcgis.com\" target=\"_top\">SmartCGIs.com</a></small></center>\n";
exit;
}

sub delete {
unlink("subject/$id/$delete.qa");
print <<EOF;
<title>Entry Deleted</title>
Done. The question has been deleted.<br>
<a href="2ch.cgi?subject=$id&password=$password">Go back</a>
<META HTTP-EQUIV=REFRESH CONTENT="1; URL=2ch.cgi?subject=$id&password=$password">
EOF
print "<p><br><center><small>Script provided by <a href=\"http://www.smartcgis.com\" target=\"_top\">SmartCGIs.com</a></small></center>\n";
exit;
}

sub editsub {
open(DATA,"subject.faq");
@subjects = <DATA>;
close(DATA);
foreach (@subjects) {
chomp($_);
($num, $sub) = split(/\|/,$_);
	if($num eq $id) {
	    &Jcode::convert(\$editsub,$prog_kcode);
	    push(@newlist,"$num|$editsub\n");
	} else {
	    push(@newlist,"$_\n");
	}
}
open(DATA,">subject.faq");
print DATA @newlist;
close(DATA);

print <<EOF;
<title>Subject Edited</title>
Done. The subject has been changed.<br>
<a href="2ch.cgi?subject=$id&password=$password">Go back</a>
<META HTTP-EQUIV=REFRESH CONTENT="2; URL=2ch.cgi?subject=$id&password=$password">
EOF
print "<p><br><center><small>Script provided by <a href=\"http://www.smartcgis.com\" target=\"_top\">SmartCGIs.com</a></small></center>\n";
exit;
}

sub deletesub {
print <<EOF;
<title>Are you sure?</title>
<center>
Are you sure you want to delete this FAQ subject and all its Q&A entries?<br>
<form method="GET" action="2ch.cgi">
<input type="submit" value="Yes, Delete this subject!" name="submit">
<input type="hidden" name="deletesub2" value="$deletesub">
<input type="hidden" name="password" value="$password">
</form>
EOF
print "<p><br><center><small>Script provided by <a href=\"http://www.smartcgis.com\" target=\"_top\">SmartCGIs.com</a></small></center>\n";
exit;
}

sub deletesub2 {
opendir (DIR, "subject/$deletesub2");
@files = grep { /.qa$/ } readdir(DIR);
close (DIR);

foreach $file(@files) { unlink("subject/$deletesub2/$file"); }
rmdir("subject/$deletesub2");
open(DATA,"subject.faq");
@subjects = <DATA>;
close(DATA);
	foreach (@subjects) {
		($num, $sub) = split(/\|/,$_);
		if($num ne $deletesub2) { push(@newlist,$_); }
	}
open(DATA,">subject.faq");
print DATA @newlist;
close(DATA);

print <<EOF;
<title>Subject Deleted</title>
Done. The subject and all its entries have been deleted.<br>
<a href="2ch.cgi?password=$password">Go back</a>
EOF
print "<p><br><center><small>Script provided by <a href=\"http://www.smartcgis.com\" target=\"_top\">SmartCGIs.com</a></small></center>\n";
exit;
}