[project @ Added script to check for docblocks in PHP scripts]

1 files changed, 26 insertions, 0 deletions

diff --git a/admin/docblocks.pl b/admin/docblocks.pl
new file mode 100644
index 0000000..0483dbb
--- /dev/null
+++ b/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);
+    }
+}