I had the same problem. I had to find an older copy of Net:FTP, from the
5.6 ActivePerl, and copied that over the 5.8's version.
Perl 5.8, Net::FTP v 2.77
when we downgrade to Perl 5.6, Net::FTP is v 2.72
Somewhere in there it broke. Thanks for sending this, I'd actually
forgotten about it. Hope some guru knows the real fix.
Mike
On Dec 11, 2007 4:37 AM, Mariusz Stakowski <[EMAIL PROTECTED]> wrote:
>
> Hello,
>
> I've just reinstalled Active Perl ony my Windows machine. But I
> have a problem wth sending jobs from Windows to IBM Mainframe.
> Here is a simple program sending JCL to mainframe:
>
> #!/usr/bin/perl -w
> use Net::FTP;
> my $zbior = $ARGV[0];
> use constant HOST => '172.28.0.65';
> my $ftp = Net::FTP->new(HOST) or die "No connection: [EMAIL PROTECTED]";
> $ftp->login('TSOID','PSSWD')or die $ftp->message;
> $ftp->site('FILE=JES') or die $ftp->message;
> $ftp->put($zbior)or die $ftp->message;
> $ftp->quit;
>
> Here is what it should send to mainframe:
>
> //PROK3202 JOB PROKOMAA,PROK00,NOTIFY=&SYSUID,
> // CLASS=I,MSGCLASS=X,MSGLEVEL=(1,1)
> //HOLD OUTPUT JESDS=ALL,DEFAULT=Y,OUTDISP=(HOLD,HOLD)
> //STEP1 EXEC PGM=IEBGENER
> //SYSPRINT DD SYSOUT=*
> //SYSUT2 DD SYSOUT=*
> //SYSUT1 DD DISP=SHR,DSN=PROK32.PRIVATE.CLIST(ADDPDS)
> //SYSIN DD DUMMY
>
> And here is what maiframe receives:
>
> //PROK3202 JOB PROKOMAA,PROK00,NOTIFY=&SYSUID
> // CLASS=I,MSGCLASS=X,MSGLEVEL=(1,1)
> //HOLD OUTPUT JESDS=ALL,DEFAULT=Y,OUTDISP=(HOLD,HOLD
> //STEP1 EXEC PGM=IEBGENE
> //SYSPRINT DD SYSOUT=
> //SYSUT2 DD SYSOUT=
> //SYSUT1 DD DISP=SHR,DSN=PROK32.PRIVATE.CLIST(ADDPDS
> //SYSIN DD DUMM
>
>
> As you can see, the last character of every line is cut off.
>
> The ActivePerl version installed is following:
>
> Summary of my perl5 (revision 5 version 8 subversion 8) configuration:
> Platform:
> osname=MSWin32, osvers=5.00, archname=MSWin32-x86-multi-thread
> uname=''
> config_args='undef'
> hint=recommended, useposix=true, d_sigaction=undef
> usethreads=define use5005threads=undef useithreads=define
> usemultiplicity=de
> fine
> useperlio=define d_sfio=undef uselargefiles=define usesocks=undef
> use64bitint=undef use64bitall=undef uselongdouble=undef
> usemymalloc=n, bincompat5005=undef
> Compiler:
> cc='cl', ccflags ='-nologo -GF -W3 -MD -Zi -DNDEBUG -O1 -DWIN32
> -D_CONSOLE -
> DNO_STRICT -DHAVE_DES_FCRYPT -DNO_HASH_SEED -DUSE_SITECUSTOMIZE
> -DPRIVLIB_LAST_I
> N_INC -DPERL_IMPLICIT_CONTEXT -DPERL_IMPLICIT_SYS -DUSE_PERLIO
> -DPERL_MSVCRT_REA
> DFIX',
> optimize='-MD -Zi -DNDEBUG -O1',
> cppflags='-DWIN32'
> ccversion='12.00.8804', gccversion='', gccosandvers=''
> intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234
> d_longlong=undef, longlongsize=8, d_longdbl=define, longdblsize=8
> ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='__int64',
> lseeksi
> ze=8
> alignbytes=8, prototype=define
> Linker and Libraries:
> ld='link', ldflags ='-nologo -nodefaultlib -debug -opt:ref,icf
> -libpath:"C:
> \Perl\ActivePerl.5.8.8\lib\CORE" -machine:x86'
> libpth=\lib
> libs= oldnames.lib kernel32.lib user32.lib gdi32.lib winspool.lib
> comdlg32
> .lib advapi32.lib shell32.lib ole32.lib oleaut32.lib netapi32.lib
> uuid.lib ws2_
> 32.lib mpr.lib winmm.lib version.lib odbc32.lib odbccp32.lib msvcrt.lib
> perllibs= oldnames.lib kernel32.lib user32.lib gdi32.lib winspool.lib
> comd
> lg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib netapi32.lib
> uuid.lib
> ws2_32.lib mpr.lib winmm.lib version.lib odbc32.lib odbccp32.lib
> msvcrt.lib
> libc=msvcrt.lib, so=dll, useshrplib=true, libperl=perl58.lib
> gnulibc_version=''
> Dynamic Linking:
> dlsrc=dl_win32.xs, dlext=dll, d_dlsymun=undef, ccdlflags=' '
> cccdlflags=' ', lddlflags='-dll -nologo -nodefaultlib -debug
> -opt:ref,icf -
> libpath:"C:\Perl\ActivePerl.5.8.8\lib\CORE" -machine:x86'
>
>
> Characteristics of this binary (from libperl):
> Compile-time options: MULTIPLICITY PERL_IMPLICIT_CONTEXT
> PERL_IMPLICIT_SYS PERL_MALLOC_WRAP
> PL_OP_SLAB_ALLOC USE_ITHREADS USE_LARGE_FILES
> USE_PERLIO USE_SITECUSTOMIZE
> Locally applied patches:
> ActivePerl Build 822 [280952]
> Iin_load_module moved for compatibility with build 806
> PerlEx support in CGI::Carp
> Less verbose ExtUtils::Install and Pod::Find
> Patch for CAN-2005-0448 from Debian with modifications
> Rearrange @INC so that 'site' is searched before 'perl'
> Partly reverted 24733 to preserve binary compatibility
> MAINT31223 plus additional changes
> 31490 Problem bootstraping Win32CORE
> 31324 Fix DynaLoader::dl_findfile() to locate .so files again
> 31214 Win32::GetLastError fails when first called
> 31211 Restore Windows NT support
> 31188 Problem killing a pseudo-forked child on Win32
> 29732 ANSIfy the PATH environment variable on Windows
> 27527,29868 win32_async_check() can loop indefinitely
> 26970 Make Passive mode the default for Net::FTP
> 26379 Fix alarm() for Windows 2003
> 24699 ICMP_UNREACHABLE handling in Net::Ping
> Built under MSWin32
> Compiled at Jul 31 2007 19:34:48
> @INC:
> C:/Perl/ActivePerl.5.8.8/site/lib
> C:/Perl/ActivePerl.5.8.8/lib
> .
>
> .
> I have reinstalled cygwin too and there is no problem with it.
>
> Here is information about perl version under cygwin:
> $ perl -V
> Summary of my perl5 (revision 5 version 8 subversion 8) configuration:
> Platform:
> osname=cygwin, osvers=1.5.24(0.15642),
> archname=cygwin-thread-multi-64int
> uname='cygwin_nt-5.1 reini 1.5.24(0.15642) 2007-01-31 10:57 i686
> cygwin '
> config_args='-de -Dmksymlinks -Duse64bitint -Dusethreads -Uusemymalloc
> -Dopt
> imize=-O3 -Dman3ext=3pm -Dusesitecustomize -Dusedevel'
> hint=recommended, useposix=true, d_sigaction=define
> usethreads=define use5005threads=undef useithreads=define
> usemultiplicity=de
> fine
> useperlio=define d_sfio=undef uselargefiles=define usesocks=undef
> use64bitint=define use64bitall=undef uselongdouble=undef
> usemymalloc=n, bincompat5005=undef
> Compiler:
> cc='gcc', ccflags ='-DPERL_USE_SAFE_PUTENV -fno-strict-aliasing -pipe
> -Wdecl
> aration-after-statement',
> optimize='-O3',
> cppflags='-DPERL_USE_SAFE_PUTENV -fno-strict-aliasing -pipe
> -Wdeclaration-af
> ter-statement'
> ccversion='', gccversion='3.4.4 (cygming special, gdc 0.12, using dmd
> 0.125)
> ', gccosandvers=''
> intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=12345678
> d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
> ivtype='long long', ivsize=8, nvtype='double', nvsize=8,
> Off_t='off_t', lsee
> ksize=8
> alignbytes=8, prototype=define
> Linker and Libraries:
> ld='ld2', ldflags =' -s -L/usr/local/lib'
> libpth=/usr/local/lib /usr/lib /lib
> libs=-lgdbm -ldb -ldl -lcrypt -lgdbm_compat
> perllibs=-ldl -lcrypt -lgdbm_compat
> libc=/usr/lib/libc.a, so=dll, useshrplib=true, libperl=libperl.a
> gnulibc_version=''
> Dynamic Linking:
> dlsrc=dl_dlopen.xs, dlext=dll, d_dlsymun=undef, ccdlflags=' -s'
> cccdlflags=' ', lddlflags=' -s -L/usr/local/lib'
>
>
> Characteristics of this binary (from libperl):
> Compile-time options: MULTIPLICITY PERL_IMPLICIT_CONTEXT
> PERL_MALLOC_WRAP PERL_USE_SAFE_PUTENV
> USE_64_BIT_INT USE_ITHREADS USE_LARGE_FILES
> USE_PERLIO USE_REENTRANT_API USE_SITECUSTOMIZE
> Locally applied patches:
> CYG01 - hints.cygwin.sh ldflags -s
> CYG02 - lib-ExtUtils-Embed insensitive against leading \s
> CYG03 - lib-Test-Harness-Straps $ENV{PERL5LIB} = ''
> CYG04 - major.version.cygwin.sh cygperl-5_8.dll and not
> cygperl-5_8_x.dl
> l
> CYG05 - add Win32CORE to core
> CYG07 - File-Spec-Cygwin-TMPDIR.patch
> Bug#38628 - allow legacy Cwd->cwd()
> Bug#40103 - File-Spec-case_tolerant.patch from 5.9.5
> Built under cygwin
> Compiled at Jul 8 2007 19:12:08
> %ENV:
> CYGWIN=""
> @INC:
> /usr/lib/perl5/5.8/cygwin
> /usr/lib/perl5/5.8
> /usr/lib/perl5/site_perl/5.8/cygwin
> /usr/lib/perl5/site_perl/5.8
> /usr/lib/perl5/site_perl/5.8
> /usr/lib/perl5/vendor_perl/5.8/cygwin
> /usr/lib/perl5/vendor_perl/5.8
> /usr/lib/perl5/vendor_perl/5.8
> .
>
>
> Is there some patch for it ?
>
>
> Greetings
>
> Mariusz Stakowski
>
>
>
>
> _______________________________________________
> ActivePerl mailing list
> ActivePerl@listserv.ActiveState.com
> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
>
_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
