From melbourne-pm at popcorn.cx  Thu Mar  5 04:58:21 2015
From: melbourne-pm at popcorn.cx (Stephen Edmonds)
Date: Thu, 5 Mar 2015 23:58:21 +1100
Subject: [Melbourne-pm] Meeting next week? - Wednesday 11 March 2015
Message-ID: <CAECH6uP0Uj=qBHFrTufFvfU4x6rOAdKQ20RARyYpP991jvUB3g@mail.gmail.com>

Another second Wednesday is almost upon us... do we want to try for another
chat over dinner?

Thanks,
Stephen
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/melbourne-pm/attachments/20150305/9c7bcd5f/attachment.html>

From ts at meme.com.au  Thu Mar  5 05:17:13 2015
From: ts at meme.com.au (Tony Smith)
Date: Fri, 6 Mar 2015 00:17:13 +1100
Subject: [Melbourne-pm] Meeting next week? - Wednesday 11 March 2015
In-Reply-To: <CAECH6uP0Uj=qBHFrTufFvfU4x6rOAdKQ20RARyYpP991jvUB3g@mail.gmail.com>
References: <CAECH6uP0Uj=qBHFrTufFvfU4x6rOAdKQ20RARyYpP991jvUB3g@mail.gmail.com>
Message-ID: <11FC03EC-D8A9-4A3B-AAEF-BA26B446B70F@meme.com.au>

Count me in.

Gotta get my head back into it after three years of supposed retirement spent on other things.


Tony Smith
Complex Systems Analyst
Melbourne, Australia
http://www.ynotds.com/ <http://www.ynotds.com/>
Giving thanks to the space, time, energy, matter and other lives that have allowed me to tell my lies on this old and damp ball of rock.


> On 5 Mar 2015, at 11:58 pm, Stephen Edmonds <melbourne-pm at popcorn.cx> wrote:
> 
> Another second Wednesday is almost upon us... do we want to try for another chat over dinner?
> 
> Thanks,
> Stephen
> _______________________________________________
> Melbourne-pm mailing list
> Melbourne-pm at pm.org
> http://mail.pm.org/mailman/listinfo/melbourne-pm

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/melbourne-pm/attachments/20150306/cd999b85/attachment.html>

From kahlil.hodgson at dealmax.com.au  Thu Mar  5 12:15:44 2015
From: kahlil.hodgson at dealmax.com.au (Kahlil Hodgson)
Date: Fri, 6 Mar 2015 07:15:44 +1100
Subject: [Melbourne-pm] Meeting next week? - Wednesday 11 March 2015
In-Reply-To: <11FC03EC-D8A9-4A3B-AAEF-BA26B446B70F@meme.com.au>
References: <CAECH6uP0Uj=qBHFrTufFvfU4x6rOAdKQ20RARyYpP991jvUB3g@mail.gmail.com>
	<11FC03EC-D8A9-4A3B-AAEF-BA26B446B70F@meme.com.au>
Message-ID: <CAPRztUuKAaFxUVNkB4vm8-TtFhD9Bw_GxGDUVRbL3vZbxMhwxA@mail.gmail.com>

Last time was fun. Count me in.


Kahlil (Kal) Hodgson                       GPG: C9A02289
Head of Technology                         (m) +61 (0) 4 2573 0382
DealMax Pty Ltd                            GitHub: @tartansandal

Suite 1416
401 Docklands Drive
Docklands VIC 3008 Australia

"All parts should go together without forcing.  You must remember that
the parts you are reassembling were disassembled by you.  Therefore,
if you can't get them together again, there must be a reason.  By all
means, do not use a hammer."  -- IBM maintenance manual, 1925

On 6 March 2015 at 00:17, Tony Smith <ts at meme.com.au> wrote:

> Count me in.
>
> Gotta get my head back into it after three years of supposed retirement
> spent on other things.
>
>
> Tony Smith
> Complex Systems Analyst
> Melbourne, Australia
> http://www.ynotds.com/
> Giving thanks to the space, time, energy, matter and other lives that have
> allowed me to tell my lies on this old and damp ball of rock.
>
>
> On 5 Mar 2015, at 11:58 pm, Stephen Edmonds <melbourne-pm at popcorn.cx>
> wrote:
>
> Another second Wednesday is almost upon us... do we want to try for
> another chat over dinner?
>
> Thanks,
> Stephen
> _______________________________________________
> Melbourne-pm mailing list
> Melbourne-pm at pm.org
> http://mail.pm.org/mailman/listinfo/melbourne-pm
>
>
>
> _______________________________________________
> Melbourne-pm mailing list
> Melbourne-pm at pm.org
> http://mail.pm.org/mailman/listinfo/melbourne-pm
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/melbourne-pm/attachments/20150306/42458d22/attachment.html>

From ddick at iinet.net.au  Thu Mar  5 22:49:00 2015
From: ddick at iinet.net.au (David Dick)
Date: Fri, 06 Mar 2015 17:49:00 +1100
Subject: [Melbourne-pm] Meeting next week? - Wednesday 11 March 2015
In-Reply-To: <CAPRztUuKAaFxUVNkB4vm8-TtFhD9Bw_GxGDUVRbL3vZbxMhwxA@mail.gmail.com>
References: <CAECH6uP0Uj=qBHFrTufFvfU4x6rOAdKQ20RARyYpP991jvUB3g@mail.gmail.com>	<11FC03EC-D8A9-4A3B-AAEF-BA26B446B70F@meme.com.au>
	<CAPRztUuKAaFxUVNkB4vm8-TtFhD9Bw_GxGDUVRbL3vZbxMhwxA@mail.gmail.com>
Message-ID: <54F94DDC.5070504@iinet.net.au>

Yup.  i'll be there.

On 03/06/2015 07:15 AM, Kahlil Hodgson wrote:
> Last time was fun. Count me in.
>
>
> Kahlil (Kal) Hodgson                       GPG: C9A02289
> Head of Technology                         (m) +61 (0) 4 2573 0382
> DealMax Pty Ltd                            GitHub: @tartansandal
>
> Suite 1416
> 401 Docklands Drive
> Docklands VIC 3008 Australia
>
> "All parts should go together without forcing.  You must remember that
> the parts you are reassembling were disassembled by you.  Therefore,
> if you can't get them together again, there must be a reason.  By all
> means, do not use a hammer."  -- IBM maintenance manual, 1925
>
> On 6 March 2015 at 00:17, Tony Smith <ts at meme.com.au
> <mailto:ts at meme.com.au>> wrote:
>
>     Count me in.
>
>     Gotta get my head back into it after three years of supposed
>     retirement spent on other things.
>
>
>     Tony Smith
>     Complex Systems Analyst
>     Melbourne, Australia
>     http://www.ynotds.com/
>     Giving thanks to the space, time, energy, matter and other lives
>     that have allowed me to tell my lies on this old and damp ball of rock.
>
>
>>     On 5 Mar 2015, at 11:58 pm, Stephen Edmonds
>>     <melbourne-pm at popcorn.cx <mailto:melbourne-pm at popcorn.cx>> wrote:
>>
>>     Another second Wednesday is almost upon us... do we want to try
>>     for another chat over dinner?
>>
>>     Thanks,
>>     Stephen
>>     _______________________________________________
>>     Melbourne-pm mailing list
>>     Melbourne-pm at pm.org <mailto:Melbourne-pm at pm.org>
>>     http://mail.pm.org/mailman/listinfo/melbourne-pm
>
>
>     _______________________________________________
>     Melbourne-pm mailing list
>     Melbourne-pm at pm.org <mailto:Melbourne-pm at pm.org>
>     http://mail.pm.org/mailman/listinfo/melbourne-pm
>
>
>
>
> _______________________________________________
> Melbourne-pm mailing list
> Melbourne-pm at pm.org
> http://mail.pm.org/mailman/listinfo/melbourne-pm
>


From melbourne-pm at popcorn.cx  Sun Mar  8 22:40:37 2015
From: melbourne-pm at popcorn.cx (Stephen Edmonds)
Date: Mon, 9 Mar 2015 16:40:37 +1100
Subject: [Melbourne-pm] Meeting next week? - Wednesday 11 March 2015
In-Reply-To: <54F94DDC.5070504@iinet.net.au>
References: <CAECH6uP0Uj=qBHFrTufFvfU4x6rOAdKQ20RARyYpP991jvUB3g@mail.gmail.com>
	<11FC03EC-D8A9-4A3B-AAEF-BA26B446B70F@meme.com.au>
	<CAPRztUuKAaFxUVNkB4vm8-TtFhD9Bw_GxGDUVRbL3vZbxMhwxA@mail.gmail.com>
	<54F94DDC.5070504@iinet.net.au>
Message-ID: <CAECH6uOCEocVwAqHp6Q0WX755dAcZF_TFi_YBe_NvTRp5ju+mw@mail.gmail.com>

Pending other suggestions, "there" is the Mitre Tavern (5 Bank Place) at
6:30pm. We usually sit outside up the back...

On 6 March 2015 at 17:49, David Dick <ddick at iinet.net.au> wrote:

> Yup.  i'll be there.
>
> On 03/06/2015 07:15 AM, Kahlil Hodgson wrote:
>
>> Last time was fun. Count me in.
>>
>>
>> Kahlil (Kal) Hodgson                       GPG: C9A02289
>> Head of Technology                         (m) +61 (0) 4 2573 0382
>> DealMax Pty Ltd                            GitHub: @tartansandal
>>
>> Suite 1416
>> 401 Docklands Drive
>> Docklands VIC 3008 Australia
>>
>> "All parts should go together without forcing.  You must remember that
>> the parts you are reassembling were disassembled by you.  Therefore,
>> if you can't get them together again, there must be a reason.  By all
>> means, do not use a hammer."  -- IBM maintenance manual, 1925
>>
>> On 6 March 2015 at 00:17, Tony Smith <ts at meme.com.au
>> <mailto:ts at meme.com.au>> wrote:
>>
>>     Count me in.
>>
>>     Gotta get my head back into it after three years of supposed
>>     retirement spent on other things.
>>
>>
>>     Tony Smith
>>     Complex Systems Analyst
>>     Melbourne, Australia
>>     http://www.ynotds.com/
>>     Giving thanks to the space, time, energy, matter and other lives
>>     that have allowed me to tell my lies on this old and damp ball of
>> rock.
>>
>>
>>      On 5 Mar 2015, at 11:58 pm, Stephen Edmonds
>>>     <melbourne-pm at popcorn.cx <mailto:melbourne-pm at popcorn.cx>> wrote:
>>>
>>>     Another second Wednesday is almost upon us... do we want to try
>>>     for another chat over dinner?
>>>
>>>     Thanks,
>>>     Stephen
>>>     _______________________________________________
>>>     Melbourne-pm mailing list
>>>     Melbourne-pm at pm.org <mailto:Melbourne-pm at pm.org>
>>>     http://mail.pm.org/mailman/listinfo/melbourne-pm
>>>
>>
>>
>>     _______________________________________________
>>     Melbourne-pm mailing list
>>     Melbourne-pm at pm.org <mailto:Melbourne-pm at pm.org>
>>     http://mail.pm.org/mailman/listinfo/melbourne-pm
>>
>>
>>
>>
>> _______________________________________________
>> Melbourne-pm mailing list
>> Melbourne-pm at pm.org
>> http://mail.pm.org/mailman/listinfo/melbourne-pm
>>
>>
> _______________________________________________
> Melbourne-pm mailing list
> Melbourne-pm at pm.org
> http://mail.pm.org/mailman/listinfo/melbourne-pm
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/melbourne-pm/attachments/20150309/4e23fa2c/attachment.html>

From T.Hunt at bom.gov.au  Sun Mar 15 20:39:58 2015
From: T.Hunt at bom.gov.au (Timothy Hunt)
Date: Mon, 16 Mar 2015 14:39:58 +1100
Subject: [Melbourne-pm] FTP on RHEL [SEC=UNCLASSIFIED]
Message-ID: <B36141A791F480458A242BF48D526A97018FF9F299@BOM-VMBX-HO.bom.gov.au>

