Operating System - HP-UX
1747993 Members
4802 Online
108756 Solutions
New Discussion юеВ

Re: Forums Maintenance Downtime - Please Read

 
Gary Cantwell
Honored Contributor

Re: Forums Maintenance Downtime - Please Read

Jan,

can you email me? I want to get some more detail on your https issue,

Thanks,

Gary
Cheryl Griffin
Honored Contributor

Re: Forums Maintenance Downtime - Please Read

Ping
"Downtime is a Crime."
Gary Cantwell
Honored Contributor

Re: Forums Maintenance Downtime - Please Read

ping
Patrick Wallek
Honored Contributor

Re: Forums Maintenance Downtime - Please Read

Reminder for downtime due to start later this morning.
H.Merijn Brand (procura
Honored Contributor

Re: Forums Maintenance Downtime - Please Read

Just to check the reformatting thing
Thanks for this feature.
BTW Should the weekly stats retain formatting? They'd be bigger then

#!/pro/bin/perl

use strict;
use warnings;

use Net::FTP;

my $ftp = Net::FTP->new ("download.xs4all.nl", Debug => 0);
$ftp or die "$_: cannot connect: " . $ftp->message;
$ftp->login ('anonymous', 'ano.nymous@inter.net') or
die "$_: cannot logon: " . $ftp->message;
$ftp->cwd ("pub/mirror/gnu") or
die "$_: cannot chdir to pub/mirror/gnu: " . $ftp->message;
my @dir = grep s/^d.* // => $ftp->dir ("-tl");

$#dir = 30; # Max 20
foreach my $dir (reverse @dir) {
$ftp->cwd ($dir) or die "$dir: ". $ftp->message;
my @pkg = $ftp->dir ("-tl");
@pkg > 2 and $#pkg = 2;
print $dir, "\n ", (join "\n ", @pkg), "\n";
$ftp->cwd ("..");
}
$ftp->quit;
Enjoy, Have FUN! H.Merijn