view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN

root/lib/site/menu
root/lib/site/wrapper
root/message.tt2
root/src/css/perso.css
root/src/css/ttsite.css
root/src/error.tt2
root/src/js/menu.js
root/src/ssl/ssl_welcome.tt2
root/src/vpn/vpn_welcome.tt2
root/src/welcome.tt2
root/static/images/btn_120x50_built.png
root/static/images/btn_120x50_built_shadow.png
root/static/images/btn_120x50_powered.png
root/static/images/btn_120x50_powered_shadow.png
root/static/images/btn_88x31_built.png
root/static/images/btn_88x31_built_shadow.png
root/static/images/btn_88x31_powered.png
root/static/images/btn_88x31_powered_shadow.png
root/static/images/catalyst_logo.png
script/camel_pki_cgi.pl
script/camel_pki_create.pl
script/camel_pki_fastcgi.pl
script/camel_pki_keyceremony.pl
script/camel_pki_server.pl
script/start_stop_camel_pki.pl
t/01app.t
t/02-SSLRequestByForm.t
t/02-SSLRequestByJSON.t
t/03-VPNRequestByForm.t

t/TODO.t  view on Meta::CPAN

=cut

sub testStringPresent {
	push my @directories, cwd;
	my $stringToSeek = $_[0];
	find(sub {
		my $file = $File::Find::name;
		return unless -f $file;
		my ($volume, $directories, $filename) = File::Spec->splitpath( $file );
		return if ($directories =~ qr/\/t\// && $filename=~ qr/TODO.t/);
		return if ($filename =~ qr/manifest/i or $filename=~ qr/ico$/ or $filename=~ qr/png$/) ;
		return if ($directories =~ qr/blib/);
		return if ($directories =~ qr/support/);
		return if ($directories =~ qr/svn/);
		return if ($filename =~ qr/tar.gz/i);
		my $text = read_file( $file );
		unlike($text, qr/$stringToSeek/i, " $stringToSeek trouvé dans $file");		
	}, @directories);
}
;