diff options
author | Cash Costello <cash.costello@gmail.com> | 2011-12-15 20:07:48 -0500 |
---|---|---|
committer | Cash Costello <cash.costello@gmail.com> | 2011-12-15 20:07:48 -0500 |
commit | 580cd62f0a4fac5dba37a8a152afaecd99e8c767 (patch) | |
tree | ad71f414174ffe91536ecb9875377ce2682b53fc /models/openid-php-openid-782224d/admin/docblocks.pl | |
parent | d9bf22a0e29c2a70049443a0ae8521a2c0492c8b (diff) | |
download | elgg-580cd62f0a4fac5dba37a8a152afaecd99e8c767.tar.gz elgg-580cd62f0a4fac5dba37a8a152afaecd99e8c767.tar.bz2 |
removed old libraries - depends on openid_api now
Diffstat (limited to 'models/openid-php-openid-782224d/admin/docblocks.pl')
-rw-r--r-- | models/openid-php-openid-782224d/admin/docblocks.pl | 26 |
1 files changed, 0 insertions, 26 deletions
diff --git a/models/openid-php-openid-782224d/admin/docblocks.pl b/models/openid-php-openid-782224d/admin/docblocks.pl deleted file mode 100644 index 0483dbb06..000000000 --- a/models/openid-php-openid-782224d/admin/docblocks.pl +++ /dev/null @@ -1,26 +0,0 @@ -#!/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); - } -} |