Hi Mongers. Being a public servant I have to use 'out of the box' versions of Perl. One of our data collection services is transitioning from RHEL5 to RHEL6. It uses FTP...



On RHEL5:  This is perl, v5.8.8



perl ftp_test.pl

Net::FTP>>> Net::FTP(2.75)

Net::FTP>>> Exporter(5.58)

Net::FTP>>> Net::Cmd(2.26)

Net::FTP>>> IO::Socket::INET(1.29)

Net::FTP>>> IO::Socket(1.29)

Net::FTP>>> IO::Handle(1.25)

Net::FTP=GLOB(0xb4d5460)<<< 220 example.com FTP server (Version 4.2 Mon Dec 21 13:38:18 CST 2009) ready.

Net::FTP=GLOB(0xb4d5460)>>> user anonymous

Net::FTP=GLOB(0xb4d5460)<<< 331 Guest login ok, send ident as password.

Net::FTP=GLOB(0xb4d5460)>>> PASS ....

Net::FTP=GLOB(0xb4d5460)<<< 230-Last unsuccessful login: Mon Sep 9 08:00:38 AEST 2013 on /dev/pts/40 from foo.example.com Net::FTP=GLOB(0xb4d5460)<<< 230-Last login: Mon Mar 16 13:22:17 AEDT 2015 on ftp from foo.example.com

Net::FTP=GLOB(0xb4d5460)<<< 230 Guest login ok, access restrictions apply.

Net::FTP=GLOB(0xb4d5460)>>> CWD /pub/tmp

Net::FTP=GLOB(0xb4d5460)<<< 250 CWD command successful.

Net::FTP=GLOB(0xb4d5460)>>> PASV

Net::FTP=GLOB(0xb4d5460)<<< 227 Entering Passive Mode (x,y,z,a,252,56)

Net::FTP=GLOB(0xb4d5460)>>> NLST T*

Net::FTP=GLOB(0xb4d5460)<<< 550 Bad directory components

Bad directory components



So there are no "T*" files, fail with 550, move on...



RHEL6: This is perl, v5.10.1



Net::FTP>>> Net::FTP(2.77)

Net::FTP>>> Exporter(5.63)

Net::FTP>>> Net::Cmd(2.29)

Net::FTP>>> IO::Socket::INET(1.31)

Net::FTP>>> IO::Socket(1.31)

Net::FTP>>> IO::Handle(1.28)

Net::FTP=GLOB(0xbab080)<<< 220 example.com FTP server (Version 4.2 Mon Dec 21 13:38:18 CST 2009) ready.

Net::FTP=GLOB(0xbab080)>>> USER anonymous

Net::FTP=GLOB(0xbab080)<<< 331 Guest login ok, send ident as password.

Net::FTP=GLOB(0xbab080)>>> PASS ....

Net::FTP=GLOB(0xbab080)<<< 230-Last unsuccessful login: Mon Sep 9 08:00:38 AEST 2013 on /dev/pts/40 from foo.example.com Net::FTP=GLOB(0xbab080)<<< 230-Last login: Mon Mar 16 12:17:46 AEDT 2015 on ftp from foo.example.com

Net::FTP=GLOB(0xbab080)<<< 230 Guest login ok, access restrictions apply.

Net::FTP=GLOB(0xbab080)>>> CWD /pub/tmp

Net::FTP=GLOB(0xbab080)<<< 250 CWD command successful.

Net::FTP=GLOB(0xbab080)>>> PASV Net::FTP=GLOB(0xbab080)<<< 227 Entering Passive Mode (x,z,c,v,222,248)

Net::FTP=GLOB(0xbab080)>>> NLST T*

Can't use an undefined value as a symbol reference at /usr/share/perl5/Net/FTP/dataconn.pm line 54.



Which is not the expected 550.



I have had a look at the change logs but didn't notice anything significant. As mentioned, I don't have the option of upgrading Perl outside the distro.



Enough code to make it break is:



#!/usr/bin/perl

use strict;

use Net::FTP;

my $server = 'xxxx';

my $filename = 'T*'; # <<< but make sure that there are no T* files in the dir.

my $ftp = Net::FTP->new($server,Debug=>3,Passive=>1) or die "Cannot connect to some.host.name: $@";

   $ftp->login("anonymous",'-anonymous@') or die "Cannot login ", $ftp->message;

   $ftp->cwd($dir) or die "Cannot change working directory ", $ftp->message;



my $res = $ftp->ls($file_name) or die $ftp->message;



Hints welcomed.



Cheers,

Tim



--

Tim Hunt

Information Systems and Services Division

Bureau of Meteorology

Level 7, 700 Collins Street, Docklands VIC 3008

Tel: +61 3 9669 4094 | t.hunt at bom.gov.au




-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/melbourne-pm/attachments/20150316/bfba3056/attachment.html>

From kahlil.hodgson at dealmax.com.au  Sun Mar 15 21:23:48 2015
From: kahlil.hodgson at dealmax.com.au (Kahlil Hodgson)
Date: Mon, 16 Mar 2015 15:23:48 +1100
Subject: [Melbourne-pm] FTP on RHEL [SEC=UNCLASSIFIED]
In-Reply-To: <B36141A791F480458A242BF48D526A97018FF9F299@BOM-VMBX-HO.bom.gov.au>
References: <B36141A791F480458A242BF48D526A97018FF9F299@BOM-VMBX-HO.bom.gov.au>
Message-ID: <CAPRztUtjmvCsKfQR6gNPtjXqvB0Mw--UmPD81410M5EQqnOOZw@mail.gmail.com>

Which version of Net::FTP::dataconn is being loaded? Should 0.11.

Kal

Kahlil (Kal) Hodgson                       GPG: C9A02289
Head of Technology                         (m) +61 (0) 4 2573 0382
DealMax Pty Ltd                            GitHub: @tartansandal

Suite 1416
401 Docklands Drive
Docklands VIC 3008 Australia

"All parts should go together without forcing.  You must remember that
the parts you are reassembling were disassembled by you.  Therefore,
if you can't get them together again, there must be a reason.  By all
means, do not use a hammer."  -- IBM maintenance manual, 1925


On 16 March 2015 at 14:39, Timothy Hunt <T.Hunt at bom.gov.au> wrote:
> Hi Mongers. Being a public servant I have to use 'out of the box' versions
> of Perl. One of our data collection services is transitioning from RHEL5 to
> RHEL6. It uses FTP...
>
>
>
> On RHEL5:  This is perl, v5.8.8
>
>
>
> perl ftp_test.pl
>
> Net::FTP>>> Net::FTP(2.75)
>
> Net::FTP>>> Exporter(5.58)
>
> Net::FTP>>> Net::Cmd(2.26)
>
> Net::FTP>>> IO::Socket::INET(1.29)
>
> Net::FTP>>> IO::Socket(1.29)
>
> Net::FTP>>> IO::Handle(1.25)
>
> Net::FTP=GLOB(0xb4d5460)<<< 220 example.com FTP server (Version 4.2 Mon Dec
> 21 13:38:18 CST 2009) ready.
>
> Net::FTP=GLOB(0xb4d5460)>>> user anonymous
>
> Net::FTP=GLOB(0xb4d5460)<<< 331 Guest login ok, send ident as password.
>
> Net::FTP=GLOB(0xb4d5460)>>> PASS ....
>
> Net::FTP=GLOB(0xb4d5460)<<< 230-Last unsuccessful login: Mon Sep 9 08:00:38
> AEST 2013 on /dev/pts/40 from foo.example.com Net::FTP=GLOB(0xb4d5460)<<<
> 230-Last login: Mon Mar 16 13:22:17 AEDT 2015 on ftp from foo.example.com
>
> Net::FTP=GLOB(0xb4d5460)<<< 230 Guest login ok, access restrictions apply.
>
> Net::FTP=GLOB(0xb4d5460)>>> CWD /pub/tmp
>
> Net::FTP=GLOB(0xb4d5460)<<< 250 CWD command successful.
>
> Net::FTP=GLOB(0xb4d5460)>>> PASV
>
> Net::FTP=GLOB(0xb4d5460)<<< 227 Entering Passive Mode (x,y,z,a,252,56)
>
> Net::FTP=GLOB(0xb4d5460)>>> NLST T*
>
> Net::FTP=GLOB(0xb4d5460)<<< 550 Bad directory components
>
> Bad directory components
>
>
>
> So there are no "T*" files, fail with 550, move on?
>
>
>
> RHEL6: This is perl, v5.10.1
>
>
>
> Net::FTP>>> Net::FTP(2.77)
>
> Net::FTP>>> Exporter(5.63)
>
> Net::FTP>>> Net::Cmd(2.29)
>
> Net::FTP>>> IO::Socket::INET(1.31)
>
> Net::FTP>>> IO::Socket(1.31)
>
> Net::FTP>>> IO::Handle(1.28)
>
> Net::FTP=GLOB(0xbab080)<<< 220 example.com FTP server (Version 4.2 Mon Dec
> 21 13:38:18 CST 2009) ready.
>
> Net::FTP=GLOB(0xbab080)>>> USER anonymous
>
> Net::FTP=GLOB(0xbab080)<<< 331 Guest login ok, send ident as password.
>
> Net::FTP=GLOB(0xbab080)>>> PASS ....
>
> Net::FTP=GLOB(0xbab080)<<< 230-Last unsuccessful login: Mon Sep 9 08:00:38
> AEST 2013 on /dev/pts/40 from foo.example.com Net::FTP=GLOB(0xbab080)<<<
> 230-Last login: Mon Mar 16 12:17:46 AEDT 2015 on ftp from foo.example.com
>
> Net::FTP=GLOB(0xbab080)<<< 230 Guest login ok, access restrictions apply.
>
> Net::FTP=GLOB(0xbab080)>>> CWD /pub/tmp
>
> Net::FTP=GLOB(0xbab080)<<< 250 CWD command successful.
>
> Net::FTP=GLOB(0xbab080)>>> PASV Net::FTP=GLOB(0xbab080)<<< 227 Entering
> Passive Mode (x,z,c,v,222,248)
>
> Net::FTP=GLOB(0xbab080)>>> NLST T*
>
> Can't use an undefined value as a symbol reference at
> /usr/share/perl5/Net/FTP/dataconn.pm line 54.
>
>
>
> Which is not the expected 550.
>
>
>
> I have had a look at the change logs but didn't notice anything significant.
> As mentioned, I don't have the option of upgrading Perl outside the distro.
>
>
>
> Enough code to make it break is:
>
>
>
> #!/usr/bin/perl
>
> use strict;
>
> use Net::FTP;
>
> my $server = 'xxxx';
>
> my $filename = 'T*'; # <<< but make sure that there are no T* files in the
> dir.
>
> my $ftp = Net::FTP->new($server,Debug=>3,Passive=>1) or die "Cannot connect
> to some.host.name: $@";
>
>    $ftp->login("anonymous",'-anonymous@') or die "Cannot login ",
> $ftp->message;
>
>    $ftp->cwd($dir) or die "Cannot change working directory ", $ftp->message;
>
>
>
> my $res = $ftp->ls($file_name) or die $ftp->message;
>
>
>
> Hints welcomed.
>
>
>
> Cheers,
>
> Tim
>
>
>
> --
>
> Tim Hunt
>
> Information Systems and Services Division
>
> Bureau of Meteorology
>
> Level 7, 700 Collins Street, Docklands VIC 3008
>
> Tel: +61 3 9669 4094 | t.hunt at bom.gov.au
>
>
>
>
>
>
> _______________________________________________
> Melbourne-pm mailing list
> Melbourne-pm at pm.org
> http://mail.pm.org/mailman/listinfo/melbourne-pm

