PHP Classes

File: web/SSO/vendor/openid/php-openid/admin/docblocks.pl

Recommend this page to a friend!
  Classes of william amed   Raptor 2   web/SSO/vendor/openid/php-openid/admin/docblocks.pl   Download  
File: web/SSO/vendor/openid/php-openid/admin/docblocks.pl
Role: Auxiliary data
Content type: text/plain
Description: Auxiliary data
Class: Raptor 2
Framework that takes routes from annotations
Author: By
Last change:
Date: 8 years ago
Size: 421 bytes
 

Contents

Class file image Download 
#!/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);
    }
}