#!/usr/bin/perl #open F, "/usr/bin/lynx -dump http://www.eecis.udel.edu/~mills/ntp/clock1a.html|"; open(my $G, "/usr/bin/lynx -dump http://www.eecis.udel.edu/~mills/ntp/clock2a.html|"); # Chris Kloiber writes: # > It's not considered polite to use the Stratum 1 servers for purposes that # > are not absolutely critical. I would use Stratum 2 servers and live with # > the few nanoseconds difference. #parse() while ; parse($_) while <$G>; my @all; my ($l, $nb); sub parse { local ($_) = @_; /Active Servers/ .. /Discontinued Service/ or return; if (/^\s+\d+\. ([A-Z ]*[A-Z]);?\s+([.\w-]+)/) { push @all, $l = { name => $2, indic => $1 }; $nb = 0; } else { s/^\s*//; s/\s*$//; my ($field, $val) = /^(.*):\s*(.*)/; if ($field =~ /policy/i) { $field = "policy"; $val = lc join(' ', split(' ', $val)); $val =~ s/glad to receive a note//; $val =~ s/(but )?please send (a )?message to notify//; $val =~ s/an email note is appreciated//; $val =~ s/please send a message with the//; $val =~ s/no need to notify//; $val =~ s/[(), .;]*$//; $val = "open access" if $val eq "public"; warn "$val ($all[-1]{name})\n" if $val ne 'open access'; } elsif ($field =~ /^Contact|Synchroni[sz]ation|Location|Geographic\s+Coordinates|Service\s+Area|Note$/i) { } else { # warn "bad line ($field) $_\n"; return; } $l->{$field} .= ($l->{$field} && ' ') . $val; } $nb++; } use Data::Dumper; #warn Dumper(\@all); foreach (grep { $_->{policy} eq 'open access' } @all) { my ($country, $state) = split ' ', $_->{indic}; $country = ucfirst(lc $country_codes{$country}); $country .= " $state" if $state; printf "\t'%s' => '%s',\n", lc($_->{name}), $country; } BEGIN { %country_codes = ( # from ftp://ftp.ripe.net/iso3166-countrycodes "AF", "AFGHANISTAN", "AL", "ALBANIA", "DZ", "ALGERIA", "AS", "AMERICAN SAMOA", "AD", "ANDORRA", "AO", "ANGOLA", "AI", "ANGUILLA", "AQ", "ANTARCTICA", "AG", "ANTIGUA AND BARBUDA", "AR", "ARGENTINA", "AM", "ARMENIA", "AW", "ARUBA", "AU", "AUSTRALIA", "AT", "AUSTRIA", "AZ", "AZERBAIJAN", "BS", "BAHAMAS", "BH", "BAHRAIN", "BD", "BANGLADESH", "BB", "BARBADOS", "BY", "BELARUS", "BE", "BELGIUM", "BZ", "BELIZE", "BJ", "BENIN", "BM", "BERMUDA", "BT", "BHUTAN", "BO", "BOLIVIA", "BA", "BOSNIA AND HERZEGOWINA", "BW", "BOTSWANA", "BV", "BOUVET ISLAND", "BR", "BRAZIL", "IO", "BRITISH INDIAN OCEAN TERRITORY", "BN", "BRUNEI DARUSSALAM", "BG", "BULGARIA", "BF", "BURKINA FASO", "BI", "BURUNDI", "KH", "CAMBODIA", "CM", "CAMEROON", "CA", "CANADA", "CV", "CAPE VERDE", "KY", "CAYMAN ISLANDS", "CF", "CENTRAL AFRICAN REPUBLIC", "TD", "CHAD", "CL", "CHILE", "CN", "CHINA", "CX", "CHRISTMAS ISLAND", "CC", "COCOS (KEELING) ISLANDS", "CO", "COLOMBIA", "KM", "COMOROS", "CG", "CONGO", "CD", "CONGO, THE DEMOCRATIC REPUBLIC OF THE", "CK", "COOK ISLANDS", "CR", "COSTA RICA", "CI", "COTE D'IVOIRE", "HR", "CROATIA", "CU", "CUBA", "CY", "CYPRUS", "CZ", "CZECH REPUBLIC", "DK", "DENMARK", "DJ", "DJIBOUTI", "DM", "DOMINICA", "DO", "DOMINICAN REPUBLIC", "TP", "EAST TIMOR", "EC", "ECUADOR", "EG", "EGYPT", "SV", "EL SALVADOR", "GQ", "EQUATORIAL GUINEA", "ER", "ERITREA", "EE", "ESTONIA", "ET", "ETHIOPIA", "FK", "FALKLAND ISLANDS (MALVINAS)", "FO", "FAROE ISLANDS", "FJ", "FIJI", "FI", "FINLAND", "FR", "FRANCE", "FX", "FRANCE, METROPOLITAN", "GF", "FRENCH GUIANA", "PF", "FRENCH POLYNESIA", "TF", "FRENCH SOUTHERN TERRITORIES", "GA", "GABON", "GM", "GAMBIA", "GE", "GEORGIA", "DE", "GERMANY", "GH", "GHANA", "GI", "GIBRALTAR", "GR", "GREECE", "GL", "GREENLAND", "GD", "GRENADA", "GP", "GUADELOUPE", "GU", "GUAM", "GT", "GUATEMALA", "GN", "GUINEA", "GW", "GUINEA-BISSAU", "GY", "GUYANA", "HT", "HAITI", "HM", "HEARD AND MC DONALD ISLANDS", "VA", "HOLY SEE (VATICAN CITY STATE)", "HN", "HONDURAS", "HK", "HONG KONG", "HU", "HUNGARY", "IS", "ICELAND", "IN", "INDIA", "ID", "INDONESIA", "IR", "IRAN (ISLAMIC REPUBLIC OF)", "IQ", "IRAQ", "IE", "IRELAND", "IL", "ISRAEL", "IT", "ITALY", "JM", "JAMAICA", "JP", "JAPAN", "JO", "JORDAN", "KZ", "KAZAKHSTAN", "KE", "KENYA", "KI", "KIRIBATI", "KP", "KOREA, DEMOCRATIC PEOPLE'S REPUBLIC OF", "KR", "KOREA, REPUBLIC OF", "KW", "KUWAIT", "KG", "KYRGYZSTAN", "LA", "LAO PEOPLE'S DEMOCRATIC REPUBLIC", "LV", "LATVIA", "LB", "LEBANON", "LS", "LESOTHO", "LR", "LIBERIA", "LY", "LIBYAN ARAB JAMAHIRIYA", "LI", "LIECHTENSTEIN", "LT", "LITHUANIA", "LU", "LUXEMBOURG", "MO", "MACAU", "MK", "MACEDONIA, THE FORMER YUGOSLAV REPUBLIC OF", "MG", "MADAGASCAR", "MW", "MALAWI", "MY", "MALAYSIA", "MV", "MALDIVES", "ML", "MALI", "MT", "MALTA", "MH", "MARSHALL ISLANDS", "MQ", "MARTINIQUE", "MR", "MAURITANIA", "MU", "MAURITIUS", "YT", "MAYOTTE", "MX", "MEXICO", "FM", "MICRONESIA, FEDERATED STATES OF", "MD", "MOLDOVA, REPUBLIC OF", "MC", "MONACO", "MN", "MONGOLIA", "MS", "MONTSERRAT", "MA", "MOROCCO", "MZ", "MOZAMBIQUE", "MM", "MYANMAR", "NA", "NAMIBIA", "NR", "NAURU", "NP", "NEPAL", "NL", "NETHERLANDS", "AN", "NETHERLANDS ANTILLES", "NC", "NEW CALEDONIA", "NZ", "NEW ZEALAND", "NI", "NICARAGUA", "NE", "NIGER", "NG", "NIGERIA", "NU", "NIUE", "NF", "NORFOLK ISLAND", "MP", "NORTHERN MARIANA ISLANDS", "NO", "NORWAY", "OM", "OMAN", "PK", "PAKISTAN", "PW", "PALAU", "PA", "PANAMA", "PG", "PAPUA NEW GUINEA", "PY", "PARAGUAY", "PE", "PERU", "PH", "PHILIPPINES", "PN", "PITCAIRN", "PL", "POLAND", "PT", "PORTUGAL", "PR", "PUERTO RICO", "QA", "QATAR", "RE", "REUNION", "RO", "ROMANIA", "RU", "RUSSIA", "RW", "RWANDA", "KN", "SAINT KITTS AND NEVIS", "LC", "SAINT LUCIA", "VC", "SAINT VINCENT AND THE GRENADINES", "WS", "SAMOA", "SM", "SAN MARINO", "ST", "SAO TOME AND PRINCIPE", "SA", "SAUDI ARABIA", "SN", "SENEGAL", "SC", "SEYCHELLES", "SL", "SIERRA LEONE", "SG", "SINGAPORE", "SK", "SLOVAKIA (Slovak Republic)", "SI", "SLOVENIA", "SB", "SOLOMON ISLANDS", "SO", "SOMALIA", "ZA", "SOUTH AFRICA", "GS", "SOUTH GEORGIA AND THE SOUTH SANDWICH ISLANDS", "ES", "SPAIN", "LK", "SRI LANKA", "SH", "ST. HELENA", "PM", "ST. PIERRE AND MIQUELON", "SD", "SUDAN", "SR", "SURINAME", "SJ", "SVALBARD AND JAN MAYEN ISLANDS", "SZ", "SWAZILAND", "SE", "SWEDEN", "CH", "SWITZERLAND", "SY", "SYRIAN ARAB REPUBLIC", "TW", "TAIWAN, PROVINCE OF CHINA", "TJ", "TAJIKISTAN", "TZ", "TANZANIA, UNITED REPUBLIC OF", "TH", "THAILAND", "TG", "TOGO", "TK", "TOKELAU", "TO", "TONGA", "TT", "TRINIDAD AND TOBAGO", "TN", "TUNISIA", "TR", "TURKEY", "TM", "TURKMENISTAN", "TC", "TURKS AND CAICOS ISLANDS", "TV", "TUVALU", "UG", "UGANDA", "UA", "UKRAINE", "AE", "UNITED ARAB EMIRATES", "GB", "UNITED KINGDOM", "US", "UNITED STATES", "UM", "UNITED STATES MINOR OUTLYING ISLANDS", "UY", "URUGUAY", "UZ", "UZBEKISTAN", "VU", "VANUATU", "VE", "VENEZUELA", "VN", "VIET NAM", "VG", "VIRGIN ISLANDS (BRITISH)", "VI", "VIRGIN ISLANDS (U.S.)", "WF", "WALLIS AND FUTUNA ISLANDS", "EH", "WESTERN SAHARA", "YE", "YEMEN", "YU", "YUGOSLAVIA", "ZM", "ZAMBIA", "ZW", "ZIMBABWE", #added "UK", "UNITED KINGDOM", ); } id='n124' href='#n124'>124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171

