modules/swftools/swftools.admin.inc

<?php
// $Id: swftools.admin.inc,v 1.9 2009/03/13 22:59:23 stuartgreenfield Exp $

function swftools_admin_embed_form() {

  // Clear all caches
  drupal_flush_all_caches();

  // Get array of options that will be used for form elements
  $swf_options = _swftools_options();

  // Add admin css
  drupal_add_css(drupal_get_path('module', 'swftools') . '/swftools.admin.css', 'module', 'all', FALSE);

  // Get playlist path
  $playlist_path = swftools_get_playlist_path();
  
  // Get player path
  $player_directory = swftools_get_player_path() . '/';

  // Initialise array to hold the form
  $form = array();

  // Start a fieldset to hold the embedding methods
  $form['swftools_method'] = array(
    '#type'  => 'fieldset',
    '#title' => t('Embedding methods'),
    '#collapsible' => TRUE,
    '#collapsed' => TRUE,
  );

  // Get the available embedding methods
  $methods = swftools_methods_available(SWFTOOLS_EMBED);

  // Build array of options ready for the selector
  if (count($methods)) {
    foreach ($methods AS $method => $info) {

      // Only show this method as an embedding method if it is not a private method
      if (!isset($info['private'])) {
      
        // Start with the name of the player
        $swf_embed_methods[$method] = $info['title'];
        
        // If the required shared file is missing add a message explaining
        if (!file_exists($player_directory . $info['shared_file'])) {

          // Set an error on the form so the field set expands and highlights the error
          form_set_error(SWFTOOLS_EMBED, t('The shared file for @method is missing.', array('@method' => $info['title'])));
          
          // Add missing message to the form
          $swf_embed_methods[$method] = $swf_embed_methods[$method] . ' - <span class="error">Missing '. $info['shared_file'] .'</span>';

          // If download data is available then add a download link
          if ($info['download']) {
            $swf_embed_methods[$method] = $swf_embed_methods[$method] . ' - ' . l(t('Download here'), $info['download']);
          }
        }
      }
    }
  }

  $form['swftools_method']['swftools_embed_method'] = array(
    '#type' => 'radios',
    '#title' => t('Method'),
    '#default_value' => variable_get('swftools_embed_method', SWFTOOLS_NOJAVASCRIPT),
    '#options' => $swf_embed_methods,
    '#description' => t('Choose the method that will be used for Flash replacement. JavaScript methods
                         require supporting JavaScript files to be downloaded and added to an appropriate
                         sub-directory of <em>%default</em>. Direct embedding is built in to SWF Tools.',
                         array('%default' => t(drupal_get_path('module', 'swftools') . '/shared'))
                       ),
  );

  // Might have another setting like above for SIFR, if it ever gets used
  $form['swftools_method']['swftools_always_add_js'] = array(
    '#type' => 'checkbox',
    '#title' => t('Add JavaScript to all pages'),
    '#default_value' => variable_get('swftools_always_add_js', SWFTOOLS_ALWAYS_ADD_JS),
    '#description' => t('Modules such as filters result in caching of the mark up generated
                         to display Flash content. In these cases SWF Tools will not be
                         triggered to add the necessary JavaScript to the page and the Flash
                         content will not display. Enable this setting to push the necessary
                         JavaScript into the header of every page. This will ensure that cached
                         filter results are processed correctly.
                         '),
  );

/**
  // This feature is not yet implemented
  $form['swftools_method']['swftools_user_no_js'] = array(
    '#type' => 'checkbox',
    '#title' => t('Allow users to override embedding methods'),
    '#disabled' => TRUE,
    '#default_value' => variable_get('swftools_user_no_js', FALSE),
    '#description' => t('User can choose how Flash content is delivered overriding
                         the \'Method\' setting above. Adds a setting to the profile page.'),
  );
**/

  $form['swftools_method']['swftools_html_alt'] = array(
    '#type' => 'textarea',
    '#title' => t('HTML alternative'),
    '#default_value' => variable_get('swftools_html_alt', SWFTOOLS_DEFAULT_HTML_ALT),
    '#description' => t('Enter the default HTML that will appear if the Flash
                         content cannot be embedded.'),
  );

  $form['swftools_params'] = array(
    '#type' => 'fieldset',
    '#collapsible' => TRUE,
    '#collapsed' => TRUE,
    '#title' => t('Default settings for embedding'),
    '#description' => t('Please refer to !technote for more details about each setting.
                         If you are looking for the \'base\' option, this is defined
                         in the \'File Locations\' settings above.',
                         array('!technote' => l('Adobe technote 12701', 'http://kb.adobe.com/selfservice/viewContent.do?externalId=tn_12701'))),
  );

  $form['swftools_params']['swftools_params_version'] = array(
    '#type' => 'textfield',
    '#size' => '5',
    '#title' => 'Flash version',
    '#default_value' => variable_get('swftools_params_version', '7'),
  );

  $form['swftools_params']['swftools_params_play'] = array(
    '#type' => 'checkbox',
    '#title' => t('<strong>Play immediately</strong> (play)'),
    '#default_value' => variable_get('swftools_params_play', TRUE),
  );

  $form['swftools_params']['swftools_params_loop'] = array(
    '#type' => 'checkbox',
    '#title' => t('<strong>Loop movie</strong> (loop) .'),
    '#default_value' => variable_get('swftools_params_loop', TRUE),
  );

  $form['swftools_params']['swftools_params_menu'] = array(
    '#type' => 'checkbox',
    '#title' => t('<strong>Full menu</strong> (menu) Displays the full menu, allowing
                   the user a variety of options to enhance or control playback.'),
    '#default_value' => variable_get('swftools_params_menu', FALSE),
  );

  $form['swftools_params']['swftools_params_allowfullscreen'] = array(
    '#type' => 'checkbox',
    '#title' => t('<strong>Allow full screen mode</strong> (allowfullscreen)'),
    '#default_value' => variable_get('swftools_params_allowfullscreen', TRUE),
  );

  $form['swftools_params']['swftools_params_bgcolor'] = array(
    '#type'  => 'textfield',
    '#title' => t('Background color <span class="weight-normal">(bgcolor)</span>'),
    '#size'  => 7,
    '#maxlength' => 7,
    '#required'  => TRUE,
    '#default_value' => variable_get('swftools_params_bgcolor', '#FFFFFF'),
    '#description' => t('Hexadecimal background color in the form #RRGGBB.'),
  );

  $form['swftools_params']['swftools_params_quality'] = array(
    '#type' => 'select',
    '#title' => t('Quality') . ' <span class="weight-normal">(quality)</span>',
    '#default_value' => variable_get('swftools_params_quality', 'autohigh'),
    '#options' => $swf_options['quality'],
  );

  $form['swftools_params']['swftools_params_scale'] = array(
    '#type' => 'select',
    '#title' => t('Scale') . ' <span class="weight-normal">(scale)</span>',
    '#default_value' => variable_get('swftools_params_scale', 'showall'),
    '#options' => $swf_options['scale'],
  );

  $form['swftools_params']['swftools_params_wmode'] = array(
    '#type' => 'select',
    '#title' => t('Window mode') . ' <span class="weight-normal">(wmode)</span>',
    '#default_value' => variable_get('swftools_params_wmode', 'opaque'),
    '#options' => $swf_options['wmode'],
  );

  $form['swftools_params']['swftools_params_align'] = array(
    '#type' => 'select',
    '#title' => t('Align') . ' <span class="weight-normal">(align)</span>',
    '#default_value' => variable_get('swftools_params_align', 'l'),
    '#options' => $swf_options['align'],
  );

  $form['swftools_params']['swftools_params_salign'] = array(
    '#type' => 'select',
    '#title' => t('salign') . ' <span class="weight-normal">(salign)</span>',
    '#default_value' => variable_get('swftools_params_salign', 'tl'),
    '#options' => $swf_options['salign'],
  );

  $form['swftools_params']['swftools_params_swliveconnect'] = array(
    '#type' => 'select',
    '#options' => array('true' => 'Yes', 'default' => 'No'), // 'default' setting will simple omit this value for simplicity.
    '#title' => t('Load Java') . ' <span class="weight-normal">(swliveconnect)</span>',
    '#default_value' => variable_get('swftools_params_swliveconnect', 'default'),
  );

  $form['swftools_params']['swftools_params_allowscriptaccess'] = array(
    '#type' => 'select',
    '#options' => $swf_options['allowscriptaccess'],
    '#title' => t('Allow script access') . ' <span class="weight-normal">(allowscriptaccess)</span>',
    '#default_value' => variable_get('swftools_params_allowscriptaccess', 'sameDomain'),
  );
  
  return system_settings_form($form);

}

function swftools_admin_handling_form() {

  // Clear all caches
  drupal_flush_all_caches();

  $playlist_path = swftools_get_playlist_path();
  $player_directory = swftools_get_player_path() . '/';

  $form = array();

  $form['swftools_files'] = array(
    '#type'  => 'fieldset',
    '#title' => t('File locations'),
    '#collapsible' => TRUE,
    '#collapsed' => TRUE,
  );

  $form['swftools_files']['swftools_player_path'] = array(
    '#type' => 'textfield',
    '#title' => t('Default flash player path'),
    '#default_value' => variable_get('swftools_player_path', SWFTOOLS_PLAYER_PATH),
    '#description' => t('Leave this blank to default to the shared player file
                         inside the swftools module (%default). Otherwise your options are:<ul>
                          <li>a path inside your files directory, <em>without</em>
                              a preceding slash (eg. <strong>myplayers</strong>), or</li>
                          <li>a path from the webroot <em>with</em> a preceding slash.
                              (eg <strong>/alternate_filepath</strong>)</li></ul>',
                              array('%default' => t(drupal_get_path('module', 'swftools') . '/shared'))
                              ),
  );

  $form['swftools_files']['swftools_playlist_path'] = array(
    '#type' => 'textfield',
    '#title' => t('Directory in files where playlist/xml files can be cached'),
    '#default_value' => variable_get('swftools_playlist_path', SWFTOOLS_PLAYLIST_PATH),
    '#description' => t('A location inside your files directory
                          without preceding or trailing slashes (eg. <strong>playlists</strong>)'),
  );

  $current_path = variable_get('swftools_media_url', $GLOBALS['base_url'] . '/' . file_create_path(''));

  // Misname the variable with '_dummy' so that it is not saved!
  $form['swftools_files']['swftools_media_url_dummy'] = array(
    '#type' => 'textfield',
    '#title' => t('Media directory url'),
    '#default_value' => $current_path,
    '#disabled' => TRUE,
    '#description' => t("This helps swftools identify the server where your media files are located.
                         You cannot change it here, as changing it has the potential to break existing
                         content. You can set this on the &#36;conf array in your settings.php file.
                         For example: <pre>
  &#36;conf = array(
    'swftools_media_url' => 'http://anothersite.com/media', // No trailing slashes!
  );</pre>               Leaving this value unset in your settings.php file will
                         persuade SWF Tools to check for the existence of your
                         media files, as they are automatically assumed to be
                         on the local server."),
  );

  $form['swftools_files']['swftools_check_media'] = array(
    '#type' => 'checkbox',
    '#title' => t('Check if local files exist'),
    '#default_value' => variable_get('swftools_check_media', TRUE),
    '#description' => t('This option will cause SWF Tools to check that requested local
                         media files exist, and issue a warning if they do not.'),
  );

  $form['swftools']['handling'] = array(
    '#type'  => 'fieldset',
    '#title' => t('File handling'),
    '#collapsible' => TRUE,
    '#collapsed' => TRUE,
    '#description' => 'Choose how different file types are handled.',
  );

  $form['swftools']['handling'][SWFTOOLS_FLV_DISPLAY] =
    _swftools_admin_file_handling_option(SWFTOOLS_FLV_DISPLAY, $player_directory, "Default player for single FLV movies");

  $form['swftools']['handling'][SWFTOOLS_MP3_DISPLAY] =
    _swftools_admin_file_handling_option(SWFTOOLS_MP3_DISPLAY, $player_directory, "Default player for single MP3 files");

  $form['swftools']['handling'][SWFTOOLS_SWF_DISPLAY] =
    _swftools_admin_file_handling_option(SWFTOOLS_SWF_DISPLAY, $player_directory, "Default player for single SWF files");

  $form['swftools']['handling'][SWFTOOLS_IMAGE_DISPLAY_LIST] =
    _swftools_admin_file_handling_option(SWFTOOLS_IMAGE_DISPLAY_LIST, $player_directory, "Default player for a list of images");

  $form['swftools']['handling'][SWFTOOLS_FLV_DISPLAY_LIST] =
    _swftools_admin_file_handling_option(SWFTOOLS_FLV_DISPLAY_LIST, $player_directory, "Default player for a list of FLV movies");

  $form['swftools']['handling'][SWFTOOLS_MP3_DISPLAY_LIST] =
    _swftools_admin_file_handling_option(SWFTOOLS_MP3_DISPLAY_LIST, $player_directory, "Default player for a list of MP3 music files");

  $form['swftools']['handling'][SWFTOOLS_MEDIA_DISPLAY_LIST] =
    _swftools_admin_file_handling_option(SWFTOOLS_MEDIA_DISPLAY_LIST, $player_directory, "Default player for a list of mixed media");

  // Playlist settings
  $form['swftools']['playlist'] = array(
    '#type'  => 'fieldset',
    '#title' => t('Playlist caching'),
    '#collapsible' => TRUE,
    '#collapsed' => TRUE,
    '#description' => 'Settings for XML files and playlists.',
  );

  $caching = variable_get('swftools_playlist_caching', 'here');

  if ($caching == 'here') {
    // Check the user didn't set the playlist path to their file system top level before deleting everything!
    $playlist_path = variable_get('swftools_playlist_path', SWFTOOLS_PLAYLIST_PATH); 
    if (!empty($playlist_path)) {
      file_scan_directory(swftools_get_playlist_path(), '.*', array('.', '..', 'CVS'), 'file_delete', TRUE);
    }
  }

  $form['swftools']['playlist']['swftools_playlist_caching'] = array(
    '#type' => 'select',
    '#title' => t('Clear playlist cache'),
    '#default_value' => $caching,
    '#options' => array('here' => 'Only here', 'always' => 'Every page view'),
    '#description' => 'Select \'Only here\' to clear the playlist directory just ' .
                      'by visiting this page. It is useful to select \'Every ' .
                      'page view\' for site or module development but not ' .
                      'advisable for live sites.',
  );

  $form['swftools_private'] = array(
    '#type'  => 'fieldset',
    '#title' => t('Private file system'),
    '#collapsible' => TRUE,
    '#collapsed' => TRUE,
  );

  // Allow SWF Tools to grant access to non-uploaded files
  $form['swftools_private']['swftools_grant_access_to_private_files'] = array(
    '#type' => 'checkbox',
    '#title' => t('Allow SWF Tools to grant access to supported private files'),
    '#default_value' => variable_get('swftools_grant_access_to_private_files', SWFTOOLS_GRANT_ACCESS_TO_PRIVATE_FILES),
    '#description' => t('If using a private file system then SWF Tools is unable to
                         access files that are not uploaded via a file module that
                         supports a private file system. For example, SWF Tools will
                         be unable to access files that were manually uploaded via FTP.
                         Enabling this setting will allow SWF Tools to grant access
                         to files with extensions defined by the next setting.
                         Note - if another module <em>denies</em> access then access
                         to the file will not be granted. SWF Tools itself does not
                         deny access to any file. SWF Tools always allows access
                         to files in the playlists directory.
                         '),
  );

  // Default file extensions that SWF Tools will grant access for
  $form['swftools_private']['swftools_grant_access_extensions'] = array(
    '#type' => 'textfield',
    '#title' => t('Extensions that SWF Tools will allow access to'),
    '#default_value' => variable_get('swftools_grant_access_extensions', SWFTOOLS_GRANT_ACCESS_EXTENSIONS),
    '#maxlength' => 255,
    '#description' => t('Under a private file system SWF Tools will grant access to files
                         with extensions in this list. Separate extensions with a space
                         and do not include the leading dot. Although any extension can be
                         added to this list, only <em>swf flv xml mp3 jpg jpeg</em> and
                         <em>png</em> will return the correct headers.'),
  );

  return system_settings_form($form);
}


function _swftools_admin_file_handling_option($type, $player_directory, $description) {

  // Initialise list of methods
  $list = array();

  // Obtain list of available methods
  $methods = swftools_methods_available($type);
  if (count($methods)) {
    foreach ($methods AS $method => $info) {
      if (!file_exists($player_directory . $info['shared_file'])) {
        $list[$method] = $info['title'] . ' - <span class="error">Missing '. $info['shared_file'] .'</span>';
        if ($info['download']) {
          $list[$method] = $list[$method] . ' - ' . l(t('Download here'), $info['download']);
        }
      }
      else {
        $list[$method] = $info['title'];
      }
    }
  }

  // Sort the list of methods
  asort($list);

  // None is always an option so add this at the top of the list
  $list = array('None') + $list;

  // Determine the appropriate default based on $type
  $default = swftools_get_player($type);

  // swftools_get_player() returns FALSE for nothing configured, change to 0
  if (!$default) {
    $default = 0;
  }

  return array(
    '#type' => 'radios',
    '#title' => t($description),
    '#default_value' => $default,
    '#options' => $list,
  );

}


/**
 * flashvar and param option arrays. These are used for options settings in the
 * configuration screen and also as a lookup (particularly 'bool') to output the correct value for to html.
 *
 */
function _swftools_options() {
  // cache output each request
  static $swf_options = array();
  if (!count($swf_options)) {
    $swf_options['quality'] = array('low' => 'low', 'autolow' => 'autolow', 'medium' => 'medium', 'high' => 'high', 'autohigh' => 'autohigh', 'best' => 'best', );
    $swf_options['wmode'] = array('window' => 'window',  'opaque' => 'opaque',   'transparent' => 'transparent', );
    $swf_options['scale'] = array('showall' => 'showall', 'noborder' => 'noborder', 'exactfit' => 'exactfit', );
    $swf_options['align'] = array('default' => 'centered', 'l' => 'left', 'r' => 'right', 't' => 'top', 'b' => 'bottom', );
    $swf_options['salign'] = array('l' => 'left', 'r' => 'right', 't' => 'top', 'b' => 'bottom', 'tl' => 'top left', 'tr' => 'top right', 'bl' => 'bottom left', 'br' => 'bottom right', );
    $swf_options['bool'] = array('default' => 'default', 'true' => 'true', 'false' => 'false');
    $swf_options['allowscriptaccess'] = array('always' => 'always', 'sameDomain' => 'sameDomain', 'never' => 'never');
  }
  return $swf_options;
}
1	<?php
2	// $Id: swftools.admin.inc,v 1.9 2009/03/13 22:59:23 stuartgreenfield Exp $
3
4	function swftools_admin_embed_form() {
5
6	// Clear all caches
7	drupal_flush_all_caches();
8
9	// Get array of options that will be used for form elements
10	$swf_options = _swftools_options();
11
12	// Add admin css
13	drupal_add_css(drupal_get_path('module', 'swftools') . '/swftools.admin.css', 'module', 'all', FALSE);
14
15	// Get playlist path
16	$playlist_path = swftools_get_playlist_path();
17
18	// Get player path
19	$player_directory = swftools_get_player_path() . '/';
20
21	// Initialise array to hold the form
22	$form = array();
23
24	// Start a fieldset to hold the embedding methods
25	$form['swftools_method'] = array(
26	'#type' => 'fieldset',
27	'#title' => t('Embedding methods'),
28	'#collapsible' => TRUE,
29	'#collapsed' => TRUE,
30	);
31
32	// Get the available embedding methods
33	$methods = swftools_methods_available(SWFTOOLS_EMBED);
34
35	// Build array of options ready for the selector
36	if (count($methods)) {
37	foreach ($methods AS $method => $info) {
38
39	// Only show this method as an embedding method if it is not a private method
40	if (!isset($info['private'])) {
41
42	// Start with the name of the player
43	$swf_embed_methods[$method] = $info['title'];
44
45	// If the required shared file is missing add a message explaining
46	if (!file_exists($player_directory . $info['shared_file'])) {
47
48	// Set an error on the form so the field set expands and highlights the error
49	form_set_error(SWFTOOLS_EMBED, t('The shared file for @method is missing.', array('@method' => $info['title'])));
50
51	// Add missing message to the form
52	$swf_embed_methods[$method] = $swf_embed_methods[$method] . ' - <span class="error">Missing '. $info['shared_file'] .'</span>';
53
54	// If download data is available then add a download link
55	if ($info['download']) {
56	$swf_embed_methods[$method] = $swf_embed_methods[$method] . ' - ' . l(t('Download here'), $info['download']);
57	}
58	}
59	}
60	}
61	}
62
63	$form['swftools_method']['swftools_embed_method'] = array(
64	'#type' => 'radios',
65	'#title' => t('Method'),
66	'#default_value' => variable_get('swftools_embed_method', SWFTOOLS_NOJAVASCRIPT),
67	'#options' => $swf_embed_methods,
68	'#description' => t('Choose the method that will be used for Flash replacement. JavaScript methods
69	require supporting JavaScript files to be downloaded and added to an appropriate
70	sub-directory of <em>%default</em>. Direct embedding is built in to SWF Tools.',
71	array('%default' => t(drupal_get_path('module', 'swftools') . '/shared'))
72	),
73	);
74
75	// Might have another setting like above for SIFR, if it ever gets used
76	$form['swftools_method']['swftools_always_add_js'] = array(
77	'#type' => 'checkbox',
78	'#title' => t('Add JavaScript to all pages'),
79	'#default_value' => variable_get('swftools_always_add_js', SWFTOOLS_ALWAYS_ADD_JS),
80	'#description' => t('Modules such as filters result in caching of the mark up generated
81	to display Flash content. In these cases SWF Tools will not be
82	triggered to add the necessary JavaScript to the page and the Flash
83	content will not display. Enable this setting to push the necessary
84	JavaScript into the header of every page. This will ensure that cached
85	filter results are processed correctly.
86	'),
87	);
88
89	/**
90	// This feature is not yet implemented
91	$form['swftools_method']['swftools_user_no_js'] = array(
92	'#type' => 'checkbox',
93	'#title' => t('Allow users to override embedding methods'),
94	'#disabled' => TRUE,
95	'#default_value' => variable_get('swftools_user_no_js', FALSE),
96	'#description' => t('User can choose how Flash content is delivered overriding
97	the \'Method\' setting above. Adds a setting to the profile page.'),
98	);
99	**/
100
101	$form['swftools_method']['swftools_html_alt'] = array(
102	'#type' => 'textarea',
103	'#title' => t('HTML alternative'),
104	'#default_value' => variable_get('swftools_html_alt', SWFTOOLS_DEFAULT_HTML_ALT),
105	'#description' => t('Enter the default HTML that will appear if the Flash
106	content cannot be embedded.'),
107	);
108
109	$form['swftools_params'] = array(
110	'#type' => 'fieldset',
111	'#collapsible' => TRUE,
112	'#collapsed' => TRUE,
113	'#title' => t('Default settings for embedding'),
114	'#description' => t('Please refer to !technote for more details about each setting.
115	If you are looking for the \'base\' option, this is defined
116	in the \'File Locations\' settings above.',
117	array('!technote' => l('Adobe technote 12701', 'http://kb.adobe.com/selfservice/viewContent.do?externalId=tn_12701'))),
118	);
119
120	$form['swftools_params']['swftools_params_version'] = array(
121	'#type' => 'textfield',
122	'#size' => '5',
123	'#title' => 'Flash version',
124	'#default_value' => variable_get('swftools_params_version', '7'),
125	);
126
127	$form['swftools_params']['swftools_params_play'] = array(
128	'#type' => 'checkbox',
129	'#title' => t('<strong>Play immediately</strong> (play)'),
130	'#default_value' => variable_get('swftools_params_play', TRUE),
131	);
132
133	$form['swftools_params']['swftools_params_loop'] = array(
134	'#type' => 'checkbox',
135	'#title' => t('<strong>Loop movie</strong> (loop) .'),
136	'#default_value' => variable_get('swftools_params_loop', TRUE),
137	);
138
139	$form['swftools_params']['swftools_params_menu'] = array(
140	'#type' => 'checkbox',
141	'#title' => t('<strong>Full menu</strong> (menu) Displays the full menu, allowing
142	the user a variety of options to enhance or control playback.'),
143	'#default_value' => variable_get('swftools_params_menu', FALSE),
144	);
145
146	$form['swftools_params']['swftools_params_allowfullscreen'] = array(
147	'#type' => 'checkbox',
148	'#title' => t('<strong>Allow full screen mode</strong> (allowfullscreen)'),
149	'#default_value' => variable_get('swftools_params_allowfullscreen', TRUE),
150	);
151
152	$form['swftools_params']['swftools_params_bgcolor'] = array(
153	'#type' => 'textfield',
154	'#title' => t('Background color <span class="weight-normal">(bgcolor)</span>'),
155	'#size' => 7,
156	'#maxlength' => 7,
157	'#required' => TRUE,
158	'#default_value' => variable_get('swftools_params_bgcolor', '#FFFFFF'),
159	'#description' => t('Hexadecimal background color in the form #RRGGBB.'),
160	);
161
162	$form['swftools_params']['swftools_params_quality'] = array(
163	'#type' => 'select',
164	'#title' => t('Quality') . ' <span class="weight-normal">(quality)</span>',
165	'#default_value' => variable_get('swftools_params_quality', 'autohigh'),
166	'#options' => $swf_options['quality'],
167	);
168
169	$form['swftools_params']['swftools_params_scale'] = array(
170	'#type' => 'select',
171	'#title' => t('Scale') . ' <span class="weight-normal">(scale)</span>',
172	'#default_value' => variable_get('swftools_params_scale', 'showall'),
173	'#options' => $swf_options['scale'],
174	);
175
176	$form['swftools_params']['swftools_params_wmode'] = array(
177	'#type' => 'select',
178	'#title' => t('Window mode') . ' <span class="weight-normal">(wmode)</span>',
179	'#default_value' => variable_get('swftools_params_wmode', 'opaque'),
180	'#options' => $swf_options['wmode'],
181	);
182
183	$form['swftools_params']['swftools_params_align'] = array(
184	'#type' => 'select',
185	'#title' => t('Align') . ' <span class="weight-normal">(align)</span>',
186	'#default_value' => variable_get('swftools_params_align', 'l'),
187	'#options' => $swf_options['align'],
188	);
189
190	$form['swftools_params']['swftools_params_salign'] = array(
191	'#type' => 'select',
192	'#title' => t('salign') . ' <span class="weight-normal">(salign)</span>',
193	'#default_value' => variable_get('swftools_params_salign', 'tl'),
194	'#options' => $swf_options['salign'],
195	);
196
197	$form['swftools_params']['swftools_params_swliveconnect'] = array(
198	'#type' => 'select',
199	'#options' => array('true' => 'Yes', 'default' => 'No'), // 'default' setting will simple omit this value for simplicity.
200	'#title' => t('Load Java') . ' <span class="weight-normal">(swliveconnect)</span>',
201	'#default_value' => variable_get('swftools_params_swliveconnect', 'default'),
202	);
203
204	$form['swftools_params']['swftools_params_allowscriptaccess'] = array(
205	'#type' => 'select',
206	'#options' => $swf_options['allowscriptaccess'],
207	'#title' => t('Allow script access') . ' <span class="weight-normal">(allowscriptaccess)</span>',
208	'#default_value' => variable_get('swftools_params_allowscriptaccess', 'sameDomain'),
209	);
210
211	return system_settings_form($form);
212
213	}
214
215	function swftools_admin_handling_form() {
216
217	// Clear all caches
218	drupal_flush_all_caches();
219
220	$playlist_path = swftools_get_playlist_path();
221	$player_directory = swftools_get_player_path() . '/';
222
223	$form = array();
224
225	$form['swftools_files'] = array(
226	'#type' => 'fieldset',
227	'#title' => t('File locations'),
228	'#collapsible' => TRUE,
229	'#collapsed' => TRUE,
230	);
231
232	$form['swftools_files']['swftools_player_path'] = array(
233	'#type' => 'textfield',
234	'#title' => t('Default flash player path'),
235	'#default_value' => variable_get('swftools_player_path', SWFTOOLS_PLAYER_PATH),
236	'#description' => t('Leave this blank to default to the shared player file
237	inside the swftools module (%default). Otherwise your options are:<ul>
238	<li>a path inside your files directory, <em>without</em>
239	a preceding slash (eg. <strong>myplayers</strong>), or</li>
240	<li>a path from the webroot <em>with</em> a preceding slash.
241	(eg <strong>/alternate_filepath</strong>)</li></ul>',
242	array('%default' => t(drupal_get_path('module', 'swftools') . '/shared'))
243	),
244	);
245
246	$form['swftools_files']['swftools_playlist_path'] = array(
247	'#type' => 'textfield',
248	'#title' => t('Directory in files where playlist/xml files can be cached'),
249	'#default_value' => variable_get('swftools_playlist_path', SWFTOOLS_PLAYLIST_PATH),
250	'#description' => t('A location inside your files directory
251	without preceding or trailing slashes (eg. <strong>playlists</strong>)'),
252	);
253
254	$current_path = variable_get('swftools_media_url', $GLOBALS['base_url'] . '/' . file_create_path(''));
255
256	// Misname the variable with '_dummy' so that it is not saved!
257	$form['swftools_files']['swftools_media_url_dummy'] = array(
258	'#type' => 'textfield',
259	'#title' => t('Media directory url'),
260	'#default_value' => $current_path,
261	'#disabled' => TRUE,
262	'#description' => t("This helps swftools identify the server where your media files are located.
263	You cannot change it here, as changing it has the potential to break existing
264	content. You can set this on the $conf array in your settings.php file.
265	For example: <pre>
266	$conf = array(
267	'swftools_media_url' => 'http://anothersite.com/media', // No trailing slashes!
268	);</pre> Leaving this value unset in your settings.php file will
269	persuade SWF Tools to check for the existence of your
270	media files, as they are automatically assumed to be
271	on the local server."),
272	);
273
274	$form['swftools_files']['swftools_check_media'] = array(
275	'#type' => 'checkbox',
276	'#title' => t('Check if local files exist'),
277	'#default_value' => variable_get('swftools_check_media', TRUE),
278	'#description' => t('This option will cause SWF Tools to check that requested local
279	media files exist, and issue a warning if they do not.'),
280	);
281
282	$form['swftools']['handling'] = array(
283	'#type' => 'fieldset',
284	'#title' => t('File handling'),
285	'#collapsible' => TRUE,
286	'#collapsed' => TRUE,
287	'#description' => 'Choose how different file types are handled.',
288	);
289
290	$form['swftools']['handling'][SWFTOOLS_FLV_DISPLAY] =
291	_swftools_admin_file_handling_option(SWFTOOLS_FLV_DISPLAY, $player_directory, "Default player for single FLV movies");
292
293	$form['swftools']['handling'][SWFTOOLS_MP3_DISPLAY] =
294	_swftools_admin_file_handling_option(SWFTOOLS_MP3_DISPLAY, $player_directory, "Default player for single MP3 files");
295
296	$form['swftools']['handling'][SWFTOOLS_SWF_DISPLAY] =
297	_swftools_admin_file_handling_option(SWFTOOLS_SWF_DISPLAY, $player_directory, "Default player for single SWF files");
298
299	$form['swftools']['handling'][SWFTOOLS_IMAGE_DISPLAY_LIST] =
300	_swftools_admin_file_handling_option(SWFTOOLS_IMAGE_DISPLAY_LIST, $player_directory, "Default player for a list of images");
301
302	$form['swftools']['handling'][SWFTOOLS_FLV_DISPLAY_LIST] =
303	_swftools_admin_file_handling_option(SWFTOOLS_FLV_DISPLAY_LIST, $player_directory, "Default player for a list of FLV movies");
304
305	$form['swftools']['handling'][SWFTOOLS_MP3_DISPLAY_LIST] =
306	_swftools_admin_file_handling_option(SWFTOOLS_MP3_DISPLAY_LIST, $player_directory, "Default player for a list of MP3 music files");
307
308	$form['swftools']['handling'][SWFTOOLS_MEDIA_DISPLAY_LIST] =
309	_swftools_admin_file_handling_option(SWFTOOLS_MEDIA_DISPLAY_LIST, $player_directory, "Default player for a list of mixed media");
310
311	// Playlist settings
312	$form['swftools']['playlist'] = array(
313	'#type' => 'fieldset',
314	'#title' => t('Playlist caching'),
315	'#collapsible' => TRUE,
316	'#collapsed' => TRUE,
317	'#description' => 'Settings for XML files and playlists.',
318	);
319
320	$caching = variable_get('swftools_playlist_caching', 'here');
321
322	if ($caching == 'here') {
323	// Check the user didn't set the playlist path to their file system top level before deleting everything!
324	$playlist_path = variable_get('swftools_playlist_path', SWFTOOLS_PLAYLIST_PATH);
325	if (!empty($playlist_path)) {
326	file_scan_directory(swftools_get_playlist_path(), '.*', array('.', '..', 'CVS'), 'file_delete', TRUE);
327	}
328	}
329
330	$form['swftools']['playlist']['swftools_playlist_caching'] = array(
331	'#type' => 'select',
332	'#title' => t('Clear playlist cache'),
333	'#default_value' => $caching,
334	'#options' => array('here' => 'Only here', 'always' => 'Every page view'),
335	'#description' => 'Select \'Only here\' to clear the playlist directory just ' .
336	'by visiting this page. It is useful to select \'Every ' .
337	'page view\' for site or module development but not ' .
338	'advisable for live sites.',
339	);
340
341	$form['swftools_private'] = array(
342	'#type' => 'fieldset',
343	'#title' => t('Private file system'),
344	'#collapsible' => TRUE,
345	'#collapsed' => TRUE,
346	);
347
348	// Allow SWF Tools to grant access to non-uploaded files
349	$form['swftools_private']['swftools_grant_access_to_private_files'] = array(
350	'#type' => 'checkbox',
351	'#title' => t('Allow SWF Tools to grant access to supported private files'),
352	'#default_value' => variable_get('swftools_grant_access_to_private_files', SWFTOOLS_GRANT_ACCESS_TO_PRIVATE_FILES),
353	'#description' => t('If using a private file system then SWF Tools is unable to
354	access files that are not uploaded via a file module that
355	supports a private file system. For example, SWF Tools will
356	be unable to access files that were manually uploaded via FTP.
357	Enabling this setting will allow SWF Tools to grant access
358	to files with extensions defined by the next setting.
359	Note - if another module <em>denies</em> access then access
360	to the file will not be granted. SWF Tools itself does not
361	deny access to any file. SWF Tools always allows access
362	to files in the playlists directory.
363	'),
364	);
365
366	// Default file extensions that SWF Tools will grant access for
367	$form['swftools_private']['swftools_grant_access_extensions'] = array(
368	'#type' => 'textfield',
369	'#title' => t('Extensions that SWF Tools will allow access to'),
370	'#default_value' => variable_get('swftools_grant_access_extensions', SWFTOOLS_GRANT_ACCESS_EXTENSIONS),
371	'#maxlength' => 255,
372	'#description' => t('Under a private file system SWF Tools will grant access to files
373	with extensions in this list. Separate extensions with a space
374	and do not include the leading dot. Although any extension can be
375	added to this list, only <em>swf flv xml mp3 jpg jpeg</em> and
376	<em>png</em> will return the correct headers.'),
377	);
378
379	return system_settings_form($form);
380	}
381
382
383	function _swftools_admin_file_handling_option($type, $player_directory, $description) {
384
385	// Initialise list of methods
386	$list = array();
387
388	// Obtain list of available methods
389	$methods = swftools_methods_available($type);
390	if (count($methods)) {
391	foreach ($methods AS $method => $info) {
392	if (!file_exists($player_directory . $info['shared_file'])) {
393	$list[$method] = $info['title'] . ' - <span class="error">Missing '. $info['shared_file'] .'</span>';
394	if ($info['download']) {
395	$list[$method] = $list[$method] . ' - ' . l(t('Download here'), $info['download']);
396	}
397	}
398	else {
399	$list[$method] = $info['title'];
400	}
401	}
402	}
403
404	// Sort the list of methods
405	asort($list);
406
407	// None is always an option so add this at the top of the list
408	$list = array('None') + $list;
409
410	// Determine the appropriate default based on $type
411	$default = swftools_get_player($type);
412
413	// swftools_get_player() returns FALSE for nothing configured, change to 0
414	if (!$default) {
415	$default = 0;
416	}
417
418	return array(
419	'#type' => 'radios',
420	'#title' => t($description),
421	'#default_value' => $default,
422	'#options' => $list,
423	);
424
425	}
426
427
428	/**
429	* flashvar and param option arrays. These are used for options settings in the
430	* configuration screen and also as a lookup (particularly 'bool') to output the correct value for to html.
431	*
432	*/
433	function _swftools_options() {
434	// cache output each request
435	static $swf_options = array();
436	if (!count($swf_options)) {
437	$swf_options['quality'] = array('low' => 'low', 'autolow' => 'autolow', 'medium' => 'medium', 'high' => 'high', 'autohigh' => 'autohigh', 'best' => 'best', );
438	$swf_options['wmode'] = array('window' => 'window', 'opaque' => 'opaque', 'transparent' => 'transparent', );
439	$swf_options['scale'] = array('showall' => 'showall', 'noborder' => 'noborder', 'exactfit' => 'exactfit', );
440	$swf_options['align'] = array('default' => 'centered', 'l' => 'left', 'r' => 'right', 't' => 'top', 'b' => 'bottom', );
441	$swf_options['salign'] = array('l' => 'left', 'r' => 'right', 't' => 'top', 'b' => 'bottom', 'tl' => 'top left', 'tr' => 'top right', 'bl' => 'bottom left', 'br' => 'bottom right', );
442	$swf_options['bool'] = array('default' => 'default', 'true' => 'true', 'false' => 'false');
443	$swf_options['allowscriptaccess'] = array('always' => 'always', 'sameDomain' => 'sameDomain', 'never' => 'never');
444	}
445	return $swf_options;
446	}