home *** CD-ROM | disk | FTP | other *** search
/ Cricao de Sites - 650 Layouts Prontos / WebMasters.iso / CMS / drupal-6.0.exe / drupal-6.0 / modules / system / system.module < prev   
Encoding:
Text File  |  2008-02-13  |  71.3 KB  |  1,878 lines
  1. <?php
  2. // $Id: system.module,v 1.585.2.6 2008/02/13 14:25:42 goba Exp $
  3.  
  4. /**
  5.  * @file
  6.  * Configuration system that lets administrators modify the workings of the site.
  7.  */
  8.  
  9. /**
  10.  * The current system version.
  11.  */
  12. define('VERSION', '6.0');
  13.  
  14. /**
  15.  * Core API compatibility.
  16.  */
  17. define('DRUPAL_CORE_COMPATIBILITY', '6.x');
  18.  
  19. /**
  20.  * Minimum supported version of PHP.
  21.  */
  22. define('DRUPAL_MINIMUM_PHP',    '4.3.5');
  23.  
  24. /**
  25.  * Minimum recommended value of PHP memory_limit.
  26.  */
  27. define('DRUPAL_MINIMUM_PHP_MEMORY_LIMIT',    '16M');
  28.  
  29. /**
  30.  * Minimum supported version of MySQL, if it is used.
  31.  */
  32. define('DRUPAL_MINIMUM_MYSQL',  '4.1.1');
  33.  
  34. /**
  35.  * Minimum supported version of PostgreSQL, if it is used.
  36.  */
  37. define('DRUPAL_MINIMUM_PGSQL',  '7.4');
  38.  
  39. /**
  40.  * Maximum age of temporary files in seconds.
  41.  */
  42. define('DRUPAL_MAXIMUM_TEMP_FILE_AGE', 1440);
  43.  
  44. /**
  45.  * Implementation of hook_help().
  46.  */
  47. function system_help($path, $arg) {
  48.   global $base_url;
  49.  
  50.   switch ($path) {
  51.     case 'admin/help#system':
  52.       $output = '<p>'. t('The system module is at the foundation of your Drupal website, and provides basic but extensible functionality for use by other modules and themes. Some integral elements of Drupal are contained in and managed by the system module, including caching, enabling or disabling of modules and themes, preparing and displaying the administrative page, and configuring fundamental site settings. A number of key system maintenance operations are also part of the system module.') .'</p>';
  53.       $output .= '<p>'. t('The system module provides:') .'</p>';
  54.       $output .= '<ul><li>'. t('support for enabling and disabling <a href="@modules">modules</a>. Drupal comes packaged with a number of core modules; each module provides a discrete set of features and may be enabled depending on the needs of your site. A wide array of additional modules contributed by members of the Drupal community are available for download at the <a href="@drupal-modules">Drupal.org module page</a>.', array('@modules' => url('admin/build/modules'), '@drupal-modules' => 'http://drupal.org/project/modules')) .'</li>';
  55.       $output .= '<li>'. t('support for enabling and disabling <a href="@themes">themes</a>, which determine the design and presentation of your site. Drupal comes packaged with several core themes and additional contributed themes are available at the <a href="@drupal-themes">Drupal.org theme page</a>.', array('@themes' => url('admin/build/themes'), '@drupal-themes' => 'http://drupal.org/project/themes')) .'</li>';
  56.       $output .= '<li>'. t('a robust <a href="@cache-settings">caching system</a> that allows the efficient re-use of previously-constructed web pages and web page components. Drupal stores the pages requested by anonymous users in a compressed format; depending on your site configuration and the amount of your web traffic tied to anonymous visitors, Drupal\'s caching system may significantly increase the speed of your site.', array('@cache-settings' => url('admin/settings/performance'))) .'</li>';
  57.       $output .= '<li>'. t('a set of routine administrative operations that rely on a correctly-configured <a href="@cron">cron maintenance task</a> to run automatically. A number of other modules, including the feed aggregator, ping module and search also rely on <a href="@cron">cron maintenance tasks</a>. For more information, see the online handbook entry for <a href="@handbook">configuring cron jobs</a>.', array('@cron' => url('admin/reports/status'), '@handbook' => 'http://drupal.org/cron')) .'</li>';
  58.       $output .= '<li>'. t('basic configuration options for your site, including <a href="@date-settings">date and time settings</a>, <a href="@file-system">file system settings</a>, <a href="@clean-url">clean URL support</a>, <a href="@site-info">site name and other information</a>, and a <a href="@site-maintenance">site maintenance</a> function for taking your site temporarily off-line.', array('@date-settings' => url('admin/settings/date-time'), '@file-system' => url('admin/settings/file-system'), '@clean-url' => url('admin/settings/clean-urls'), '@site-info' => url('admin/settings/site-information'), '@site-maintenance' => url('admin/settings/site-maintenance'))) .'</li></ul>';
  59.       $output .= '<p>'. t('For more information, see the online handbook entry for <a href="@system">System module</a>.', array('@system' => 'http://drupal.org/handbook/modules/system/')) .'</p>';
  60.       return $output;
  61.     case 'admin':
  62.       return '<p>'. t('Welcome to the administration section. Here you may control how your site functions.') .'</p>';
  63.     case 'admin/by-module':
  64.       return '<p>'. t('This page shows you all available administration tasks for each module.') .'</p>';
  65.     case 'admin/build/themes':
  66.       $output = '<p>'. t('Select which themes are available to your users and specify the default theme. To configure site-wide display settings, click the "configure" task above. Alternatively, to override these settings in a specific theme, click the "configure" link for that theme. Note that different themes may have different regions available for displaying content; for consistency in presentation, you may wish to enable only one theme.') .'</p>';
  67.       $output .= '<p>'. t('To change the appearance of your site, a number of <a href="@themes">contributed themes</a> are available.', array('@themes' => 'http://drupal.org/project/themes')) .'</p>';
  68.       return $output;
  69.     case 'admin/build/themes/settings/'. $arg[4]:
  70.       $reference = explode('.', $arg[4], 2);
  71.       $theme = array_pop($reference);
  72.       return '<p>'. t('These options control the display settings for the <code>%template</code> theme. When your site is displayed using this theme, these settings will be used. By clicking "Reset to defaults," you can choose to use the <a href="@global">global settings</a> for this theme.', array('%template' => $theme, '@global' => url('admin/build/themes/settings'))) .'</p>';
  73.     case 'admin/build/themes/settings':
  74.       return '<p>'. t('These options control the default display settings for your entire site, across all themes. Unless they have been overridden by a specific theme, these settings will be used.') .'</p>';
  75.     case 'admin/build/modules':
  76.       $output = '<p>'. t('Modules are plugins that extend Drupal\'s core functionality. Enable modules by selecting the <em>Enabled</em> checkboxes below and clicking the <em>Save configuration</em> button. Once a module is enabled, new <a href="@permissions">permissions</a> may be available. To reduce server load, modules with their <em>Throttle</em> checkbox selected are temporarily disabled when your site becomes extremely busy. (Note that the <em>Throttle</em> checkbox is only available if the Throttle module is enabled.)', array('@permissions' => url('admin/user/permissions')));
  77.       if (module_exists('throttle')) {
  78.         $output .= ' '. t('The auto-throttle functionality must be enabled on the <a href="@throttle">throttle configuration page</a> after having enabled the throttle module.', array('@throttle' => url('admin/settings/throttle')));
  79.       }
  80.       $output .= '</p>';
  81.       $output .= '<p>'. t('It is important that <a href="@update-php">update.php</a> is run every time a module is updated to a newer version.', array('@update-php' => $base_url .'/update.php')) .'</p>';
  82.       $output .= '<p>'. t('You can find all administration tasks belonging to a particular module on the <a href="@by-module">administration by module page</a>.', array('@by-module' => url('admin/by-module'))) .'</p>';
  83.       $output .= '<p>'. t('To extend the functionality of your site, a number of <a href="@modules">contributed modules</a> are available.', array('@modules' => 'http://drupal.org/project/modules')) .'</p>';
  84.       return $output;
  85.     case 'admin/build/modules/uninstall':
  86.       return '<p>'. t('The uninstall process removes all data related to a module. To uninstall a module, you must first disable it. Not all modules support this feature.') .'</p>';
  87.     case 'admin/build/block/configure':
  88.       if ($arg[4] == 'system' && $arg[5] == 0) {
  89.         return '<p>'. t('The <em>Powered by Drupal</em> block is an optional link to the home page of the Drupal project. While there is absolutely no requirement that sites feature this link, it may be used to show support for Drupal.') .'</p>';
  90.       }
  91.       break;
  92.     case 'admin/settings/actions':
  93.     case 'admin/settings/actions/manage':
  94.       $output = '<p>'. t('Actions are individual tasks that the system can do, such as unpublishing a piece of content or banning a user. Modules, such as the trigger module, can fire these actions when certain system events happen; for example, when a new post is added or when a user logs in. Modules may also provide additional actions.') .'</p>';
  95.       $output .= '<p>'. t('There are two types of actions: simple and advanced. Simple actions do not require any additional configuration, and are listed here automatically. Advanced actions can do more than simple actions; for example, send an e-mail to a specified address, or check for certain words within a piece of content. These actions need to be created and configured first before they may be used. To create an advanced action, select the action from the drop-down below and click the <em>Create</em> button.') .'</p>';
  96.       if (module_exists('trigger')) {
  97.         $output .= '<p>'. t('You may proceed to the <a href="@url">Triggers</a> page to assign these actions to system events.', array('@url' => url('admin/build/trigger'))) .'</p>';
  98.       }
  99.       return $output;
  100.     case 'admin/settings/actions/configure':
  101.       return t('An advanced action offers additional configuration options which may be filled out below. Changing the <em>Description</em> field is recommended, in order to better identify the precise action taking place. This description will be displayed in modules such as the trigger module when assigning actions to system events, so it is best if it is as descriptive as possible (for example, "Send e-mail to Moderation Team" rather than simply "Send e-mail").');
  102.     case 'admin/reports/status':
  103.       return '<p>'. t("Here you can find a short overview of your site's parameters as well as any problems detected with your installation. It may be useful to copy and paste this information into support requests filed on drupal.org's support forums and project issue queues.") .'</p>';
  104.   }
  105. }
  106.  
  107. /**
  108.  * Implementation of hook_theme().
  109.  */
  110. function system_theme() {
  111.   return array_merge(drupal_common_theme(), array(
  112.     'system_theme_select_form' => array(
  113.       'arguments' => array('form' => NULL),
  114.       'file' => 'system.admin.inc',
  115.     ),
  116.     'system_themes_form' => array(
  117.       'arguments' => array('form' => NULL),
  118.       'file' => 'system.admin.inc',
  119.     ),
  120.     'system_modules' => array(
  121.       'arguments' => array('form' => NULL),
  122.       'file' => 'system.admin.inc',
  123.     ),
  124.     'system_modules_uninstall' => array(
  125.       'arguments' => array('form' => NULL),
  126.       'file' => 'system.admin.inc',
  127.     ),
  128.     'status_report' => array(
  129.       'arguments' => array('requirements' => NULL),
  130.       'file' => 'system.admin.inc',
  131.     ),
  132.     'admin_page' => array(
  133.       'arguments' => array('blocks' => NULL),
  134.       'file' => 'system.admin.inc',
  135.     ),
  136.     'admin_block' => array(
  137.       'arguments' => array('block' => NULL),
  138.       'file' => 'system.admin.inc',
  139.     ),
  140.     'admin_block_content' => array(
  141.       'arguments' => array('content' => NULL),
  142.       'file' => 'system.admin.inc',
  143.     ),
  144.     'system_admin_by_module' => array(
  145.       'arguments' => array('menu_items' => NULL),
  146.       'file' => 'system.admin.inc',
  147.     ),
  148.     'system_powered_by' => array(
  149.       'arguments' => array('image_path' => NULL),
  150.     ),
  151.   ));
  152. }
  153.  
  154. /**
  155.  * Implementation of hook_perm().
  156.  */
  157. function system_perm() {
  158.   return array('administer site configuration', 'access administration pages', 'administer actions', 'access site reports', 'select different theme', 'administer files');
  159. }
  160.  
  161. /**
  162.  * Implementation of hook_elements().
  163.  */
  164. function system_elements() {
  165.   // Top level form
  166.   $type['form'] = array('#method' => 'post', '#action' => request_uri());
  167.  
  168.   // Inputs
  169.   $type['submit'] = array('#input' => TRUE, '#name' => 'op', '#button_type' => 'submit', '#executes_submit_callback' => TRUE, '#process' => array('form_expand_ahah'));
  170.   $type['button'] = array('#input' => TRUE, '#name' => 'op', '#button_type' => 'submit', '#executes_submit_callback' => FALSE, '#process' => array('form_expand_ahah'));
  171.   $type['image_button'] = array('#input' => TRUE, '#button_type' => 'submit', '#executes_submit_callback' => TRUE, '#process' => array('form_expand_ahah'), '#return_value' => TRUE, '#has_garbage_value' => TRUE, '#src' => NULL);
  172.   $type['textfield'] = array('#input' => TRUE, '#size' => 60, '#maxlength' => 128, '#autocomplete_path' => FALSE, '#process' => array('form_expand_ahah'));
  173.   $type['password'] = array('#input' => TRUE, '#size' => 60, '#maxlength' => 128, '#process' => array('form_expand_ahah'));
  174.   $type['password_confirm'] = array('#input' => TRUE, '#process' => array('expand_password_confirm'));
  175.   $type['textarea'] = array('#input' => TRUE, '#cols' => 60, '#rows' => 5, '#resizable' => TRUE, '#process' => array('form_expand_ahah'));
  176.   $type['radios'] = array('#input' => TRUE, '#process' => array('expand_radios'));
  177.   $type['radio'] = array('#input' => TRUE, '#default_value' => NULL, '#process' => array('form_expand_ahah'));
  178.   $type['checkboxes'] = array('#input' => TRUE, '#process' => array('expand_checkboxes'), '#tree' => TRUE);
  179.   $type['checkbox'] = array('#input' => TRUE, '#return_value' => 1, '#process' => array('form_expand_ahah'));
  180.   $type['select'] = array('#input' => TRUE, '#size' => 0, '#multiple' => FALSE, '#process' => array('form_expand_ahah'));
  181.   $type['weight'] = array('#input' => TRUE, '#delta' => 10, '#default_value' => 0, '#process' => array('process_weight', 'form_expand_ahah'));
  182.   $type['date'] = array('#input' => TRUE, '#process' => array('expand_date'), '#element_validate' => array('date_validate'));
  183.   $type['file'] = array('#input' => TRUE, '#size' => 60);
  184.  
  185.   // Form structure
  186.   $type['item'] = array('#value' => '');
  187.   $type['hidden'] = array('#input' => TRUE, '#process' => array('form_expand_ahah'));
  188.   $type['value'] = array('#input' => TRUE);
  189.   $type['markup'] = array('#prefix' => '', '#suffix' => '');
  190.   $type['fieldset'] = array('#collapsible' => FALSE, '#collapsed' => FALSE, '#value' => NULL, '#process' => array('form_expand_ahah'));
  191.   $type['token'] = array('#input' => TRUE);
  192.   return $type;
  193. }
  194.  
  195. /**
  196.  * Implementation of hook_menu().
  197.  */
  198. function system_menu() {
  199.   $items['system/files'] = array(
  200.     'title' => 'File download',
  201.     'page callback' => 'file_download',
  202.     'access callback' => TRUE,
  203.     'type' => MENU_CALLBACK,
  204.   );
  205.   $items['admin'] = array(
  206.     'title' => 'Administer',
  207.     'access arguments' => array('access administration pages'),
  208.     'page callback' => 'system_main_admin_page',
  209.     'weight' => 9,
  210.     'file' => 'system.admin.inc',
  211.   );
  212.   $items['admin/compact'] = array(
  213.     'title' => 'Compact mode',
  214.     'page callback' => 'system_admin_compact_page',
  215.     'type' => MENU_CALLBACK,
  216.     'file' => 'system.admin.inc',
  217.   );
  218.   $items['admin/by-task'] = array(
  219.     'title' => 'By task',
  220.     'page callback' => 'system_main_admin_page',
  221.     'file' => 'system.admin.inc',
  222.     'type' => MENU_DEFAULT_LOCAL_TASK,
  223.   );
  224.   $items['admin/by-module'] = array(
  225.     'title' => 'By module',
  226.     'page callback' => 'system_admin_by_module',
  227.     'file' => 'system.admin.inc',
  228.     'type' => MENU_LOCAL_TASK,
  229.     'weight' => 2,
  230.   );
  231.   $items['admin/content'] = array(
  232.     'title' => 'Content management',
  233.     'description' => "Manage your site's content.",
  234.     'position' => 'left',
  235.     'weight' => -10,
  236.     'page callback' => 'system_admin_menu_block_page',
  237.     'file' => 'system.admin.inc',
  238.   );
  239.  
  240.   // menu items that are basically just menu blocks
  241.   $items['admin/settings'] = array(
  242.     'title' => 'Site configuration',
  243.     'description' => 'Adjust basic site configuration options.',
  244.     'position' => 'right',
  245.     'weight' => -5,
  246.     'page callback' => 'system_settings_overview',
  247.     'file' => 'system.admin.inc',
  248.   );
  249.   $items['admin/build'] = array(
  250.     'title' => 'Site building',
  251.     'description' => 'Control how your site looks and feels.',
  252.     'position' => 'right',
  253.     'weight' => -10,
  254.     'page callback' => 'system_admin_menu_block_page',
  255.     'file' => 'system.admin.inc',
  256.   );
  257.   $items['admin/settings/admin'] = array(
  258.     'title' => 'Administration theme',
  259.     'description' => 'Settings for how your administrative pages should look.',
  260.     'position' => 'left',
  261.     'page callback' => 'drupal_get_form',
  262.     'page arguments' => array('system_admin_theme_settings'),
  263.     'access arguments' => array('administer site configuration'),
  264.     'block callback' => 'system_admin_theme_settings',
  265.     'file' => 'system.admin.inc',
  266.   );
  267.   // Themes:
  268.   $items['admin/build/themes'] = array(
  269.     'title' => 'Themes',
  270.     'description' => 'Change which theme your site uses or allows users to set.',
  271.     'page callback' => 'drupal_get_form',
  272.     'page arguments' => array('system_themes_form', NULL),
  273.     'access arguments' => array('administer site configuration'),
  274.     'file' => 'system.admin.inc',
  275.   );
  276.   $items['admin/build/themes/select'] = array(
  277.     'title' => 'List',
  278.     'description' => 'Select the default theme.',
  279.     'type' => MENU_DEFAULT_LOCAL_TASK,
  280.     'weight' => -1,
  281.   );
  282.   $items['admin/build/themes/settings'] = array(
  283.     'title' => 'Configure',
  284.     'page arguments' => array('system_theme_settings'),
  285.     'type' => MENU_LOCAL_TASK,
  286.   );
  287.   // Theme configuration subtabs
  288.   $items['admin/build/themes/settings/global'] = array(
  289.     'title' => 'Global settings',
  290.     'type' => MENU_DEFAULT_LOCAL_TASK,
  291.     'weight' => -1,
  292.   );
  293.  
  294.   foreach (list_themes() as $theme) {
  295.     $items['admin/build/themes/settings/'. $theme->name] = array(
  296.       'title' => $theme->info['name'],
  297.       'page arguments' => array('system_theme_settings', $theme->name),
  298.       'type' => MENU_LOCAL_TASK,
  299.       'access callback' => '_system_themes_access',
  300.       'access arguments' => array($theme),
  301.     );
  302.   }
  303.  
  304.   // Modules:
  305.   $items['admin/build/modules'] = array(
  306.     'title' => 'Modules',
  307.     'description' => 'Enable or disable add-on modules for your site.',
  308.     'page callback' => 'drupal_get_form',
  309.     'page arguments' => array('system_modules'),
  310.     'access arguments' => array('administer site configuration'),
  311.     'file' => 'system.admin.inc',
  312.   );
  313.   $items['admin/build/modules/list'] = array(
  314.     'title' => 'List',
  315.     'type' => MENU_DEFAULT_LOCAL_TASK,
  316.   );
  317.   $items['admin/build/modules/list/confirm'] = array(
  318.     'title' => 'List',
  319.     'type' => MENU_CALLBACK,
  320.   );
  321.   $items['admin/build/modules/uninstall'] = array(
  322.     'title' => 'Uninstall',
  323.     'page arguments' => array('system_modules_uninstall'),
  324.     'type' => MENU_LOCAL_TASK,
  325.   );
  326.   $items['admin/build/modules/uninstall/confirm'] = array(
  327.     'title' => 'Uninstall',
  328.     'type' => MENU_CALLBACK,
  329.   );
  330.  
  331.   // Actions:
  332.   $items['admin/settings/actions'] = array(
  333.     'title' => 'Actions',
  334.     'description' => 'Manage the actions defined for your site.',
  335.     'access arguments' => array('administer actions'),
  336.     'page callback' => 'system_actions_manage'
  337.   );
  338.   $items['admin/settings/actions/manage'] = array(
  339.     'title' => 'Manage actions',
  340.     'description' => 'Manage the actions defined for your site.',
  341.     'page callback' => 'system_actions_manage',
  342.     'type' => MENU_DEFAULT_LOCAL_TASK,
  343.     'weight' => -2,
  344.   );
  345.   $items['admin/settings/actions/configure'] = array(
  346.     'title' => 'Configure an advanced action',
  347.     'page callback' => 'drupal_get_form',
  348.     'page arguments' => array('system_actions_configure'),
  349.     'type' => MENU_CALLBACK,
  350.   );
  351.   $items['admin/settings/actions/delete/%actions'] = array(
  352.     'title' => 'Delete action',
  353.     'description' => 'Delete an action.',
  354.     'page callback' => 'drupal_get_form',
  355.     'page arguments' => array('system_actions_delete_form', 4),
  356.     'type' => MENU_CALLBACK,
  357.   );
  358.   $items['admin/settings/actions/orphan'] = array(
  359.     'title' => 'Remove orphans',
  360.     'page callback' => 'system_actions_remove_orphans',
  361.     'type' => MENU_CALLBACK,
  362.   );
  363.  
  364.   // Settings:
  365.   $items['admin/settings/site-information'] = array(
  366.     'title' => 'Site information',
  367.     'description' => 'Change basic site information, such as the site name, slogan, e-mail address, mission, front page and more.',
  368.     'page callback' => 'drupal_get_form',
  369.     'page arguments' => array('system_site_information_settings'),
  370.     'access arguments' => array('administer site configuration'),
  371.     'file' => 'system.admin.inc',
  372.   );
  373.   $items['admin/settings/error-reporting'] = array(
  374.     'title' => 'Error reporting',
  375.     'description' => 'Control how Drupal deals with errors including 403/404 errors as well as PHP error reporting.',
  376.     'page callback' => 'drupal_get_form',
  377.     'page arguments' => array('system_error_reporting_settings'),
  378.     'access arguments' => array('administer site configuration'),
  379.     'file' => 'system.admin.inc',
  380.   );
  381.   $items['admin/settings/logging'] = array(
  382.     'title' => 'Logging and alerts',
  383.     'description' => "Settings for logging and alerts modules. Various modules can route Drupal's system events to different destination, such as syslog, database, email, ...etc.",
  384.     'page callback' => 'system_logging_overview',
  385.     'access arguments' => array('administer site configuration'),
  386.     'file' => 'system.admin.inc',
  387.   );
  388.   $items['admin/settings/performance'] = array(
  389.     'title' => 'Performance',
  390.     'description' => 'Enable or disable page caching for anonymous users and set CSS and JS bandwidth optimization options.',
  391.     'page callback' => 'drupal_get_form',
  392.     'page arguments' => array('system_performance_settings'),
  393.     'access arguments' => array('administer site configuration'),
  394.     'file' => 'system.admin.inc',
  395.   );
  396.   $items['admin/settings/file-system'] = array(
  397.     'title' => 'File system',
  398.     'description' => 'Tell Drupal where to store uploaded files and how they are accessed.',
  399.     'page callback' => 'drupal_get_form',
  400.     'page arguments' => array('system_file_system_settings'),
  401.     'access arguments' => array('administer site configuration'),
  402.     'file' => 'system.admin.inc',
  403.   );
  404.   $items['admin/settings/image-toolkit'] = array(
  405.     'title' => 'Image toolkit',
  406.     'description' => 'Choose which image toolkit to use if you have installed optional toolkits.',
  407.     'page callback' => 'drupal_get_form',
  408.     'page arguments' => array('system_image_toolkit_settings'),
  409.     'access arguments' => array('administer site configuration'),
  410.     'file' => 'system.admin.inc',
  411.   );
  412.   $items['admin/content/rss-publishing'] = array(
  413.     'title' => 'RSS publishing',
  414.     'description' => 'Configure the number of items per feed and whether feeds should be titles/teasers/full-text.',
  415.     'page callback' => 'drupal_get_form',
  416.     'page arguments' => array('system_rss_feeds_settings'),
  417.     'access arguments' => array('administer site configuration'),
  418.     'file' => 'system.admin.inc',
  419.   );
  420.   $items['admin/settings/date-time'] = array(
  421.     'title' => 'Date and time',
  422.     'description' => "Settings for how Drupal displays date and time, as well as the system's default timezone.",
  423.     'page callback' => 'drupal_get_form',
  424.     'page arguments' => array('system_date_time_settings'),
  425.     'access arguments' => array('administer site configuration'),
  426.     'file' => 'system.admin.inc',
  427.   );
  428.   $items['admin/settings/date-time/lookup'] = array(
  429.     'title' => 'Date and time lookup',
  430.     'type' => MENU_CALLBACK,
  431.     'page callback' => 'system_date_time_lookup',
  432.     'file' => 'system.admin.inc',
  433.   );
  434.   $items['admin/settings/site-maintenance'] = array(
  435.     'title' => 'Site maintenance',
  436.     'description' => 'Take the site off-line for maintenance or bring it back online.',
  437.     'page callback' => 'drupal_get_form',
  438.     'page arguments' => array('system_site_maintenance_settings'),
  439.     'access arguments' => array('administer site configuration'),
  440.     'file' => 'system.admin.inc',
  441.   );
  442.   $items['admin/settings/clean-urls'] = array(
  443.     'title' => 'Clean URLs',
  444.     'description' => 'Enable or disable clean URLs for your site.',
  445.     'page callback' => 'drupal_get_form',
  446.     'page arguments' => array('system_clean_url_settings'),
  447.     'access arguments' => array('administer site configuration'),
  448.     'file' => 'system.admin.inc',
  449.   );
  450.   $items['admin/settings/clean-urls/check'] = array(
  451.     'title' => 'Clean URL check',
  452.     'page callback' => 'drupal_json',
  453.     'page arguments' => array(array('status' => TRUE)),
  454.     'access callback' => TRUE,
  455.     'type' => MENU_CALLBACK,
  456.   );
  457.   // Menu handler to test that drupal_http_request() works locally.
  458.   // @see system_check_http_request()
  459.   $items['admin/reports/request-test'] = array(
  460.     'title' => 'Request test',
  461.     'page callback' => 'printf',
  462.     'page arguments' => array('request test'),
  463.     'access callback' => TRUE,
  464.     'type' => MENU_CALLBACK,
  465.   );
  466.  
  467.   // Reports:
  468.   $items['admin/reports'] = array(
  469.     'title' => 'Reports',
  470.     'description' => 'View reports from system logs and other status information.',
  471.     'page callback' => 'system_admin_menu_block_page',
  472.     'access arguments' => array('access site reports'),
  473.     'weight' => 5,
  474.     'position' => 'left',
  475.     'file' => 'system.admin.inc',
  476.   );
  477.   $items['admin/reports/status'] = array(
  478.     'title' => 'Status report',
  479.     'description' => "Get a status report about your site's operation and any detected problems.",
  480.     'page callback' => 'system_status',
  481.     'weight' => 10,
  482.     'access arguments' => array('administer site configuration'),
  483.     'file' => 'system.admin.inc',
  484.   );
  485.   $items['admin/reports/status/run-cron'] = array(
  486.     'title' => 'Run cron',
  487.     'page callback' => 'system_run_cron',
  488.     'type' => MENU_CALLBACK,
  489.     'file' => 'system.admin.inc',
  490.   );
  491.   $items['admin/reports/status/php'] = array(
  492.     'title' => 'PHP',
  493.     'page callback' => 'system_php',
  494.     'type' => MENU_CALLBACK,
  495.     'file' => 'system.admin.inc',
  496.   );
  497.   $items['admin/reports/status/sql'] = array(
  498.     'title' => 'SQL',
  499.     'page callback' => 'system_sql',
  500.     'type' => MENU_CALLBACK,
  501.     'file' => 'system.admin.inc',
  502.   );
  503.   // Default page for batch operations
  504.   $items['batch'] = array(
  505.     'page callback' => 'system_batch_page',
  506.     'access callback' => TRUE,
  507.     'type' => MENU_CALLBACK,
  508.     'file' => 'system.admin.inc',
  509.   );
  510.   return $items;
  511. }
  512.  
  513. /**
  514.  * Menu item access callback - only admin or enabled themes can be accessed.
  515.  */
  516. function _system_themes_access($theme) {
  517.   return user_access('administer site configuration') && ($theme->status || $theme->name == variable_get('admin_theme', '0'));
  518. }
  519.  
  520. /**
  521.  * Implementation of hook_init().
  522.  */
  523. function system_init() {
  524.   // Use the administrative theme if the user is looking at a page in the admin/* path.
  525.   if (arg(0) == 'admin' || (variable_get('node_admin_theme', '0') && arg(0) == 'node' && (arg(1) == 'add' || arg(2) == 'edit'))) {
  526.     global $custom_theme;
  527.     $custom_theme = variable_get('admin_theme', '0');
  528.     drupal_add_css(drupal_get_path('module', 'system') .'/admin.css', 'module');
  529.   }
  530.  
  531.   // Add the CSS for this module.
  532.   drupal_add_css(drupal_get_path('module', 'system') .'/defaults.css', 'module');
  533.   drupal_add_css(drupal_get_path('module', 'system') .'/system.css', 'module');
  534.   drupal_add_css(drupal_get_path('module', 'system') .'/system-menus.css', 'module');
  535. }
  536.  
  537. /**
  538.  * Implementation of hook_user().
  539.  *
  540.  * Allows users to individually set their theme and time zone.
  541.  */
  542. function system_user($type, $edit, &$user, $category = NULL) {
  543.   if ($type == 'form' && $category == 'account') {
  544.     $form['theme_select'] = system_theme_select_form(t('Selecting a different theme will change the look and feel of the site.'), isset($edit['theme']) ? $edit['theme'] : NULL, 2);
  545.  
  546.     if (variable_get('configurable_timezones', 1)) {
  547.       $zones = _system_zonelist();
  548.       $form['timezone'] = array(
  549.         '#type' => 'fieldset',
  550.         '#title' => t('Locale settings'),
  551.         '#weight' => 6,
  552.         '#collapsible' => TRUE,
  553.       );
  554.       $form['timezone']['timezone'] = array(
  555.         '#type' => 'select',
  556.         '#title' => t('Time zone'),
  557.         '#default_value' => strlen($edit['timezone']) ? $edit['timezone'] : variable_get('date_default_timezone', 0),
  558.         '#options' => $zones,
  559.         '#description' => t('Select your current local time. Dates and times throughout this site will be displayed using this time zone.'),
  560.       );
  561.     }
  562.  
  563.     return $form;
  564.   }
  565. }
  566.  
  567. /**
  568.  * Implementation of hook_block().
  569.  *
  570.  * Generate a block with a promotional link to Drupal.org.
  571.  */
  572. function system_block($op = 'list', $delta = 0, $edit = NULL) {
  573.   switch ($op) {
  574.     case 'list':
  575.       $blocks[0] = array(
  576.         'info' => t('Powered by Drupal'),
  577.         'weight' => '10',
  578.          // Not worth caching.
  579.         'cache' => BLOCK_NO_CACHE,
  580.       );
  581.       return $blocks;
  582.     case 'configure':
  583.       // Compile a list of fields to show
  584.       $form['wrapper']['color'] = array(
  585.         '#type' => 'select',
  586.         '#title' => t('Badge color'),
  587.         '#default_value' => variable_get('drupal_badge_color', 'powered-blue'),
  588.         '#options' => array('powered-black' => t('Black'), 'powered-blue' => t('Blue'), 'powered-gray' => t('Gray')),
  589.       );
  590.       $form['wrapper']['size'] = array(
  591.         '#type' => 'select',
  592.         '#title' => t('Badge size'),
  593.         '#default_value' => variable_get('drupal_badge_size', '80x15'),
  594.         '#options' => array('80x15' => t('Small'), '88x31' => t('Medium'), '135x42' => t('Large')),
  595.       );
  596.       return $form;
  597.     case 'save':
  598.       variable_set('drupal_badge_color', $edit['color']);
  599.       variable_set('drupal_badge_size', $edit['size']);
  600.       break;
  601.     case 'view':
  602.       $image_path = 'misc/'. variable_get('drupal_badge_color', 'powered-blue') .'-'. variable_get('drupal_badge_size', '80x15') .'.png';
  603.       $block['subject'] = NULL; // Don't display a title
  604.       $block['content'] = theme('system_powered_by', $image_path);
  605.       return $block;
  606.   }
  607. }
  608.  
  609. /**
  610.  * Provide a single block on the administration overview page.
  611.  *
  612.  * @param $item
  613.  *   The menu item to be displayed.
  614.  */
  615. function system_admin_menu_block($item) {
  616.   $content = array();
  617.   if (!isset($item['mlid'])) {
  618.     $item += db_fetch_array(db_query("SELECT mlid, menu_name FROM {menu_links} ml WHERE ml.router_path = '%s' AND module = 'system'", $item['path']));
  619.   }
  620.   $result = db_query("
  621.     SELECT m.load_functions, m.to_arg_functions, m.access_callback, m.access_arguments, m.page_callback, m.page_arguments, m.title, m.title_callback, m.title_arguments, m.type, m.description, ml.*
  622.     FROM {menu_links} ml
  623.     LEFT JOIN {menu_router} m ON ml.router_path = m.path
  624.     WHERE ml.plid = %d AND ml.menu_name = '%s' AND hidden = 0", $item['mlid'], $item['menu_name']);
  625.   while ($item = db_fetch_array($result)) {
  626.     _menu_link_translate($item);
  627.     if (!$item['access']) {
  628.       continue;
  629.     }
  630.     // The link 'description' either derived from the hook_menu 'description' or
  631.     // entered by the user via menu module is saved as the title attribute.
  632.     if (!empty($item['localized_options']['attributes']['title'])) {
  633.       $item['description'] = $item['localized_options']['attributes']['title'];
  634.     }
  635.     // Prepare for sorting as in function _menu_tree_check_access().
  636.     // The weight is offset so it is always positive, with a uniform 5-digits.
  637.     $content[(50000 + $item['weight']) .' '. $item['title'] .' '. $item['mlid']] = $item;
  638.   }
  639.   ksort($content);
  640.   return $content;
  641. }
  642.  
  643. /**
  644.  * Process admin theme form submissions.
  645.  */
  646. function system_admin_theme_submit($form, &$form_state) {
  647.   // If we're changing themes, make sure the theme has its blocks initialized.
  648.   if ($form_state['values']['admin_theme'] && $form_state['values']['admin_theme'] != variable_get('admin_theme', '0')) {
  649.     $result = db_result(db_query("SELECT COUNT(*) FROM {blocks} WHERE theme = '%s'", $form_state['values']['admin_theme']));
  650.     if (!$result) {
  651.       system_initialize_theme_blocks($form_state['values']['admin_theme']);
  652.     }
  653.   }
  654. }
  655.  
  656. /**
  657.  * Returns a fieldset containing the theme select form.
  658.  *
  659.  * @param $description
  660.  *    description of the fieldset
  661.  * @param $default_value
  662.  *    default value of theme radios
  663.  * @param $weight
  664.  *    weight of the fieldset
  665.  * @return
  666.  *    a form array
  667.  */
  668. function system_theme_select_form($description = '', $default_value = '', $weight = 0) {
  669.   if (user_access('select different theme')) {
  670.     $enabled = array();
  671.     $themes = list_themes();
  672.  
  673.     foreach ($themes as $theme) {
  674.       if ($theme->status) {
  675.         $enabled[] = $theme;
  676.       }
  677.     }
  678.  
  679.     if (count($enabled) > 1) {
  680.       ksort($enabled);
  681.  
  682.       $form['themes'] = array(
  683.         '#type' => 'fieldset',
  684.         '#title' => t('Theme configuration'),
  685.         '#description' => $description,
  686.         '#collapsible' => TRUE,
  687.         '#theme' => 'system_theme_select_form'
  688.       );
  689.  
  690.       foreach ($enabled as $info) {
  691.         // For the default theme, revert to an empty string so the user's theme updates when the site theme is changed.
  692.         $info->key = $info->name == variable_get('theme_default', 'garland') ? '' : $info->name;
  693.  
  694.         $screenshot = NULL;
  695.         $theme_key = $info->name;
  696.         while ($theme_key) {
  697.           if (file_exists($themes[$theme_key]->info['screenshot'])) {
  698.             $screenshot = $themes[$theme_key]->info['screenshot'];
  699.             break;
  700.           }
  701.           $theme_key = isset($themes[$theme_key]->info['base theme']) ? $themes[$theme_key]->info['base theme'] : NULL;
  702.         }
  703.  
  704.         $screenshot = $screenshot ? theme('image', $screenshot, t('Screenshot for %theme theme', array('%theme' => $info->name)), '', array('class' => 'screenshot'), FALSE) : t('no screenshot');
  705.  
  706.         $form['themes'][$info->key]['screenshot'] = array('#value' => $screenshot);
  707.         $form['themes'][$info->key]['description'] = array('#type' => 'item', '#title' => $info->name, '#value' => dirname($info->filename) . ($info->name == variable_get('theme_default', 'garland') ? '<br /> <em>'. t('(site default theme)') .'</em>' : ''));
  708.         $options[$info->key] = '';
  709.       }
  710.  
  711.       $form['themes']['theme'] = array('#type' => 'radios', '#options' => $options, '#default_value' => $default_value ? $default_value : '');
  712.       $form['#weight'] = $weight;
  713.       return $form;
  714.     }
  715.   }
  716. }
  717.  
  718. /**
  719.  * Checks the existence of the directory specified in $form_element. This
  720.  * function is called from the system_settings form to check both the
  721.  * file_directory_path and file_directory_temp directories. If validation
  722.  * fails, the form element is flagged with an error from within the
  723.  * file_check_directory function.
  724.  *
  725.  * @param $form_element
  726.  *   The form element containing the name of the directory to check.
  727.  */
  728. function system_check_directory($form_element) {
  729.   file_check_directory($form_element['#value'], FILE_CREATE_DIRECTORY, $form_element['#parents'][0]);
  730.   return $form_element;
  731. }
  732.  
  733. /**
  734.  * Retrieves the current status of an array of files in the system table.
  735.  *
  736.  * @param $files
  737.  *   An array of files to check.
  738.  * @param $type
  739.  *   The type of the files.
  740.  */
  741. function system_get_files_database(&$files, $type) {
  742.   // Extract current files from database.
  743.   $result = db_query("SELECT filename, name, type, status, throttle, schema_version FROM {system} WHERE type = '%s'", $type);
  744.   while ($file = db_fetch_object($result)) {
  745.     if (isset($files[$file->name]) && is_object($files[$file->name])) {
  746.       $file->old_filename = $file->filename;
  747.       foreach ($file as $key => $value) {
  748.         if (!isset($files[$file->name]) || !isset($files[$file->name]->$key)) {
  749.           $files[$file->name]->$key = $value;
  750.         }
  751.       }
  752.     }
  753.   }
  754. }
  755.  
  756. /**
  757.  * Prepare defaults for themes.
  758.  *
  759.  * @return
  760.  *   An array of default themes settings.
  761.  */
  762. function system_theme_default() {
  763.   return array(
  764.     'regions' => array(
  765.       'left' => 'Left sidebar',
  766.       'right' => 'Right sidebar',
  767.       'content' => 'Content',
  768.       'header' => 'Header',
  769.       'footer' => 'Footer',
  770.     ),
  771.     'description' => '',
  772.     'features' => array(
  773.       'comment_user_picture',
  774.       'favicon',
  775.       'mission',
  776.       'logo',
  777.       'name',
  778.       'node_user_picture',
  779.       'search',
  780.       'slogan',
  781.       'primary_links',
  782.       'secondary_links',
  783.     ),
  784.     'stylesheets' => array(
  785.       'all' => array('style.css')
  786.     ),
  787.     'scripts' => array('script.js'),
  788.     'screenshot' => 'screenshot.png',
  789.     'php' => DRUPAL_MINIMUM_PHP,
  790.   );
  791. }
  792.  
  793. /**
  794.  * Collect data about all currently available themes.
  795.  *
  796.  * @return
  797.  *   Array of all available themes and their data.
  798.  */
  799. function system_theme_data() {
  800.   // Scan the installation theme .info files and their engines.
  801.   $themes = _system_theme_data();
  802.  
  803.   // Extract current files from database.
  804.   system_get_files_database($themes, 'theme');
  805.  
  806.   db_query("DELETE FROM {system} WHERE type = 'theme'");
  807.  
  808.   foreach ($themes as $theme) {
  809.     if (!isset($theme->owner)) {
  810.       $theme->owner = '';
  811.     }
  812.  
  813.     db_query("INSERT INTO {system} (name, owner, info, type, filename, status, throttle, bootstrap) VALUES ('%s', '%s', '%s', '%s', '%s', %d, %d, %d)", $theme->name, $theme->owner, serialize($theme->info), 'theme', $theme->filename, isset($theme->status) ? $theme->status : 0, 0, 0);
  814.   }
  815.  
  816.   return $themes;
  817. }
  818.  
  819. /**
  820.  * Helper function to scan and collect theme .info data and their engines.
  821.  *
  822.  * @return
  823.  *   An associative array of themes information.
  824.  */
  825. function _system_theme_data() {
  826.   static $themes_info = array();
  827.  
  828.   if (empty($theme_info)) {
  829.     // Find themes
  830.     $themes = drupal_system_listing('\.info$', 'themes');
  831.     // Find theme engines
  832.     $engines = drupal_system_listing('\.engine$', 'themes/engines');
  833.  
  834.     $defaults = system_theme_default();
  835.  
  836.     $sub_themes = array();
  837.     // Read info files for each theme
  838.     foreach ($themes as $key => $theme) {
  839.       $themes[$key]->info = drupal_parse_info_file($theme->filename) + $defaults;
  840.  
  841.       // Invoke hook_system_info_alter() to give installed modules a chance to
  842.       // modify the data in the .info files if necessary.
  843.       drupal_alter('system_info', $themes[$key]->info, $themes[$key]);
  844.  
  845.       if (!empty($themes[$key]->info['base theme'])) {
  846.         $sub_themes[] = $key;
  847.       }
  848.       if (empty($themes[$key]->info['engine'])) {
  849.         $filename = dirname($themes[$key]->filename) .'/'. $themes[$key]->name .'.theme';
  850.         if (file_exists($filename)) {
  851.           $themes[$key]->owner = $filename;
  852.           $themes[$key]->prefix = $key;
  853.         }
  854.       }
  855.       else {
  856.         $engine = $themes[$key]->info['engine'];
  857.         if (isset($engines[$engine])) {
  858.           $themes[$key]->owner = $engines[$engine]->filename;
  859.           $themes[$key]->prefix = $engines[$engine]->name;
  860.           $themes[$key]->template = TRUE;
  861.         }
  862.       }
  863.  
  864.       // Give the stylesheets proper path information.
  865.       $pathed_stylesheets = array();
  866.       foreach ($themes[$key]->info['stylesheets'] as $media => $stylesheets) {
  867.         foreach ($stylesheets as $stylesheet) {
  868.           $pathed_stylesheets[$media][$stylesheet] = dirname($themes[$key]->filename) .'/'. $stylesheet;
  869.         }
  870.       }
  871.       $themes[$key]->info['stylesheets'] = $pathed_stylesheets;
  872.  
  873.       // Give the scripts proper path information.
  874.       $scripts = array();
  875.       foreach ($themes[$key]->info['scripts'] as $script) {
  876.         $scripts[$script] = dirname($themes[$key]->filename) .'/'. $script;
  877.       }
  878.       $themes[$key]->info['scripts'] = $scripts;
  879.       // Give the screenshot proper path information.
  880.       if (!empty($themes[$key]->info['screenshot'])) {
  881.         $themes[$key]->info['screenshot'] = dirname($themes[$key]->filename) .'/'. $themes[$key]->info['screenshot'];
  882.       }
  883.     }
  884.  
  885.     // Now that we've established all our master themes, go back and fill in
  886.     // data for subthemes.
  887.     foreach ($sub_themes as $key) {
  888.       $base_key = system_find_base_theme($themes, $key);
  889.       if (!$base_key) {
  890.         continue;
  891.       }
  892.       // Copy the 'owner' and 'engine' over if the top level theme uses a
  893.       // theme engine.
  894.       if (isset($themes[$base_key]->owner)) {
  895.         if (isset($themes[$base_key]->info['engine'])) {
  896.           $themes[$key]->info['engine'] = $themes[$base_key]->info['engine'];
  897.           $themes[$key]->owner = $themes[$base_key]->owner;
  898.           $themes[$key]->prefix = $themes[$base_key]->prefix;
  899.         }
  900.         else {
  901.           $themes[$key]->prefix = $key;
  902.         }
  903.       }
  904.     }
  905.  
  906.     $themes_info = $themes;
  907.   }
  908.  
  909.   return $themes_info;
  910. }
  911.  
  912. /**
  913.  * Recursive function to find the top level base theme. Themes can inherit
  914.  * templates and function implementations from earlier themes.
  915.  *
  916.  * @param $themes
  917.  *   An array of available themes.
  918.  * @param $key
  919.  *   The name of the theme whose base we are looking for.
  920.  * @param $used_keys
  921.  *   A recursion parameter preventing endless loops.
  922.  * @return
  923.  *   Returns the top level parent that has no ancestor or returns NULL if there isn't a valid parent.
  924.  */
  925. function system_find_base_theme($themes, $key, $used_keys = array()) {
  926.   $base_key = $themes[$key]->info['base theme'];
  927.   // Does the base theme exist?
  928.   if (!isset($themes[$base_key])) {
  929.     return NULL;
  930.   }
  931.  
  932.   // Is the base theme itself a child of another theme?
  933.   if (isset($themes[$base_key]->info['base theme'])) {
  934.     // Prevent loops.
  935.     if (!empty($used_keys[$base_key])) {
  936.       return NULL;
  937.     }
  938.     $used_keys[$base_key] = TRUE;
  939.     return system_find_base_theme($themes, $base_key, $used_keys);
  940.   }
  941.   // If we get here, then this is our parent theme.
  942.   return $base_key;
  943. }
  944.  
  945. /**
  946.  * Get a list of available regions from a specified theme.
  947.  *
  948.  * @param $theme_key
  949.  *   The name of a theme.
  950.  * @return
  951.  *   An array of regions in the form $region['name'] = 'description'.
  952.  */
  953. function system_region_list($theme_key) {
  954.   static $list = array();
  955.  
  956.   if (!array_key_exists($theme_key, $list)) {
  957.     $info = unserialize(db_result(db_query("SELECT info FROM {system} WHERE type = 'theme' AND name = '%s'", $theme_key)));
  958.     $list[$theme_key] = array_map('t', $info['regions']);
  959.   }
  960.  
  961.   return $list[$theme_key];
  962. }
  963.  
  964. /**
  965.  * Get the name of the default region for a given theme.
  966.  *
  967.  * @param $theme
  968.  *   The name of a theme.
  969.  * @return
  970.  *   A string that is the region name.
  971.  */
  972. function system_default_region($theme) {
  973.   $regions = array_keys(system_region_list($theme));
  974.   return isset($regions[0]) ? $regions[0] : '';
  975. }
  976.  
  977. /**
  978.  * Assign an initial, default set of blocks for a theme.
  979.  *
  980.  * This function is called the first time a new theme is enabled. The new theme
  981.  * gets a copy of the default theme's blocks, with the difference that if a
  982.  * particular region isn't available in the new theme, the block is assigned
  983.  * to the new theme's default region.
  984.  *
  985.  * @param $theme
  986.  *   The name of a theme.
  987.  */
  988. function system_initialize_theme_blocks($theme) {
  989.   // Initialize theme's blocks if none already registered.
  990.   if (!(db_result(db_query("SELECT COUNT(*) FROM {blocks} WHERE theme = '%s'", $theme)))) {
  991.     $default_theme = variable_get('theme_default', 'garland');
  992.     $regions = system_region_list($theme);
  993.     $result = db_query("SELECT * FROM {blocks} WHERE theme = '%s'", $default_theme);
  994.     while ($block = db_fetch_array($result)) {
  995.       // If the region isn't supported by the theme, assign the block to the theme's default region.
  996.       if (!array_key_exists($block['region'], $regions)) {
  997.         $block['region'] = system_default_region($theme);
  998.       }
  999.       db_query("INSERT INTO {blocks} (module, delta, theme, status, weight, region, visibility, pages, custom, throttle, cache) VALUES ('%s', '%s', '%s', %d, %d, '%s', %d, '%s', %d, %d, %d)",
  1000.           $block['module'], $block['delta'], $theme, $block['status'], $block['weight'], $block['region'], $block['visibility'], $block['pages'], $block['custom'], $block['throttle'], $block['cache']);
  1001.     }
  1002.   }
  1003. }
  1004.  
  1005. /**
  1006.  * Add default buttons to a form and set its prefix.
  1007.  *
  1008.  * @ingroup forms
  1009.  * @see system_settings_form_submit()
  1010.  * @param $form
  1011.  *   An associative array containing the structure of the form.
  1012.  * @return
  1013.  *   The form structure.
  1014.  */
  1015. function system_settings_form($form) {
  1016.   $form['buttons']['submit'] = array('#type' => 'submit', '#value' => t('Save configuration') );
  1017.   $form['buttons']['reset'] = array('#type' => 'submit', '#value' => t('Reset to defaults') );
  1018.  
  1019.   if (!empty($_POST) && form_get_errors()) {
  1020.     drupal_set_message(t('The settings have not been saved because of the errors.'), 'error');
  1021.   }
  1022.   $form['#submit'][] = 'system_settings_form_submit';
  1023.   $form['#theme'] = 'system_settings_form';
  1024.   return $form;
  1025. }
  1026.  
  1027. /**
  1028.  * Execute the system_settings_form.
  1029.  *
  1030.  * If you want node type configure style handling of your checkboxes,
  1031.  * add an array_filter value to your form.
  1032.  */
  1033. function system_settings_form_submit($form, &$form_state) {
  1034.   $op = isset($form_state['values']['op']) ? $form_state['values']['op'] : '';
  1035.  
  1036.   // Exclude unnecessary elements.
  1037.   unset($form_state['values']['submit'], $form_state['values']['reset'], $form_state['values']['form_id'], $form_state['values']['op'], $form_state['values']['form_token'], $form_state['values']['form_build_id']);
  1038.  
  1039.   foreach ($form_state['values'] as $key => $value) {
  1040.     if ($op == t('Reset to defaults')) {
  1041.       variable_del($key);
  1042.     }
  1043.     else {
  1044.       if (is_array($value) && isset($form_state['values']['array_filter'])) {
  1045.         $value = array_keys(array_filter($value));
  1046.       }
  1047.       variable_set($key, $value);
  1048.     }
  1049.   }
  1050.   if ($op == t('Reset to defaults')) {
  1051.     drupal_set_message(t('The configuration options have been reset to their default values.'));
  1052.   }
  1053.   else {
  1054.     drupal_set_message(t('The configuration options have been saved.'));
  1055.   }
  1056.  
  1057.   cache_clear_all();
  1058.   drupal_rebuild_theme_registry();
  1059. }
  1060.  
  1061. /**
  1062.  * Helper function to sort requirements.
  1063.  */
  1064. function _system_sort_requirements($a, $b) {
  1065.   if (!isset($a['weight'])) {
  1066.     if (!isset($b['weight'])) {
  1067.       return strcmp($a['title'], $b['title']);
  1068.     }
  1069.     return -$b['weight'];
  1070.   }
  1071.   return isset($b['weight']) ? $a['weight'] - $b['weight'] : $a['weight'];
  1072. }
  1073.  
  1074. /**
  1075.  * Implementation of hook_node_type().
  1076.  *
  1077.  * Updates theme settings after a node type change.
  1078.  */
  1079. function system_node_type($op, $info) {
  1080.   if ($op == 'update' && !empty($info->old_type) && $info->type != $info->old_type) {
  1081.     $old = 'toggle_node_info_'. $info->old_type;
  1082.     $new = 'toggle_node_info_'. $info->type;
  1083.  
  1084.     $theme_settings = variable_get('theme_settings', array());
  1085.     if (isset($theme_settings[$old])) {
  1086.       $theme_settings[$new] = $theme_settings[$old];
  1087.       unset($theme_settings[$old]);
  1088.       variable_set('theme_settings', $theme_settings);
  1089.     }
  1090.   }
  1091. }
  1092.  
  1093. /**
  1094.  * Output a confirmation form
  1095.  *
  1096.  * This function returns a complete form for confirming an action. A link is
  1097.  * offered to go back to the item that is being changed in case the user changes
  1098.  * his/her mind.
  1099.  *
  1100.  * If the submit handler for this form is invoked, the user successfully
  1101.  * confirmed the action. You should never directly inspect $_POST to see if an
  1102.  * action was confirmed.
  1103.  *
  1104.  * @ingroup forms
  1105.  * @param $form
  1106.  *   Additional elements to inject into the form, for example hidden elements.
  1107.  * @param $question
  1108.  *   The question to ask the user (e.g. "Are you sure you want to delete the
  1109.  *   block <em>foo</em>?").
  1110.  * @param $path
  1111.  *   The page to go to if the user denies the action.
  1112.  *   Can be either a drupal path, or an array with the keys 'path', 'query', 'fragment'.
  1113.  * @param $description
  1114.  *   Additional text to display (defaults to "This action cannot be undone.").
  1115.  * @param $yes
  1116.  *   A caption for the button which confirms the action (e.g. "Delete",
  1117.  *   "Replace", ...).
  1118.  * @param $no
  1119.  *   A caption for the link which denies the action (e.g. "Cancel").
  1120.  * @param $name
  1121.  *   The internal name used to refer to the confirmation item.
  1122.  * @return
  1123.  *   The form.
  1124.  */
  1125. function confirm_form($form, $question, $path, $description = NULL, $yes = NULL, $no = NULL, $name = 'confirm') {
  1126.   $description = isset($description) ? $description : t('This action cannot be undone.');
  1127.  
  1128.   // Prepare cancel link
  1129.   $query = $fragment = NULL;
  1130.   if (is_array($path)) {
  1131.     $query = isset($path['query']) ? $path['query'] : NULL;
  1132.     $fragment = isset($path['fragment']) ? $path['fragment'] : NULL;
  1133.     $path = isset($path['path']) ? $path['path'] : NULL;
  1134.   }
  1135.   $cancel = l($no ? $no : t('Cancel'), $path, array('query' => $query, 'fragment' => $fragment));
  1136.  
  1137.   drupal_set_title($question);
  1138.  
  1139.   // Confirm form fails duplication check, as the form values rarely change -- so skip it.
  1140.   $form['#skip_duplicate_check'] = TRUE;
  1141.  
  1142.   $form['#attributes'] = array('class' => 'confirmation');
  1143.   $form['description'] = array('#value' => $description);
  1144.   $form[$name] = array('#type' => 'hidden', '#value' => 1);
  1145.  
  1146.   $form['actions'] = array('#prefix' => '<div class="container-inline">', '#suffix' => '</div>');
  1147.   $form['actions']['submit'] = array('#type' => 'submit', '#value' => $yes ? $yes : t('Confirm'));
  1148.   $form['actions']['cancel'] = array('#value' => $cancel);
  1149.   $form['#theme'] = 'confirm_form';
  1150.   return $form;
  1151. }
  1152.  
  1153. /**
  1154.  * Determine if a user is in compact mode.
  1155.  */
  1156. function system_admin_compact_mode() {
  1157.   global $user;
  1158.   return (isset($user->admin_compact_mode)) ? $user->admin_compact_mode : variable_get('admin_compact_mode', FALSE);
  1159. }
  1160.  
  1161. /**
  1162.  * Generate a list of tasks offered by a specified module.
  1163.  *
  1164.  * @param $module
  1165.  *   Module name.
  1166.  * @return
  1167.  *   An array of task links.
  1168.  */
  1169. function system_get_module_admin_tasks($module) {
  1170.   static $items;
  1171.  
  1172.   $admin_access = user_access('administer permissions');
  1173.   $admin_tasks = array();
  1174.  
  1175.   if (!isset($items)) {
  1176.     $result = db_query("
  1177.        SELECT m.load_functions, m.to_arg_functions, m.access_callback, m.access_arguments, m.page_callback, m.page_arguments, m.title, m.title_callback, m.title_arguments, m.type, ml.*
  1178.        FROM {menu_links} ml INNER JOIN {menu_router} m ON ml.router_path = m.path WHERE ml.link_path LIKE 'admin/%' AND hidden >= 0 AND module = 'system' AND m.number_parts > 2");
  1179.     $items = array();
  1180.     while ($item = db_fetch_array($result)) {
  1181.       _menu_link_translate($item);
  1182.       if ($item['access']) {
  1183.         $items[$item['router_path']] = $item;
  1184.       }
  1185.     }
  1186.   }
  1187.   $admin_tasks = array();
  1188.   $admin_task_count = 0;
  1189.   // Check for permissions.
  1190.   if (module_hook($module, 'perm') && $admin_access) {
  1191.     $admin_tasks[-1] = l(t('Configure permissions'), 'admin/user/permissions', array('fragment' => 'module-'. $module));
  1192.   }
  1193.  
  1194.   // Check for menu items that are admin links.
  1195.   if ($menu = module_invoke($module, 'menu')) {
  1196.     foreach (array_keys($menu) as $path) {
  1197.       if (isset($items[$path])) {
  1198.         $admin_tasks[$items[$path]['title'] . $admin_task_count ++] = l($items[$path]['title'], $path);
  1199.       }
  1200.     }
  1201.   }
  1202.  
  1203.   return $admin_tasks;
  1204. }
  1205.  
  1206. /**
  1207.  * Implementation of hook_cron().
  1208.  *
  1209.  * Remove older rows from flood and batch table. Remove old temporary files.
  1210.  */
  1211. function system_cron() {
  1212.   // Cleanup the flood.
  1213.   db_query('DELETE FROM {flood} WHERE timestamp < %d', time() - 3600);
  1214.   // Cleanup the batch table.
  1215.   db_query('DELETE FROM {batch} WHERE timestamp < %d', time() - 864000);
  1216.  
  1217.   // Remove temporary files that are older than DRUPAL_MAXIMUM_TEMP_FILE_AGE.
  1218.   $result = db_query('SELECT * FROM {files} WHERE status = %d and timestamp < %d', FILE_STATUS_TEMPORARY, time() - DRUPAL_MAXIMUM_TEMP_FILE_AGE);
  1219.   while ($file = db_fetch_object($result)) {
  1220.     if (file_exists($file->filepath)) {
  1221.       // If files that exist cannot be deleted, continue so the database remains
  1222.       // consistent.
  1223.       if (!file_delete($file->filepath)) {
  1224.         watchdog('file system', 'Could not delete temporary file "%path" during garbage collection', array('%path' => $file->filepath), 'error');
  1225.         continue;
  1226.       }
  1227.     }
  1228.     db_query('DELETE FROM {files} WHERE fid = %d', $file->fid);
  1229.   }
  1230. }
  1231.  
  1232. /**
  1233.  * Implementation of hook_hook_info().
  1234.  */
  1235. function system_hook_info() {
  1236.   return array(
  1237.     'system' => array(
  1238.       'cron' => array(
  1239.         'run' => array(
  1240.           'runs when' => t('When cron runs'),
  1241.         ),
  1242.       ),
  1243.     ),
  1244.   );
  1245. }
  1246.  
  1247. /**
  1248.  * Implementation of hook_action_info().
  1249.  */
  1250. function system_action_info() {
  1251.   return array(
  1252.     'system_message_action' => array(
  1253.       'type' => 'system',
  1254.       'description' => t('Display a message to the user'),
  1255.       'configurable' => TRUE,
  1256.       'hooks' => array(
  1257.         'nodeapi' => array('view', 'insert', 'update', 'delete'),
  1258.         'comment' => array('view', 'insert', 'update', 'delete'),
  1259.         'user' => array('view', 'insert', 'update', 'delete', 'login'),
  1260.         'taxonomy' => array('insert', 'update', 'delete'),
  1261.       ),
  1262.     ),
  1263.     'system_send_email_action' => array(
  1264.       'description' => t('Send e-mail'),
  1265.       'type' => 'system',
  1266.       'configurable' => TRUE,
  1267.       'hooks' => array(
  1268.         'nodeapi' => array('view', 'insert', 'update', 'delete'),
  1269.         'comment' => array('view', 'insert', 'update', 'delete'),
  1270.         'user' => array('view', 'insert', 'update', 'delete', 'login'),
  1271.         'taxonomy' => array('insert', 'update', 'delete'),
  1272.       )
  1273.     ),
  1274.     'system_goto_action' => array(
  1275.       'description' => t('Redirect to URL'),
  1276.       'type' => 'system',
  1277.       'configurable' => TRUE,
  1278.       'hooks' => array(
  1279.         'nodeapi' => array('view', 'insert', 'update', 'delete'),
  1280.         'comment' => array('view', 'insert', 'update', 'delete'),
  1281.         'user' => array('view', 'insert', 'update', 'delete', 'login'),
  1282.       )
  1283.     )
  1284.   );
  1285. }
  1286.  
  1287. /**
  1288.  * Menu callback. Display an overview of available and configured actions.
  1289.  */
  1290. function system_actions_manage() {
  1291.   $output = '';
  1292.   $actions = actions_list();
  1293.   actions_synchronize($actions);
  1294.   $actions_map = actions_actions_map($actions);
  1295.   $options = array(t('Choose an advanced action'));
  1296.   $unconfigurable = array();
  1297.  
  1298.   foreach ($actions_map as $key => $array) {
  1299.     if ($array['configurable']) {
  1300.       $options[$key] = $array['description'] .'...';
  1301.     }
  1302.     else {
  1303.       $unconfigurable[] = $array;
  1304.     }
  1305.   }
  1306.  
  1307.   $row = array();
  1308.   $instances_present = db_fetch_object(db_query("SELECT aid FROM {actions} WHERE parameters != ''"));
  1309.   $header = array(
  1310.     array('data' => t('Action type'), 'field' => 'type'),
  1311.     array('data' => t('Description'), 'field' => 'description'),
  1312.     array('data' => $instances_present ? t('Operations') : '', 'colspan' => '2')
  1313.   );
  1314.   $sql = 'SELECT * FROM {actions}';
  1315.   $result = pager_query($sql . tablesort_sql($header), 50);
  1316.   while ($action = db_fetch_object($result)) {
  1317.     $row[] = array(
  1318.       array('data' => $action->type),
  1319.       array('data' => $action->description),
  1320.       array('data' => $action->parameters ? l(t('configure'), "admin/settings/actions/configure/$action->aid") : ''),
  1321.       array('data' => $action->parameters ? l(t('delete'), "admin/settings/actions/delete/$action->aid") : '')
  1322.     );
  1323.   }
  1324.  
  1325.   if ($row) {
  1326.     $pager = theme('pager', NULL, 50, 0);
  1327.     if (!empty($pager)) {
  1328.       $row[] = array(array('data' => $pager, 'colspan' => '3'));
  1329.     }
  1330.     $output .= '<h3>'. t('Actions available to Drupal:') .'</h3>';
  1331.     $output .= theme('table', $header, $row);
  1332.   }
  1333.  
  1334.   if ($actions_map) {
  1335.     $output .= drupal_get_form('system_actions_manage_form', $options);
  1336.   }
  1337.  
  1338.   return $output;
  1339. }
  1340.  
  1341. /**
  1342.  * Define the form for the actions overview page.
  1343.  *
  1344.  * @see system_actions_manage_form_submit()
  1345.  * @ingroup forms
  1346.  * @param $form_state
  1347.  *   An associative array containing the current state of the form; not used.
  1348.  * @param $options
  1349.  *   An array of configurable actions.
  1350.  * @return
  1351.  *   Form definition.
  1352.  */
  1353. function system_actions_manage_form($form_state, $options = array()) {
  1354.   $form['parent'] = array(
  1355.     '#type' => 'fieldset',
  1356.     '#title' => t('Make a new advanced action available'),
  1357.     '#prefix' => '<div class="container-inline">',
  1358.     '#suffix' => '</div>',
  1359.   );
  1360.   $form['parent']['action'] = array(
  1361.     '#type' => 'select',
  1362.     '#default_value' => '',
  1363.     '#options' => $options,
  1364.     '#description' => '',
  1365.   );
  1366.   $form['parent']['buttons']['submit'] = array(
  1367.     '#type' => 'submit',
  1368.     '#value' => t('Create'),
  1369.   );
  1370.   return $form;
  1371. }
  1372.  
  1373. /**
  1374.  * Process system_actions_manage form submissions.
  1375.  */
  1376. function system_actions_manage_form_submit($form, &$form_state) {
  1377.   if ($form_state['values']['action']) {
  1378.     $form_state['redirect'] = 'admin/settings/actions/configure/'. $form_state['values']['action'];
  1379.   }
  1380. }
  1381.  
  1382. /**
  1383.  * Menu callback. Create the form for configuration of a single action.
  1384.  *
  1385.  * We provide the "Description" field. The rest of the form
  1386.  * is provided by the action. We then provide the Save button.
  1387.  * Because we are combining unknown form elements with the action
  1388.  * configuration form, we use actions_ prefix on our elements.
  1389.  *
  1390.  * @see system_actions_configure_validate()
  1391.  * @see system_actions_configure_submit()
  1392.  * @param $action
  1393.  *   md5 hash of action ID or an integer. If it's an md5 hash, we
  1394.  *   are creating a new instance. If it's an integer, we're editing
  1395.  *   an existing instance.
  1396.  * @return
  1397.  *   Form definition.
  1398.  */
  1399. function system_actions_configure($form_state, $action = NULL) {
  1400.   if ($action === NULL) {
  1401.     drupal_goto('admin/settings/actions');
  1402.   }
  1403.  
  1404.   $actions_map = actions_actions_map(actions_list());
  1405.   $edit = array();
  1406.  
  1407.   // Numeric action denotes saved instance of a configurable action;
  1408.   // else we are creating a new action instance.
  1409.   if (is_numeric($action)) {
  1410.     $aid = $action;
  1411.     // Load stored parameter values from database.
  1412.     $data = db_fetch_object(db_query("SELECT * FROM {actions} WHERE aid = %d", intval($aid)));
  1413.     $edit['actions_description'] = $data->description;
  1414.     $edit['actions_type'] = $data->type;
  1415.     $function = $data->callback;
  1416.     $action = md5($data->callback);
  1417.     $params = unserialize($data->parameters);
  1418.     if ($params) {
  1419.       foreach ($params as $name => $val) {
  1420.         $edit[$name] = $val;
  1421.       }
  1422.     }
  1423.   }
  1424.   else {
  1425.     $function = $actions_map[$action]['callback'];
  1426.     $edit['actions_description'] = $actions_map[$action]['description'];
  1427.     $edit['actions_type'] = $actions_map[$action]['type'];
  1428.   }
  1429.  
  1430.   $form['actions_description'] = array(
  1431.     '#type' => 'textfield',
  1432.     '#title' => t('Description'),
  1433.     '#default_value' => $edit['actions_description'],
  1434.     '#maxlength' => '255',
  1435.     '#description' => t('A unique description for this advanced action. This description will be displayed in the interface of modules that integrate with actions, such as Trigger module.'),
  1436.     '#weight' => -10
  1437.   );
  1438.   $action_form = $function .'_form';
  1439.   $form = array_merge($form, $action_form($edit));
  1440.   $form['actions_type'] = array(
  1441.     '#type' => 'value',
  1442.     '#value' => $edit['actions_type'],
  1443.   );
  1444.   $form['actions_action'] = array(
  1445.     '#type' => 'hidden',
  1446.     '#value' => $action,
  1447.   );
  1448.   // $aid is set when configuring an existing action instance.
  1449.   if (isset($aid)) {
  1450.     $form['actions_aid'] = array(
  1451.       '#type' => 'hidden',
  1452.       '#value' => $aid,
  1453.     );
  1454.   }
  1455.   $form['actions_configured'] = array(
  1456.     '#type' => 'hidden',
  1457.     '#value' => '1',
  1458.   );
  1459.   $form['buttons']['submit'] = array(
  1460.     '#type' => 'submit',
  1461.     '#value' => t('Save'),
  1462.     '#weight' => 13
  1463.   );
  1464.  
  1465.   return $form;
  1466. }
  1467.  
  1468. /**
  1469.  * Validate system_actions_configure form submissions.
  1470.  */
  1471. function system_actions_configure_validate($form, $form_state) {
  1472.   $function = actions_function_lookup($form_state['values']['actions_action']) .'_validate';
  1473.   // Hand off validation to the action.
  1474.   if (function_exists($function)) {
  1475.     $function($form, $form_state);
  1476.   }
  1477. }
  1478.  
  1479. /**
  1480.  * Process system_actions_configure form submissions.
  1481.  */
  1482. function system_actions_configure_submit($form, &$form_state) {
  1483.   $function = actions_function_lookup($form_state['values']['actions_action']);
  1484.   $submit_function = $function .'_submit';
  1485.  
  1486.   // Action will return keyed array of values to store.
  1487.   $params = $submit_function($form, $form_state);
  1488.   $aid = isset($form_state['values']['actions_aid']) ? $form_state['values']['actions_aid'] : NULL;
  1489.  
  1490.   actions_save($function, $form_state['values']['actions_type'], $params, $form_state['values']['actions_description'], $aid);
  1491.   drupal_set_message(t('The action has been successfully saved.'));
  1492.  
  1493.   $form_state['redirect'] = 'admin/settings/actions/manage';
  1494. }
  1495.  
  1496. /**
  1497.  * Create the form for confirmation of deleting an action.
  1498.  *
  1499.  * @ingroup forms
  1500.  * @see system_actions_delete_form_submit()
  1501.  */
  1502. function system_actions_delete_form($form_state, $action) {
  1503.  
  1504.   $form['aid'] = array(
  1505.     '#type' => 'hidden',
  1506.     '#value' => $action->aid,
  1507.   );
  1508.   return confirm_form($form,
  1509.     t('Are you sure you want to delete the action %action?', array('%action' => $action->description)),
  1510.     'admin/settings/actions/manage',
  1511.     t('This cannot be undone.'),
  1512.     t('Delete'), t('Cancel')
  1513.   );
  1514. }
  1515.  
  1516. /**
  1517.  * Process system_actions_delete form submissions.
  1518.  *
  1519.  * Post-deletion operations for action deletion.
  1520.  */
  1521. function system_actions_delete_form_submit($form, &$form_state) {
  1522.   $aid = $form_state['values']['aid'];
  1523.   $action = actions_load($aid);
  1524.   actions_delete($aid);
  1525.   $description = check_plain($action->description);
  1526.   watchdog('user', 'Deleted action %aid (%action)', array('%aid' => $aid, '%action' => $description));
  1527.   drupal_set_message(t('Action %action was deleted', array('%action' => $description)));
  1528.   $form_state['redirect'] = 'admin/settings/actions/manage';
  1529. }
  1530.  
  1531. /**
  1532.  * Post-deletion operations for deleting action orphans.
  1533.  *
  1534.  * @param $orphaned
  1535.  *   An array of orphaned actions.
  1536.  */
  1537. function system_action_delete_orphans_post($orphaned) {
  1538.   foreach ($orphaned as $callback) {
  1539.     drupal_set_message(t("Deleted orphaned action (%action).", array('%action' => $callback)));
  1540.   }
  1541. }
  1542.  
  1543. /**
  1544.  * Remove actions that are in the database but not supported by any enabled module.
  1545.  */
  1546. function system_actions_remove_orphans() {
  1547.   actions_synchronize(actions_list(), TRUE);
  1548.   drupal_goto('admin/settings/actions/manage');
  1549. }
  1550.  
  1551. /**
  1552.  * Return a form definition so the Send email action can be configured.
  1553.  *
  1554.  * @see system_send_email_action_validate()
  1555.  * @see system_send_email_action_submit()
  1556.  * @param $context
  1557.  *   Default values (if we are editing an existing action instance).
  1558.  * @return
  1559.  *   Form definition.
  1560.  */
  1561. function system_send_email_action_form($context) {
  1562.   // Set default values for form.
  1563.   if (!isset($context['recipient'])) {
  1564.     $context['recipient'] = '';
  1565.   }
  1566.   if (!isset($context['subject'])) {
  1567.     $context['subject'] = '';
  1568.   }
  1569.   if (!isset($context['message'])) {
  1570.     $context['message'] = '';
  1571.   }
  1572.  
  1573.   $form['recipient'] = array(
  1574.     '#type' => 'textfield',
  1575.     '#title' => t('Recipient'),
  1576.     '#default_value' => $context['recipient'],
  1577.     '#maxlength' => '254',
  1578.     '#description' => t('The email address to which the message should be sent OR enter %author if you would like to send an e-mail to the author of the original post.', array('%author' => '%author')),
  1579.   );
  1580.   $form['subject'] = array(
  1581.     '#type' => 'textfield',
  1582.     '#title' => t('Subject'),
  1583.     '#default_value' => $context['subject'],
  1584.     '#maxlength' => '254',
  1585.     '#description' => t('The subject of the message.'),
  1586.   );
  1587.   $form['message'] = array(
  1588.     '#type' => 'textarea',
  1589.     '#title' => t('Message'),
  1590.     '#default_value' => $context['message'],
  1591.     '#cols' => '80',
  1592.     '#rows' => '20',
  1593.     '#description' => t('The message that should be sent. You may include the following variables: %site_name, %username, %node_url, %node_type, %title, %teaser, %body. Not all variables will be available in all contexts.'),
  1594.   );
  1595.   return $form;
  1596. }
  1597.  
  1598. /**
  1599.  * Validate system_send_email_action form submissions.
  1600.  */
  1601. function system_send_email_action_validate($form, $form_state) {
  1602.   $form_values = $form_state['values'];
  1603.   // Validate the configuration form.
  1604.   if (!valid_email_address($form_values['recipient']) && $form_values['recipient'] != '%author') {
  1605.     // We want the literal %author placeholder to be emphasized in the error message.
  1606.     form_set_error('recipient', t('Please enter a valid email address or %author.', array('%author' => '%author')));
  1607.   }
  1608. }
  1609.  
  1610. /**
  1611.  * Process system_send_email_action form submissions.
  1612.  */
  1613. function system_send_email_action_submit($form, $form_state) {
  1614.   $form_values = $form_state['values'];
  1615.   // Process the HTML form to store configuration. The keyed array that
  1616.   // we return will be serialized to the database.
  1617.   $params = array(
  1618.     'recipient' => $form_values['recipient'],
  1619.     'subject'   => $form_values['subject'],
  1620.     'message'   => $form_values['message'],
  1621.   );
  1622.   return $params;
  1623. }
  1624.  
  1625. /**
  1626.  * Implementation of a configurable Drupal action. Sends an email.
  1627.  */
  1628. function system_send_email_action($object, $context) {
  1629.   global $user;
  1630.  
  1631.   switch ($context['hook']) {
  1632.     case 'nodeapi':
  1633.       // Because this is not an action of type 'node' the node
  1634.       // will not be passed as $object, but it will still be available
  1635.       // in $context.
  1636.       $node = $context['node'];
  1637.       break;
  1638.     // The comment hook provides nid, in $context.
  1639.     case 'comment':
  1640.       $comment = $context['comment'];
  1641.       $node = node_load($comment->nid);
  1642.       break;
  1643.     case 'user':
  1644.       // Because this is not an action of type 'user' the user
  1645.       // object is not passed as $object, but it will still be available
  1646.       // in $context.
  1647.       $account = $context['account'];
  1648.       if (isset($context['node'])) {
  1649.         $node = $context['node'];
  1650.       }
  1651.       elseif ($context['recipient'] == '%author') {
  1652.         // If we don't have a node, we don't have a node author.
  1653.         watchdog('error', 'Cannot use %author token in this context.');
  1654.         return;
  1655.       }
  1656.       break;
  1657.     default:
  1658.       // We are being called directly.
  1659.       $node = $object;
  1660.   }
  1661.  
  1662.   $recipient = $context['recipient'];
  1663.  
  1664.   if (isset($node)) {
  1665.     if (!isset($account)) {
  1666.       $account = user_load(array('uid' => $node->uid));
  1667.     }
  1668.     if ($recipient == '%author') {
  1669.       $recipient = $account->mail;
  1670.     }
  1671.   }
  1672.  
  1673.   if (!isset($account)) {
  1674.     $account = $user;
  1675.  
  1676.   }
  1677.   $language = user_preferred_language($account);
  1678.   $params = array('account' => $account, 'object' => $object, 'context' => $context);
  1679.   if (isset($node)) {
  1680.     $params['node'] = $node;
  1681.   }
  1682.  
  1683.   if (drupal_mail('system', 'action_send_email', $recipient, $language, $params)) {
  1684.     watchdog('action', 'Sent email to %recipient', array('%recipient' => $recipient));
  1685.   }
  1686.   else {
  1687.     watchdog('error', 'Unable to send email to %recipient', array('%recipient' => $recipient));
  1688.   }
  1689. }
  1690.  
  1691. /**
  1692.  * Implementation of hook_mail().
  1693.  */
  1694. function system_mail($key, &$message, $params) {
  1695.   $account = $params['account'];
  1696.   $context = $params['context'];
  1697.   $variables = array(
  1698.     '%site_name' => variable_get('site_name', 'Drupal'),
  1699.     '%username' => $account->name,
  1700.   );
  1701.   if ($context['hook'] == 'taxonomy') {
  1702.     $object = $params['object'];
  1703.     $vocabulary = taxonomy_vocabulary_load($object->vid);
  1704.     $variables += array(
  1705.       '%term_name' => $object->name,
  1706.       '%term_description' => $object->description,
  1707.       '%term_id' => $object->tid,
  1708.       '%vocabulary_name' => $vocabulary->name,
  1709.       '%vocabulary_description' => $vocabulary->description,
  1710.       '%vocabulary_id' => $vocabulary->vid,
  1711.     );
  1712.   }
  1713.  
  1714.   // Node-based variable translation is only available if we have a node.
  1715.   if (isset($params['node'])) {
  1716.     $node = $params['node'];
  1717.     $variables += array(
  1718.       '%uid' => $node->uid,
  1719.       '%node_url' => url('node/'. $node->nid, array('absolute' => TRUE)),
  1720.       '%node_type' => node_get_types('name', $node),
  1721.       '%title' => $node->title,
  1722.       '%teaser' => $node->teaser,
  1723.       '%body' => $node->body,
  1724.     );
  1725.   }
  1726.   $subject = strtr($context['subject'], $variables);
  1727.   $body = strtr($context['message'], $variables);
  1728.   $message['subject'] .= str_replace(array("\r", "\n"), '', $subject);
  1729.   $message['body'][] = drupal_html_to_text($body);
  1730. }
  1731.  
  1732. function system_message_action_form($context) {
  1733.   $form['message'] = array(
  1734.     '#type' => 'textarea',
  1735.     '#title' => t('Message'),
  1736.     '#default_value' => isset($context['message']) ? $context['message'] : '',
  1737.     '#required' => TRUE,
  1738.     '#rows' => '8',
  1739.     '#description' => t('The message to be displayed to the current user. You may include the following variables: %site_name, %username, %node_url, %node_type, %title, %teaser, %body. Not all variables will be available in all contexts.'),
  1740.   );
  1741.   return $form;
  1742. }
  1743.  
  1744. function system_message_action_submit($form, $form_state) {
  1745.   return array('message' => $form_state['values']['message']);
  1746. }
  1747.  
  1748. /**
  1749.  * A configurable Drupal action. Sends a message to the current user's screen.
  1750.  */
  1751. function system_message_action(&$object, $context = array()) {
  1752.   global $user;
  1753.   $variables = array(
  1754.     '%site_name' => variable_get('site_name', 'Drupal'),
  1755.     '%username' => $user->name ? $user->name : variable_get('anonymous', t('Anonymous')),
  1756.   );
  1757.  
  1758.   // This action can be called in any context, but if placeholders
  1759.   // are used a node object must be present to be the source
  1760.   // of substituted text.
  1761.   switch ($context['hook']) {
  1762.     case 'nodeapi':
  1763.       // Because this is not an action of type 'node' the node
  1764.       // will not be passed as $object, but it will still be available
  1765.       // in $context.
  1766.       $node = $context['node'];
  1767.       break;
  1768.     // The comment hook also provides the node, in context.
  1769.     case 'comment':
  1770.       $comment = $context['comment'];
  1771.       $node = node_load($comment->nid);
  1772.       break;
  1773.     case 'taxonomy':
  1774.       $vocabulary = taxonomy_vocabulary_load($object->vid);
  1775.       $variables = array_merge($variables, array(
  1776.         '%term_name' => $object->name,
  1777.         '%term_description' => $object->description,
  1778.         '%term_id' => $object->tid,
  1779.         '%vocabulary_name' => $vocabulary->name,
  1780.         '%vocabulary_description' => $vocabulary->description,
  1781.         '%vocabulary_id' => $vocabulary->vid,
  1782.         )
  1783.       );
  1784.       break;
  1785.     default:
  1786.       // We are being called directly.
  1787.       $node = $object;
  1788.   }
  1789.  
  1790.   if (isset($node) && is_object($node)) {
  1791.     $variables = array_merge($variables, array(
  1792.       '%uid' => $node->uid,
  1793.       '%node_url' => url('node/'. $node->nid, array('absolute' => TRUE)),
  1794.       '%node_type' => check_plain(node_get_types('name', $node)),
  1795.       '%title' => filter_xss($node->title),
  1796.       '%teaser' => filter_xss($node->teaser),
  1797.       '%body' => filter_xss($node->body),
  1798.       )
  1799.     );
  1800.   }
  1801.   $context['message'] = strtr($context['message'], $variables);
  1802.   drupal_set_message($context['message']);
  1803. }
  1804.  
  1805. /**
  1806.  * Implementation of a configurable Drupal action. Redirect user to a URL.
  1807.  */
  1808. function system_goto_action_form($context) {
  1809.   $form['url'] = array(
  1810.     '#type' => 'textfield',
  1811.     '#title' => t('URL'),
  1812.     '#description' => t('The URL to which the user should be redirected. This can be an internal URL like node/1234 or an external URL like http://drupal.org.'),
  1813.     '#default_value' => isset($context['url']) ? $context['url'] : '',
  1814.     '#required' => TRUE,
  1815.   );
  1816.   return $form;
  1817. }
  1818.  
  1819. function system_goto_action_submit($form, $form_state) {
  1820.   return array(
  1821.     'url' => $form_state['values']['url']
  1822.   );
  1823. }
  1824.  
  1825. function system_goto_action($object, $context) {
  1826.   drupal_goto($context['url']);
  1827. }
  1828.  
  1829. /**
  1830.  * Generate an array of time zones and their local time&date.
  1831.  */
  1832. function _system_zonelist() {
  1833.   $timestamp = time();
  1834.   $zonelist = array(-11, -10, -9.5, -9, -8, -7, -6, -5, -4, -3.5, -3, -2, -1, 0, 1, 2, 3, 3.5, 4, 5, 5.5, 5.75, 6, 6.5, 7, 8, 9, 9.5, 10, 10.5, 11, 11.5, 12, 12.75, 13, 14);
  1835.   $zones = array();
  1836.   foreach ($zonelist as $offset) {
  1837.     $zone = $offset * 3600;
  1838.     $zones[$zone] = format_date($timestamp, 'custom', variable_get('date_format_long', 'l, F j, Y - H:i') .' O', $zone);
  1839.   }
  1840.   return $zones;
  1841. }
  1842.  
  1843. /**
  1844.  * Checks whether the server is capable of issuing HTTP requests.
  1845.  *
  1846.  * The function sets the drupal_http_request_fail system variable to TRUE if
  1847.  * drupal_http_request() does not work and then the system status report page
  1848.  * will contain an error.
  1849.  *
  1850.  * @return
  1851.  *  Whether the admin/reports/request-test page can be requested via HTTP
  1852.  *  and contains the same output as if called via the menu system.
  1853.  */
  1854. function system_check_http_request() {
  1855.   // Check whether we can do any request at all. First get the results for
  1856.   // a very simple page which has access TRUE set via the menu system. Then,
  1857.   // try to drupal_http_request() the same page and compare.
  1858.   ob_start();
  1859.   $path = 'admin/reports/request-test';
  1860.   menu_execute_active_handler($path);
  1861.   $nothing = ob_get_contents();
  1862.   ob_end_clean();
  1863.   $result = drupal_http_request(url($path, array('absolute' => TRUE)));
  1864.   $works = isset($result->data) && $result->data == $nothing;
  1865.   variable_set('drupal_http_request_fails', !$works);
  1866.   return $works;
  1867. }
  1868.  
  1869. /**
  1870.  * Format the Powered by Drupal text.
  1871.  *
  1872.  * @ingroup themeable
  1873.  */
  1874. function theme_system_powered_by($image_path) {
  1875.   $image = theme('image', $image_path, t('Powered by Drupal, an open source content management system'), t('Powered by Drupal, an open source content management system'));
  1876.   return l($image, 'http://drupal.org', array('html' => TRUE, 'absolute' => TRUE, 'external' => TRUE));
  1877. }
  1878.