#!/usr/bin/php
<?php
/*
 * このスクリプトは/etc/sgml内のカタログファイルのリンクをチェックします。
 * /etc/sgml ディレクトリにスクリプトを置いて実行してください。
 */
$dir = dir('.');
while(false !== ($ent = $dir->read())) {
  $data = file($ent);
  foreach($data as $l) {
    if (preg_match('/^CATALOG\s+"(.*)"/', $l, $matches)) {
      if (!is_readable($matches[1])) 
	print '**** '.$ent.': '.$matches[1].' is not accesible!'.PHP_EOL;
      else
        print $ent.': '.$matches[1].' is OK'.PHP_EOL;
    }
    if (preg_match('/^PUBLIC\s+".+?"\s+"(.*)"/', $l, $matches)) {
      if (!is_readable($matches[1]))  
        print '**** '.$ent.': '.$matches[1].' is not accesible!'.PHP_EOL;
      else
        print $ent.': '.$matches[1].' is OK'.PHP_EOL;
    }
    if (preg_match('/^SYSTEM\s+".+?"\s+"(.*)"/', $l, $matches)) {
      if (!is_readable($matches[1]))  
        print '**** '.$ent.': '.$matches[1].' is not accesible!'.PHP_EOL;
      else 
	print $ent.': '.$matches[1].' is OK'.PHP_EOL;
    }

  }
}