RE: ODS-5 Filenames
Cheers Craig. I'll go back to Sanface and see if they're willing to change the code at source. Rob. -Original Message- *** Any opinions expressed in email are those of the individual and not necessarily those of the company. This email and any files transmitted with it are confidential and solely for the use of the intended recipient or entity to who they are addressed. It may contain material protected by attorney-client privilege. If you are not the intended recipient, or a person responsible for delivering to the intended recipient, be advised that you have received this email in error and that any use is strictly prohibited. Random House Group +44 (0) 20 7840 8400. http://www.randomhouse.co.uk http://www.booksattransworld.co.uk http://www.kidsatrandomhouse.co.uk *** From: Craig Berry [mailto:[EMAIL PROTECTED] Sent: 09 February 2005 20:32 To: Atkinson, Robert Cc: vmsperl@perl.org Subject: Re: ODS-5 Filenames On Wednesday, February 09, 2005, at 08:47AM, Atkinson, Robert [EMAIL PROTECTED] wrote: I'm using TXT2PDF from Sanface Software. We've converted some of our disks to ODS-5, but now find that the files generated from uppercase filenames are created in lower case. Perl follows the legacy CRTL behavior of downcasing filenames. We plan to honor DECC$EFS_CASE_PRESERVE at some point, but there is a fair amount of work to be done yet to get that working. In the meantime, it looks like sysopen will create in upper case: $ perl -e use Fcntl; sysopen(FH, 'FOO.BAR', O_WRONLY | O_TRUNC | O_CREAT) or die $!; $ dir foo.bar Directory D1:[CRAIG] FOO.BAR;1 Total of 1 file.
ODS-5 Filenames
I'm using TXT2PDF from Sanface Software. We've converted some of our disks to ODS-5, but now find that the files generated from uppercase filenames are created in lower case. The user process has the PARSE_STYLE parameter set to TRADITIONAL, so that files are created in uppercase by default, but this appears to make no difference within Perl. This is the code :- $output.=$out; $verbose and print Changing to uppercase\n; $output=uc($out); open (OUT, $output) || die $producer1: couldn't open output file $output\n; And the output is :- Processing SYS$TEMP:TEST_20050209_BFAD.TXT file Processing VMS file Changing to uppercase Writing TEST_20050209_BFAD.PDF file But the file created is in lowercase :- Directory SY0:[LIVE.TMP] test_20050209_bfad.pdf;11 14/529-FEB-2005 14:43:40.30 TEST_20050209_BFAD.TXT;2 4/529-FEB-2005 14:08:36.38 Any ideas? Robert. *** Any opinions expressed in email are those of the individual and not necessarily those of the company. This email and any files transmitted with it are confidential and solely for the use of the intended recipient or entity to who they are addressed. It may contain material protected by attorney-client privilege. If you are not the intended recipient, or a person responsible for delivering to the intended recipient, be advised that you have received this email in error and that any use is strictly prohibited. Random House Group +44 (0) 20 7840 8400. http://www.randomhouse.co.uk http://www.booksattransworld.co.uk http://www.kidsatrandomhouse.co.uk ***
Re: ODS-5 Filenames
On Wed, 9 Feb 2005, Atkinson, Robert wrote: I'm using TXT2PDF from Sanface Software. We've converted some of our disks to ODS-5, but now find that the files generated from uppercase filenames are created in lower case. The user process has the PARSE_STYLE parameter set to TRADITIONAL, so that files are created in uppercase by default, but this appears to make no difference within Perl. This is the code :- $output.=$out; $verbose and print Changing to uppercase\n; $output=uc($out); open (OUT, $output) || die $producer1: couldn't open output file $output\n; And the output is :- Processing SYS$TEMP:TEST_20050209_BFAD.TXT file Processing VMS file Changing to uppercase Writing TEST_20050209_BFAD.PDF file But the file created is in lowercase :- Directory SY0:[LIVE.TMP] test_20050209_bfad.pdf;11 14/529-FEB-2005 14:43:40.30 TEST_20050209_BFAD.TXT;2 4/529-FEB-2005 14:08:36.38 Just before running Perl, try: $define/user decc$efs_case_preserve enable See if it makes a difference. If it does, then it needs to be decided if PERL should take this action by default if the user does not explicitly set the decc$efs_case_preserve feature logical before running perl. -John [EMAIL PROTECTED] Personal Opinion Only
RE: ODS-5 Filenames
No joy, I'm afraid! *** DELTA_ROB$$ $define/user decc$efs_case_preserve enable DELTA_ROB$$ PERL WEBREPORT$SYSTEM:TXT2PDF.PL_uppercase -landscape -paper A4 -border SYS$TEMP:TEST_20050209_BFAD.TXT -verbose Processing SYS$TEMP:TEST_20050209_BFAD.TXT file Processing VMS file Changing to uppercase Writing TEST_20050209_BFAD.PDF file PDF generation time = 0.00 sec DELTA_ROB$$ dir test*; Directory SY0:[LIVE.TMP] test_20050209_bfad.pdf;17 14/529-FEB-2005 16:14:02.28 [ITOPS,BATCH_OP] (RWD,RWD,RWD,RWED) TEST_20050209_BFAD.TXT;2 4/529-FEB-2005 14:08:36.38 [ITOPS,BATCH_OP] (RWD,RWD,RWD,RWED) Total of 2 files, 18/104 blocks. DELTA_ROB$$ *** -Original Message- From: John E. Malmberg [mailto:[EMAIL PROTECTED] Sent: 09 February 2005 16:07 To: vmsperl@perl.org Subject: Re: ODS-5 Filenames On Wed, 9 Feb 2005, Atkinson, Robert wrote: I'm using TXT2PDF from Sanface Software. We've converted some of our disks to ODS-5, but now find that the files generated from uppercase filenames are created in lower case. The user process has the PARSE_STYLE parameter set to TRADITIONAL, so that files are created in uppercase by default, but this appears to make no difference within Perl. This is the code :- $output.=$out; $verbose and print Changing to uppercase\n; $output=uc($out); open (OUT, $output) || die $producer1: couldn't open output file $output\n; And the output is :- Processing SYS$TEMP:TEST_20050209_BFAD.TXT file Processing VMS file Changing to uppercase Writing TEST_20050209_BFAD.PDF file But the file created is in lowercase :- Directory SY0:[LIVE.TMP] test_20050209_bfad.pdf;11 14/529-FEB-2005 14:43:40.30 TEST_20050209_BFAD.TXT;2 4/529-FEB-2005 14:08:36.38 Just before running Perl, try: $define/user decc$efs_case_preserve enable See if it makes a difference. If it does, then it needs to be decided if PERL should take this action by default if the user does not explicitly set the decc$efs_case_preserve feature logical before running perl. -John [EMAIL PROTECTED] Personal Opinion Only *** Any opinions expressed in email are those of the individual and not necessarily those of the company. This email and any files transmitted with it are confidential and solely for the use of the intended recipient or entity to who they are addressed. It may contain material protected by attorney-client privilege. If you are not the intended recipient, or a person responsible for delivering to the intended recipient, be advised that you have received this email in error and that any use is strictly prohibited. Random House Group +44 (0) 20 7840 8400. http://www.randomhouse.co.uk http://www.booksattransworld.co.uk http://www.kidsatrandomhouse.co.uk ***
RE: ODS-5 Filenames
On Wed, 9 Feb 2005, Atkinson, Robert wrote: No joy, I'm afraid! This is the code :- $output.=$out; $verbose and print Changing to uppercase\n; $output=uc($out); open (OUT, $output) || die $producer1: couldn't open output file $output\n; Can you produce a simple reproducer, including the smallest amount of Perl code and DCL needed to demonstrate the problem? Perl should be uppercasing filespecifications as they are read in, so having the file in lowercase should not be an issue. -John [EMAIL PROTECTED] Personal Opinion Only
Re: ODS-5 Filenames
On Wednesday, February 09, 2005, at 08:47AM, Atkinson, Robert [EMAIL PROTECTED] wrote: I'm using TXT2PDF from Sanface Software. We've converted some of our disks to ODS-5, but now find that the files generated from uppercase filenames are created in lower case. Perl follows the legacy CRTL behavior of downcasing filenames. We plan to honor DECC$EFS_CASE_PRESERVE at some point, but there is a fair amount of work to be done yet to get that working. In the meantime, it looks like sysopen will create in upper case: $ perl -e use Fcntl; sysopen(FH, 'FOO.BAR', O_WRONLY | O_TRUNC | O_CREAT) or die $!; $ dir foo.bar Directory D1:[CRAIG] FOO.BAR;1 Total of 1 file.