#!/usr/local/bin/perl
# run this script in a directory full of foo-2.51-pkg.tar.gz files
# compile xemacs with --package-path=/usr/local/lib/xemacs/site-
#  packages::/usr/local/lib/xemacs/xemacs-packages
#
opendir (DIR, ".");
while ($file = readdir(DIR)) {
  print "found file $file\n";
  next unless $file =~ m/^(.*)-pkg\.tar\.gz$/;
#  $file =~ m/^(.*)-pkg.tar.gz$/;
  $dir = $1;
  $ule = "/usr/local/encap";
#  chdir ("/usr/local/encap");
  mkdir "$ule/$dir", 0755;
  mkdir "$ule/$dir/lib", 0755;
  mkdir "$ule/$dir/lib/xemacs", 0755;
  mkdir "$ule/$dir/lib/xemacs/xemacs-packages", 0755;
  system "tar xvfz $file -C $ule/$dir/lib/xemacs/xemacs-packages";
  system "epkg $dir";
}