#!/usr/local/bin/perl

use Compress::Raw::Zlib ;

chdir 'jnn';

($genie,$bottle)=new Compress::Raw::Zlib::Deflate();
print $bottle."\n";

$bottle=$genie->deflate('content.xml', '../jnn.sxw');
print $bottle."\n";
$bottle=$genie->deflate('meta.xml', '../jnn.sxw');
print $bottle."\n";
$bottle=$genie->deflate('META-INF', '../jnn.sxw');
print $bottle."\n";
$bottle=$genie->deflate('META-INF/manifest.xml', '../jnn.sxw');
print $bottle."\n";
$bottle=$genie->deflate('mimetype', '../jnn.sxw');
print $bottle."\n";