You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
49 lines
1.0 KiB
49 lines
1.0 KiB
#!/usr/bin/perl
|
|
# (c) Copyright by authors of the Tiki Wiki CMS Groupware Project
|
|
#
|
|
# All Rights Reserved. See copyright.txt for details and a complete list of authors.
|
|
# Licensed under the GNU LESSER GENERAL PUBLIC LICENSE. See license.txt for details.
|
|
# $Id$
|
|
|
|
# finds all the style and class definitions in tpl and php files
|
|
#
|
|
# calles by findstyledef.sh
|
|
#
|
|
# ohertel@tw.o
|
|
|
|
use strict;
|
|
use warnings;
|
|
use Cwd;
|
|
|
|
use File::Find;
|
|
|
|
my $root=$ARGV[0];
|
|
my $file_pattern = "^(.*)\.(tpl|php)\$";
|
|
|
|
find(\&d, $root);
|
|
|
|
sub d {
|
|
|
|
my $file = $File::Find::name;
|
|
|
|
$file =~ s#/#\\#g;
|
|
|
|
return unless -f $file;
|
|
return unless $file =~ /$file_pattern/;
|
|
|
|
# print $file."\n";
|
|
|
|
open F, $file or print "couldn't open $file\n" && return;
|
|
while (<F>) {
|
|
if (my ($found) = m/\b((class|style)\s*=\w*[\\]*[\"]{1}.*?[\\]*[\"]{1})/oi) {
|
|
# print "$file: $found\n";
|
|
print "$found\n";
|
|
}
|
|
if (my ($found) = m/\b((class|style)\s*=\w*[\\]*[']{1}.*?[\\]*[']{1})/oi) {
|
|
# print "$file: $found\n";
|
|
print "$found\n";
|
|
}
|
|
}
|
|
|
|
close F;
|
|
}
|