From dad1e2689ba5ff448bf1bbc9a586023137864d12 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Sun, 6 Jun 2010 05:58:16 +0000
Subject: add disable_settings_changes conf for the demo

---
 httemplate/config/config-process.cgi | 15 +++++++++++++--
 1 file changed, 13 insertions(+), 2 deletions(-)

(limited to 'httemplate/config/config-process.cgi')

diff --git a/httemplate/config/config-process.cgi b/httemplate/config/config-process.cgi
index 788d9016e..c96f8d44d 100644
--- a/httemplate/config/config-process.cgi
+++ b/httemplate/config/config-process.cgi
@@ -70,10 +70,21 @@ my %namecol = (
 );
 </%once>
 <%init>
-die "access denied\n"
-  unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
+
+my $curuser = $FS::CurrentUser::CurrentUser;
+die "access denied\n" unless $curuser->access_right('Configuration');
 
 my $conf = new FS::Conf;
+
+if ( $conf->exists('disable_settings_changes') ) {
+  my @changers = split(/\s*,\s*/, $conf->config('disable_settings_changes'));
+  my %changers = map { $_=>1 } @changers;
+  unless ( $changers{$curuser->username} ) {
+    errorpage("Disabled in web demo");
+    die "shouldn't be reached";
+  }
+}
+
 $FS::Conf::DEBUG = 1;
 my @config_items = grep { $_->key != ~/^invoice_(html|latex|template)/ }
                         $conf->config_items;
-- 
cgit v1.2.1