--- parser3/src/classes/file.C	2024/12/11 03:22:23	1.294
+++ parser3/src/classes/file.C	2026/04/25 13:38:46	1.299
@@ -1,7 +1,7 @@
 /** @file
 	Parser: @b file parser class.
 
-	Copyright (c) 2001-2024 Art. Lebedev Studio (http://www.artlebedev.com)
+	Copyright (c) 2001-2026 Art. Lebedev Studio (https://www.artlebedev.com)
 	Authors: Konstantin Morshnev <moko@design.ru>, Alexandr Petrosian <paf@design.ru>
 */
 
@@ -27,7 +27,7 @@
 #include "pa_vregex.h"
 #include "pa_version.h"
 
-volatile const char * IDENT_FILE_C="$Id: file.C,v 1.294 2024/12/11 03:22:23 moko Exp $";
+volatile const char * IDENT_FILE_C="$Id: file.C,v 1.299 2026/04/25 13:38:46 moko Exp $";
 
 // defines
 
@@ -35,6 +35,7 @@ volatile const char * IDENT_FILE_C="$Id:
 #define CHARSET_EXEC_PARAM_NAME "charset"
 
 #define NAME_NAME "name"
+#define MODE_APPEND "append"
 #define KEEP_EMPTY_DIRS_NAME "keep-empty-dirs"
 #define SUPPRESS_EXCEPTION_NAME "exception"
 
@@ -133,6 +134,7 @@ static const String::Body cdate_name("cd
 // methods
 
 static void _save(Request& r, MethodParams& params) {
+	bool do_append=false;
 	bool is_text=VFile::is_text_mode(params.as_string(0, MODE_MUST_BE_STRING));
 	const String& file_name=params.as_file_name(1);
 
@@ -144,12 +146,16 @@ static void _save(Request& r, MethodPara
 				asked_charset=&pa_charsets.get(vcharset_name->as_string());
 				valid_options++;
 			}
+			if(Value* vappend=options->get(MODE_APPEND)){
+				do_append=vappend->as_bool();
+				valid_options++;
+			}
 			if(valid_options != options->count())
 				throw Exception(PARSER_RUNTIME, 0, CALLED_WITH_INVALID_OPTION);
 		}
 
 	// save
-	GET_SELF(r, VFile).save(r.charsets, r.full_disk_path(file_name), is_text, asked_charset);
+	GET_SELF(r, VFile).save(r.charsets, r.full_disk_path(file_name), is_text, do_append, asked_charset);
 }
 
 static void _delete(Request& r, MethodParams& params) {
@@ -208,9 +214,7 @@ static void copy_process_source(struct s
 		nCount = file_block_read(from_file, buffer, sizeof(buffer));
 		int written=write(to_file, buffer, nCount); 
 		if( written < 0 )
-			throw Exception("file.access", 
-				0, 
-				"write failed: %s (%d)",  strerror(errno), errno); 
+			throw Exception("file.write", 0, "write failed: %s (%d)", strerror(errno), errno);
 		
 	} while(nCount > 0);
 }
@@ -228,7 +232,7 @@ static void _copy(Request& r, MethodPara
 	if(params.count()>2)
 		if(HashStringValue* options=params.as_hash(2)){
 			int valid_options=0;
-			if(Value* vappend=options->get("append")){
+			if(Value* vappend=options->get(MODE_APPEND)){
 				append=r.process(*vappend).as_bool();
 				valid_options++;
 			}
@@ -490,10 +494,10 @@ static void _exec_cgi(Request& r, Method
 	const String& script_name=r.full_disk_path(params.as_file_name(param_index++));
 
 	HashStringString env;
-	#define ECSTR(name, value_cstr) if(value_cstr) env.put(#name, value_cstr);
+	#define ECSTR(name, value_cstr) if(value_cstr) env.put(#name, String::Body(value_cstr));
 	// passing environment
 	for(SAPI::Env::Iterator i(r.sapi_info); i; i.next() )
-		env.put(i.key(), i.value() );
+		env.put(i.key(), String::Body(i.value()) );
 
 	// const
 	ECSTR(GATEWAY_INTERFACE, "CGI/1.1");
@@ -1066,28 +1070,21 @@ extern Base64Options base64_encode_optio
 Base64Options base64_decode_options(Request& r, HashStringValue* options, VString** vcontent_type) {
 	Base64Options result;
 	if(options) {
-		int valid_options=0;
 		for(HashStringValue::Iterator i(*options); i; i.next() ) {
 			String::Body key=i.key();
 			Value* value=i.value();
 			if(key == "pad") {
 				result.pad=r.process(*value).as_bool();
-				valid_options++;
 			} else if(key == "strict") {
 				result.strict=r.process(*value).as_bool();
-				valid_options++;
 			} else if(key == CONTENT_TYPE_NAME) {
 				*vcontent_type=new VString(value->as_string());
-				valid_options++;
 			} else if(key == "url-safe") {
 				if(r.process(*value).as_bool())
 					result.set_url_safe_abc();
-				valid_options++;
-			}
+			} else
+				throw Exception(PARSER_RUNTIME, 0, CALLED_WITH_INVALID_OPTION);
 		}
-
-		if(valid_options != options->count())
-			throw Exception(PARSER_RUNTIME, 0, CALLED_WITH_INVALID_OPTION);
 	}
 	return result;
 }
@@ -1229,7 +1226,7 @@ MFile::MFile(): Methoded("file") {
 	add_native_method("create", Method::CT_DYNAMIC, _create, 1, 4);
 
 	// ^file.save[mode;file-name]
-	// ^file.save[mode;file-name;$.charset[...]]
+	// ^file.save[mode;file-name;$.charset[...]$.append(false)]
 	add_native_method("save", Method::CT_DYNAMIC, _save, 2, 3);
 
 	// ^file:delete[file-name]