#! /usr/local/bin/perl

$TYPE=$ARGV[0];

if ($TYPE eq "") {
    $TYPE = "tar";
}

@files = (
	  "*.class",
	  "*.html",
	  "*.java",
	  "buttons.gif",
	  "screendump.gif",
	  "kali.gif",
	  "makedist",
	  "fixhrefs",
	  "fixhtml",
	  "makesourcehtml",
	  "checkdoc",
	  "Makefile"
	  );
$files = "";
foreach $file (@files) {
    $files = $files . " " . $file;
}

$| = 1;

if ($TYPE eq "tar") {
    system("gnutar cvfZ javakali.tar.Z $files");
} elsif ($TYPE eq "zip") {
    system("zip javakali.zip $files");
}
