From e5f848ebea25ac24f4a5a13aad92a523d9e8680f Mon Sep 17 00:00:00 2001 From: Thorsten von Eicken Date: Sat, 1 Oct 2016 11:47:41 -0700 Subject: [PATCH] remove extra file --- createEspFs.pl | 114 ------------------------------------------------- 1 file changed, 114 deletions(-) delete mode 100644 createEspFs.pl diff --git a/createEspFs.pl b/createEspFs.pl deleted file mode 100644 index 1612098..0000000 --- a/createEspFs.pl +++ /dev/null @@ -1,114 +0,0 @@ -#!/usr/bin/perl - -use strict; -use Data::Dumper; - -my $dir = shift @ARGV; -my $out = shift @ARGV; - -my $espfs = ''; - -my @structured = read_dir_structure($dir, ""); - -for my $file (@structured) -{ - my $flags = 0; - my $name = $file; - my $compression = 0; - - if( $name =~ /\.gz$/ ) - { - $flags |= 2; - $name =~ s/\.gz$//; - } - - my $head = 'esp-link
'; - - 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; -}