3 foreach $file ( split(/\n/, `find . -depth -print | grep cgi\$`) ) {
4 open(F,$file) or die "can't open $file for reading: $!";
6 #print "$file ". scalar(@file). "\n";
8 system("chmod u+w $file");
9 open(W,">$file") or die "can't open $file for writing: $!";
10 select W; $| = 1; select STDOUT;
11 $newline = ''; #avoid prepending extraneous newlines
12 $all = join('',@file);
15 while ( length($all) ) {
17 if ( $mode eq 'html' ) {
19 if ( $all =~ /^(.+?)(<%=?.*)$/s && $1 !~ /<%/s ) {
23 } elsif ( $all =~ /^<%=(.*)$/s ) {
29 } elsif ( $all =~ /^<%(.*)$/s ) {
30 print W $newline; $newline = "\n";
34 } elsif ( $all !~ /<%/s ) {
38 warn length($all); die;
42 } elsif ( $mode eq 'perlv' ) {
44 if ( $all =~ /^(.*?%>)(.*)$/s ) {
50 die 'unterminated <%= ???';
52 } elsif ( $mode eq 'perlc' ) {
54 if ( $all =~ /^([^\n]*?)%>(.*)$/s ) {
60 if ( $all =~ /^([^\n]*)\n(.*)$/s ) {