<?php
/**
*
* This file is part of the phpBB Forum Software package.
*
* @copyright (c) phpBB Limited <https://www.phpbb.com>
* @license GNU General Public License, version 2 (GPL-2.0)
*
* For full copyright and license information, please see
* the docs/CREDITS.txt file.
*
*/

namespace phpbb\php;

/**
* Wrapper class for ini_get function.
*
* Provides easier handling of the different interpretations of ini values.
*/
class ini
{
	/**
	* Simple wrapper for ini_get()
	* See http://php.net/manual/en/function.ini-get.php
	*
	* @param string $varname	The configuration option name.
	* @return bool|string		False if configuration option does not exist,
	*							the configuration option value (string) otherwise.
	*/
	public function get($varname)
	{
		return ini_get($varname);
	}

	/**
	* Gets the configuration option value as a trimmed string.
	*
	* @param string $varname	The configuration option name.
	* @return bool|string		False if configuration option does not exist,
	*							the configuration option value (string) otherwise.
	*/
	public function get_string($varname)
	{
		$value = $this->get($varname);

		if ($value === false)
		{
			return false;
		}

		return trim($value);
	}

	/**
	* Gets configuration option value as a boolean.
	* Interprets the string value 'off' as false.
	*
	* @param string $varname	The configuration option name.
	* @return bool				False if configuration option does not exist.
	*							False if configuration option is disabled.
	*							True otherwise.
	*/
	public function get_bool($varname)
	{
		$value = $this->get_string($varname);

		if (empty($value) || strtolower($value) == 'off')
		{
			return false;
		}

		return true;
	}

