#!/usr/bin/perl
#
# Author: Peter Keel <killer@discordia.ch>
# This converts PkZip'ed files into tar'ed bzip2'ed-files.
#
# This was my first perl-script. It has been revised some times.

die "Usage: $0 zipfile\n" unless($ARGV[0]);

chop ( $PWD = `pwd`);
$base_dir = $PWD;

foreach $file_name (@ARGV)
    {
	print STDERR "Processing '$file_name'\n";
	$new_file = $file_name;
        mkdir "/tmp/$file_name",755;
        system ("unzip -L -qq $file_name -d /tmp/$file_name");
	$new_file =~ s/.zip\b/.tar.bz2/i;
        chdir ("/tmp/$file_name");
        system ("tar -cIf $new_file *");
        chdir $base_dir;
        system ("cp /tmp/$file_name/$new_file $base_dir");
        system ("rm -rf /tmp/$file_name");
    }