Fehlende Files fuer Mailsystem ergaenzt.
Change-Id: Ia51a607d71ac86a12e957ae0f2c604f190581314
diff --git a/p/service/loco/obj/fwsaveserv.c b/p/service/loco/obj/fwsaveserv.c
new file mode 100644
index 0000000..a228994
--- /dev/null
+++ b/p/service/loco/obj/fwsaveserv.c
@@ -0,0 +1,35 @@
+/***************************************************************************
+
+ Forward-Server: Lade-/Speicherserver.
+ Dieser Teilserver hat die Aufgabe, einzelne Teile der forwardliste
+ auf Anfrage zu laden und
+
+ Teil des MG-Mailsystems
+ (C) 1996 Loco@Morgengrauen
+
+ Es gilt dasselbe Copyright wie fuer mailer.c, bitte dort nachlesen.
+
+***************************************************************************/
+
+#include "/mail/post.h"
+
+mixed data;
+
+create() {
+ seteuid(getuid());
+}
+
+mapping LoadData(string file) {
+ if (!stringp(file)||sizeof(file)>1||file>"z"||file<"a")
+ return 0;
+ restore_object(FWSAVEFILE(file));
+ return data;
+}
+
+int SaveData(string file, mapping what) {
+// if (geteuid(previous_object())!=geteuid()) return 0;
+ data=what;
+ save_object(FWSAVEFILE(file));
+ data=0;
+ return 1;
+}