Lines Matching full:file
11 foreach $file (@files) {
13 if(-d $file && $file !~ /^\./) {
14 print "Processing directory $file\n";
15 opendir(DIR, $file);
19 @files = (@files, map { $_ = "$file/$_" } @newfiles);
24 foreach $file (@files) {
25 if(-f $file) {
27 print "Adding file $file\n";
29 open(FILE, $file) || die "Could not open file $file\n";
31 $file =~ s-^-/-;
32 $fvar = $file;
37 print(OUTPUT "\t/* $file */\n\t");
38 for($j = 0; $j < length($file); $j++) {
39 printf(OUTPUT "%#02x, ", unpack("C", substr($file, $j, 1)));
45 while(read(FILE, $data, 1)) {
57 close(FILE);
59 push(@pfiles, $file);
64 $file = $pfiles[$i];
70 $prevfile = "file" . $fvars[$i - 1];
72 print(OUTPUT "const struct httpd_fsdata_file file".$fvar."[] = {{$prevfile, data$fvar, ");
73 print(OUTPUT "data$fvar + ". (length($file) + 1) .", ");
74 print(OUTPUT "sizeof(data$fvar) - ". (length($file) + 1) ."}};\n\n");
77 print(OUTPUT "#define HTTPD_FS_ROOT file$fvars[$i - 1]\n\n");