first import

sites/all/modules/imagecache_actions/image_styles_admin/README.txt

@@ -0,0 +1,38 @@
+README for the Image styleds admin Drupal module
+------------------------------------------------
+
+Project page: http://drupal.org/project/imagecache_actions
+
+Current and past maintainers for Image styles admin:
+- fietserwin (http://drupal.org/user/750928)
+
+
+Release notes for 7.x-1.x-dev
+-----------------------------
+- Clear the (menu) cache after installing or updating.
+
+
+Introduction
+------------
+The Image style admin module extends the administrative interface for image
+styles by providing additional features.
+
+Currently a duplicate, import and export image style feature are implemented.
+More features may be added in the future. These features typically allow you to
+more easily handle image styles. It allows us to more easily set up
+a test/showcase sute of styles. Finally, it allows everybody to test D8 image
+module features in real life.
+
+This module is not a replacement for the features module
+(http://drupal.org/project/features). If you are serious about configuration
+management and want to distribute styles to other systems, use features.
+
+Use this module for 1 time export/imports between different sites, "copy &
+paste" reuse within a site, and when reporting issues to the imagecache_actions
+issue queue.  
+
+
+TODO
+----
+Solving errors in the core image handling?
+- [#1554074]: scale does not work with imagemagick when dimensions are unknown?

sites/all/modules/imagecache_actions/image_styles_admin/image_styles_admin.inc

@@ -0,0 +1,226 @@
+<?php
+
+/**
+ * @file Include file for image_styles_admin routines that do not need to be
+ * loaded on each request.
+ */
+
+/**
+ * Menu callback: Duplicates an image style and redirects to the image styles
+ * overview page.
+ *
+ * @param array $style
+ *   An image style array.
+ *
+ * @see image_style_name_validate()
+ */
+function image_styles_admin_duplicate_page_callback($style) {
+  $duplicate_style = image_styles_admin_duplicate($style);
+  drupal_set_message(t('Style %name has been duplicated to %new_name.', array('%name' => $style['name'], '%new_name' => $duplicate_style['name'])));
+  drupal_goto('admin/config/media/image-styles');
+}
+
+/**
+ * Duplicates an image style and saves it.
+ *
+ * @param array $style
+ *   An image style array.
+ * @param string|null $new_style_name
+ *   The preferred name for the new style. If left empty, the new name will be
+ *   based on the name of the style to duplicate. In both cases and when
+ *   necessary, the new name will be made unique by adding some suffix to it.
+ *
+ * @return array
+ *   An image style array with the newly created copy of the given style.
+ *
+ * @see image_style_name_validate()
+ */
+function image_styles_admin_duplicate($style, $new_style_name = NULL) {
+  // Find a unique name for copy.
+  // Step 1: Find the base: name without things like '-copy' or '-copy-1'
+  $style_name_base = empty($new_style_name) ? $style['name'] : $new_style_name;
+  if (preg_match('/-copy(-\d+)?$/', $style_name_base)) {
+    $style_name_base = substr($style_name_base, 0, strpos($style_name_base, '-copy'));
+  }
+
+  // Step 2: Add -copy to it (if the name comes from the current style).
+  if (empty($new_style_name)) {
+    $style_name_base .= '-copy';
+  }
+
+  // Step 3: Ensure the new name will be unique.
+  $i = 0;
+  $style_name = $style_name_base;
+  $styles = image_styles();
+  while (isset($styles[$style_name])) {
+    $i++;
+    $style_name = $style_name_base . '-' . $i;
+  }
+  $style['name'] = $style_name;
+
+  // Unset isid to save it as a new style.
+  unset($style['isid']);
+  $style = image_style_save($style);
+
+  // Save copies of each effect with the new image style ID (isid).
+  foreach ($style['effects'] as &$effect) {
+    // Unset ieid to save it as a new effect.
+    unset($effect['ieid']);
+    $effect['isid'] = $style['isid'];
+    $effect = image_effect_save($effect);
+  }
+
+  return $style;
+}
+
+/**
+* drupal_get_form callback: form to export an image style.
+*
+* @param array $style
+*   An image style array.
+*/
+function image_styles_admin_export_form($form, $form_state, $style) {
+  drupal_set_title(format_string('%page_name @style_name', array('%page_name' => t('Export image style'), '@style_name' => $style['name'])), PASS_THROUGH);
+  $form['serialized_style'] = array(
+    '#type' => 'textarea',
+  	'#rows' => 5,
+  	'#title' => t('Image style export data'),
+  	'#default_value' => serialize($style),
+  	'#attributes' => array('readonly' =>'readonly'),
+  	'#description' => t('Copy the contents of this field to the clipboard and, on another site, paste it in the textarea of an %page_title page.', array('%page_title' => t('Import image style'))),
+  );
+  return $form;
+}
+
+/**
+* drupal_get_form callback: form to import an image style.
+*
+* @param array $style
+*   An image style array.
+*/
+function image_styles_admin_import_form($form, $form_state) {
+  $form['serialized_style'] = array(
+    '#type' => 'textarea',
+  	'#rows' => 5,
+  	'#title' => t('Image style import data'),
+  	'#default_value' => '',
+    '#required' => TRUE,
+  	'#description' => t('Paste the contents of the textarea of an %page_title page into this field.', array('%page_title' => t('Export image style'))),
+  );
+
+  $form['actions'] = array('#type' => 'actions');
+  $form['actions']['submit'] = array(
+    '#type' => 'submit',
+    '#value' => t('Import'),
+  );
+
+  return $form;
+}
+
+/**
+ * Callback to validate the import style form.
+ */
+function image_styles_admin_import_form_validate($form, &$form_state) {
+  if (image_styles_admin_import_extract_style($form_state['values']['serialized_style']) === FALSE) {
+    form_set_error('serialized_style', t('The %field cannot be imported as an image style.', array('%field' => t('Image style import data'))));
+  }
+}
+
+/**
+ * Callback to process form submission of the import style form.
+ */
+function image_styles_admin_import_form_submit($form, &$form_state) {
+  $style = image_styles_admin_import_extract_style($form_state['values']['serialized_style']);
+  // Import the style by "duplicating" it, but prevent adding the -copy suffix
+  // by passing the requested name as 2nd parameter.
+  $new_style = image_styles_admin_duplicate($style, $style['name']);
+  if ($new_style['name'] === $style['name']) {
+    drupal_set_message(t('Style %name has been imported.', array('%name' => $style['name'])));
+  }
+  else {
+    drupal_set_message(t('Style %name has been imported as %new_name.', array('%name' => $style['name'], '%new_name' => $new_style['name'])));
+  }
+  drupal_goto('admin/config/media/image-styles');
+}
+
+/**
+ * Unserializes and validates a string into image style data.
+ *
+ * @param string $import
+ *   The string representation of a @see serialize()'d image style array.
+ *
+ * @return array|false
+ *   An image style array or false if the string could not be unserialized into
+ *   image style data.
+ */
+function image_styles_admin_import_extract_style($import) {
+  $style = @unserialize($import);
+
+  // Check if the contents of the textarea could be unserialized into an array.
+  if (!is_array($style)) {
+    return FALSE;
+  }
+  // Check if the required keys are available, we will ignore the other.
+  $style = array_intersect_key($style, array('name' => 0, 'effects' => 0));
+  if (count($style) !== 2) {
+    return FALSE;
+  }
+  // 'name' must be "machine name" string
+  if (!is_string($style['name']) || preg_match('/[0-9a-z_\-]+/', $style['name']) !== 1) {
+    return FALSE;
+  }
+  // 'effects' must be an array
+  if (!is_array($style['effects'])) {
+    return FALSE;
+  }
+  // Check effects elements
+  foreach ($style['effects'] as &$effect) {
+    // an effect must be an array.
+    if (!is_array($effect)) {
+      return FALSE;
+    }
+    // Check if the required keys are available, we will ignore the other.
+    $effect = array_intersect_key($effect, array('weight' => 0, 'name' => 0, 'data' => 0));
+    if (count($effect) !== 3) {
+      return FALSE;
+    }
+    // effect weight must be an integer (data type in table is int, not float).
+    if (!is_int($effect['weight']) && $effect['weight'] !== (string) (int) $effect['weight']) {
+      return FALSE;
+    }
+    // effect name must be a string
+    if (!is_string($effect['name'])) {
+      return FALSE;
+    }
+    // Check whether the effect data is an array.
+    if (!is_array($effect['data'])) {
+      return FALSE;
+    }
+  }
+  // @todo: are there any security implications for creating styles like this?
+  // - Unserialize() is save in itself: it only creates data (except possibly
+  //   for__wakeup(), but that can only be in already existing code: safe
+  // - Not expected array entries are removed (array_intersect_key): safe
+  // - Basic types are checked: safe
+  // - Effect data array is not checked. Possibly unsafe?! The effect data array
+  //   contains the effect parameters. Normally these are entered and validated
+  //   via a form and subsequently saved in the database (serialized as here).
+  //   The form validation is not executed on import and thus the data may
+  //   contain invalid values. This is acceptable as it can also be done by
+  //   operating directly on the database. In Drupal this is not normally
+  //   checked for during processing: error messages will make clear that the
+  //   data has been played with. Can incorrect dat be abused? It may contain:
+  //   - incorrect types: we do not know the data structure of the various
+  //     effects, so we cannot check that and have to accept it as it comes.
+  //     Effects should check_plain in summary theme and convert to int/float
+  //     whenever possible befoire using it in commands.
+  //   - PHP code, but that may be valid content for the text or custom effects:
+  //     Effects should check_plain in summary theme and convert to int/float
+  //     whenever possible befoire using it in commands.
+  //     @todo: if the style contains an effect that contains PHP code, the user
+  //     should need the 'use PHP for settings' permission.
+  //   - HTML and or JS code: when used as parameter, this normally won't hurt.
+  //     When showing on the screen (summary theme), proper escaping should
+  //     suffice and is needed anyway: responsibility of effect.
+  return $style;
+}

sites/all/modules/imagecache_actions/image_styles_admin/image_styles_admin.info

@@ -0,0 +1,13 @@
+name = Image styles admin
+description = Provides additional administrative image style functionality.
+package = Media
+core = 7.x
+
+dependencies[] = image
+
+; Information added by drupal.org packaging script on 2012-12-04
+version = "7.x-1.1"
+core = "7.x"
+project = "imagecache_actions"
+datestamp = "1354653754"
+

sites/all/modules/imagecache_actions/image_styles_admin/image_styles_admin.module

@@ -0,0 +1,76 @@
+<?php
+/**
+ * @file Hook and callback implementations that must be available at all times.
+ */
+
+/**
+ * Implements hook_menu().
+ */
+function image_styles_admin_menu() {
+  $items = array();
+  $items['admin/config/media/image-styles/duplicate/%image_style'] = array(
+    'title' => 'Duplicate style',
+    'description' => 'Make a copy of an image style.',
+    'page callback' => 'image_styles_admin_duplicate_page_callback',
+    'page arguments' => array(5),
+    'access arguments' => array('administer image styles'),
+    'file' => 'image_styles_admin.inc',
+  );
+  $items['admin/config/media/image-styles/export/%image_style'] = array(
+    'title' => 'Export style',
+    'description' => 'Export an image style.',
+    'page callback' => 'drupal_get_form',
+    'page arguments' => array('image_styles_admin_export_form', 5),
+    'access arguments' => array('administer image styles'),
+    'file' => 'image_styles_admin.inc',
+  );
+  $items['admin/config/media/image-styles/import'] = array(
+    'title' => 'Import style',
+    'description' => 'Import an image style.',
+    'page callback' => 'drupal_get_form',
+    'page arguments' => array('image_styles_admin_import_form'),
+    'access arguments' => array('administer image styles'),
+    'type' => MENU_LOCAL_ACTION,
+    'weight' => 3,
+    'file' => 'image_styles_admin.inc',
+  );
+  return $items;
+}
+
+/**
+ * Implements hook_preprocess_HOOK for theme image_style_list.
+ */
+function image_styles_admin_preprocess_image_style_list(&$variables) {
+  // Tell imagecache_actions_preprocess_image_style_list to preprocess the next
+  // call to theme_table()
+  $flag = TRUE;
+  image_styles_admin_preprocess_table($flag);
+}
+
+/**
+ * Implements hook_preprocess_HOOK for theme table.
+ */
+function image_styles_admin_preprocess_table(&$variables) {
+  static $is_in_image_style_list = FALSE;
+
+  if (is_bool($variables)) {
+    // Called from imagecache_actions_style_duplicate(): set flag
+    $is_in_image_style_list = $variables;
+  }
+  else if ($is_in_image_style_list) {
+    // Normal preprocess hook call: only process if theme('table', ...) has been
+    // called by theme_image_style_list()
+    $variables['header'][2]['colspan'] = 4;
+    foreach ($variables['rows'] as &$row) {
+      array_splice($row, 2, 0, array($row[2], $row[2]));
+      // Replace edit with duplicate in text and href
+      $row[3] = str_replace('>' . t('edit') . '<', '>' . t('duplicate') . '<', $row[3]);
+      $row[3] = preg_replace('/\/edit\/([-a-z0-9_]+)"/', '/duplicate/\1"', $row[3]);
+      // Replace edit with export in text and href
+      $row[4] = str_replace('>' . t('edit') . '<', '>' . t('export') . '<', $row[4]);
+      $row[4] = preg_replace('/\/edit\/([-a-z0-9_]+)"/', '/export/\1"', $row[4]);
+    }
+    // Don't preprocess subsequent calls to theme_table().
+    $is_in_image_style_list = FALSE;
+  }
+}