From d9bf22a0e29c2a70049443a0ae8521a2c0492c8b Mon Sep 17 00:00:00 2001
From: Cash Costello <cash.costello@gmail.com>
Date: Sun, 11 Dec 2011 06:38:23 -0500
Subject: initial commit for git repository

---
 .../openid-php-openid-782224d/admin/docblocks.pl   | 26 ++++++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100644 models/openid-php-openid-782224d/admin/docblocks.pl

(limited to 'models/openid-php-openid-782224d/admin/docblocks.pl')

diff --git a/models/openid-php-openid-782224d/admin/docblocks.pl b/models/openid-php-openid-782224d/admin/docblocks.pl
new file mode 100644
index 000000000..0483dbb06
--- /dev/null
+++ b/models/openid-php-openid-782224d/admin/docblocks.pl
@@ -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);
+    }
+}
-- 
cgit v1.2.3