#! /usr/bin/perl

#require "jcode.pl";

#============================== config ====

$CHARSET = 'gb2312';
$DATAFILE = './qalist.txt';
$PAGEVIEW = 5;

#======================== mainprogram ====

loadFormdata();
dataopen();

if($FORM{'mode'} eq '3000') {
	agp($FORM{'cat'});
}
elsif($FORM{'mode'} eq 'lt') {
	lt3000($FORM{'cat'});
}
elsif($FORM{'mode'} eq 'st3000') {
	st3000($FORM{'cat'});
}
else {
	printErrorPage();
}


exit;


# =========================== dataread ==================

sub dataopen
	{
open (FILE, "<$DATAFILE") or printErrorPage("List file open error");
eval { flock(FILE,1) };
@DATA = <FILE>;
close FILE;
}


#================== form ====
sub	loadFormdata
{
	my	($query, $pair);
	
	$query = $ENV{'QUERY_STRING'};
	
	foreach $pair (split(/&/, $query)) {
		my	($key, $value) = split(/=/, $pair);
		
 		$value =~ tr/+/ /;
 		$value =~ s/%([0-9a-fA-F][0-9a-fA-F])/chr(hex($1))/eg;
 
# 		$value = jcode::sjis($value);
 		$value =~ s/&/&amp;/g;
 		$value =~ s/</&lt;/g;
 		$value =~ s/>/&gt;/g;
 		$value =~ tr/\t/ /;

		
		$FORM{$key} = $value;
	}
}


