#!/usr/bin/perl 
# NOTE: The above path is machine dependent!!!

#------------------------------------------------------------------------
# file: 780archive.pl
#
# Update the version number and the Revision History after changes
#

$version = "0.90   [28-Dec-2005]";

#------------------------------------------------------------------------
#
# This Perl script calls the tar ("Tape ARchive") command to make
#  a compressed archive of files and subdirectories.
#
# Author:  Dick Furnstahl
#          furnstahl.1@osu.edu
#
# Revision history:
#  0.90  28-Dec-05 --- original version, using ideas from the Perl Cookbook
#
# Linux usage notes:
#   * 
#
# To Do:
#   * more advanced options 
#
#

# Load Perl packages
use Getopt::Long;   # allow the extended processing of command line options

# set default options
#  (none for now)

# Get the command-line options
#  
GetOptions("help", "version");

# print out version info and/or help if requested
if ($opt_version) 
{
  print "\nVersion number: $version\n";
}

# print out help if requested
if ($opt_help) 
{
  print_help();
}

# quit if version info or help requested
if ($opt_version || $opt_help) 
{
  exit 1;
}

# get the name of the archive
print "What do you want to call the archive?\n";
print " (Note \".tarz\" will be appended to your answer)\n";
print " Archive name: "; 
chomp($archive_base=<STDIN>);
if ($archive_base)
{
  $archive_name = $archive_base . ".tarz"
}

print "\n **** Creating $archive_name ****\n";


# get a list of files to archive
$this_dir = "./";
@all_files = ();
opendir(DIR,$this_dir) or die "can't opendir $this_dir: $!";
while ( defined ($file = readdir DIR) ) 
{
  next if $file =~ /^\.\.?$/;   # skip . and ..
  push(@all_files, $file) # if -T "$this_dir/$file";  # -T for text files
}
closedir DIR;

print "\nSelect from these files and subdirectories:\n";
file_select(@all_files);  # returns @selected_files

$tar_command = "tar cfvz $archive_name @selected_files";
print "\nFiles included in the archive:\n";
system($tar_command);

print "\n\n **** Created $archive_name ****\n";

exit 0;


#*************************************************************************
#*************************************************************************

# ====================================================================
# name: print_help
# This subroutine prints the help info.
# ====================================================================
sub print_help
{                                  
   print <<END;
   
 The script 780archive.pl calls the tar ("Tape ARchive") command to make
  a compressed archive of files and subdirectories.

 Usage: 780archive.pl [--help] [--version] 
  
 A command-line argument in []'s means it is optional. 
  There are no mandatory command-line arguments.  If you give no arguments,
  you'll be prompted for files to include.
  
 The options are
   --help                print this help
   --version             version number

END
 
}

#*************************************************************************
#*************************************************************************

# ====================================================================
# name: file_select
# Ask the user to pick files
#   * returns the global array @selected_files
# ====================================================================
sub file_select
{
  $index = 0;
  foreach my $temp_file (@_)
  {
    print " [",$index+1,"] $temp_file \n";
    $index++;
  }

  print "\nInclude all of these? y/n [n] ";
  chomp($answer=<STDIN>);
  if ($answer eq "y" || $answer eq "Y")
  {
    @selected_files = @_;
  }
  else 
  {
    print "\n Enter the numbers of EVERY file you want to include, \n";
    print " separated by spaces, then <return> at the end.\n";
    print " Numbers: ";    
    chomp($choices=<STDIN>);
    @choice_list = split(" ", $choices);
  
    @selected_files = ();
    foreach $selected (@choice_list)
    {
      push(@selected_files, @_[$selected-1]);
    }  
  }
}


#*************************************************************************
#*************************************************************************