17515512: JanRain php-openid library included, normalization fix

git-svn-id: http://xe-core.googlecode.com/svn/sandbox@5137 201d5d3c-b55e-5fd7-737f-ddc643e51545
This commit is contained in:
araste 2008-12-19 11:00:19 +00:00
parent f541dd59b9
commit 658c0e6dbc
219 changed files with 41415 additions and 10 deletions

View file

@ -0,0 +1,26 @@
#!/usr/bin/env perl -w
use strict;
my $filename = $ARGV[0];
if (!$filename) {
print "Usage: docblocks.pl <filename>\n";
exit(1);
}
my %allowed = ("" => 1,
"<?php" => 1);
open(HANDLE, "<", $filename) or die "Cannot open $filename\n";
while (<HANDLE>) {
chomp;
if ($_ =~ /\/\*\*/) {
exit(0);
} elsif (!$allowed{$_}) {
print $filename."\n";
exit(1);
}
}