#!/usr/bin/perl -w

my $srcfile = 'my_option.sample';
my $destfile = '../my_option';
my $xdvi_toolkit = 'conf_option --with-xdvi-x-toolkit=motif';
my $dir_to_install = '/usr/local';

my $s;

if ($ARGV[0] && length($ARGV[0])) {
  $dir_to_install = $ARGV[0];
}

open(FS, "< " . $srcfile)
  or die('Cannot open ' . $srcfile . "\n");
open(FD, "> " . $destfile)
  or die('Cannot open ' . $destfile . "\n");

while (<FS>) {
  $s = $_;
  $s =~ s/^#\s*JAPANESE=traditional/JAPANESE=traditional/g;
  $s =~ s/^#\s*KANJI_CODE=UTF8/KANJI_CODE=UTF8/g;
  $s =~ s/^#\s*${xdvi_toolkit}/${xdvi_toolkit}/g;
  $s =~ s/^#\s*XDVI=echo/XDVI=echo/g;
  $s =~ s/^#\s*PXDVI=echo/PXDVI=echo/g;
  $s =~ s:^#\s*PREFIX=%{_prefix}:PREFIX=${dir_to_install}:g;
  print FD $s;
}