#!/usr/bin/perl

use CGI;

$cgi = new CGI;

print	$cgi->header,
		$cgi->start_html(	-title=>'Newtonではじめるプログラミング',
							-BGCOLOR=>'WHITE',
							-BACKGROUND=>'bg.gif',
							-LINK=>'#008800',
							-ALINK=>'#00FF00',
							-VLINK=>'#006600');

print <<'END_HTML';

<TABLE CELLPADDING=4 CELLSPACING=0>
<TR>
	<TD><IMG SRC="title.gif" ALT="Title Picture"></TD>
	<TD VALIGN=TOP>
		<FONT FACE="丸ゴシック−Ｍ,Osaka">
		<FONT SIZE=+2>
		<B>Newtonではじめるプログラミング</B><BR>
		サポートページ<P>
		</FONT>
		このページは<A HREF="http://www.ohmsha.co.jp/">オーム社</A>より好評発売中の「<A HREF="http://www.ohmsha.co.jp/data/books/contents/4-274-06224-4.htm">Newtonではじめるプログラミング</A>」のオフィシャル（笑）サポートページです。本文中で見つかった間違いに対する訂正などもここに掲載していきます。
		</FONT>
	</TD>
</TR>
</TABLE>
<BR CLEAR=ALL>

<TABLE ALIGN=LEFT WIDTH=156>
<TR><TD ALIGN=CENTER>
	<FONT FACE="丸ゴシック−Ｍ,Osaka"><B>
	− 目次 −<P>
	<FONT SIZE=+2>
	<A HREF="index.html">ニュース</A><P>
	<A HREF="collection.html">間違いの訂正</A><P>
	ゲストブック<P>
	</FONT></B>
	<FONT SIZE=-1>
	このページに関するご意見、ご要望などございましたら、下記のアドレスまでご連絡下さい。<P>
	<ADDRESS><A HREF="mailto:basuke@siesta.co.jp">basuke@siesta.co.jp</A></ADDRESS>
	</FONT>
	</FONT>
	<P>
	<IMG SRC="/cgi-bin/Count.cgi?df=newt-programming.dat&ft=2&dd=D&incr=F">
</TD></TR>
</TABLE>

<HR><!-- メイン -->

<TABLE CELLSPACING=4 CELLPADDING=2>

<TR><TD ALIGN=CENTER COLSPAN=2><FONT FACE="丸ゴシック−Ｍ,Osaka" SIZE=+1><B>皆さんからのコメントコーナー</B></FONT></TD></TR>

<TR><TD VALIGN=TOP ALIGN=RIGHT COLSPAN=2><FONT FACE="丸ゴシック−Ｍ,Osaka" SIZE=+1><B><A HREF="comment.html">コメントする！</A></B></FONT><HR SIZE=1></TD></TR>

END_HTML

&print_comments;

print	"</TABLE>\n",
		$cgi->end_html;

sub print_comments {
	$file = '/home/httpd/siesta/newt-programming/guest.txt';
	
	open(FILE, $file);
	
	$i = 0;
	while (<FILE>) {
		print;
		
		$i++;
		if ($i >= 4) {
			print "</TABLE>\n<TABLE ALIGN=LEFT WIDTH=156><TR><TD> </TD></TR></TABLE>\n<TABLE CELLSPACING=4 CELLPADDING=2>\n";
			$i = 0;
		}
	}
}