[interchange-cvs] interchange - jon modified code/UI_Tag/write_relative_file.coretag

interchange-cvs at icdevgroup.org interchange-cvs at icdevgroup.org
Mon Jun 7 23:01:55 EDT 2004


User:      jon
Date:      2004-06-08 03:01:54 GMT
Modified:  code/UI_Tag write_relative_file.coretag
Log:
Allow setting umask, disabling auto_create_dir, or specifying other
Vend::Util::writefile() options.

Revision  Changes    Path
1.5       +4 -2      interchange/code/UI_Tag/write_relative_file.coretag


rev 1.5, prev_rev 1.4
Index: write_relative_file.coretag
===================================================================
RCS file: /var/cvs/interchange/code/UI_Tag/write_relative_file.coretag,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -u -r1.4 -r1.5
--- write_relative_file.coretag	13 Nov 2003 15:58:06 -0000	1.4
+++ write_relative_file.coretag	8 Jun 2004 03:01:54 -0000	1.5
@@ -14,12 +14,14 @@
 
 UserTag write-relative-file Order file
 UserTag write-relative-file hasEndTag
+UserTag write-relative-file addAttr
 UserTag write-relative-file Routine <<EOR
 sub {
-	my ($file, $data) = @_;
+	my ($file, $opt, $data) = @_;
 #::logDebug("writing $file");
 	return undef unless Vend::File::allowed_file($file, 1);
-	Vend::File::writefile(">$file", $data, {auto_create_dir => 1});
+	$opt->{auto_create_dir} = 1 unless defined $opt->{auto_create_dir};
+	Vend::File::writefile(">$file", $data, $opt);
 }
 EOR
 








More information about the interchange-cvs mailing list