#!/usr/bin/perl -wt
use Compress::Zlib;
use Digest::MD5 qw(md5_hex);
my $now = "Tue, 15 Jul 2008 12:06:38 GMT";
my $content = 'testtesttesttesttesttesttesttesttesttest';
$content = &Compress::Zlib::memGzip("$content");
print("HTTP/1.1 200 OK\n");
print("Allow", ": ", "GET, POST", "\n");
print("Connection", ": ", "close", "\n");
print("Content-Encoding", ": ", "gzip", "\n");
print("Content-Length", ": ", length($content), "\n");
print("Content-MD5", ": ", &md5_hex($content), "\n");
print("Content-Type", ": ", "text/plain", "; ", "charset=UTF-8", "\n");
print("Date", ": ", "$now", "\n");
print("Last-Modified", ": ", "$now", "\n");
print("Server", ": ", "Neu1/1.0", "\n");
print("\n");
print("$content");

HTTP/1.1 200 OK
Allow: GET, POST
Connection: close
Content-Encoding: gzip
Content-Length: 27
Content-MD5: 05e38f2fe0fb73e564c5c4a8d9fb580e
Content-Type: text/plain; charset=UTF-8
Date: Tue, 15 Jul 2008 12:06:38 GMT
Last-Modified: Tue, 15 Jul 2008 12:06:38 GMT
Server: Neu1/1.0

‹+I-.)!/)¨(

#!/usr/bin/perl -t
use strict;
use warnings;

use Compress::Zlib;
use Digest::MD5 qw(md5_hex);
my $now = "Tue, 15 Jul 2008 12:06:38 GMT";
my $content = 'testtesttesttesttesttesttesttesttesttest';
$content = Compress::Zlib::memGzip("$content");
my $l = length($content);
my $md5 = md5_hex($content);
#HTTP/1.1 200 OK - das schickt doch der webserver eh
print <<"EOM";
Allow: GET, POST
Connection: close
Content-Encoding: gzip
Content-Length: $l
Content-MD5: $md5
Content-Type: text/plain; charset=UTF-8
Date: $now
Last-Modified: $now
Server: Neu1/1.0

EOM
print $content;

use utf8;
use bytes;
use encoding 'utf8';

#!/usr/bin/perl 
use strict;
use warnings;
use Compress::Zlib;
use Digest::MD5 qw(md5_hex);
use Data::Dumper;
my $now = "Tue, 15 Jul 2008 12:06:38 GMT";
my $content = '';
$content .= "$_ test test test test test \n" for (1..1000);
my $b = Compress::Zlib::memGzip("$content") or die("Compression: $!");
my $l = length($b) or die ('buffer has no length');
my $md5 = md5_hex($b) or die ('md5 not calculated');
print <<HTTP;
Allow: GET, POST
Connection: close
Content-Encoding: gzip
Content-Length: $l
Content-MD5: $md5
Content-Type: text/plain
Date: $now
Last-Modified: $now

HTTP
binmode(STDOUT);
print("$b");

my $log;
if (open($log, '>', '/tmp/z.log')) {
  binmode($log);
  print $log $b;
  close($log);
}