3 foreach $file ( split(/\n/, `find . -depth -print`) ) {
4 next unless $file =~ /(cgi|html)$/;
5 open(F,$file) or die "can't open $file for reading: $!";
7 #print "$file ". scalar(@file). "\n";
9 system("chmod u+w $file");
10 open(W,">$file") or die "can't open $file for writing: $!";
11 select W; $| = 1; select STDOUT;
12 $newline = ''; #avoid prepending extraneous newlines
13 $all = join('',@file);
16 while ( length($all) ) {
18 if ( $mode eq 'html' ) {
20 if ( $all =~ /^(.+?)(<%=?.*)$/s && $1 !~ /<%/s ) {
24 } elsif ( $all =~ /^<%=(.*)$/s ) {
30 } elsif ( $all =~ /^<%(.*)$/s ) {
31 print W $newline; $newline = "\n";
35 } elsif ( $all !~ /<%/s ) {
39 warn length($all); die;
43 } elsif ( $mode eq 'perlv' ) {
45 if ( $all =~ /^(.*?%>)(.*)$/s ) {
51 die 'unterminated <%= ???';
53 } elsif ( $mode eq 'perlc' ) {
55 if ( $all =~ /^([^\n]*?)%>(.*)$/s ) {
61 if ( $all =~ /^([^\n]*)\n(.*)$/s ) {