#!/bin/perl5 -w
# $Id: tardist,v 1.2 1998-05-14 14:47:05-05 annis Exp $
#
# Copyright (c) 1998 William S. Annis.  All rights reserved.  This
# is free software; you can redistribute it and/or modify it under the
# same terms as Perl itself.
#
#   This is a simple program to turn a mess of files in a development area
# into a nice tarball.
#
#   It uses the libraries used in creating perl libraries, so it looks
# for the file MANIFEST.  Look at the documentation for ExtUtils::Manifest
# for more detail on what that file should look at the documentation for
# that package.

use ExtUtils::Manifest qw(manicopy maniread);
use strict;

# What should the distribution be called?
my $distname;

sub usage {
    print <<EOD;
tardist <dist-name>

For example:
\$ tardist Mom-0.01b

Remember, this tars up those listed in the file called 'MANIFEST'.
EOD
}


if ($#ARGV != 0 || $ARGV[0] =~ /-h/) {
    &usage;
    exit 1;
} else {
    $distname = $ARGV[0];
}


# This is it.

manicopy(maniread(), $distname);
print `tar cvf $distname.tar $distname`;
print `gzip -9 $distname.tar`;
print `/bin/rm -rf $distname`;

# DONE.