#acupoftea - mail.ontime-ae.com

System	:	Linux server1.ontime-gulf.com 4.18.0-553.5.1.el8_10.x86_64 #1 SMP Wed Jun 5 09:12:13 EDT 2024 x86_64
Software	:	Apache
Server	:	162.0.230.206
Domains	:	40 Domain
Permission	:	[ drwxr-xr-x ]
	:	/ usr / local / bin /

216.73.216.50

Home

File cpan-mirrors

#!/usr/bin/perl

use strict;
use warnings;

use CPAN::HandleConfig;
use CPAN;
use CPAN::Mirrors;
use File::Spec;

my $file = 'MIRRORED.BY';

my $mirrored_by_file = File::Spec->catfile(
	CPAN::HandleConfig::cpan_home(),
	$file
	);

unless( -e $mirrored_by_file ) {
	eval {
		CPAN::FTP->localize(
			$file,
			$mirrored_by_file,
			3,1) } or die "Could not fetch a $file: $@\n";
	}

my $mirrors = CPAN::Mirrors->new( $mirrored_by_file );

my $seen = {};
my $n = 5;

my $best_continent = $mirrors->find_best_continents( n => $n, seen => $seen, verbose => 1 );
print "Best continent is $best_continent\n";

my @mirrors = $mirrors->get_mirrors_by_continents( $best_continent );

my $callback = sub {
	my( $m ) = @_;
	printf "%s = %s ms\n", $m->hostname, 1000 * $m->rtt
	};
my @sorted_mirrors = $mirrors->get_mirrors_timings( \@mirrors, $seen, $callback );

print "Best mirrors are ",
	join "\n\t", map( $_->hostname, @sorted_mirrors[0..$n-1] ),
	"\n";

print "Best urls are\n\t",
	join( "\n\t", map( $_->http, @sorted_mirrors[0..$n-1] ) ),
	"\n";

=encoding utf8

=head1 NAME

cpan-mirrors - Find the fatest CPAN mirrors nearby

=head1 SYNOPSIS

% cpan-mirrors

Testing Africa
		is.co.za -> 733.72 ms
		wa.co.za -> 601.56 ms
		ucu.ac.ug -> 407.99 ms
		mirror.ac.za -> 614.05 ms
		zol.co.zw -> 612.57 ms
		-->median time: 612.57 ms
	Testing Oceania
		serversaustralia.com.au -> 38.62 ms
		cpan.inspire.net.nz -> 67.81 ms
		digitalpacific.com.au -> 37.89 ms
		uber.com.au -> 44.47 ms
		lagoon.nc -> 67.49 ms
		-->median time: 44.47 ms
	Testing North America
		httpupdate40.cpanel.net -> 254.00 ms
		httpupdate35.cpanel.net -> 409.75 ms
		mirrors.sonic.net -> 368.56 ms
		httpupdate8.cpanel.net -> 409.10 ms
		cpan.cs.utah.edu -> 408.00 ms
		-->median time: 408.00 ms
	Testing Asia
		vinahost.vn -> 146.10 ms
		yazd.ac.ir -> 469.29 ms
		mirrors-ru.go-parts.com -> 367.09 ms
		sohu.com -> 399.76 ms
		neolabs.kz -> 610.92 ms
		-->median time: 399.76 ms
	Testing South America
		mmgdesigns.com.ar -> 407.96 ms
		nbtelecom.com.br -> 401.96 ms
		sunsite.dcc.uchile.cl -> 415.69 ms
		linorg.usp.br -> 424.65 ms
		unal.edu.co -> 407.60 ms
		-->median time: 407.96 ms
	Testing Europe
		uk2.net -> 409.37 ms
		ambiweb.de -> 710.65 ms
		bibleonline.ru -> 471.49 ms
		rol.ru -> 469.70 ms
		rub.de -> 346.57 ms
		-->median time: 469.70 ms
	Median result by continent:
		44 ms  Oceania
	   400 ms  Asia
	   408 ms  South America
	   408 ms  North America
	   470 ms  Europe
	   613 ms  Africa
	Best continent is Oceania
	cpan.catalyst.net.nz = 78.8369178771973 ms
	cpan.inspire.net.nz = 69.4258213043213 ms
	cpan.mirrors.ilisys.com.au = 50.2209663391113 ms
	digitalpacific.com.au = 40.1251316070557 ms
	lagoon.nc = 88.8760089874268 ms
	nautile.nc = 65.7081604003906 ms
	optusnet.com.au = 41.4729118347168 ms
	serversaustralia.com.au = 46.1521148681641 ms
	uber.com.au = 48.2730865478516 ms
	waia.asn.au = 86.2929821014404 ms
	webtastix.net = 70.5790519714355 ms
	Best mirrors are digitalpacific.com.au
		optusnet.com.au
		serversaustralia.com.au
		uber.com.au
		cpan.mirrors.ilisys.com.au