# ============================3000============
sub agp
	{

printheadder();
headder_3000();
	
	my $i;
	my $cat = shift;

	$i = 1;
	
	foreach(@DATA) {
		my ($model, $new, $category_m, $category_p, $category, $address, $title, $date) = split(/\t/, $DATA[$i]);
		$i++;
		next unless ($category_m =~ $cat);			
			if ($model =~ /1/){
					if($category_p) {
						print qq(<tr><td colspan="3" class="css2">&nbsp;</td></tr>\n);
						print qq(<tr><td colspan="3" valign="top" align="left" class="css2"><font color="#ff0000">&#9632;<b>$category_p</b></font></td></tr>\n);
					} elsif ($category) {
						print qq(<tr><td colspan="3" class="css2">&nbsp;</td></tr>\n);			
						print qq(<tr><td width="15"><img src="/otasuke/qa/3000/images/icon_b.gif" width="11" height="16" border="0" align="baseline"></td>);
						print qq(<td colspan="2" align="left" class="css2"><b>$category</b></td></tr>\n);
					} else {
						print qq(<tr><td>&nbsp;</td>);
						if($new == 1){
							print qq(<td width="10" align="center" valign="top"><img src="/otasuke/qa/3000/images/icon_b3a.gif" width="9" height="13" border="0"></td>);
						}else{
							print qq(<td width="10" align="center" valign="top"><img src="/otasuke/qa/3000/images/icon_b2a.gif" width="9" height="13" border="0"></td>);
							}
						print qq(<td width="585" align="left" valign="top" class="css2"><strong><a href="$address">$title</a></strong>\n);
						print qq(</td></tr>\n);
					}
			}
		}
	


printfutter();

print <<END;
</span>
</div>
</BODY>
</HTML>
END

}


# ============================lt3000============
sub lt3000
	{

printheadder();
headder_lt();
	
	my $i;
	my $cat = shift;

	$i = 1;
	
	foreach(@DATA) {
		my ($model, $new, $category_m, $category_p, $category, $address, $title, $date) = split(/\t/, $DATA[$i]);
		$i++;
		next unless ($category_m =~ $cat);			
			if ($model =~ /2/){
					if($category_p) {
						print qq(<tr><td colspan="3" class="css2">&nbsp;</td></tr>\n);
						print qq(<tr><td colspan="3" valign="top" align="left" class="css2"><font color="#ff0000">&#9632;<b>$category_p</b></font></td></tr>\n);
					} elsif ($category) {
						print qq(<tr><td colspan="3" class="css2">&nbsp;</td></tr>\n);			
						print qq(<tr><td width="15"><img src="../../images/icon_b.gif" width="11" height="16" border="0" align="baseline"></td>);
						print qq(<td colspan="2" align="left" class="css2"><b>$category</b></td></tr>\n);
					} else {
						print qq(<tr><td>&nbsp;</td>);
						if($new == 1){
							print qq(<td width="10" align="center" valign="top"><img src="images/icon_b3a.gif" width="9" height="13" border="0"></td>);
						}else{
							print qq(<td width="10" align="center" valign="top"><img src="images/icon_b2a.gif" width="9" height="13" border="0"></td>);
							}
						print qq(<td width="585" align="left" valign="top" class="css2"><strong><a href="$address">$title</a></strong>\n);
#						print qq( 鏇存柊鏃?[ $date]<br><br>);
						print qq(</td></tr>\n);
					}
			}
		}
	

printfutter();

print <<END;
</span>
</div>
</BODY>
</HTML>
END

}

# ============================ST3000============
sub st3000
	{

printheadder();
headder_ST3000();
	
	my $i;
	my $cat = shift;

	$i = 1;
	
	foreach(@DATA) {
		my ($model, $new, $category_m, $category_p, $category, $address, $title, $date) = split(/\t/, $DATA[$i]);
		$i++;
		next unless ($category_m =~ $cat);			
			if ($model =~ /1/){
					if($category_p) {
						print qq(<tr><td colspan="3" class="css2">&nbsp;</td></tr>\n);
						print qq(<tr><td colspan="3" valign="top" align="left" class="css2"><font color="#ff0000">&#9632;<b>$category_p</b></font></td></tr>\n);
					} elsif ($category) {
						print qq(<tr><td colspan="3" class="css2">&nbsp;</td></tr>\n);			
						print qq(<tr><td width="15"><img src="../../images/icon_b.gif" width="11" height="16" border="0" align="baseline"></td>);
						print qq(<td colspan="2" align="left" class="css2"><b>$category</b></td></tr>\n);
					} else {
						print qq(<tr><td>&nbsp;</td>);
						if($new == 1){
							print qq(<td width="10" align="center" valign="top"><img src="/otasuke/qa/3000/images/icon_b3a.gif" width="9" height="13" border="0"></td>);
						}else{
							print qq(<td width="10" align="center" valign="top"><img src="/otasuke/qa/3000/images/icon_b2a.gif" width="9" height="13" border="0"></td>);
							}
						print qq(<td width="585" align="left" valign="top" class="css2"><strong><a href="$address">$title</a></strong>\n);
						print qq(</td></tr>\n);
					}
			}
		}
	


printfutter();

print <<END;
</span>
</div>
</BODY>
</HTML>
END

}


#============================ common headder ====
sub printheadder
	{
		
print <<END;
Content-type: text/html; charset=$CHARSET

<HTML>
<HEAD>
<META http-equiv="content-type" content="text/html;charset=gb2312">
<link href="/otasuke/otasuke.css" rel="stylesheet" type="text/css">
<title>FAQ</title>
</HEAD>
<BODY BGCOLOR="#ffffff"><DIV ALIGN="center">
END

open (HEAD, '../../inc/headder_base.html') ;
while (my $line = <HEAD>){
		print $line;
}
close (HEAD);

}


#============================ GP3000 headder ====
sub headder_3000
	{

print <<END;
<table width="640" border="0" cellpadding="0" cellspacing="0" class="css2">
<tr><td colspan="2"><img src="images/shim.gif" width="100" height="15" border="0"></td></tr>
<tr><td align="left"><img src="../images/qa_title.gif" alt="otasuke FAQ" width="190" height="22" border="0"></td></tr>
<tr><td align="left" bgcolor="black"><img src="images/shim.gif" width="100" height="1" border="0"></td></tr>
<tr><td><img src="images/shim.gif" width="100" height="5" border="0"></td></tr>
<tr><td align="left" class="css2"><a name="1"></a><img src="images/shim.gif" width="100" height="5" border="0"></td></tr>
<tr><td align="left" class="css2"><img src="../images/qa_3000.gif" width="640" height="40"></td></tr>
</table>
<table width="640" border="0" cellpadding="0" cellspacing="0" class="css2">
<tr><td>&nbsp;</td></tr>
<tr height="17">
<td bgcolor="#000099" class="css2" height="17" align="left">&nbsp;<font color="white">&nbsp<b>FAQ</b></font></td>
</tr>
</table>
<table border="0" width="620" cellspacing="0" cellpadding="0" class="css2">

END

}


#============================ LT3000 headder ====
sub headder_lt
	{

print <<END;
<table width="640" border="0" cellpadding="0" cellspacing="0" class="css2">
<tr><td colspan="2"><img src="images/shim.gif" width="100" height="15" border="0"></td></tr>
<tr><td align="left"><img src="../images/qa_title.gif" alt="otasuke FAQ" width="190" height="22" border="0"></td></tr>
<tr><td align="left" bgcolor="black"><img src="images/shim.gif" width="100" height="1" border="0"></td></tr>
<tr><td><img src="images/shim.gif" width="100" height="5" border="0"></td></tr>
<tr><td align="left" class="css2"><a name="1"></a><img src="images/shim.gif" width="100" height="5" border="0"></td></tr>
<tr><td align="left" class="css2"><img src="../images/qa_lt3000.gif" width="640" height="40"></td></tr>
</table>
<table width="640" border="0" cellpadding="0" cellspacing="0" class="css2">
<tr><td>&nbsp;</td></tr>
<tr height="17">
<td bgcolor="#000099" class="css2" height="17" align="left">&nbsp;<font color="white">&nbsp<b>FAQ</b></font></td>
</tr>
</table>
<table border="0" width="620" cellspacing="0" cellpadding="0" class="css2">

END

}


#============================ ST3000 headder ====
sub headder_ST3000
	{

print <<END;
<table width="640" border="0" cellpadding="0" cellspacing="0" class="css2">
<tr><td colspan="2"><img src="../images/shim.gif" width="100" height="15" border="0"></td></tr>
<tr><td align="left"><img src="../images/qa_title.gif" alt="otasuke FAQ" width="190" height="22" border="0"></td></tr>
<tr><td align="left" bgcolor="black"><img src="images/shim.gif" width="100" height="1" border="0"></td></tr>
<tr><td><img src="images/shim.gif" width="100" height="5" border="0"></td></tr>
<tr><td align="left" class="css2"><a name="1"></a><img src="images/shim.gif" width="100" height="5" border="0"></td></tr>
<tr><td align="left" class="css2"><img src="../images/st_3000.gif" width="640" height="40"></td></tr>
</table>
<table width="640" border="0" cellpadding="0" cellspacing="0" class="css2">
<tr><td>&nbsp;</td></tr>
<tr height="17">
<td bgcolor="#000099" class="css2" height="17" align="left">&nbsp;<font color="white">&nbsp<b>FAQ</b></font></td>
</tr>
</table>
<table border="0" width="620" cellspacing="0" cellpadding="0" class="css2">

END

}


#============================ futter ====
sub printfutter
	{

print <<END;
<tr> 
<td colspan="3"><img src="/otasuke/images/shim.gif" width="100" height="15" border="0"></td>
</tr>
</table>
<table border="0" cellpadding="0" cellspacing="0" width="640">
<tr height="20">
<td align="center" class="css2" width="160" height="20">&#8593;<a href="#top">返回页面顶端</a></td>
<td align="right" class="css2" height="20" width="480">&lt;--<a href="JavaScript:history.back()">返回上一页</a></td>
</tr>
</table>
<span class="css2">
END

open (FOOT, '../../inc/futter.html');
	while (my $line = <FOOT>){
		print $line;
	}
close (FOOT);

print <<END;
</div>
</body>
</html>
END
}




#============================ error ====
sub	printErrorPage
{
	print qq(Content-type: text/html; charset=$CHARSET\n\n);
	print qq(<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN">\n);
	print qq(<html>\n);
	print qq(<head><title>error</title></head>\n);
	print qq(<body><h1>ERROR</h1><p>$_[0]</p></body>\n);
	print qq(</html>\n);
	
	exit;
}