[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