From T.Hunt at bom.gov.au  Sun Mar 15 21:46:32 2015
From: T.Hunt at bom.gov.au (Timothy Hunt)
Date: Mon, 16 Mar 2015 15:46:32 +1100
Subject: [Melbourne-pm] FTP on RHEL [SEC=UNCLASSIFIED]
In-Reply-To: <CAPRztUtjmvCsKfQR6gNPtjXqvB0Mw--UmPD81410M5EQqnOOZw@mail.gmail.com>
References: <B36141A791F480458A242BF48D526A97018FF9F299@BOM-VMBX-HO.bom.gov.au>
	<CAPRztUtjmvCsKfQR6gNPtjXqvB0Mw--UmPD81410M5EQqnOOZw@mail.gmail.com>
Message-ID: <B36141A791F480458A242BF48D526A97018FF9F29A@BOM-VMBX-HO.bom.gov.au>

Yes,  $VERSION = '0.11';


-----Original Message-----
From: Kahlil Hodgson [mailto:kahlil.hodgson at dealmax.com.au] 
Sent: Monday, 16 March 2015 3:24 PM
To: Timothy Hunt
Cc: melbourne-pm
Subject: Re: [Melbourne-pm] FTP on RHEL [SEC=UNCLASSIFIED]

Which version of Net::FTP::dataconn is being loaded? Should 0.11.

Kal

Kahlil (Kal) Hodgson                       GPG: C9A02289
Head of Technology                         (m) +61 (0) 4 2573 0382
DealMax Pty Ltd                            GitHub: @tartansandal

Suite 1416
401 Docklands Drive
Docklands VIC 3008 Australia

"All parts should go together without forcing.  You must remember that the parts you are reassembling were disassembled by you.  Therefore, if you can't get them together again, there must be a reason.  By all means, do not use a hammer."  -- IBM maintenance manual, 1925


On 16 March 2015 at 14:39, Timothy Hunt <T.Hunt at bom.gov.au> wrote:
> Hi Mongers. Being a public servant I have to use 'out of the box' 
> versions of Perl. One of our data collection services is transitioning 
> from RHEL5 to RHEL6. It uses FTP...
>
>
>
> On RHEL5:  This is perl, v5.8.8
>
>
>
> perl ftp_test.pl
>
> Net::FTP>>> Net::FTP(2.75)
>
> Net::FTP>>> Exporter(5.58)
>
> Net::FTP>>> Net::Cmd(2.26)
>
> Net::FTP>>> IO::Socket::INET(1.29)
>
> Net::FTP>>> IO::Socket(1.29)
>
> Net::FTP>>> IO::Handle(1.25)
>
> Net::FTP=GLOB(0xb4d5460)<<< 220 example.com FTP server (Version 4.2 
> Mon Dec
> 21 13:38:18 CST 2009) ready.
>
> Net::FTP=GLOB(0xb4d5460)>>> user anonymous
>
> Net::FTP=GLOB(0xb4d5460)<<< 331 Guest login ok, send ident as password.
>
> Net::FTP=GLOB(0xb4d5460)>>> PASS ....
>
> Net::FTP=GLOB(0xb4d5460)<<< 230-Last unsuccessful login: Mon Sep 9 
> 08:00:38 AEST 2013 on /dev/pts/40 from foo.example.com 
> Net::FTP=GLOB(0xb4d5460)<<< 230-Last login: Mon Mar 16 13:22:17 AEDT 
> 2015 on ftp from foo.example.com
>
> Net::FTP=GLOB(0xb4d5460)<<< 230 Guest login ok, access restrictions apply.
>
> Net::FTP=GLOB(0xb4d5460)>>> CWD /pub/tmp
>
> Net::FTP=GLOB(0xb4d5460)<<< 250 CWD command successful.
>
> Net::FTP=GLOB(0xb4d5460)>>> PASV
>
> Net::FTP=GLOB(0xb4d5460)<<< 227 Entering Passive Mode (x,y,z,a,252,56)
>
> Net::FTP=GLOB(0xb4d5460)>>> NLST T*
>
> Net::FTP=GLOB(0xb4d5460)<<< 550 Bad directory components
>
> Bad directory components
>
>
>
> So there are no "T*" files, fail with 550, move on?
>
>
>
> RHEL6: This is perl, v5.10.1
>
>
>
> Net::FTP>>> Net::FTP(2.77)
>
> Net::FTP>>> Exporter(5.63)
>
> Net::FTP>>> Net::Cmd(2.29)
>
> Net::FTP>>> IO::Socket::INET(1.31)
>
> Net::FTP>>> IO::Socket(1.31)
>
> Net::FTP>>> IO::Handle(1.28)
>
> Net::FTP=GLOB(0xbab080)<<< 220 example.com FTP server (Version 4.2 Mon 
> Dec
> 21 13:38:18 CST 2009) ready.
>
> Net::FTP=GLOB(0xbab080)>>> USER anonymous
>
> Net::FTP=GLOB(0xbab080)<<< 331 Guest login ok, send ident as password.
>
> Net::FTP=GLOB(0xbab080)>>> PASS ....
>
> Net::FTP=GLOB(0xbab080)<<< 230-Last unsuccessful login: Mon Sep 9 
> 08:00:38 AEST 2013 on /dev/pts/40 from foo.example.com 
> Net::FTP=GLOB(0xbab080)<<< 230-Last login: Mon Mar 16 12:17:46 AEDT 
> 2015 on ftp from foo.example.com
>
> Net::FTP=GLOB(0xbab080)<<< 230 Guest login ok, access restrictions apply.
>
> Net::FTP=GLOB(0xbab080)>>> CWD /pub/tmp
>
> Net::FTP=GLOB(0xbab080)<<< 250 CWD command successful.
>
> Net::FTP=GLOB(0xbab080)>>> PASV Net::FTP=GLOB(0xbab080)<<< 227 
> Entering Passive Mode (x,z,c,v,222,248)
>
> Net::FTP=GLOB(0xbab080)>>> NLST T*
>
> Can't use an undefined value as a symbol reference at 
> /usr/share/perl5/Net/FTP/dataconn.pm line 54.
>
>
>
> Which is not the expected 550.
>
>
>
> I have had a look at the change logs but didn't notice anything significant.
> As mentioned, I don't have the option of upgrading Perl outside the distro.
>
>
>
> Enough code to make it break is:
>
>
>
> #!/usr/bin/perl
>
> use strict;
>
> use Net::FTP;
>
> my $server = 'xxxx';
>
> my $filename = 'T*'; # <<< but make sure that there are no T* files in 
> the dir.
>
> my $ftp = Net::FTP->new($server,Debug=>3,Passive=>1) or die "Cannot 
> connect to some.host.name: $@";
>
>    $ftp->login("anonymous",'-anonymous@') or die "Cannot login ", 
> $ftp->message;
>
>    $ftp->cwd($dir) or die "Cannot change working directory ", 
> $ftp->message;
>
>
>
> my $res = $ftp->ls($file_name) or die $ftp->message;
>
>
>
> Hints welcomed.
>
>
>
> Cheers,
>
> Tim
>
>
>
> --
>
> Tim Hunt
>
> Information Systems and Services Division
>
> Bureau of Meteorology
>
> Level 7, 700 Collins Street, Docklands VIC 3008
>
> Tel: +61 3 9669 4094 | t.hunt at bom.gov.au
>
>
>
>
>
>
> _______________________________________________
> Melbourne-pm mailing list
> Melbourne-pm at pm.org
> http://mail.pm.org/mailman/listinfo/melbourne-pm

From kahlil.hodgson at dealmax.com.au  Sun Mar 15 22:03:36 2015
From: kahlil.hodgson at dealmax.com.au (Kahlil Hodgson)
Date: Mon, 16 Mar 2015 16:03:36 +1100
Subject: [Melbourne-pm] FTP on RHEL [SEC=UNCLASSIFIED]
In-Reply-To: <B36141A791F480458A242BF48D526A97018FF9F29A@BOM-VMBX-HO.bom.gov.au>
References: <B36141A791F480458A242BF48D526A97018FF9F299@BOM-VMBX-HO.bom.gov.au>
	<CAPRztUtjmvCsKfQR6gNPtjXqvB0Mw--UmPD81410M5EQqnOOZw@mail.gmail.com>
	<B36141A791F480458A242BF48D526A97018FF9F29A@BOM-VMBX-HO.bom.gov.au>
Message-ID: <CAPRztUvvHUnA+fEM=n+9xdVKgyso9U-7_vtxNgc8srCfsfF18g@mail.gmail.com>

Eeck, that sure is some 'interesting' code.

sub _close {
  my $data = shift;
  my $ftp  = ${*$data}{'net_ftp_cmd'};

  $data->SUPER::close();

  delete ${*$ftp}{'net_ftp_dataconn'}                          #<<<< dies HERE
    if exists ${*$ftp}{'net_ftp_dataconn'}
    && $data == ${*$ftp}{'net_ftp_dataconn'};
}

The versions of the required modules on RHEL5 are only out by a couple
of minor releases. Perhaps install the older versions into a local lib
with cpanm. At least that would rule out versions being the issue.

Kahlil (Kal) Hodgson                       GPG: C9A02289
Head of Technology                         (m) +61 (0) 4 2573 0382
DealMax Pty Ltd                            GitHub: @tartansandal

Suite 1416
401 Docklands Drive
Docklands VIC 3008 Australia

"All parts should go together without forcing.  You must remember that
the parts you are reassembling were disassembled by you.  Therefore,
if you can't get them together again, there must be a reason.  By all
means, do not use a hammer."  -- IBM maintenance manual, 1925


