Subversion Repositories oidplus

#!/usr/bin/env php

<?php

/*

 * OIDplus 2.0

 * Copyright 2019 - 2021 Daniel Marschall, ViaThinkSoft

 *

 * Licensed under the Apache License, Version 2.0 (the "License");

 * you may not use this file except in compliance with the License.

 * You may obtain a copy of the License at

 *

 *     http://www.apache.org/licenses/LICENSE-2.0

 *

 * Unless required by applicable law or agreed to in writing, software

 * distributed under the License is distributed on an "AS IS" BASIS,

 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.

 * See the License for the specific language governing permissions and

 * limitations under the License.

 */

# Source:

# https://svn.viathinksoft.com/cgi-bin/viewvc.cgi/vgwhois/trunk/maintenance/qa-monitor/syntax/global-syntax-check?revision=HEAD&view=markup

error_reporting(E_ALL | E_NOTICE | E_STRICT | E_DEPRECATED);

$silent = ($argc >= 2) && ($argv[1] == '--silent');

$files = array();

$rii = new RecursiveIteratorIterator(new RecursiveDirectoryIterator(dirname(__DIR__))); // dirname() to check the parent directory

foreach ($rii as $file) {

        $filename = $file->getPathname();

        if (strpos($filename, DIRECTORY_SEPARATOR.'.') !== false) continue; # also hide ".dir" and ".file"

        if (!file_exists($filename)) continue;

        $files[] = $filename;

}

$baddest = 0;

foreach ($files as $filename) {

        $h = fopen($filename, 'r');

        $headline = fgets($h);

        fclose($h);

        $scripttype = 'n/a';

        if (preg_match('@#!(.+)\s@U', $headline, $m)) {

                $interpreter = $m[1];

                switch ($interpreter) {

                        case '/usr/bin/env php':

                        case '/usr/bin/php':

                                $scripttype = 'PHP';

                                break;

                        case '/usr/bin/env perl':

                        case '/usr/bin/perl':

                                $scripttype = 'Perl';

                                break;

                }

        } else if (strpos($filename, '.php') !== false) {

                $scripttype = 'PHP';

        } else if ((strpos($filename, '.pl') !== false) || (strpos($filename, '.pm') !== false)) {

                $scripttype = 'Perl';

        }

        $cmd = '';

        switch ($scripttype) {

                case 'PHP':

                        $cmd = 'php -l '.escapeshellarg($filename);

                        break;

                case 'Perl':

                        $cmd = 'perl -Mstrict -Mdiagnostics -cw '.escapeshellarg($filename);

                        break;

        }

        if ($cmd) {

                $out = array();

                exec($cmd." 2>&1", $out, $code);

                if ($code > $baddest) $baddest = $code;

                if ($code != 0) {

                        echo "($code) $filename: ".trim(implode("\n    ", $out))."\n";

                } else {

                        if (!$silent) echo "OK: $filename\n";

                }

        }

}

exit($baddest);