mirror of
https://github.com/php/doc-base.git
synced 2026-03-24 23:32:15 +01:00
134 lines
4.4 KiB
PHP
134 lines
4.4 KiB
PHP
#!/usr/bin/php -q
|
|
<?php
|
|
/*
|
|
+----------------------------------------------------------------------+
|
|
| Copyright (c) 1997-2023 The PHP Group |
|
|
+----------------------------------------------------------------------+
|
|
| This source file is subject to version 3.01 of the PHP license, |
|
|
| that is bundled with this package in the file LICENSE, and is |
|
|
| available through the world-wide-web at the following url: |
|
|
| https://www.php.net/license/3_01.txt. |
|
|
| If you did not receive a copy of the PHP license and are unable to |
|
|
| obtain it through the world-wide-web, please send a note to |
|
|
| license@php.net, so we can mail you a copy immediately. |
|
|
+----------------------------------------------------------------------+
|
|
| Authors: Georg Richter <georg@php.net> |
|
|
| Gabor Hojtsy <goba@php.net> |
|
|
+----------------------------------------------------------------------+
|
|
|
|
$Id$
|
|
*/
|
|
|
|
if ($argc > 1 || in_array($argv[1], array('--help', '-help', '-h', '-?'))) {
|
|
?>
|
|
|
|
Check entities in entities/global.ent (HTTP and FTP schemes)
|
|
|
|
Usage:
|
|
<?php echo $argv[0];?>
|
|
|
|
This script checks FTP and HTTP URLs listed
|
|
in entities/global.ent. Grab the output, to put it in
|
|
a text file.
|
|
|
|
<?php
|
|
exit;
|
|
}
|
|
|
|
/*********************************************************************/
|
|
/* Nothing to modify below this line */
|
|
/*********************************************************************/
|
|
|
|
// Like a good wine, this script needs some time
|
|
set_time_limit(0);
|
|
|
|
// Schemes we had to check
|
|
$schemes = array("http", "ftp");
|
|
|
|
// Start this script only from the scripts/qa dir
|
|
$filename = dirname(__DIR__, 2) . "/entities/global.ent";
|
|
|
|
// Read in the file, or die
|
|
$file_string = file_get_contents($filename);
|
|
if (!$file_string) { die ("Cannot open entity file ($filename)."); }
|
|
|
|
$array = explode('<!-- Obsoletes -->', $file_string);
|
|
$file_string = $array[0];
|
|
|
|
echo "ENTITY CHECK
|
|
|
|
=========================================================
|
|
In the table below you can find the validity check
|
|
errors of entites in $filename. Use this list to correct
|
|
errors in $filename.
|
|
=========================================================
|
|
|
|
";
|
|
|
|
// Find entity names and URLs
|
|
$schemes_preg = "(" . join("|", $schemes) . ")";
|
|
preg_match_all("/<!ENTITY\s+(\S+)\s+([\"'])(({$schemes_preg})[^\\2]+)\\2\s*>/U",
|
|
$file_string, $entities_found);
|
|
|
|
// These are the useful parts
|
|
$entity_names = $entities_found[1];
|
|
$entity_urls = $entities_found[3];
|
|
|
|
// Walk through entities found
|
|
foreach ($entity_urls as $num => $entity_url) {
|
|
|
|
// Get the parts of the URL
|
|
$url = parse_url($entity_url);
|
|
$entity = $entity_names[$num];
|
|
|
|
// Try to find host
|
|
$ip = gethostbyname($url["host"]);
|
|
if ($ip == $url["host"]) {
|
|
errormsg ($entity, "unknown host: " . $url["host"]);
|
|
// Host found, check path
|
|
} else {
|
|
|
|
// Depending on URL scheme
|
|
switch ($url["scheme"]) {
|
|
|
|
// Use URL fopen wrapper
|
|
case "http":
|
|
if ($fpurl = @fopen($entity_url, "r")) {
|
|
fclose ($fpurl);
|
|
}
|
|
else {
|
|
errormsg ($entity, "Could not open document: " . $entity_url);
|
|
}
|
|
break;
|
|
|
|
// Use FTP functions
|
|
case "ftp":
|
|
if ($ftp = @ftp_connect($url["host"])) {
|
|
if (@ftp_login($ftp, "anonymous", "georg@php.net")) {
|
|
$flist = ftp_nlist($ftp, $url["path"]);
|
|
if ($flist === false || !count($flist)) {
|
|
errormsg($entity, "unknown path: " . $url["path"] . " for ftp host: " . $url['host']);
|
|
}
|
|
} else {
|
|
errormsg ($entity, "could not login as anonymous to FTP host: " . $url["host"]);
|
|
}
|
|
ftp_quit($ftp);
|
|
} else {
|
|
errormsg ($entity, "could not connect to " . $url["host"]);
|
|
}
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
|
|
|
|
/*********************************************************************/
|
|
/* Here starts the functions part */
|
|
/*********************************************************************/
|
|
function errormsg ($entity, $desc)
|
|
{
|
|
printf ("%30s: %s\n", $entity, $desc);
|
|
}
|
|
|
|
?>
|