On 16 March 2015 at 15:46, Timothy Hunt <T.Hunt at bom.gov.au> wrote:
> Yes,  $VERSION = '0.11';
>
>
> -----Original Message-----
> From: Kahlil Hodgson [mailto:kahlil.hodgson at dealmax.com.au]
> Sent: Monday, 16 March 2015 3:24 PM
> To: Timothy Hunt
> Cc: melbourne-pm
> Subject: Re: [Melbourne-pm] FTP on RHEL [SEC=UNCLASSIFIED]
>
> Which version of Net::FTP::dataconn is being loaded? Should 0.11.
>
> Kal
>
> Kahlil (Kal) Hodgson                       GPG: C9A02289
> Head of Technology                         (m) +61 (0) 4 2573 0382
> DealMax Pty Ltd                            GitHub: @tartansandal
>
> Suite 1416
> 401 Docklands Drive
> Docklands VIC 3008 Australia
>
> "All parts should go together without forcing.  You must remember that the parts you are reassembling were disassembled by you.  Therefore, if you can't get them together again, there must be a reason.  By all means, do not use a hammer."  -- IBM maintenance manual, 1925
>
>
> On 16 March 2015 at 14:39, Timothy Hunt <T.Hunt at bom.gov.au> wrote:
>> Hi Mongers. Being a public servant I have to use 'out of the box'
>> versions of Perl. One of our data collection services is transitioning
>> from RHEL5 to RHEL6. It uses FTP...
>>
>>
>>
>> On RHEL5:  This is perl, v5.8.8
>>
>>
>>
>> perl ftp_test.pl
>>
>> Net::FTP>>> Net::FTP(2.75)
>>
>> Net::FTP>>> Exporter(5.58)
>>
>> Net::FTP>>> Net::Cmd(2.26)
>>
>> Net::FTP>>> IO::Socket::INET(1.29)
>>
>> Net::FTP>>> IO::Socket(1.29)
>>
>> Net::FTP>>> IO::Handle(1.25)
>>
>> Net::FTP=GLOB(0xb4d5460)<<< 220 example.com FTP server (Version 4.2
>> Mon Dec
>> 21 13:38:18 CST 2009) ready.
>>
>> Net::FTP=GLOB(0xb4d5460)>>> user anonymous
>>
>> Net::FTP=GLOB(0xb4d5460)<<< 331 Guest login ok, send ident as password.
>>
>> Net::FTP=GLOB(0xb4d5460)>>> PASS ....
>>
>> Net::FTP=GLOB(0xb4d5460)<<< 230-Last unsuccessful login: Mon Sep 9
>> 08:00:38 AEST 2013 on /dev/pts/40 from foo.example.com
>> Net::FTP=GLOB(0xb4d5460)<<< 230-Last login: Mon Mar 16 13:22:17 AEDT
>> 2015 on ftp from foo.example.com
>>
>> Net::FTP=GLOB(0xb4d5460)<<< 230 Guest login ok, access restrictions apply.
>>
>> Net::FTP=GLOB(0xb4d5460)>>> CWD /pub/tmp
>>
>> Net::FTP=GLOB(0xb4d5460)<<< 250 CWD command successful.
>>
>> Net::FTP=GLOB(0xb4d5460)>>> PASV
>>
>> Net::FTP=GLOB(0xb4d5460)<<< 227 Entering Passive Mode (x,y,z,a,252,56)
>>
>> Net::FTP=GLOB(0xb4d5460)>>> NLST T*
>>
>> Net::FTP=GLOB(0xb4d5460)<<< 550 Bad directory components
>>
>> Bad directory components
>>
>>
>>
>> So there are no "T*" files, fail with 550, move on?
>>
>>
>>
>> RHEL6: This is perl, v5.10.1
>>
>>
>>
>> Net::FTP>>> Net::FTP(2.77)
>>
>> Net::FTP>>> Exporter(5.63)
>>
>> Net::FTP>>> Net::Cmd(2.29)
>>
>> Net::FTP>>> IO::Socket::INET(1.31)
>>
>> Net::FTP>>> IO::Socket(1.31)
>>
>> Net::FTP>>> IO::Handle(1.28)
>>
>> Net::FTP=GLOB(0xbab080)<<< 220 example.com FTP server (Version 4.2 Mon
>> Dec
>> 21 13:38:18 CST 2009) ready.
>>
>> Net::FTP=GLOB(0xbab080)>>> USER anonymous
>>
>> Net::FTP=GLOB(0xbab080)<<< 331 Guest login ok, send ident as password.
>>
>> Net::FTP=GLOB(0xbab080)>>> PASS ....
>>
>> Net::FTP=GLOB(0xbab080)<<< 230-Last unsuccessful login: Mon Sep 9
>> 08:00:38 AEST 2013 on /dev/pts/40 from foo.example.com
>> Net::FTP=GLOB(0xbab080)<<< 230-Last login: Mon Mar 16 12:17:46 AEDT
>> 2015 on ftp from foo.example.com
>>
>> Net::FTP=GLOB(0xbab080)<<< 230 Guest login ok, access restrictions apply.
>>
>> Net::FTP=GLOB(0xbab080)>>> CWD /pub/tmp
>>
>> Net::FTP=GLOB(0xbab080)<<< 250 CWD command successful.
>>
>> Net::FTP=GLOB(0xbab080)>>> PASV Net::FTP=GLOB(0xbab080)<<< 227
>> Entering Passive Mode (x,z,c,v,222,248)
>>
>> Net::FTP=GLOB(0xbab080)>>> NLST T*
>>
>> Can't use an undefined value as a symbol reference at
>> /usr/share/perl5/Net/FTP/dataconn.pm line 54.
>>
>>
>>
>> Which is not the expected 550.
>>
>>
>>
>> I have had a look at the change logs but didn't notice anything significant.
>> As mentioned, I don't have the option of upgrading Perl outside the distro.
>>
>>
>>
>> Enough code to make it break is:
>>
>>
>>
>> #!/usr/bin/perl
>>
>> use strict;
>>
>> use Net::FTP;
>>
>> my $server = 'xxxx';
>>
>> my $filename = 'T*'; # <<< but make sure that there are no T* files in
>> the dir.
>>
>> my $ftp = Net::FTP->new($server,Debug=>3,Passive=>1) or die "Cannot
>> connect to some.host.name: $@";
>>
>>    $ftp->login("anonymous",'-anonymous@') or die "Cannot login ",
>> $ftp->message;
>>
>>    $ftp->cwd($dir) or die "Cannot change working directory ",
>> $ftp->message;
>>
>>
>>
>> my $res = $ftp->ls($file_name) or die $ftp->message;
>>
>>
>>
>> Hints welcomed.
>>
>>
>>
>> Cheers,
>>
>> Tim
>>
>>
>>
>> --
>>
>> Tim Hunt
>>
>> Information Systems and Services Division
>>
>> Bureau of Meteorology
>>
>> Level 7, 700 Collins Street, Docklands VIC 3008
>>
>> Tel: +61 3 9669 4094 | t.hunt at bom.gov.au
>>
>>
>>
>>
>>
>>
>> _______________________________________________
>> Melbourne-pm mailing list
>> Melbourne-pm at pm.org
>> http://mail.pm.org/mailman/listinfo/melbourne-pm

From toby.corkindale at strategicdata.com.au  Sun Mar 15 22:08:13 2015
From: toby.corkindale at strategicdata.com.au (Toby Corkindale)
Date: Mon, 16 Mar 2015 16:08:13 +1100 (EST)
Subject: [Melbourne-pm] FTP on RHEL [SEC=UNCLASSIFIED]
In-Reply-To: <B36141A791F480458A242BF48D526A97018FF9F299@BOM-VMBX-HO.bom.gov.au>
References: <B36141A791F480458A242BF48D526A97018FF9F299@BOM-VMBX-HO.bom.gov.au>
Message-ID: <1644130754.414522.1426482493921.JavaMail.zimbra@strategicdata.com.au>

Hi Tim,
You're using a version of Perl from 2009, and neither it nor the subsequent three major releases after it are even considered "in support" by the Perl core dev team.
If you're stuck on RHEL, then I guess you have an enterprise contract with RH, so can't you make this their problem and open a support ticket?

Alternatively -- have you tried installing modern versions of libnet (and possibly IO::Socket::SSL) into your home directory, to determine if that fixes the problem?
(In which case you can at least look at finding a way to bundle the newer versions with your app)

-Toby

----- Original Message -----
> From: "Timothy Hunt" <T.Hunt at bom.gov.au>
> To: "melbourne-pm" <melbourne-pm at pm.org>
> Sent: Monday, 16 March, 2015 2:39:58 PM
> Subject: [Melbourne-pm] FTP on RHEL [SEC=UNCLASSIFIED]
> 
> 
> 
> Hi Mongers. Being a public servant I have to use 'out of the box' versions of
> Perl. One of our data collection services is transitioning from RHEL5 to
> RHEL6. It uses FTP...
> 
> 
> 
> RHEL6: This is perl, v5.10.1
> Net::FTP=GLOB(0xbab080)>>> PASV Net::FTP=GLOB(0xbab080)<<< 227 Entering
> Passive Mode (x,z,c,v,222,248)
> Net::FTP=GLOB(0xbab080)>>> NLST T*
> Can't use an undefined value as a symbol reference at
> /usr/share/perl5/Net/FTP/dataconn.pm line 54.
> 
> Which is not the expected 550.
> 
> I have had a look at the change logs but didn't notice anything significant.
> As mentioned, I don't have the option of upgrading Perl outside the distro.

From T.Hunt at bom.gov.au  Sun Mar 15 22:15:14 2015
From: T.Hunt at bom.gov.au (Timothy Hunt)
Date: Mon, 16 Mar 2015 16:15:14 +1100
Subject: [Melbourne-pm] FTP on RHEL [SEC=UNCLASSIFIED]
In-Reply-To: <CAPRztUvvHUnA+fEM=n+9xdVKgyso9U-7_vtxNgc8srCfsfF18g@mail.gmail.com>
References: <B36141A791F480458A242BF48D526A97018FF9F299@BOM-VMBX-HO.bom.gov.au>
	<CAPRztUtjmvCsKfQR6gNPtjXqvB0Mw--UmPD81410M5EQqnOOZw@mail.gmail.com>
	<B36141A791F480458A242BF48D526A97018FF9F29A@BOM-VMBX-HO.bom.gov.au>
	<CAPRztUvvHUnA+fEM=n+9xdVKgyso9U-7_vtxNgc8srCfsfF18g@mail.gmail.com>
Message-ID: <B36141A791F480458A242BF48D526A97018FF9F29B@BOM-VMBX-HO.bom.gov.au>

The 'interesting code' is why I defer to experts. I'll look at older libraries in another environment. Thanks for the suggestion.

T.

--
Tim Hunt? 
Information Systems and Services Division

-----Original Message-----
From: Kahlil Hodgson [mailto:kahlil.hodgson at dealmax.com.au] 
Sent: Monday, 16 March 2015 4:04 PM
To: Timothy Hunt
Cc: melbourne-pm
Subject: Re: [Melbourne-pm] FTP on RHEL [SEC=UNCLASSIFIED]

Eeck, that sure is some 'interesting' code.

sub _close {
  my $data = shift;
  my $ftp  = ${*$data}{'net_ftp_cmd'};

  $data->SUPER::close();

  delete ${*$ftp}{'net_ftp_dataconn'}                          #<<<< dies HERE
    if exists ${*$ftp}{'net_ftp_dataconn'}
    && $data == ${*$ftp}{'net_ftp_dataconn'}; }

The versions of the required modules on RHEL5 are only out by a couple of minor releases. Perhaps install the older versions into a local lib with cpanm. At least that would rule out versions being the issue.

Kahlil (Kal) Hodgson                       GPG: C9A02289
Head of Technology                         (m) +61 (0) 4 2573 0382
DealMax Pty Ltd                            GitHub: @tartansandal

Suite 1416
401 Docklands Drive
Docklands VIC 3008 Australia

"All parts should go together without forcing.  You must remember that the parts you are reassembling were disassembled by you.  Therefore, if you can't get them together again, there must be a reason.  By all means, do not use a hammer."  -- IBM maintenance manual, 1925


