#!/usr/bin/perl

# Variables --

$base_dir    = "/home/ftp/pub/scivw/postings";
@directories = (1994, 1995);

# Main Program --

&make_index("$base_dir/@directories");

# Subroutine(s) --

sub uncompress {
  local ($undoit) = `uncompress $file`;
  local ($copyit) = `cp $file $tmpdir`;
  local ($tmpdir) = "/home/ftp/pub/scivw/postings/tmp";
  local ($file)   = $_;
   system("$copyit ; $undoit"); }

sub make_index {
  local($dir) = $_[0];
   foreach $file (<$dir/*.Z>) {
     &uncompress("$dir/*.Z");