modules/phpfreechat/generate-form.php

<?php
// $Id:

/*
 * This is a command line script that generates a settings form definition
 * for the phpfreechat module by parsing the phpfreechat INSTALL.en file
 * php -f generate-form.php
 * You should never need to use this!
 */

$install_path = 'phpfreechat';
if (file_exists($install_path.'/INSTALL.en')) {
  $file = file_get_contents($install_path.'/INSTALL.en');
  $settings_start = strpos($file, 'full parameters list:');
  $settings_finish = strpos($file, '2006 phpFreeChat', $settings_start) - 4;
  $settings_section = substr($file, $settings_start, $settings_finish - $settings_start);
  $matches = array();
  preg_match_all('/\s{4}(\S.*)((?:\n\s{9}.*)*)/', $settings_section, $matches, PREG_SET_ORDER);
  $settings = array();
  foreach ($matches as $match) {
    $setting_names = explode(' and ', $match['1']); // For x and y lines
    foreach ($setting_names as $setting_name) {
      $settings[$setting_name]['help'] = $match['2'];
      // Find some of the common defaults
      if (strstr($match['2'], '(true value by default')) $settings[$setting_name]['default'] = 'true';
      if (strstr($match['2'], '(false value by default')) $settings[$setting_name]['default'] = 'false';
    }
  }
//  print_r($settings);
  $settings_list = "'";
  foreach ($settings as $setting => $value) {
    $settings_list .= $setting . "','";
    $setting_title = ucwords(str_replace('_',' ',$setting));
    if ($value['default'] == 'true' || $value['default'] == 'false') {
      print '$form[\'phpfreechat_'.$setting.'\'] = array(' . "\n";
      print '  \'#type\' => \'select\',' . "\n";
      print '  \'#title\' => t(\''.str_replace("'", "\'", $setting_title).'\'),' . "\n";
      print '  \'#default_value\' => variable_get(\'phpfreechat_'.$setting.'\', $value[\'default\']),' . "\n";
      print '  \'#options\' => array(\'\' => \'default\', \'true\' => \'true\', \'false\' => \'false\'),' . "\n";
      print '  \'#description\' => t(\''.str_replace("'", "\'", $value['help']).'\'),' . "\n";
      print ');' . "\n\n";
    }
    else {
      print '$form[\'phpfreechat_'.$setting.'\'] = array(' . "\n";
      print '  \'#type\' => \'textfield\',' . "\n";
      print '  \'#title\' => t(\''.str_replace("'", "\'", $setting_title).'\'),' . "\n";
      print '  \'#default_value\' => variable_get(\'phpfreechat_'.$setting.'\', \'\'),' . "\n";
      print '  \'#description\' => t(\''.str_replace("'", "\'", $value['help']).'\'),' . "\n";
      print ');' . "\n\n";
    }
  }
  $settings_list .= "'";
  print "\n\nArray of settings:\n" . $settings_list . "\n\n";
}


?>
1	<?php
2	// $Id:
3
4	/*
5	* This is a command line script that generates a settings form definition
6	* for the phpfreechat module by parsing the phpfreechat INSTALL.en file
7	* php -f generate-form.php
8	* You should never need to use this!
9	*/
10
11	$install_path = 'phpfreechat';
12	if (file_exists($install_path.'/INSTALL.en')) {
13	$file = file_get_contents($install_path.'/INSTALL.en');
14	$settings_start = strpos($file, 'full parameters list:');
15	$settings_finish = strpos($file, '2006 phpFreeChat', $settings_start) - 4;
16	$settings_section = substr($file, $settings_start, $settings_finish - $settings_start);
17	$matches = array();
18	preg_match_all('/\s{4}(\S.)((?:\n\s{9}.)*)/', $settings_section, $matches, PREG_SET_ORDER);
19	$settings = array();
20	foreach ($matches as $match) {
21	$setting_names = explode(' and ', $match['1']); // For x and y lines
22	foreach ($setting_names as $setting_name) {
23	$settings[$setting_name]['help'] = $match['2'];
24	// Find some of the common defaults
25	if (strstr($match['2'], '(true value by default')) $settings[$setting_name]['default'] = 'true';
26	if (strstr($match['2'], '(false value by default')) $settings[$setting_name]['default'] = 'false';
27	}
28	}
29	// print_r($settings);
30	$settings_list = "'";
31	foreach ($settings as $setting => $value) {
32	$settings_list .= $setting . "','";
33	$setting_title = ucwords(str_replace('_',' ',$setting));
34	if ($value['default'] == 'true' \|\| $value['default'] == 'false') {
35	print '$form[\'phpfreechat_'.$setting.'\'] = array(' . "\n";
36	print ' \'#type\' => \'select\',' . "\n";
37	print ' \'#title\' => t(\''.str_replace("'", "\'", $setting_title).'\'),' . "\n";
38	print ' \'#default_value\' => variable_get(\'phpfreechat_'.$setting.'\', $value[\'default\']),' . "\n";
39	print ' \'#options\' => array(\'\' => \'default\', \'true\' => \'true\', \'false\' => \'false\'),' . "\n";
40	print ' \'#description\' => t(\''.str_replace("'", "\'", $value['help']).'\'),' . "\n";
41	print ');' . "\n\n";
42	}
43	else {
44	print '$form[\'phpfreechat_'.$setting.'\'] = array(' . "\n";
45	print ' \'#type\' => \'textfield\',' . "\n";
46	print ' \'#title\' => t(\''.str_replace("'", "\'", $setting_title).'\'),' . "\n";
47	print ' \'#default_value\' => variable_get(\'phpfreechat_'.$setting.'\', \'\'),' . "\n";
48	print ' \'#description\' => t(\''.str_replace("'", "\'", $value['help']).'\'),' . "\n";
49	print ');' . "\n\n";
50	}
51	}
52	$settings_list .= "'";
53	print "\n\nArray of settings:\n" . $settings_list . "\n\n";
54	}
55
56
57	?>