]> git.mxchange.org Git - quix0rs-gnu-social.git/blob - scripts/setconfig.php
Merge ActivitySpam plugin
[quix0rs-gnu-social.git] / scripts / setconfig.php
1 #!/usr/bin/env php
2 <?php
3 /*
4  * StatusNet - a distributed open-source microblogging tool
5  * Copyright (C) 2008, 2009, StatusNet, Inc.
6  *
7  * This program is free software: you can redistribute it and/or modify
8  * it under the terms of the GNU Affero General Public License as published by
9  * the Free Software Foundation, either version 3 of the License, or
10  * (at your option) any later version.
11  *
12  * This program is distributed in the hope that it will be useful,
13  * but WITHOUT ANY WARRANTY; without even the implied warranty of
14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
15  * GNU Affero General Public License for more details.
16  *
17  * You should have received a copy of the GNU Affero General Public License
18  * along with this program.  If not, see <http://www.gnu.org/licenses/>.
19  */
20
21 define('INSTALLDIR', realpath(dirname(__FILE__) . '/..'));
22
23 $shortoptions = 'da';
24 $longoptions = array('delete', 'all');
25
26 $helptext = <<<END_OF_SETCONFIG_HELP
27 setconfig.php [options] [section] [setting] <value>
28 With three args, set the setting to the value.
29 With two args, just show the setting.
30 With -d, delete the setting.
31 With no args, lists all currently set values.
32
33   [section]   section to use (required)
34   [setting]   setting to use (required)
35   <value>     value to set (optional)
36
37   -d --delete delete the setting (no value)
38   -a --all    list all configuration, not just the database values
39
40 END_OF_SETCONFIG_HELP;
41
42 require_once INSTALLDIR.'/scripts/commandline.inc';
43
44 if (empty($args)) {
45     if (have_option('a', 'all')) {
46         foreach ($config as $section => $section_value) {
47             foreach ($section_value as $setting => $value) {
48                 if (have_option('v', 'verbose') || !is_array($value)) {
49                     // Don't print array's without the verbose flag
50                     printf("%-20s %-20s %s\n", $section, $setting, var_export($value, true));
51                 }
52             }
53         }
54     } else {
55         $count = 0;
56         $config = new Config();
57         $config->find();
58         while ($config->fetch()) {
59             $count++;
60             printf("%-20s %-20s %s\n", $config->section, $config->setting,
61                    var_export($config->value, true));
62         }
63         if ($count == 0) {
64             print "No configuration set in database for this site.\n";
65         }
66     }
67     exit(0);
68 }
69
70 if (count($args) < 2 || count($args) > 3) {
71     show_help();
72     exit(1);
73 }
74
75 $section = $args[0];
76 $setting = $args[1];
77
78 if (count($args) == 3) {
79     $value = $args[2];
80 } else {
81     $value = null;
82 }
83
84 try {
85
86     if (have_option('d', 'delete')) { // Delete
87         if (count($args) != 2) {
88             show_help();
89             exit(1);
90         }
91
92         if (have_option('v', 'verbose')) {
93             print "Deleting setting $section/$setting...";
94         }
95
96         $setting = Config::pkeyGet(array('section' => $section,
97                                          'setting' => $setting));
98
99         if (empty($setting)) {
100             print "Not found.\n";
101         } else {
102             $result = $setting->delete();
103             if ($result) {
104                 print "DONE.\n";
105             } else {
106                 print "ERROR.\n";
107             }
108         }
109     } else if (count($args) == 2) { // show
110         if (have_option('v', 'verbose')) {
111             print "$section/$setting = ";
112         }
113         $value = common_config($section, $setting);
114         print "$value\n";
115     } else { // set
116         if (have_option('v', 'verbose')) {
117             print "Setting $section/$setting...";
118         }
119         Config::save($section, $setting, $value);
120         print "DONE.\n";
121     }
122
123 } catch (Exception $e) {
124     print $e->getMessage() . "\n";
125     exit(1);
126 }