[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