On 16 March 2015 at 15:46, Timothy Hunt <T.Hunt at bom.gov.au> wrote:
> Yes,  $VERSION = '0.11';
>
>
> -----Original Message-----
> From: Kahlil Hodgson [mailto:kahlil.hodgson at dealmax.com.au]
> Sent: Monday, 16 March 2015 3:24 PM
> To: Timothy Hunt
> Cc: melbourne-pm
> Subject: Re: [Melbourne-pm] FTP on RHEL [SEC=UNCLASSIFIED]
>
> Which version of Net::FTP::dataconn is being loaded? Should 0.11.
>
> Kal
>
> Kahlil (Kal) Hodgson                       GPG: C9A02289
> Head of Technology                         (m) +61 (0) 4 2573 0382
> DealMax Pty Ltd                            GitHub: @tartansandal
>
> Suite 1416
> 401 Docklands Drive
> Docklands VIC 3008 Australia
>
> "All parts should go together without forcing.  You must remember that 
> the parts you are reassembling were disassembled by you.  Therefore, 
> if you can't get them together again, there must be a reason.  By all 
> means, do not use a hammer."  -- IBM maintenance manual, 1925
>
>
> On 16 March 2015 at 14:39, Timothy Hunt <T.Hunt at bom.gov.au> wrote:
>> Hi Mongers. Being a public servant I have to use 'out of the box'
>> versions of Perl. One of our data collection services is 
>> transitioning from RHEL5 to RHEL6. It uses FTP...
>>
>>
>>
>> On RHEL5:  This is perl, v5.8.8
>>
>>
>>
>> perl ftp_test.pl
>>
>> Net::FTP>>> Net::FTP(2.75)
>>
>> Net::FTP>>> Exporter(5.58)
>>
>> Net::FTP>>> Net::Cmd(2.26)
>>
>> Net::FTP>>> IO::Socket::INET(1.29)
>>
>> Net::FTP>>> IO::Socket(1.29)
>>
>> Net::FTP>>> IO::Handle(1.25)
>>
>> Net::FTP=GLOB(0xb4d5460)<<< 220 example.com FTP server (Version 4.2 
>> Mon Dec
>> 21 13:38:18 CST 2009) ready.
>>
>> Net::FTP=GLOB(0xb4d5460)>>> user anonymous
>>
>> Net::FTP=GLOB(0xb4d5460)<<< 331 Guest login ok, send ident as password.
>>
>> Net::FTP=GLOB(0xb4d5460)>>> PASS ....
>>
>> Net::FTP=GLOB(0xb4d5460)<<< 230-Last unsuccessful login: Mon Sep 9
>> 08:00:38 AEST 2013 on /dev/pts/40 from foo.example.com 
>> Net::FTP=GLOB(0xb4d5460)<<< 230-Last login: Mon Mar 16 13:22:17 AEDT
>> 2015 on ftp from foo.example.com
>>
>> Net::FTP=GLOB(0xb4d5460)<<< 230 Guest login ok, access restrictions apply.
>>
>> Net::FTP=GLOB(0xb4d5460)>>> CWD /pub/tmp
>>
>> Net::FTP=GLOB(0xb4d5460)<<< 250 CWD command successful.
>>
>> Net::FTP=GLOB(0xb4d5460)>>> PASV
>>
>> Net::FTP=GLOB(0xb4d5460)<<< 227 Entering Passive Mode 
>> (x,y,z,a,252,56)
>>
>> Net::FTP=GLOB(0xb4d5460)>>> NLST T*
>>
>> Net::FTP=GLOB(0xb4d5460)<<< 550 Bad directory components
>>
>> Bad directory components
>>
>>
>>
>> So there are no "T*" files, fail with 550, move on?
>>
>>
>>
>> RHEL6: This is perl, v5.10.1
>>
>>
>>
>> Net::FTP>>> Net::FTP(2.77)
>>
>> Net::FTP>>> Exporter(5.63)
>>
>> Net::FTP>>> Net::Cmd(2.29)
>>
>> Net::FTP>>> IO::Socket::INET(1.31)
>>
>> Net::FTP>>> IO::Socket(1.31)
>>
>> Net::FTP>>> IO::Handle(1.28)
>>
>> Net::FTP=GLOB(0xbab080)<<< 220 example.com FTP server (Version 4.2 
>> Mon Dec
>> 21 13:38:18 CST 2009) ready.
>>
>> Net::FTP=GLOB(0xbab080)>>> USER anonymous
>>
>> Net::FTP=GLOB(0xbab080)<<< 331 Guest login ok, send ident as password.
>>
>> Net::FTP=GLOB(0xbab080)>>> PASS ....
>>
>> Net::FTP=GLOB(0xbab080)<<< 230-Last unsuccessful login: Mon Sep 9
>> 08:00:38 AEST 2013 on /dev/pts/40 from foo.example.com 
>> Net::FTP=GLOB(0xbab080)<<< 230-Last login: Mon Mar 16 12:17:46 AEDT
>> 2015 on ftp from foo.example.com
>>
>> Net::FTP=GLOB(0xbab080)<<< 230 Guest login ok, access restrictions apply.
>>
>> Net::FTP=GLOB(0xbab080)>>> CWD /pub/tmp
>>
>> Net::FTP=GLOB(0xbab080)<<< 250 CWD command successful.
>>
>> Net::FTP=GLOB(0xbab080)>>> PASV Net::FTP=GLOB(0xbab080)<<< 227 
>> Entering Passive Mode (x,z,c,v,222,248)
>>
>> Net::FTP=GLOB(0xbab080)>>> NLST T*
>>
>> Can't use an undefined value as a symbol reference at 
>> /usr/share/perl5/Net/FTP/dataconn.pm line 54.
>>
>>
>>
>> Which is not the expected 550.
>>
>>
>>
>> I have had a look at the change logs but didn't notice anything significant.
>> As mentioned, I don't have the option of upgrading Perl outside the distro.
>>
>>
>>
>> Enough code to make it break is:
>>
>>
>>
>> #!/usr/bin/perl
>>
>> use strict;
>>
>> use Net::FTP;
>>
>> my $server = 'xxxx';
>>
>> my $filename = 'T*'; # <<< but make sure that there are no T* files 
>> in the dir.
>>
>> my $ftp = Net::FTP->new($server,Debug=>3,Passive=>1) or die "Cannot 
>> connect to some.host.name: $@";
>>
>>    $ftp->login("anonymous",'-anonymous@') or die "Cannot login ", 
>> $ftp->message;
>>
>>    $ftp->cwd($dir) or die "Cannot change working directory ", 
>> $ftp->message;
>>
>>
>>
>> my $res = $ftp->ls($file_name) or die $ftp->message;
>>
>>
>>
>> Hints welcomed.
>>
>>
>>
>> Cheers,
>>
>> Tim
>>
>>
>>
>> --
>>
>> Tim Hunt
>>
>> Information Systems and Services Division
>>
>> Bureau of Meteorology
>>
>> Level 7, 700 Collins Street, Docklands VIC 3008
>>
>> Tel: +61 3 9669 4094 | t.hunt at bom.gov.au
>>
>>
>>
>>
>>
>>
>> _______________________________________________
>> Melbourne-pm mailing list
>> Melbourne-pm at pm.org
>> http://mail.pm.org/mailman/listinfo/melbourne-pm

From T.Hunt at bom.gov.au  Sun Mar 15 22:18:16 2015
From: T.Hunt at bom.gov.au (Timothy Hunt)
Date: Mon, 16 Mar 2015 16:18:16 +1100
Subject: [Melbourne-pm] FTP on RHEL [SEC=UNCLASSIFIED]
In-Reply-To: <7101_1426482524_5506655B_7101_16149_1_1644130754.414522.1426482493921.JavaMail.zimbra@strategicdata.com.au>
References: <B36141A791F480458A242BF48D526A97018FF9F299@BOM-VMBX-HO.bom.gov.au>
	<7101_1426482524_5506655B_7101_16149_1_1644130754.414522.1426482493921.JavaMail.zimbra@strategicdata.com.au>
Message-ID: <B36141A791F480458A242BF48D526A97018FF9F29C@BOM-VMBX-HO.bom.gov.au>

Hi Toby,

I've opened a ticket with RH, but will try to find time to build a newer version and test.  Unfortunately, it's part of a huge legacy system that has grown through Solaris / HPUX / linux migrations...

Cheers,
Tim.

--
Tim Hunt? 
Information Systems and Services Division
Bureau of Meteorology
Level 7, 700 Collins Street, Docklands VIC 3008
Tel: +61 3 9669?4094 | t.hunt at bom.gov.au

-----Original Message-----
From: Melbourne-pm [mailto:melbourne-pm-bounces+t.hunt=bom.gov.au at pm.org] On Behalf Of Toby Corkindale
Sent: Monday, 16 March 2015 4:08 PM
To: melbourne-pm
Subject: Re: [Melbourne-pm] FTP on RHEL [SEC=UNCLASSIFIED]

Hi Tim,
You're using a version of Perl from 2009, and neither it nor the subsequent three major releases after it are even considered "in support" by the Perl core dev team.
If you're stuck on RHEL, then I guess you have an enterprise contract with RH, so can't you make this their problem and open a support ticket?

Alternatively -- have you tried installing modern versions of libnet (and possibly IO::Socket::SSL) into your home directory, to determine if that fixes the problem?
(In which case you can at least look at finding a way to bundle the newer versions with your app)

-Toby

----- Original Message -----
> From: "Timothy Hunt" <T.Hunt at bom.gov.au>
> To: "melbourne-pm" <melbourne-pm at pm.org>
> Sent: Monday, 16 March, 2015 2:39:58 PM
> Subject: [Melbourne-pm] FTP on RHEL [SEC=UNCLASSIFIED]
> 
> 
> 
> Hi Mongers. Being a public servant I have to use 'out of the box' 
> versions of Perl. One of our data collection services is transitioning 
> from RHEL5 to RHEL6. It uses FTP...
> 
> 
> 
> RHEL6: This is perl, v5.10.1
> Net::FTP=GLOB(0xbab080)>>> PASV Net::FTP=GLOB(0xbab080)<<< 227 
> Entering Passive Mode (x,z,c,v,222,248) Net::FTP=GLOB(0xbab080)>>> 
> NLST T* Can't use an undefined value as a symbol reference at 
> /usr/share/perl5/Net/FTP/dataconn.pm line 54.
> 
> Which is not the expected 550.
> 
> I have had a look at the change logs but didn't notice anything significant.
> As mentioned, I don't have the option of upgrading Perl outside the distro.
_______________________________________________
Melbourne-pm mailing list
Melbourne-pm at pm.org
http://mail.pm.org/mailman/listinfo/melbourne-pm

From kahlil.hodgson at dealmax.com.au  Sun Mar 15 22:19:14 2015
From: kahlil.hodgson at dealmax.com.au (Kahlil Hodgson)
Date: Mon, 16 Mar 2015 16:19:14 +1100
Subject: [Melbourne-pm] FTP on RHEL [SEC=UNCLASSIFIED]
In-Reply-To: <1644130754.414522.1426482493921.JavaMail.zimbra@strategicdata.com.au>
References: <B36141A791F480458A242BF48D526A97018FF9F299@BOM-VMBX-HO.bom.gov.au>
	<1644130754.414522.1426482493921.JavaMail.zimbra@strategicdata.com.au>
Message-ID: <CAPRztUvT7y29L6vMYJZBm6ED-ZwgZeqtNnSDhPE9HWcwNGATTQ@mail.gmail.com>

On 16 March 2015 at 16:08, Toby Corkindale
<toby.corkindale at strategicdata.com.au> wrote:
> If you're stuck on RHEL, then I guess you have an enterprise contract with RH, so can't you make this their problem and open a support ticket?

I have some custom code that works on an old version of the OS, it
doesn't work on the new version of the OS, so it becomes the OS
developers problem not mine. That would be so cool.

K

From kahlil.hodgson at dealmax.com.au  Sun Mar 15 22:34:49 2015
From: kahlil.hodgson at dealmax.com.au (Kahlil Hodgson)
Date: Mon, 16 Mar 2015 16:34:49 +1100
Subject: [Melbourne-pm] FTP on RHEL [SEC=UNCLASSIFIED]
In-Reply-To: <B36141A791F480458A242BF48D526A97018FF9F29C@BOM-VMBX-HO.bom.gov.au>
References: <B36141A791F480458A242BF48D526A97018FF9F299@BOM-VMBX-HO.bom.gov.au>
	<7101_1426482524_5506655B_7101_16149_1_1644130754.414522.1426482493921.JavaMail.zimbra@strategicdata.com.au>
	<B36141A791F480458A242BF48D526A97018FF9F29C@BOM-VMBX-HO.bom.gov.au>
Message-ID: <CAPRztUtwLEgE8jTHXnv2MuWCUE61+Cn9p7HXGUkEMSaKS17oFA@mail.gmail.com>

If you do want to try bumping your Perl version up to something more
modern, consider using the perl-5.16.3 from softwarecollections.org or
from the official RH channel (wherever that is).  These are isolated
installs that are built to work properly with RHEL systems --
something that can be difficult to do with PerlBrew.

From benhare at gmail.com  Mon Mar 16 07:25:53 2015
From: benhare at gmail.com (Ben Hare)
Date: Tue, 17 Mar 2015 00:55:53 +1030
Subject: [Melbourne-pm] FTP on RHEL [SEC=UNCLASSIFIED]
In-Reply-To: <B36141A791F480458A242BF48D526A97018FF9F299@BOM-VMBX-HO.bom.gov.au>
References: <B36141A791F480458A242BF48D526A97018FF9F299@BOM-VMBX-HO.bom.gov.au>
Message-ID: <CALOH2dU1UryT=KviNizHbGuxpu1c1L63QzE1MkkDbB_pxuBr+A@mail.gmail.com>

Hey Timothy,

Maybe you should consider ( if possible ) bundling perl as part of the
software release. A company I used to work bundled perl and apache as
part of the software build and release so that OS upgrades were
independent of the software.

cheers,

Ben.


