projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
I'm slow this morning
[freeside.git]
/
bin
/
masonize
diff --git
a/bin/masonize
b/bin/masonize
index
475c9a6
..
3139e0a
100755
(executable)
--- a/
bin/masonize
+++ b/
bin/masonize
@@
-1,6
+1,7
@@
#!/usr/bin/perl
#!/usr/bin/perl
-foreach $file ( split(/\n/, `find . -depth -print | grep cgi\$`) ) {
+foreach $file ( split(/\n/, `find . -depth -print`) ) {
+ next unless $file =~ /(cgi|html)$/;
open(F,$file) or die "can't open $file for reading: $!";
@file = <F>;
#print "$file ". scalar(@file). "\n";
open(F,$file) or die "can't open $file for reading: $!";
@file = <F>;
#print "$file ". scalar(@file). "\n";
@@
-8,6
+9,7
@@
foreach $file ( split(/\n/, `find . -depth -print | grep cgi\$`) ) {
system("chmod u+w $file");
open(W,">$file") or die "can't open $file for writing: $!";
select W; $| = 1; select STDOUT;
system("chmod u+w $file");
open(W,">$file") or die "can't open $file for writing: $!";
select W; $| = 1; select STDOUT;
+ $newline = ''; #avoid prepending extraneous newlines
$all = join('',@file);
$mode = 'html';
$all = join('',@file);
$mode = 'html';
@@
-26,7
+28,7
@@
foreach $file ( split(/\n/, `find . -depth -print | grep cgi\$`) ) {
#die;
next;
} elsif ( $all =~ /^<%(.*)$/s ) {
#die;
next;
} elsif ( $all =~ /^<%(.*)$/s ) {
- print W "\n";
+ print W
$newline; $newline =
"\n";
$all = $1;
$mode = 'perlc';
next;
$all = $1;
$mode = 'perlc';
next;