4 $BASEDIR = "/var/www/makettf";
5 $MAKETTF = "/usr/bin/perl $BASEDIR/makettf.pl";
6 $LICENSE = 'Created by KAGE system. (http://fonts.jp/)';
8 $HEADER_FILENAME = "head.txt";
9 $PARTS_FILENAME = "parts.txt";
10 $FOOTER_FILENAME = "foot.txt";
14 binmode STDOUT, ":utf8";
18 # prepare working directory
19 $RANDOM = sprintf("%07X", rand(0x10000000));
20 $TEMPDIR = "$BASEDIR/$RANDOM";
24 # main : divided for parent and child process
40 $dummy = `$MAKETTF $TEMPDIR $TEMP mincho 3`;
45 $fontname_en = $form->param('fontname-en');
46 $fontname_en =~ s/[\;\&\#\"\'\%\\\$\:\!\=\~\^\`]//g;
47 $fontname_ja = $form->param('fontname-ja');
48 $fontname_ja =~ s/[\;\&\#\"\'\%\\\$\:\!\=\~\^\`]//g;
49 utf8::decode($fontname_ja);
50 if($fontname_en eq ""){
51 $fontname_en = "Untitled";
53 if($fontname_ja eq ""){
54 $fontname_ja = $fontname_en;
56 open FH, ">:utf8", "$TEMPDIR/$HEADER_FILENAME";
59 Reencode("UnicodeFull")
60 SetTTFName(0x409,0,"$LICENSE")
61 SetTTFName(0x409,1,"$fontname_en")
62 SetTTFName(0x409,4,"$fontname_en")
63 SetTTFName(0x411,1,"$fontname_ja")
64 SetTTFName(0x411,4,"$fontname_ja")
70 open FH, ">:utf8", "$TEMPDIR/$FOOTER_FILENAME";
75 my $temp = $form->param('partsdata');
77 open FH, ">:utf8", "$TEMPDIR/$PARTS_FILENAME";
84 Content-type: text/html;
86 <?xml version="1.0" encoding="utf-8"?>
87 <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
88 <meta http-equiv="Content-Type" content="text/html; charset=utf-8">
89 <link rel="stylesheet" type="text/css" href="http://fonts.jp/green.css">
92 <title>フォントダウンロード</title>
97 <p>以下のリンクをクリックしてください。リンクが切れている場合は生成中ですのでもう少しお待ちください。6000グリフで25分程度かかります。</p>
98 <p><a href="$TEMPURL/$TEMP.ttf">フォントのダウンロード</a></p>
99 <p><a href="$TEMPURL/$TEMP.log">生成ログ</a>(しばらくすると、ここに処理したグリフのUCSコードポイントが記録されます。通常の漢字は0u4E00から0u9FA5の間で、0u4E00から処理されます。0u9XXXまで到達せずに更新が止まった場合はデータにエラーがあり失敗している可能性があります。</p>
100 <p><a href="index.html">戻る</a></p>
111 Content-type: text/html;
113 <?xml version="1.0" encoding="utf-8"?>
114 <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
115 <meta http-equiv="Content-Type" content="text/html; charset=utf-8">
116 <link rel="stylesheet" type="text/css" href="http://fonts.jp/green.css">
119 <title>フォント生成失敗</title>
124 <p>もう一度戻ってやり直してください。</p>
125 <p><a href="index.html">戻る</a></p>