On 16 March 2015 at 14:09, Timothy Hunt <T.Hunt at bom.gov.au> wrote:
> Hi Mongers. Being a public servant I have to use 'out of the box' versions
> of Perl. One of our data collection services is transitioning from RHEL5 to
> RHEL6. It uses FTP...
>
>
>
> On RHEL5:  This is perl, v5.8.8
>
>
>
> perl ftp_test.pl
>
> Net::FTP>>> Net::FTP(2.75)
>
> Net::FTP>>> Exporter(5.58)
>
> Net::FTP>>> Net::Cmd(2.26)
>
> Net::FTP>>> IO::Socket::INET(1.29)
>
> Net::FTP>>> IO::Socket(1.29)
>
> Net::FTP>>> IO::Handle(1.25)
>
> Net::FTP=GLOB(0xb4d5460)<<< 220 example.com FTP server (Version 4.2 Mon Dec
> 21 13:38:18 CST 2009) ready.
>
> Net::FTP=GLOB(0xb4d5460)>>> user anonymous
>
> Net::FTP=GLOB(0xb4d5460)<<< 331 Guest login ok, send ident as password.
>
> Net::FTP=GLOB(0xb4d5460)>>> PASS ....
>
> Net::FTP=GLOB(0xb4d5460)<<< 230-Last unsuccessful login: Mon Sep 9 08:00:38
> AEST 2013 on /dev/pts/40 from foo.example.com Net::FTP=GLOB(0xb4d5460)<<<
> 230-Last login: Mon Mar 16 13:22:17 AEDT 2015 on ftp from foo.example.com
>
> Net::FTP=GLOB(0xb4d5460)<<< 230 Guest login ok, access restrictions apply.
>
> Net::FTP=GLOB(0xb4d5460)>>> CWD /pub/tmp
>
> Net::FTP=GLOB(0xb4d5460)<<< 250 CWD command successful.
>
> Net::FTP=GLOB(0xb4d5460)>>> PASV
>
> Net::FTP=GLOB(0xb4d5460)<<< 227 Entering Passive Mode (x,y,z,a,252,56)
>
> Net::FTP=GLOB(0xb4d5460)>>> NLST T*
>
> Net::FTP=GLOB(0xb4d5460)<<< 550 Bad directory components
>
> Bad directory components
>
>
>
> So there are no "T*" files, fail with 550, move on?
>
>
>
> RHEL6: This is perl, v5.10.1
>
>
>
> Net::FTP>>> Net::FTP(2.77)
>
> Net::FTP>>> Exporter(5.63)
>
> Net::FTP>>> Net::Cmd(2.29)
>
> Net::FTP>>> IO::Socket::INET(1.31)
>
> Net::FTP>>> IO::Socket(1.31)
>
> Net::FTP>>> IO::Handle(1.28)
>
> Net::FTP=GLOB(0xbab080)<<< 220 example.com FTP server (Version 4.2 Mon Dec
> 21 13:38:18 CST 2009) ready.
>
> Net::FTP=GLOB(0xbab080)>>> USER anonymous
>
> Net::FTP=GLOB(0xbab080)<<< 331 Guest login ok, send ident as password.
>
> Net::FTP=GLOB(0xbab080)>>> PASS ....
>
> Net::FTP=GLOB(0xbab080)<<< 230-Last unsuccessful login: Mon Sep 9 08:00:38
> AEST 2013 on /dev/pts/40 from foo.example.com Net::FTP=GLOB(0xbab080)<<<
> 230-Last login: Mon Mar 16 12:17:46 AEDT 2015 on ftp from foo.example.com
>
> Net::FTP=GLOB(0xbab080)<<< 230 Guest login ok, access restrictions apply.
>
> Net::FTP=GLOB(0xbab080)>>> CWD /pub/tmp
>
> Net::FTP=GLOB(0xbab080)<<< 250 CWD command successful.
>
> Net::FTP=GLOB(0xbab080)>>> PASV Net::FTP=GLOB(0xbab080)<<< 227 Entering
> Passive Mode (x,z,c,v,222,248)
>
> Net::FTP=GLOB(0xbab080)>>> NLST T*
>
> Can't use an undefined value as a symbol reference at
> /usr/share/perl5/Net/FTP/dataconn.pm line 54.
>
>
>
> Which is not the expected 550.
>
>
>
> I have had a look at the change logs but didn't notice anything significant.
> As mentioned, I don't have the option of upgrading Perl outside the distro.
>
>
>
> Enough code to make it break is:
>
>
>
> #!/usr/bin/perl
>
> use strict;
>
> use Net::FTP;
>
> my $server = 'xxxx';
>
> my $filename = 'T*'; # <<< but make sure that there are no T* files in the
> dir.
>
> my $ftp = Net::FTP->new($server,Debug=>3,Passive=>1) or die "Cannot connect
> to some.host.name: $@";
>
>    $ftp->login("anonymous",'-anonymous@') or die "Cannot login ",
> $ftp->message;
>
>    $ftp->cwd($dir) or die "Cannot change working directory ", $ftp->message;
>
>
>
> my $res = $ftp->ls($file_name) or die $ftp->message;
>
>
>
> Hints welcomed.
>
>
>
> Cheers,
>
> Tim
>
>
>
> --
>
> Tim Hunt
>
> Information Systems and Services Division
>
> Bureau of Meteorology
>
> Level 7, 700 Collins Street, Docklands VIC 3008
>
> Tel: +61 3 9669 4094 | t.hunt at bom.gov.au
>
>
>
>
>
>
> _______________________________________________
> Melbourne-pm mailing list
> Melbourne-pm at pm.org
> http://mail.pm.org/mailman/listinfo/melbourne-pm



-- 
Benjamin J. Hare
Web Design, Software & Hosting Solutions
ABN: 22-48-55-71-887
Phone: +61-415-607-197
Web: http://www.benhare.com
Email: ben at benhare.com

From benhare at gmail.com  Mon Mar 16 07:54:44 2015
From: benhare at gmail.com (Ben Hare)
Date: Tue, 17 Mar 2015 01:24:44 +1030
Subject: [Melbourne-pm] FTP on RHEL [SEC=UNCLASSIFIED]
In-Reply-To: <CALOH2dU1UryT=KviNizHbGuxpu1c1L63QzE1MkkDbB_pxuBr+A@mail.gmail.com>
References: <B36141A791F480458A242BF48D526A97018FF9F299@BOM-VMBX-HO.bom.gov.au>
	<CALOH2dU1UryT=KviNizHbGuxpu1c1L63QzE1MkkDbB_pxuBr+A@mail.gmail.com>
Message-ID: <CALOH2dXwYgm1O-fvKv8HGAJ=nNiVdOqh=6XSxqoxv4_+B4SURQ@mail.gmail.com>

thinking about it further, at present i have a client site that
requires it's own version of perl for similar reasons. that can be
done with a custom build and / or local lib depending on whether or
not you have the whole box to work with or not and what you prefer.
the former suggestion might be more appropriate for your situation
however ( bundled as part of software build ).

On 17 March 2015 at 00:55, Ben Hare <benhare at gmail.com> wrote:
> Hey Timothy,
>
> Maybe you should consider ( if possible ) bundling perl as part of the
> software release. A company I used to work bundled perl and apache as
> part of the software build and release so that OS upgrades were
> independent of the software.
>
> cheers,
>
> Ben.
>
>
> On 16 March 2015 at 14:09, Timothy Hunt <T.Hunt at bom.gov.au> wrote:
>> Hi Mongers. Being a public servant I have to use 'out of the box' versions
>> of Perl. One of our data collection services is transitioning from RHEL5 to
>> RHEL6. It uses FTP...
>>
>>
>>
>> On RHEL5:  This is perl, v5.8.8
>>
>>
>>
>> perl ftp_test.pl
>>
>> Net::FTP>>> Net::FTP(2.75)
>>
>> Net::FTP>>> Exporter(5.58)
>>
>> Net::FTP>>> Net::Cmd(2.26)
>>
>> Net::FTP>>> IO::Socket::INET(1.29)
>>
>> Net::FTP>>> IO::Socket(1.29)
>>
>> Net::FTP>>> IO::Handle(1.25)
>>
>> Net::FTP=GLOB(0xb4d5460)<<< 220 example.com FTP server (Version 4.2 Mon Dec
>> 21 13:38:18 CST 2009) ready.
>>
>> Net::FTP=GLOB(0xb4d5460)>>> user anonymous
>>
>> Net::FTP=GLOB(0xb4d5460)<<< 331 Guest login ok, send ident as password.
>>
>> Net::FTP=GLOB(0xb4d5460)>>> PASS ....
>>
>> Net::FTP=GLOB(0xb4d5460)<<< 230-Last unsuccessful login: Mon Sep 9 08:00:38
>> AEST 2013 on /dev/pts/40 from foo.example.com Net::FTP=GLOB(0xb4d5460)<<<
>> 230-Last login: Mon Mar 16 13:22:17 AEDT 2015 on ftp from foo.example.com
>>
>> Net::FTP=GLOB(0xb4d5460)<<< 230 Guest login ok, access restrictions apply.
>>
>> Net::FTP=GLOB(0xb4d5460)>>> CWD /pub/tmp
>>
>> Net::FTP=GLOB(0xb4d5460)<<< 250 CWD command successful.
>>
>> Net::FTP=GLOB(0xb4d5460)>>> PASV
>>
>> Net::FTP=GLOB(0xb4d5460)<<< 227 Entering Passive Mode (x,y,z,a,252,56)
>>
>> Net::FTP=GLOB(0xb4d5460)>>> NLST T*
>>
>> Net::FTP=GLOB(0xb4d5460)<<< 550 Bad directory components
>>
>> Bad directory components
>>
>>
>>
>> So there are no "T*" files, fail with 550, move on?
>>
>>
>>
>> RHEL6: This is perl, v5.10.1
>>
>>
>>
>> Net::FTP>>> Net::FTP(2.77)
>>
>> Net::FTP>>> Exporter(5.63)
>>
>> Net::FTP>>> Net::Cmd(2.29)
>>
>> Net::FTP>>> IO::Socket::INET(1.31)
>>
>> Net::FTP>>> IO::Socket(1.31)
>>
>> Net::FTP>>> IO::Handle(1.28)
>>
>> Net::FTP=GLOB(0xbab080)<<< 220 example.com FTP server (Version 4.2 Mon Dec
>> 21 13:38:18 CST 2009) ready.
>>
>> Net::FTP=GLOB(0xbab080)>>> USER anonymous
>>
>> Net::FTP=GLOB(0xbab080)<<< 331 Guest login ok, send ident as password.
>>
>> Net::FTP=GLOB(0xbab080)>>> PASS ....
>>
>> Net::FTP=GLOB(0xbab080)<<< 230-Last unsuccessful login: Mon Sep 9 08:00:38
>> AEST 2013 on /dev/pts/40 from foo.example.com Net::FTP=GLOB(0xbab080)<<<
>> 230-Last login: Mon Mar 16 12:17:46 AEDT 2015 on ftp from foo.example.com
>>
>> Net::FTP=GLOB(0xbab080)<<< 230 Guest login ok, access restrictions apply.
>>
>> Net::FTP=GLOB(0xbab080)>>> CWD /pub/tmp
>>
>> Net::FTP=GLOB(0xbab080)<<< 250 CWD command successful.
>>
>> Net::FTP=GLOB(0xbab080)>>> PASV Net::FTP=GLOB(0xbab080)<<< 227 Entering
>> Passive Mode (x,z,c,v,222,248)
>>
>> Net::FTP=GLOB(0xbab080)>>> NLST T*
>>
>> Can't use an undefined value as a symbol reference at
>> /usr/share/perl5/Net/FTP/dataconn.pm line 54.
>>
>>
>>
>> Which is not the expected 550.
>>
>>
>>
>> I have had a look at the change logs but didn't notice anything significant.
>> As mentioned, I don't have the option of upgrading Perl outside the distro.
>>
>>
>>
>> Enough code to make it break is:
>>
>>
>>
>> #!/usr/bin/perl
>>
>> use strict;
>>
>> use Net::FTP;
>>
>> my $server = 'xxxx';
>>
>> my $filename = 'T*'; # <<< but make sure that there are no T* files in the
>> dir.
>>
>> my $ftp = Net::FTP->new($server,Debug=>3,Passive=>1) or die "Cannot connect
>> to some.host.name: $@";
>>
>>    $ftp->login("anonymous",'-anonymous@') or die "Cannot login ",
>> $ftp->message;
>>
>>    $ftp->cwd($dir) or die "Cannot change working directory ", $ftp->message;
>>
>>
>>
>> my $res = $ftp->ls($file_name) or die $ftp->message;
>>
>>
>>
>> Hints welcomed.
>>
>>
>>
>> Cheers,
>>
>> Tim
>>
>>
>>
>> --
>>
>> Tim Hunt
>>
>> Information Systems and Services Division
>>
>> Bureau of Meteorology
>>
>> Level 7, 700 Collins Street, Docklands VIC 3008
>>
>> Tel: +61 3 9669 4094 | t.hunt at bom.gov.au
>>
>>
>>
>>
>>
>>
>> _______________________________________________
>> Melbourne-pm mailing list
>> Melbourne-pm at pm.org
>> http://mail.pm.org/mailman/listinfo/melbourne-pm
>
>
>
> --
> Benjamin J. Hare
> Web Design, Software & Hosting Solutions
> ABN: 22-48-55-71-887
> Phone: +61-415-607-197
> Web: http://www.benhare.com
> Email: ben at benhare.com