	/**
	* Gets configuration option value as an integer.
	*
	* @param string $varname	The configuration option name.
	* @return bool|int			False if configuration option does not exist,
	*							false if configuration option value is not numeric,
	*							the configuration option value (integer) otherwise.
	*/
	public function get_int($varname)
	{
		$value = $this->get_string($varname);

		if (!is_numeric($value))
		{
			return false;
		}

		return (int) $value;
	}

	/**
	* Gets configuration option value as a float.
	*
	* @param string $varname	The configuration option name.
	* @return bool|float		False if configuration option does not exist,
	*							false if configuration option value is not numeric,
	*							the configuration option value (float) otherwise.
	*/
	public function get_float($varname)
	{
		$value = $this->get_string($varname);

		if (!is_numeric($value))
		{
			return false;
		}

		return (float) $value;
	}

	/**
	* Gets configuration option value in bytes.
	* Converts strings like '128M' to bytes (integer or float).
	*
	* @param string $varname	The configuration option name.
	* @return bool|int|float	False if configuration option does not exist,
	*							false if configuration option value is not well-formed,
	*							the configuration option value otherwise.
	*/
	public function get_bytes($varname)
	{
		$value = $this->get_string($varname);

		if ($value === false)
		{
			return false;
		}

		if (is_numeric($value))
		{
			// Already in bytes.
			return phpbb_to_numeric($value);
		}
		else if (strlen($value) < 2)
		{
			// Single character.
			return false;
		}
		else if (strlen($value) < 3 && $value[0] === '-')
		{
			// Two characters but the first one is a minus.
			return false;
		}

		$value_lower = strtolower($value);
		$value_numeric = phpbb_to_numeric($value);

		switch ($value_lower[strlen($value_lower) - 1])
		{
			case 'g':
				$value_numeric *= 1024;
			case 'm':
				$value_numeric *= 1024;
			case 'k':
				$value_numeric *= 1024;
			break;

			default:
				// It's not already in bytes (and thus numeric)
				// and does not carry a unit.
				return false;
		}

		return $value_numeric;
	}
}