From 05feb08987abb48996f97a4938a3ef507584ae23 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Sat, 8 Dec 2001 10:01:42 +0000
Subject: [PATCH] radiusprepend config file for DEFAULT entries etc.

---
 FS/FS/Conf.pm | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/FS/FS/Conf.pm b/FS/FS/Conf.pm
index 8195fc55e..4ce9da1de 100644
--- a/FS/FS/Conf.pm
+++ b/FS/FS/Conf.pm
@@ -129,7 +129,9 @@ sub set {
     warn "[FS::Conf] SET $file\n" if $DEBUG;
 #    warn "$dir" if is_tainted($dir);
 #    warn "$dir" if is_tainted($file);
+    chmod 0644, "$dir/$file";
     my $fh = new IO::File ">$dir/$file" or return;
+    chmod 0644, "$dir/$file";
     print $fh "$value\n";
   }
 }
@@ -623,6 +625,13 @@ httemplate/docs/config.html
   },
 
   {
+    'key'         => 'radiusprepend',
+    'section'     => 'radius',
+    'description' => 'The contents will be prepended to the top of the RADIUS users file (text exports only).',
+    'type'        => 'textarea',
+  },
+
+  {
     'key'         => 'textradiusprepend',
     'section'     => 'depreciated',
     'description' => '<b>DEPRECIATED</b>, use RADIUS check attributes instead.  This option will be removed soon.  The contents will be prepended to the first line of a user\'s RADIUS entry in text exports.',
-- 
2.11.0