Fri, 6 Mar 1992 11:36:24 EST
|
Here is a copy of the OWNNAME EXEC that's been mentioned here recently.
Thanks to Marty Hoag for his updates and for getting me a copy since I
didn't have access to the original.
John/
----------
/*********************************************************************/
/* BY John Voigt <SYSBJAV@CORNELLC> */
/* */
/* Copyright 1987, 1992 @ by John Voigt All rights reserved */
/* */
/* This program and it's associated files are the property of */
/* John Voigt. They may be freely distributed without permission of */
/* the author provided that this notice remains intact. */
/* */
/* This software is provided on a 'as is' basis. No warranty, */
/* expressed or implied, is made by Tulane University, Cornell */
/* University or John Voigt. */
/* */
/* Use this code at your own risk. */
/*********************************************************************/
/* OWNNAME EXEC... Allow files to keep own name on disk
From John Voigt (was TCSSERVE EXEC). 09/02/87
Update 09/03/87 mgh Add DEL1 code to handle deletes
(a Delete is a PUT with no data). Marty Hoag
OWNNAME is an exit that can be specified in the FILEID file
to allow files to be stored under their own names.
The filelist FILEID file should be initialized with the OWNNAME exec
in the 2nd line as shown in the following two examples:
1
*DEFAULT* L2 OWNNAME
or
1
*DEFAULT* O2/409 OWNNAME
No warranty is expressed or implied by the authors.
*/
arg ,line
parse var line what who fn ft flist fm '*'line
select
when what='GET1' then return 0
when what='GET2' then return 0
when what='PUT2' then return 0
when what='PUT1' | what='DEL1' then do
if left(line,1)='/' then parse var line 2 '/' line
parse var line fn ft .
return fn ft fm
end /* put1 */
otherwise return 0
end /*select*/
exit 0
|
|
|