<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">#!/usr/bin/env perl -w

use strict;

my $filename = $ARGV[0];

if (!$filename) {
    print "Usage: docblocks.pl &lt;filename&gt;\n";
    exit(1);
}

my %allowed = ("" =&gt; 1,
               "&lt;?php" =&gt; 1);

open(HANDLE, "&lt;", $filename) or die "Cannot open $filename\n";

while (&lt;HANDLE&gt;) {
    chomp;

    if ($_ =~ /\/\*\*/) {
        exit(0);
    } elsif (!$allowed{$_}) {
        print $filename."\n";
        exit(1);
    }
}
</pre></body></html>