[interchange-cvs] interchange - heins modified lib/Vend/Data.pm
interchange-cvs at icdevgroup.org
interchange-cvs at icdevgroup.org
Fri Apr 2 12:37:47 EST 2004
User: heins
Date: 2004-04-02 17:37:46 GMT
Modified: lib/Vend Data.pm
Log:
* Add ability to control directory creation and umask of uploaded files.
Automatic creation of directory:
[set mv_auto_create_dir]1[/set]
The umask for creation operation:
[set mv_create_umask]02[/set]
Revision Changes Path
2.36 +9 -8 interchange/lib/Vend/Data.pm
rev 2.36, prev_rev 2.35
Index: Data.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Data.pm,v
retrieving revision 2.35
retrieving revision 2.36
diff -u -r2.35 -r2.36
--- Data.pm 4 Mar 2004 00:17:37 -0000 2.35
+++ Data.pm 2 Apr 2004 17:37:46 -0000 2.36
@@ -1,6 +1,6 @@
# Vend::Data - Interchange databases
#
-# $Id: Data.pm,v 2.35 2004/03/04 00:17:37 mheins Exp $
+# $Id: Data.pm,v 2.36 2004/04/02 17:37:46 mheins Exp $
#
# Copyright (C) 2002-2003 Interchange Development Group
# Copyright (C) 1996-2002 Red Hat, Inc.
@@ -2017,13 +2017,14 @@
next;
};
Vend::Interpolate::tag_value_extended(
- $file_fields[$i],
- {
- outfile => $outfile,
- umask => '022',
- yes => '1',
- }
- )
+ $file_fields[$i],
+ {
+ outfile => $outfile,
+ umask => $::Scratch->{mv_create_umask} || '022',
+ auto_create_dir => $::Scratch->{mv_auto_create_dir},
+ yes => '1',
+ }
+ )
or do {
logError("failed to write %s: %s", $outfile, $!);
next;
More information about the interchange-cvs
mailing list