Re: scp to VMS (Re: mms case sensitivity build failures (was Re: HP hobbyist license))
Hello, well you might be able to not use your normal account for the transfer, but a special one confined to a restricted shell (aka captive account for the VMS only people on the list ;-) If you do go down the http route, curl is available on VMS too for command line access to http. Greetings, Martin P.S. And yes, it is pretty annoying that scp is broken on VMS since a long time |-- |Nicholas Clark| |n...@ccl4.org | |Sent by: Nicholas | |Clark | |n...@flirble.org| | | | | |19/05/2012 09:47 | |-- -- | | | | | To| |martin.zin...@eurexchange.com | | cc| |Craig A. Berry craigbe...@mac.com, Thomas Pfau tfp...@gmail.com, VMSperl Mailing List vmsperl@perl.org | | Subject| |Re: scp to VMS (Re: mms case sensitivity build failures (was Re: HP hobbyist license))| | | | | | | | | | | -- ---| | | ---| On Fri, May 18, 2012 at 09:48:43AM +0200, martin.zin...@eurexchange.com wrote: Hello, a.) Agree with Craig on scp . If this is fixed either it is extremely recent (doesn't work with 5.7 ECO 3) or it needs some additional magic. b.) In case you just need to move around Perl source files, which are not terribly secret, you could use FTP instead of scp. On the VMS side of the house, the easiest way to do so is The source files aren't terribly secret, but any password I need to log into the remote server I'm getting them from is. :-( (Although therefore I could just serve them up over HTTP and solve it that way) Nicholas Clark
Re: scp to VMS (Re: mms case sensitivity build failures (was Re: HP hobbyist license))
Hello, a.) Agree with Craig on scp . If this is fixed either it is extremely recent (doesn't work with 5.7 ECO 3) or it needs some additional magic. b.) In case you just need to move around Perl source files, which are not terribly secret, you could use FTP instead of scp. On the VMS side of the house, the easiest way to do so is CFD004 copy/ftp temp.txt 10.10.245.115zinsmar password::exchange/ /log %TCPIP-S-FTP_COPIED, SYSPROG$DISK:[ZINSER]temp.txt;1 copied to 10.10.245.115zinsmar password::exchange/temp.txt (10 bytes) CFD004 copy/ftp 10.10.245.115zinsmar password::exchange/temp.txt *.*/log %TCPIP-S-FTP_COPIED, 10.10.245.115zinsmar password::exchange/temp.txt copied to SYSPROG$DISK:[ZINSER]temp.txt;2 (10 bytes) Where password in the command has to be replaced with your actual password. I am sure you know how to do this on the Unix side of the house ;-) Greetings, Martin | |Craig A. Berry| |craigbe...@mac.com| || |17/05/2012 19:16| | -- | | | | | To| |Thomas Pfau tfp...@gmail.com | | cc| |VMSperl Mailing List vmsperl@perl.org | | Subject| |Re: scp to VMS (Re: mms case sensitivity build failures (was Re: HP hobbyist license))| | | | | | | | | | | -- ---| | | ---| On May 17, 2012, at 5:49 AM, Thomas Pfau wrote: I understand this problem is fixed with the new ssh that comes with OpenVMS 8.4. Prior to this, scp does not work to openssh systems. It seems not, actually. With a server that looks like: $ tcpip show vers HP TCP/IP Services for OpenVMS Industry Standard 64 Version V5.7 - ECO 2 on an HP rx2600 (1.50GHz/6.0MB) running OpenVMS V8.4 coming from an OS X client (with remote address changed to protect the guilty): % scp -v test.txt craig@192.168.1.2: Executing: program /usr/bin/ssh host 192.168.1.2, user craig, command scp -v -t -- . OpenSSH_5.6p1, OpenSSL 0.9.8r 8 Feb 2011 debug1: Reading configuration data /Users/craig/.ssh/config debug1: Reading configuration data /etc/ssh_config debug1: Applying options for * debug1: Connecting to 192.168.1.2 [192.168.1.2] port 22. debug1: Connection established. debug1: identity file /Users/craig/.ssh/id_rsa type 1 debug1: identity file /Users/craig/.ssh/id_rsa-cert type -1 debug1: identity file /Users/craig/.ssh/id_dsa type -1 debug1: identity file /Users/craig/.ssh/id_dsa-cert type -1 debug1: Remote protocol version 2.0, remote software version 3.2.0 SSH OpenVMS V5.5 VMS_sftp_version 3 debug1: no match: 3.2.0 SSH OpenVMS V5.5 VMS_sftp_version 3 debug1: Enabling compatibility mode for protocol 2.0 debug1: Local version string SSH-2.0-OpenSSH_5.6 debug1: SSH2_MSG_KEXINIT sent debug1: SSH2_MSG_KEXINIT received debug1: kex: server-client aes128-cbc hmac-md5 none debug1: kex: client-server aes128-cbc hmac-md5 none debug1: sending SSH2_MSG_KEXDH_INIT debug1: expecting
Re: Spurious linebreak in non-record output
Hello Craig, To quote Queen: It's a kind of magic. ;-) The tip with autoflush was spot on and resolved the issue entirely for my use case. I'll still give 5.14 a good spin when it comes out. Thanks a lot for the help! Greetings, Martin |+ |Craig A. Berry| | |craigbe...@mac.com| | || To| |21.04.2011 17:40|Dr. Martin P.J. Zinser zin...@sysdev.deutsche-boerse.com| || cc| ||VMSPERL@PERL.ORG | || Subject| ||Re: Spurious linebreak in non-record output | || | || | || | || | || | |+ ---| | | ---| On Apr 21, 2011, at 10:47 AM, Dr. Martin P.J. Zinser wrote: Hello Craig, nobody used the dirty Oracle word around here, just because something is a table it does not have do come from a database ;-) Sorry. I promise to wash my mouth out with soap :-). Anyhow, I made some progress and have an easy reproducer plus example output and config information all wrapped up at http://zinser.no-ip.info/www/trans/lineb.zip No other modules but CGI are involved in the example. The version I use is 3.49. For best effect look at the output files in a terminal set to 132. The terminal output was created with perl lineb.pl terminal.txt The web output was captured with View Source from a Web browser. The Webserver in question is an OSU 3.11 server, communication betweeen the server and perl is via a local DECnet task. Yikes. I've never used OSU and I haven't touched a DECnet object in about 20 years, but it's pretty clear that you're getting the extra linebreak every 4096 bytes just like what was happening before with record-oriented files. This will change in 5.14.0 to every 32768 bytes, or you can edit the buffer size yourself by modifying perlio.c. You can see from the fix for that: http://perl5.git.perl.org/perl.git/commitdiff/5e7d60de18218a624f7f6d5c99bdaf0ff03973df that I limited it to regular files [S_ISREG(statbuf.st_mode) is true] with variable or variable with fixed control. It occurred to me at the time that there might be other record-oriented widgets that need similar treatment, but there is danger in casting the net too wide; binary data streams could be corrupted, for example. To me it seems unlikely that DECnet objects would always only transport text-oriented data, so it probably isn't safe to line buffer them because that would introduce a record boundary for every newline in the data stream, which is right for text data but not for binary data. So I'm not sure what the fix is, or if there is one. Using a record-oriented widget to implement a stream-oriented protocol like HTTP seems like asking for trouble, but it is what it is. The first workaround I would try would be to enable autoflushing with C$| = 1; at the top of your script. Or you could use syswrite instead of print to write your data. Craig A. Berry mailto:craigbe...@mac.com ... getting out of a sonnet is much more difficult than getting in. Brad Leithauser - Diese E-Mail enthaelt vertrauliche oder rechtlich geschuetzte Informationen. Wenn Sie nicht der beabsichtigte
Re: Potential problem with MakeMaker
Hello Craig, thanks for the info about 5.12.3, I've spent today rebuilding Perl and all the various modules. Looks quite good so far. Concerning Net::DNS, if you look at my original message (+ patch), you will see that I already have a patch for netdns.h (I think a little better than your suggestion in this case, since from the comments in the code it looks like the author really wants about 4 times the standard value of 256, which your patch does not allow) as well as a fix for the compiler check and the initial library creation in Makefile.PL . There is some confusing stuff going on with xs no parameters to Makefile.PL . I hope to analyze this some more tomorrow and will report back. Greetings, Martin |+ |Craig A. Berry| | |craigbe...@mac.com| | || To| |15.02.2011 21:58|Dr. Martin P.J. Zinser zin...@sysdev.deutsche-boerse.com| || cc| ||VMSPERL@PERL.ORG | || Subject| ||Re: Potential problem with MakeMaker | || | || | || | || | || | |+ ---| | | ---| On Feb 14, 2011, at 11:24 AM, Dr. Martin P.J. Zinser wrote: One problem that I am not quit sure how to fix happens during the build of Net::DNS 0.66 . To improve on my previous response a bit, all I did to get a successful build was the following change: --- netdns.h;-0 2009-12-30 05:01:39 -0600 +++ netdns.h2011-02-15 21:49:40 -0600 @@ -22,7 +22,9 @@ extern double foo(int, long, const char* * Hmmm 1010 is just a bit oversized */ +#ifndef MAXDNAME #define MAXDNAME 1010 +#endif int netdns_dn_expand( u_char *msg, u_char *eomorig, u_char *comp_dn, u_char *exp_dn, [end] followed by (with -xs to bypass the broken compiler test): $ perl Makefile.PL -xs $ mmk ... $ mmk test ... Failed 7/32 test programs. 3/1492 subtests failed. And I think what failed was in not finding prerequisites I don't have. Passing 1489 / 1492 tests is pretty good. Craig A. Berry mailto:craigbe...@mac.com ... getting out of a sonnet is much more difficult than getting in. Brad Leithauser - Diese E-Mail enthaelt vertrauliche oder rechtlich geschuetzte Informationen. Wenn Sie nicht der beabsichtigte Empfaenger sind, informieren Sie bitte sofort den Absender und loeschen Sie diese E-Mail. Das unbefugte Kopieren dieser E-Mail oder die unbefugte Weitergabe der enthaltenen Informationen ist nicht gestattet. The information contained in this message is confidential or protected by law. If you are not the intended recipient, please contact the sender and delete this message. Any unauthorised copying of this message or unauthorised distribution of the information contained herein is prohibited. Legally required information for business correspondence/ Gesetzliche Pflichtangaben fuer Geschaeftskorrespondenz: http://deutsche-boerse.com/letterhead
Re: Problem with VMS Carriage return carriage control files in 5.10 and 5.12
Hello, sorry, looks like the list processor strips the attachment. The canned example is at http://zinser.no-ip.info/www/trans/rms51x.zip Greetings, Martin martin.zin...@deutsche-boerse.com 22.04.2010 00:29 To vmsperl@perl.org cc Subject Problem with VMS Carriage return carriage control files in 5.10 and 5.12 Hello Colleagues, I am currently trying to drag our development team kicking and screaming into the century of the fruitbat, but what looks like a bug in 5.10.1 and 5.12.0 is a stumbling block. Problem description: If you open a text file with Carriage return carriage control for output (based off an existing file) and populate the new file with longer records, at some point gratuitous line breaks are added to the file. This does not happen with either Perl 5.8.0 on Alpha, nor Perl 5.8.5 on Itanium (in that case the hp build). It does happen with both 5.10.1 and 5.12.0 on Itanium. The attached Zip file contains a simple DCL to reproduce the problem (essentially it creates a test file and then in an embedded Perl script does a printf to file). The reproducer is an extremely simplified version of the actual code. It also contains the output from 5.8.x and 5.12 (5.10.1 looks the same). Any ideas why this happens and how to fix it? Greetings, Martin - Diese E-Mail enthaelt vertrauliche oder rechtlich geschuetzte Informationen. Wenn Sie nicht der beabsichtigte Empfaenger sind, informieren Sie bitte sofort den Absender und loeschen Sie diese E-Mail. Das unbefugte Kopieren dieser E-Mail oder die unbefugte Weitergabe der enthaltenen Informationen ist nicht gestattet. The information contained in this message is confidential or protected by law. If you are not the intended recipient, please contact the sender and delete this message. Any unauthorised copying of this message or unauthorised distribution of the information contained herein is prohibited. Legally required information for business correspondence/ Gesetzliche Pflichtangaben fuer Geschaeftskorrespondenz: http://deutsche-boerse.com/letterhead - Diese E-Mail enthaelt vertrauliche oder rechtlich geschuetzte Informationen. Wenn Sie nicht der beabsichtigte Empfaenger sind, informieren Sie bitte sofort den Absender und loeschen Sie diese E-Mail. Das unbefugte Kopieren dieser E-Mail oder die unbefugte Weitergabe der enthaltenen Informationen ist nicht gestattet. The information contained in this message is confidential or protected by law. If you are not the intended recipient, please contact the sender and delete this message. Any unauthorised copying of this message or unauthorised distribution of the information contained herein is prohibited. Legally required information for business correspondence/ Gesetzliche Pflichtangaben fuer Geschaeftskorrespondenz: http://deutsche-boerse.com/letterhead
Antwort: Re: Test errors Perl 5.6.1
At 06:31 PM 4/17/2001 +0100, Martin Zinser wrote: not ok 17 # (stat) UTC: 987515872 VMS: 987523072 $ x = 987523072 - 987515872 $ sh sym x X = 7200 Hex = 1C20 Octal = 0016040 Just to add to the discussion, the relevant logicals on the system are sys$timezone_differential = 3600 sys$localtime = sys$sysroot:[sys$zoneinfo.system]met. The results of SHOW LOG *TIME* might also be of interest. It is kinda sounding like a daylight savings time issue, but I don't know what to do about it. Further results concerning this: - These are already all the relevant logicals (TCPIP$BIND_TIMEOUT should not influence this test ;-) - Redefining sys$timezone_differential to 7200 does not change the result at all. - Redefining sys$localtime to sys$sysroot:[sys$zoneinfo.system]utc. causes the test to fail already in section 14 with not ok 14 # (time) UTC: 987611106 VMS: 987611106 Greetings, Martin
VMS::User 0.01 - minor improvments
Hello, I gave the VMS::User Module a try with Perl 5.6.0. This did not build anymore, due to some missing declarations. The following diff shows how to fix this: $ diff makefile.pl makefile.pl;1 File DISK$USER:[ZINSER.TMP.VMS-USER-0_01]MAKEFILE.PL;3 8 'DEFINE'= 'PERL_POLLUTE=1', # e.g., '-DHAVE_SOMETHING' 9 'INC' = '', # e.g., '-I/usr/include/other' ** File DISK$USER:[ZINSER.TMP.VMS-USER-0_01]MAKEFILE.PL;1 8 'DEFINE'= '', # e.g., '-DHAVE_SOMETHING' 9 'INC' = '', # e.g., '-I/usr/include/other' I've also written a short example to VMS::User, that just loops through all parameters of getuai and displays them for the current user. This might save someone a lookup in the fine manual. In case there is interest I can either post it here or sent it via private email. Greetings, Martin
VMS::Queue example ?
Hello!
I just started to play around with VMS::Queue and may be I'm just
dense
(most probably even since I've got a bad cold). I try
something like this:
use VMS::Queue;
%entry_cond = {jobname="BATSER"};
@entries = VMS::Queue::entry_list(\%entry_cond);
for ($i==0;$i=$#entries;$i++) {print $entries[$i], "\n"};
\%entryprop = VMS::Queue::entry_info($entries[0]);
print \$entryprop{"jobname"},
foreach $prop (keys(%entryprop)) { printf "%s: %s\n", $prop,
\$entryprop{$prop};}
Which works fine in the first part (i.e. finds the correct
queue entry for job
BATSER), but does not give the properties of the job in
part 2. Does
anyone maybe have a working example using VMS::Queue to
enlighten me?
Thanks a lot, Martin
P.S. OpenVMS Alpha 7.2.1, Perl 5.6.0, VMS::Queue 0.56
