#!/usr/local/bin/perl

system('mkMANIFEST');

chomp($dir = `pwd`);
$dir =~ s#^.*/##;

chomp(@files = `cat MANIFEST`);

@files = grep(!/\.(ps|ppm|n|3|html)$/,@files);
@files = grep(!m#/(mTk\.b\d|merge)/#,@files);

foreach ("/dev/rdiskette","/dev/rfd0")
 {
  if (-c $_)
   {
    $floppy = $_;
    last;
   }
 }

($sec,$min,$hour,$mday,$mon,$year) = localtime;

$mon++;
$name = "Tk-$year.$mon.$mday.tar.gz";

chdir("..");
unlink("Tk");
symlink($dir,"Tk");
system("gtar","-czvf",$name,'--block-compress',"Tk",map("$dir/". $_,@files));
system("tar","-cvfb",$floppy,36,$name);