-- 
Benjamin J. Hare
Web Design, Software & Hosting Solutions
ABN: 22-48-55-71-887
Phone: +61-415-607-197
Web: http://www.benhare.com
Email: ben at benhare.com

From kahlil.hodgson at dealmax.com.au  Mon Mar 16 14:56:59 2015
From: kahlil.hodgson at dealmax.com.au (Kahlil Hodgson)
Date: Tue, 17 Mar 2015 08:56:59 +1100
Subject: [Melbourne-pm] FTP on RHEL [SEC=UNCLASSIFIED]
In-Reply-To: <CALOH2dXwYgm1O-fvKv8HGAJ=nNiVdOqh=6XSxqoxv4_+B4SURQ@mail.gmail.com>
References: <B36141A791F480458A242BF48D526A97018FF9F299@BOM-VMBX-HO.bom.gov.au>
	<CALOH2dU1UryT=KviNizHbGuxpu1c1L63QzE1MkkDbB_pxuBr+A@mail.gmail.com>
	<CALOH2dXwYgm1O-fvKv8HGAJ=nNiVdOqh=6XSxqoxv4_+B4SURQ@mail.gmail.com>
Message-ID: <CAPRztUtB7K_MnLX4MSmt-n0sCWRZbUzPLQqcZXjNkpOqf6oweA@mail.gmail.com>

Hi Tim,

Managed to replicate your issue on a CentOS6 machine with this script
https://gist.github.com/tartansandal/1f2582c4fca42719925e. If I change
the connection to active rather than passive, It works for me. If I
use passive mode, I get an error which throws to a bad part of the
code which generates another error, masking the original error.

Hope this helps.

K

Kahlil (Kal) Hodgson                       GPG: C9A02289
Head of Technology                         (m) +61 (0) 4 2573 0382
DealMax Pty Ltd                            GitHub: @tartansandal

Suite 1416
401 Docklands Drive
Docklands VIC 3008 Australia

"All parts should go together without forcing.  You must remember that
the parts you are reassembling were disassembled by you.  Therefore,
if you can't get them together again, there must be a reason.  By all
means, do not use a hammer."  -- IBM maintenance manual, 1925

From T.Hunt at bom.gov.au  Mon Mar 16 15:04:51 2015
From: T.Hunt at bom.gov.au (Timothy Hunt)
Date: Tue, 17 Mar 2015 09:04:51 +1100
Subject: [Melbourne-pm] FTP on RHEL [SEC=UNCLASSIFIED]
In-Reply-To: <CAPRztUtB7K_MnLX4MSmt-n0sCWRZbUzPLQqcZXjNkpOqf6oweA@mail.gmail.com>
References: <B36141A791F480458A242BF48D526A97018FF9F299@BOM-VMBX-HO.bom.gov.au>
	<CALOH2dU1UryT=KviNizHbGuxpu1c1L63QzE1MkkDbB_pxuBr+A@mail.gmail.com>
	<CALOH2dXwYgm1O-fvKv8HGAJ=nNiVdOqh=6XSxqoxv4_+B4SURQ@mail.gmail.com>
	<CAPRztUtB7K_MnLX4MSmt-n0sCWRZbUzPLQqcZXjNkpOqf6oweA@mail.gmail.com>
Message-ID: <B36141A791F480458A242BF48D526A97018FF9F2A0@BOM-VMBX-HO.bom.gov.au>

Thanks for this. It is passive which is killing us - many of our partners (data sources) are turning off active FTP, forcing passive. Hence the issue surfacing. I am working through a support case with RedHat and will be trying newer versions of Perl today.

Cheers,
Tim.

--
Tim Hunt? 
Information Systems and Services Division
Bureau of Meteorology
Level 7, 700 Collins Street, Docklands VIC 3008
Tel: +61 3 9669?4094 | t.hunt at bom.gov.au

-----Original Message-----
From: Kahlil Hodgson [mailto:kahlil.hodgson at dealmax.com.au] 
Sent: Tuesday, 17 March 2015 8:57 AM
To: Timothy Hunt
Cc: melbourne-pm
Subject: Re: [Melbourne-pm] FTP on RHEL [SEC=UNCLASSIFIED]

Hi Tim,

Managed to replicate your issue on a CentOS6 machine with this script https://gist.github.com/tartansandal/1f2582c4fca42719925e. If I change the connection to active rather than passive, It works for me. If I use passive mode, I get an error which throws to a bad part of the code which generates another error, masking the original error.

Hope this helps.

K

Kahlil (Kal) Hodgson                       GPG: C9A02289
Head of Technology                         (m) +61 (0) 4 2573 0382
DealMax Pty Ltd                            GitHub: @tartansandal

Suite 1416
401 Docklands Drive
Docklands VIC 3008 Australia

"All parts should go together without forcing.  You must remember that the parts you are reassembling were disassembled by you.  Therefore, if you can't get them together again, there must be a reason.  By all means, do not use a hammer."  -- IBM maintenance manual, 1925

From kahlil.hodgson at dealmax.com.au  Mon Mar 16 15:11:31 2015
From: kahlil.hodgson at dealmax.com.au (Kahlil Hodgson)
Date: Tue, 17 Mar 2015 09:11:31 +1100
Subject: [Melbourne-pm] FTP on RHEL [SEC=UNCLASSIFIED]
In-Reply-To: <B36141A791F480458A242BF48D526A97018FF9F2A0@BOM-VMBX-HO.bom.gov.au>
References: <B36141A791F480458A242BF48D526A97018FF9F299@BOM-VMBX-HO.bom.gov.au>
	<CALOH2dU1UryT=KviNizHbGuxpu1c1L63QzE1MkkDbB_pxuBr+A@mail.gmail.com>
	<CALOH2dXwYgm1O-fvKv8HGAJ=nNiVdOqh=6XSxqoxv4_+B4SURQ@mail.gmail.com>
	<CAPRztUtB7K_MnLX4MSmt-n0sCWRZbUzPLQqcZXjNkpOqf6oweA@mail.gmail.com>
	<B36141A791F480458A242BF48D526A97018FF9F2A0@BOM-VMBX-HO.bom.gov.au>
Message-ID: <CAPRztUv25NCxr_8ToPGR1JOFDDAZ8yFOQwfEQZy-x7F=Pd1Rog@mail.gmail.com>

