3 binmode STDOUT, ":utf8";
8 $FONTFORGE = "/usr/local/bin/fontforge";
9 $PERL = "/usr/bin/perl";
11 $LICENSE = 'Created by KAGE system. (http://fonts.jp/)';
14 $RANDOM = sprintf("%05X", rand() * 0x100000);
15 $TEMPDIR = "/tmp/makettf_$RANDOM";
21 $dummy = `$PERL makettf.pl $TEMPDIR $TEMP mincho 3`;
25 $fontname_en = $form->param('fontname-en');
26 $fontname_en =~ s/[\;\&\#\"\'\%\\\$\:\!\=\~\^\`]//g;
27 $fontname_ja = $form->param('fontname-ja');
28 $fontname_ja =~ s/[\;\&\#\"\'\%\\\$\:\!\=\~\^\`]//g;
29 utf8::decode($fontname_ja);
30 if($fontname_en eq ""){
31 $fontname_en = "Untitled";
33 if($fontname_ja eq ""){
34 $fontname_ja = $fontname_en;
36 open FH, ">:utf8", "$TEMPDIR/head.txt";
39 Reencode("UnicodeFull")
40 SetTTFName(0x409,0,"$LICENSE")
41 SetTTFName(0x409,1,"$fontname_en")
42 SetTTFName(0x409,4,"$fontname_en")
43 SetTTFName(0x411,1,"$fontname_ja")
44 SetTTFName(0x411,4,"$fontname_ja")
50 open FH, ">:utf8", "$TEMPDIR/foot.txt";
55 my $temp = $form->param('partsdata');
57 open FH, ">:utf8", "$TEMPDIR/parts.txt";
67 Content-type: application/octet-stream
68 Content-Disposition: attachment; filename = $fontname_en.ttf
71 binmode STDOUT => ":raw";
72 #open FH, "<:utf8", "$TEMPDIR/$TEMP.ttf";
73 open FH, "<$TEMPDIR/$TEMP.ttf";
75 $readed = read FH, $fdata, 1024;
76 #utf8::decode($fdata);
83 $dummy = `$RM -r $TEMPDIR`;