radiusprepend config file for DEFAULT entries etc.

diff --git a/FS/FS/Conf.pm b/FS/FS/Conf.pm
index 8195fc5..4ce9da1 100644 (file)
--- 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.',