I get the same issue when running on perl-5.18.4. Upgrading Perl may
not help you here :-(

Kahlil (Kal) Hodgson                       GPG: C9A02289
Head of Technology                         (m) +61 (0) 4 2573 0382
DealMax Pty Ltd                            GitHub: @tartansandal

Suite 1416
401 Docklands Drive
Docklands VIC 3008 Australia

"All parts should go together without forcing.  You must remember that
the parts you are reassembling were disassembled by you.  Therefore,
if you can't get them together again, there must be a reason.  By all
means, do not use a hammer."  -- IBM maintenance manual, 1925


On 17 March 2015 at 09:04, Timothy Hunt <T.Hunt at bom.gov.au> wrote:
> Thanks for this. It is passive which is killing us - many of our partners (data sources) are turning off active FTP, forcing passive. Hence the issue surfacing. I am working through a support case with RedHat and will be trying newer versions of Perl today.
>
> Cheers,
> Tim.
>
> --
> Tim Hunt
> Information Systems and Services Division
> Bureau of Meteorology
> Level 7, 700 Collins Street, Docklands VIC 3008
> Tel: +61 3 9669 4094 | t.hunt at bom.gov.au
>
> -----Original Message-----
> From: Kahlil Hodgson [mailto:kahlil.hodgson at dealmax.com.au]
> Sent: Tuesday, 17 March 2015 8:57 AM
> To: Timothy Hunt
> Cc: melbourne-pm
> Subject: Re: [Melbourne-pm] FTP on RHEL [SEC=UNCLASSIFIED]
>
> Hi Tim,
>
> Managed to replicate your issue on a CentOS6 machine with this script https://gist.github.com/tartansandal/1f2582c4fca42719925e. If I change the connection to active rather than passive, It works for me. If I use passive mode, I get an error which throws to a bad part of the code which generates another error, masking the original error.
>
> Hope this helps.
>
> K
>
> Kahlil (Kal) Hodgson                       GPG: C9A02289
> Head of Technology                         (m) +61 (0) 4 2573 0382
> DealMax Pty Ltd                            GitHub: @tartansandal
>
> Suite 1416
> 401 Docklands Drive
> Docklands VIC 3008 Australia
>
> "All parts should go together without forcing.  You must remember that the parts you are reassembling were disassembled by you.  Therefore, if you can't get them together again, there must be a reason.  By all means, do not use a hammer."  -- IBM maintenance manual, 1925

From brendon.oliver at gmail.com  Mon Mar 16 15:27:44 2015
From: brendon.oliver at gmail.com (Brendon Oliver)
Date: Tue, 17 Mar 2015 09:27:44 +1100
Subject: [Melbourne-pm] FTP on RHEL [SEC=UNCLASSIFIED]
In-Reply-To: <CAPRztUv25NCxr_8ToPGR1JOFDDAZ8yFOQwfEQZy-x7F=Pd1Rog@mail.gmail.com>
References: <B36141A791F480458A242BF48D526A97018FF9F299@BOM-VMBX-HO.bom.gov.au>
	<CALOH2dU1UryT=KviNizHbGuxpu1c1L63QzE1MkkDbB_pxuBr+A@mail.gmail.com>
	<CALOH2dXwYgm1O-fvKv8HGAJ=nNiVdOqh=6XSxqoxv4_+B4SURQ@mail.gmail.com>
	<CAPRztUtB7K_MnLX4MSmt-n0sCWRZbUzPLQqcZXjNkpOqf6oweA@mail.gmail.com>
	<B36141A791F480458A242BF48D526A97018FF9F2A0@BOM-VMBX-HO.bom.gov.au>
	<CAPRztUv25NCxr_8ToPGR1JOFDDAZ8yFOQwfEQZy-x7F=Pd1Rog@mail.gmail.com>
Message-ID: <CAAeNFUuapRLtjnihNu88RhK-Z8pXmc02L4ixv73FJva82BjeYw@mail.gmail.com>

Upgrading libnet might help... Kal's (/wave) script  works for me: perl
5.20.2 + Net::FTP v3.05

[brendon at aragorn bin]$ ./test-ftp.pl
Net::FTP>>> Net::FTP(3.05)
Net::FTP>>>   Exporter(5.71)
Net::FTP>>>   Net::Cmd(3.05)
Net::FTP>>>   IO::Socket::IP(0.29)
Net::FTP>>>     IO::Socket(1.38)
Net::FTP>>>       IO::Handle(1.35)
Net::FTP=GLOB(0x150de88)<<< 220 ProFTPD 1.3.3g Server (ftp.arin.net)
[::ffff:199.212.0.151]
Net::FTP=GLOB(0x150de88)>>> USER anonymous
Net::FTP=GLOB(0x150de88)<<< 331 Anonymous login ok, send your complete
email address as your password
Net::FTP=GLOB(0x150de88)>>> PASS ....
Net::FTP=GLOB(0x150de88)<<< 230 Anonymous access granted, restrictions apply
Net::FTP=GLOB(0x150de88)>>> CWD /pub/stats
Net::FTP=GLOB(0x150de88)<<< 250 CWD command successful
Net::FTP=GLOB(0x150de88)>>> PASV
Net::FTP=GLOB(0x150de88)<<< 227 Entering Passive Mode
(199,212,0,151,219,13).
Net::FTP=GLOB(0x150de88)>>> NLST T*
Net::FTP=GLOB(0x150de88)<<< 450 No files found
No files found
        at main::(unknown source)


The changes page at https://metacpan.org/changes/distribution/libnet is not
very helpful tho - the version jumps from v.1.30 to 3.0 over 8/9 Oct
2014... but there are mentions of other issues with PASV mode, perhaps
they're related?

Cheers,

- Brendon

On Tue, Mar 17, 2015 at 9:11 AM, Kahlil Hodgson <
kahlil.hodgson at dealmax.com.au> wrote:

> I get the same issue when running on perl-5.18.4. Upgrading Perl may
> not help you here :-(
>
> Kahlil (Kal) Hodgson                       GPG: C9A02289
> Head of Technology                         (m) +61 (0) 4 2573 0382
> DealMax Pty Ltd                            GitHub: @tartansandal
>
> Suite 1416
> 401 Docklands Drive
> Docklands VIC 3008 Australia
>
> "All parts should go together without forcing.  You must remember that
> the parts you are reassembling were disassembled by you.  Therefore,
> if you can't get them together again, there must be a reason.  By all
> means, do not use a hammer."  -- IBM maintenance manual, 1925
>
>
> On 17 March 2015 at 09:04, Timothy Hunt <T.Hunt at bom.gov.au> wrote:
> > Thanks for this. It is passive which is killing us - many of our
> partners (data sources) are turning off active FTP, forcing passive. Hence
> the issue surfacing. I am working through a support case with RedHat and
> will be trying newer versions of Perl today.
> >
> > Cheers,
> > Tim.
> >
> > --
> > Tim Hunt
> > Information Systems and Services Division
> > Bureau of Meteorology
> > Level 7, 700 Collins Street, Docklands VIC 3008
> > Tel: +61 3 9669 4094 | t.hunt at bom.gov.au
> >
> > -----Original Message-----
> > From: Kahlil Hodgson [mailto:kahlil.hodgson at dealmax.com.au]
> > Sent: Tuesday, 17 March 2015 8:57 AM
> > To: Timothy Hunt
> > Cc: melbourne-pm
> > Subject: Re: [Melbourne-pm] FTP on RHEL [SEC=UNCLASSIFIED]
> >
> > Hi Tim,
> >
> > Managed to replicate your issue on a CentOS6 machine with this script
> https://gist.github.com/tartansandal/1f2582c4fca42719925e. If I change
> the connection to active rather than passive, It works for me. If I use
> passive mode, I get an error which throws to a bad part of the code which
> generates another error, masking the original error.
> >
> > Hope this helps.
> >
> > K
> >
> > Kahlil (Kal) Hodgson                       GPG: C9A02289
> > Head of Technology                         (m) +61 (0) 4 2573 0382
> > DealMax Pty Ltd                            GitHub: @tartansandal
> >
> > Suite 1416
> > 401 Docklands Drive
> > Docklands VIC 3008 Australia
> >
> > "All parts should go together without forcing.  You must remember that
> the parts you are reassembling were disassembled by you.  Therefore, if you
> can't get them together again, there must be a reason.  By all means, do
> not use a hammer."  -- IBM maintenance manual, 1925
> _______________________________________________
> Melbourne-pm mailing list
> Melbourne-pm at pm.org
> http://mail.pm.org/mailman/listinfo/melbourne-pm
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/melbourne-pm/attachments/20150317/36312e95/attachment-0001.html>

From kahlil.hodgson at dealmax.com.au  Mon Mar 16 16:19:30 2015
From: kahlil.hodgson at dealmax.com.au (Kahlil Hodgson)
Date: Tue, 17 Mar 2015 10:19:30 +1100
Subject: [Melbourne-pm] FTP on RHEL [SEC=UNCLASSIFIED]
In-Reply-To: <CAAeNFUuapRLtjnihNu88RhK-Z8pXmc02L4ixv73FJva82BjeYw@mail.gmail.com>
References: <B36141A791F480458A242BF48D526A97018FF9F299@BOM-VMBX-HO.bom.gov.au>
	<CALOH2dU1UryT=KviNizHbGuxpu1c1L63QzE1MkkDbB_pxuBr+A@mail.gmail.com>
	<CALOH2dXwYgm1O-fvKv8HGAJ=nNiVdOqh=6XSxqoxv4_+B4SURQ@mail.gmail.com>
	<CAPRztUtB7K_MnLX4MSmt-n0sCWRZbUzPLQqcZXjNkpOqf6oweA@mail.gmail.com>
	<B36141A791F480458A242BF48D526A97018FF9F2A0@BOM-VMBX-HO.bom.gov.au>
	<CAPRztUv25NCxr_8ToPGR1JOFDDAZ8yFOQwfEQZy-x7F=Pd1Rog@mail.gmail.com>
	<CAAeNFUuapRLtjnihNu88RhK-Z8pXmc02L4ixv73FJva82BjeYw@mail.gmail.com>
Message-ID: <CAPRztUt5Z+SdqVipAPdP2Sd8Rx9SzLNCsqgt8O-7DRiX1-JZcw@mail.gmail.com>

On 17 March 2015 at 09:27, Brendon Oliver <brendon.oliver at gmail.com> wrote:
> Upgrading libnet might help... Kal's (/wave) script  works for me: perl
> 5.20.2 + Net::FTP v3.05

Arrgh. My script seems to succeed/fail at random of perl-5.18.2
depending on how the server responds :-(

Looks like the venerable libnet is now being maintained by Steve hay
and is receiving some much needed love. There was a patch at 2.22_2
that should have at least fixed the error masking issue, but it looks
like its back.

OK. Back to writing test code for my real job.

K

From toby.corkindale at strategicdata.com.au  Mon Mar 16 17:03:56 2015
From: toby.corkindale at strategicdata.com.au (Toby Corkindale)
Date: Tue, 17 Mar 2015 11:03:56 +1100 (EST)
Subject: [Melbourne-pm] FTP on RHEL [SEC=UNCLASSIFIED]
In-Reply-To: <B36141A791F480458A242BF48D526A97018FF9F299@BOM-VMBX-HO.bom.gov.au>
References: <B36141A791F480458A242BF48D526A97018FF9F299@BOM-VMBX-HO.bom.gov.au>
Message-ID: <980462578.423045.1426550636984.JavaMail.zimbra@strategicdata.com.au>

I was just looking at the FTP spec, and I wonder if your code has been doing the wrong thing the whole time.
>From what I can tell from RFC 959, NLST isn't supposed to take wildcards as parameters at all - it's meant to be a fully-qualified path.

This doesn't excuse Net::FTP from crashing out when you do it, but all the same -- even if it used to work on one given FTP server and FTp client, there's no guarantee it'll work on other combinations of the two, since it appears to be an out-of-spec behaviour.

Maybe you'll find it easier to fix your Perl code to use legal FTP operations, and also avoiding the bad path in the code.

ie. Just use "NLST" without a parameter, get back a list of ALL files in the current directory, and then grep through them on the client side to see if the ones you want are present.

-Toby

----- Original Message -----
> From: "Timothy Hunt" <T.Hunt at bom.gov.au>
> 
> Hi Mongers. Being a public servant I have to use 'out of the box' versions of
> Perl. One of our data collection services is transitioning from RHEL5 to
> RHEL6. It uses FTP...
> Net::FTP=GLOB(0xb4d5460)>>> NLST T*
> Net::FTP=GLOB(0xb4d5460)<<< 550 Bad directory components
> Bad directory components
> 
> So there are no "T*" files, fail with 550, move on?

From T.Hunt at bom.gov.au  Mon Mar 16 18:56:15 2015
From: T.Hunt at bom.gov.au (Timothy Hunt)
Date: Tue, 17 Mar 2015 12:56:15 +1100
Subject: [Melbourne-pm] FTP on RHEL [SEC=UNCLASSIFIED]
In-Reply-To: <3444_1426547976_55076508_3444_14806_1_CAPRztUt5Z+SdqVipAPdP2Sd8Rx9SzLNCsqgt8O-7DRiX1-JZcw@mail.gmail.com>
References: <B36141A791F480458A242BF48D526A97018FF9F299@BOM-VMBX-HO.bom.gov.au>
	<CALOH2dU1UryT=KviNizHbGuxpu1c1L63QzE1MkkDbB_pxuBr+A@mail.gmail.com>
	<CALOH2dXwYgm1O-fvKv8HGAJ=nNiVdOqh=6XSxqoxv4_+B4SURQ@mail.gmail.com>
	<CAPRztUtB7K_MnLX4MSmt-n0sCWRZbUzPLQqcZXjNkpOqf6oweA@mail.gmail.com>
	<B36141A791F480458A242BF48D526A97018FF9F2A0@BOM-VMBX-HO.bom.gov.au>
	<CAPRztUv25NCxr_8ToPGR1JOFDDAZ8yFOQwfEQZy-x7F=Pd1Rog@mail.gmail.com>
	<CAAeNFUuapRLtjnihNu88RhK-Z8pXmc02L4ixv73FJva82BjeYw@mail.gmail.com>
	<3444_1426547976_55076508_3444_14806_1_CAPRztUt5Z+SdqVipAPdP2Sd8Rx9SzLNCsqgt8O-7DRiX1-JZcw@mail.gmail.com>
Message-ID: <B36141A791F480458A242BF48D526A97018FF9F2A3@BOM-VMBX-HO.bom.gov.au>

Thanks all for your help and suggestions.

I will not be able to package a specific Perl with the app, and collective testing seems to show that the issue is not yet definitively fixed in newer versions. (I tried ActivePerl 5.20 on Ubuntu 14.04 - CentOS 6 doesn't have new enough C libraries...) 

Toby's suggestion of $ftp->ls(full path) returns a 550 for me (Perl 5.10), which is consistent with previous behaviour. I'll pass it back to the application owners with the suggestion that they modify their code and test.

Cheers,
Tim.

--
Tim Hunt? 
Information Systems and Services Division
Bureau of Meteorology
Level 7, 700 Collins Street, Docklands VIC 3008
Tel: +61 3 9669?4094 | t.hunt at bom.gov.au


-----Original Message-----
From: Melbourne-pm [mailto:melbourne-pm-bounces+t.hunt=bom.gov.au at pm.org] On Behalf Of Kahlil Hodgson
Sent: Tuesday, 17 March 2015 10:19 AM
To: Brendon Oliver
Cc: melbourne-pm
Subject: Re: [Melbourne-pm] FTP on RHEL [SEC=UNCLASSIFIED]

On 17 March 2015 at 09:27, Brendon Oliver <brendon.oliver at gmail.com> wrote:
> Upgrading libnet might help... Kal's (/wave) script  works for me: 
> perl
> 5.20.2 + Net::FTP v3.05

Arrgh. My script seems to succeed/fail at random of perl-5.18.2 depending on how the server responds :-(

Looks like the venerable libnet is now being maintained by Steve hay and is receiving some much needed love. There was a patch at 2.22_2 that should have at least fixed the error masking issue, but it looks like its back.

OK. Back to writing test code for my real job.

K
_______________________________________________
Melbourne-pm mailing list
Melbourne-pm at pm.org
http://mail.pm.org/mailman/listinfo/melbourne-pm