#!/usr/local/bin/perl
#
#	udreg 1.0 - Wnn4.2$B$N%F%-%9%H<-=q$r%f!<%6<-=q$K0l3gEPO?(B
#		by endo-h@zizi.cs.uec.ac.jp
#
use Getopt::Std;

getopts('hD:d:', \%opts);

if ($opts{'h'}) {
    print STDERR "Usage: udreg [-h] [-d ud_file] [-D server]\n";
    exit(0);
}

$wdreg = "/usr/local/bin/Wnn4/wdreg";
$usrdicdir = "/usr/local/lib/wnn/ja_JP/dic/usr";

# $B<-=q%U%!%$%kL>(B
$dic = $opts{'d'} ? $opts{'d'} : 'ud';

# $B%5!<%P%[%9%HL>(B
if (defined($opts{'D'})) {	# $B%*%W%7%g%s;XDj(B
    $server = $opts{'D'};
} elsif ($ENV{'JSERVER'}) {	# $B4D6-JQ?t(B JSERVER
    $server = $ENV{'JSERVER'};
} else {			# $B$=$l$G$b$@$a$J$i(B 'localhost'
    $server = 'localhost';
}

$usr = $ENV{'USER'};

exec("$wdreg -D $server $usrdicdir/$usr/$dic");
exec("echo -D $server $usrdicdir/$usr/$dic");