Best urls are
		http://cpan.mirror.digitalpacific.com.au/
		http://mirror.optusnet.com.au/CPAN/
		http://cpan.mirror.serversaustralia.com.au/
		http://cpan.mirror.uber.com.au/
		http://cpan.mirrors.ilisys.com.au/

=head1 DESCRIPTION

CPAN Mirrors come and go, and maybe you do too. The mirror that was
fast then might not be fast now, especially if you changed hemispheres.

This program goes through the F<MIRRORED.BY> file and pings a selection
of mirrors on each continent to find the fastest mirrors. From the best
continent, it samples several mirrors to find the URL you should add
to your configuration.

If you don't have a F<MIRRORED.BY> file, this program will download one
for you. It looks through your existing C<urllist> configuration and
then default locations. It stores it in C<~/.cpan> (or your configured
location to store files).

=head1 TO DO

=over 4

=item * Add an option to update the CPAN configuration

=item * Add an option to give JSON output

=back

=head1 AUTHOR

brian d foy C<< <bdfoy@cpan.org> >>

=head1 LICENSE

This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.

See L<http://www.perl.com/perl/misc/Artistic.html>

=cut

Name	Type	Size	Permission	Last Modified	Actions
.	DIR	-	drwxr-xr-x	2025-10-16 10:59:19
..	DIR	-	drwxr-xr-x	2025-10-16 10:57:11
cpan	text/x-perl	8.06 KB	-r-xr-xr-x	2024-03-13 04:55:48
cpan-mirrors	text/x-perl	4.19 KB	-r-xr-xr-x	2024-03-13 04:55:48
crontab	application/x-executable	1.84 MB	-rwxr-xr-x	2025-10-16 10:57:33
ea-php72	application/x-sharedlib	6.29 MB	-rwxr-xr-x	2025-10-15 09:18:32
ea-php73	application/x-executable	5.39 MB	-rwxr-xr-x	2025-10-15 09:19:10
ea-php74	application/x-executable	6.09 MB	-rwxr-xr-x	2025-10-15 09:23:21
ea-php80	application/x-executable	7.62 MB	-rwxr-xr-x	2025-10-15 09:04:57
ea-php81	application/x-executable	7.72 MB	-rwxr-xr-x	2025-10-15 09:06:46
ea-php82	application/x-executable	7.78 MB	-rwxr-xr-x	2025-10-15 09:08:10
ea-php83	application/x-executable	7.8 MB	-rwxr-xr-x	2025-10-15 09:09:11
ea-wappspector	text/x-shellscript	110 B	-rwxr-xr-x	2025-10-08 10:57:41
ea_convert_php_ini	text/x-perl	39.85 KB	-rwxr-xr-x	2025-10-08 12:05:09
ea_current_to_profile	text/x-perl	8.31 KB	-rwxr-xr-x	2025-10-08 12:05:09
ea_install_profile	text/x-perl	7.1 KB	-rwxr-xr-x	2025-10-08 12:05:09
ea_sync_user_phpini_settings	text/x-perl	6.73 KB	-rwxr-xr-x	2025-10-08 12:05:09
json_xs	text/x-perl	6.85 KB	-r-xr-xr-x	2024-03-13 04:56:22
lsphp	text/x-perl	937 B	-rwxr-xr-x	2025-04-01 04:34:05
passwd	application/x-executable	3.5 MB	-rwxr-xr-x	2025-10-16 10:57:20
pear	text/x-perl	935 B	-rwxr-xr-x	2025-04-01 04:34:05
php	text/x-perl	933 B	-rwxr-xr-x	2025-04-01 04:34:05
wp	application/octet-stream	6.67 MB	-rwxr-xr-x	2024-06-24 01:49:16
wp-toolkit		167 B	-rwx------	2025-10-02 03:34:06

~ ACUPOFTEA - mail.ontime-ae.com