';
+
+ open IF, "<", "$dir/$file" or die "Can't read file: $!";
+ my @fc =
;
+ close(IF);
+ my $cnt = join("", @fc);
+
+ if( $name =~ /\.html$/ )
+ {
+ if( ! ( $flags & 2 ) )
+ {
+ $cnt = "$head$cnt";
+ }
+ else
+ {
+ printf("TODO: prepend headers to GZipped HTML content!\n");
+ }
+ }
+
+ $name .= chr(0);
+ $name .= chr(0) while( (length($name) & 3) != 0 );
+
+ my $size = length($cnt);
+
+ $espfs .= "ESfs";
+ $espfs .= chr($flags);
+ $espfs .= chr($compression);
+ $espfs .= chr( length($name) & 255 );
+ $espfs .= chr( length($name) / 256 );
+ $espfs .= chr( $size & 255 );
+ $espfs .= chr( ( $size / 0x100 ) & 255 );
+ $espfs .= chr( ( $size / 0x10000 ) & 255 );
+ $espfs .= chr( ( $size / 0x1000000 ) & 255 );
+ $espfs .= chr( $size & 255 );
+ $espfs .= chr( ( $size / 0x100 ) & 255 );
+ $espfs .= chr( ( $size / 0x10000 ) & 255 );
+ $espfs .= chr( ( $size / 0x1000000 ) & 255 );
+
+ $espfs .= $name;
+
+
+
+ $cnt .= chr(0) while( (length($cnt) & 3) != 0 );
+ $espfs .= $cnt;
+}
+
+$espfs .= "ESfs";
+$espfs .= chr(1);
+for(my $i=0; $i < 11; $i++)
+{
+ $espfs .= chr(0);
+}
+
+open FH, ">", $out or die "Can't open file for write, $!";
+print FH $espfs;
+close(FH);
+
+
+exit(0);
+
+sub read_dir_structure
+{
+ my ($dir, $base) = @_;
+
+ my @files;
+
+ opendir my $dh, $dir or die "Could not open '$dir' for reading: $!\n";
+
+ while (my $file = readdir $dh) {
+ if ($file eq '.' or $file eq '..') {
+ next;
+ }
+
+ my $path = "$dir/$file";
+ if( -d "$path" )
+ {
+ my @sd = read_dir_structure($path, "$base/$file");
+ push @files, @sd ;
+ }
+ else
+ {
+ push @files, "$base/$file";
+ }
+ }
+
+ close( $dh );
+
+ $_ =~ s/^\/// for(@files);
+ return @files;
+}
diff --git a/examples/web-server/GZipped.html.gz b/examples/web-server/GZipped.html.gz
new file mode 100644
index 0000000..e9c012c
Binary files /dev/null and b/examples/web-server/GZipped.html.gz differ
diff --git a/examples/web-server/LED.html b/examples/web-server/LED.html
new file mode 100644
index 0000000..4c88681
--- /dev/null
+++ b/examples/web-server/LED.html
@@ -0,0 +1,3 @@
+
+
Hello
+
diff --git a/html/web-server.html b/html/web-server.html
index c73e59c..4fa5bd4 100644
--- a/html/web-server.html
+++ b/html/web-server.html
@@ -15,4 +15,4 @@