+++ /dev/null
-#!/usr/bin/perl\r
-\r
-open(OUTPUT, "> httpd-fsdata.c");\r
-\r
-chdir("httpd-fs");\r
-\r
-opendir(DIR, ".");\r
-@files = grep { !/^\./ && !/(CVS|~)/ } readdir(DIR);\r
-closedir(DIR);\r
-\r
-foreach $file (@files) { \r
- \r
- if(-d $file && $file !~ /^\./) {\r
- print "Processing directory $file\n";\r
- opendir(DIR, $file);\r
- @newfiles = grep { !/^\./ && !/(CVS|~)/ } readdir(DIR);\r
- closedir(DIR);\r
- printf "Adding files @newfiles\n";\r
- @files = (@files, map { $_ = "$file/$_" } @newfiles);\r
- next;\r
- }\r
-}\r
-\r
-foreach $file (@files) {\r
- if(-f $file) {\r
- \r
- print "Adding file $file\n";\r
- \r
- open(FILE, $file) || die "Could not open file $file\n";\r
- binmode FILE;\r
-\r
- $file =~ s-^-/-;\r
- $fvar = $file;\r
- $fvar =~ s-/-_-g;\r
- $fvar =~ s-\.-_-g;\r
- # for AVR, add PROGMEM here\r
- print(OUTPUT "static const char data".$fvar."[] = {\n");\r
- print(OUTPUT "\t/* $file */\n\t");\r
- for($j = 0; $j < length($file); $j++) {\r
- printf(OUTPUT "%#02x, ", unpack("C", substr($file, $j, 1)));\r
- }\r
- printf(OUTPUT "0,\n");\r
- \r
- \r
- $i = 0; \r
- while(read(FILE, $data, 1)) {\r
- if($i == 0) {\r
- print(OUTPUT "\t");\r
- }\r
- printf(OUTPUT "%#02x, ", unpack("C", $data));\r
- $i++;\r
- if($i == 10) {\r
- print(OUTPUT "\n");\r
- $i = 0;\r
- }\r
- }\r
- print(OUTPUT "0};\n\n");\r
- close(FILE);\r
- push(@fvars, $fvar);\r
- push(@pfiles, $file);\r
- }\r
-}\r
-\r
-for($i = 0; $i < @fvars; $i++) {\r
- $file = $pfiles[$i];\r
- $fvar = $fvars[$i];\r
-\r
- if($i == 0) {\r
- $prevfile = "NULL";\r
- } else {\r
- $prevfile = "file" . $fvars[$i - 1];\r
- }\r
- print(OUTPUT "const struct httpd_fsdata_file file".$fvar."[] = {{$prevfile, data$fvar, ");\r
- print(OUTPUT "data$fvar + ". (length($file) + 1) .", ");\r
- print(OUTPUT "sizeof(data$fvar) - ". (length($file) + 1) ."}};\n\n");\r
-}\r
-\r
-print(OUTPUT "#define HTTPD_FS_ROOT file$fvars[$i - 1]\n\n");\r
-print(OUTPUT "#define HTTPD_FS_NUMFILES $i\n");\r