use IO::Socket::INET;
use BerkeleyDB;
+my $omegadb_path="/usr/local/lib/chise/omega"; # set to the path of your db and script.
+
my $kageaddr="kage2.fonts.jp:80"; # Specify port number!
-my $t1asm = "/usr/local/bin/t1asm"; # point to 't1asm' executable.
-die "Cannot execute $t1asm. Abort.\n" unless -x $t1asm;
-my $pfaedit="/usr/local/bin/pfaedit"; # point to 'pfaedit' executable.
-die "Cannot execute $pfaedit. Abort.\n" unless -x $pfaedit;
-my $cleanup_script="svg2t1.pfe"; # Set the name of pfaedit script.
+my $kagecgi="/~kamichi/test/kagecgi.cgi"; #
+
+my $t1asm = "/usr/bin/env t1asm"; # point to 't1asm' executable.
+#die "Cannot execute $t1asm. Abort.\n" unless -x $t1asm;
+my $pfaedit="/usr/bin/env pfaedit"; # point to 'pfaedit' executable.
+#die "Cannot execute $pfaedit. Abort.\n" unless -x $pfaedit;
+
+$omegadb_path=~s!/$!!;
+
+my $cleanup_script="$omegadb_path/svg2t1.pfe"; # Check the path of pfaedit script.
+my $dbpath="$omegadb_path/glyph.db"; # check your DB path.
-my $dbpath="$HOME/.chise/glyph.db"; # Set to your DB path.
# Open Glyph Database
my $db = new BerkeleyDB::Hash
-Filename => $dbpath, -Flags => DB_CREATE
##############
# Read ids data generated by outCMAP
-my $idsdata="idsdata.pl";
+my $idsdata="$omegadb_path/idsdata.pl";
my ($font_start, $ids_start, %ids);
if(-e $idsdata){
# "require" doesn't work well.