mirror of
https://github.com/Lastorder-DC/rhymix.git
synced 2026-01-29 08:09:58 +09:00
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:
parent
f541dd59b9
commit
658c0e6dbc
219 changed files with 41415 additions and 10 deletions
26
modules/member/php-openid-1.2.3/admin/docblocks.pl
Normal file
26
modules/member/php-openid-1.2.3/admin/docblocks.pl
Normal 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);
|
||||
}
|
||||
}
|
||||
Loading…
Add table
Add a link
Reference in a new issue