- my $temp = $form->param('partsdata');
- utf8::decode($temp);
- open FH, ">:utf8", "$TEMPDIR/parts.txt";
- print FH $temp;
- close FH;
+ my $temp = $form->param('partsdata');
+ utf8::decode($temp);
+ open FH, ">:utf8", "$TEMPDIR/$PARTS_FILENAME";
+ print FH $temp;
+ close FH;
+}
+
+sub makepage{
+ print <<"EOT";
+Content-type: text/html;
+
+<!DOCTYPE html
+ PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
+ "http://www.w3.org/TR/html4/loose.dtd">
+<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
+<link rel="stylesheet" type="text/css" href="http://fonts.jp/green.css">
+<html>
+<head>
+<title>フォントダウンロード</title>
+</head>
+<body>
+<div class="main">
+<h1>フォント生成中</h1>
+<p>以下のリンクをクリックしてください。リンクが切れている場合は生成中ですのでもう少しお待ちください。6000グリフで25分程度かかります。</p>
+<p><a href="$TEMPURL/$TEMP.ttf">フォントのダウンロード</a></p>
+<p><a href="$TEMPURL/$TEMP.log">生成ログ</a>(しばらくすると、ここに処理したグリフのUCSコードポイントが記録されます。通常の漢字は0u4E00から0u9FA5の間で、0u4E00から処理されます。0u9XXXまで到達せずに更新が止まった場合はデータにエラーがあり失敗している可能性があります。</p>
+<p><a href="index.html">戻る</a></p>
+<hr class="footer">
+fonts.jp
+</div>
+</body>
+</html>
+EOT