modules/sifr/sifr.module

<?php
// $Id: sifr.module,v 1.21 2008/01/18 18:15:02 sun Exp $


/**
 * @file
 * sIFR Module for Drupal
 * by Jeff Robbins - www.lullabot.com
 * development sponsored by Bryght
 * Implements sIFR capabilities for all pages.
 * http://www.mikeindustries.com/sifr/
 */

/**
 * Implementation of hook_menu().
 */
function sifr_menu($may_cache) {
  $items = array();
  $access = user_access('administer site configuration');
  if ($may_cache) {
    $items[] = array(
      'title' => t('sIFR'),
      'path' => 'admin/settings/sifr',
      'description' => t('Configure which HTML text elements in your theme are rendered with Flash-based fonts.'),
      'access' => $access,
      'callback' => 'sifr_rules',
    );
    $items[] = array(
      'title' => t('Rules'),
      'path' => 'admin/settings/sifr/rules',
      'access' => $access,
      'callback' => 'sifr_rules',
      'type' => MENU_DEFAULT_LOCAL_TASK,
      'weight' => -2,
    );
    $items[] = array(
      'title' => t('Add rule'),
      'path' => 'admin/settings/sifr/addrule',
      'access' => $access,
      'callback' => 'sifr_edit_rule',
      'type' => MENU_LOCAL_TASK,
      'weight' => -1,
    );
    $items[] = array(
      'title' => t('Manage fonts'),
      'path' => 'admin/settings/sifr/manage',
      'access' => $access,
      'callback' => 'sifr_manage',
      'type' => MENU_LOCAL_TASK,
      'weight' => 2,
    );
    // dynamic sifr-screen.css file is stored in files directory
    $items[] = array(
      'path' => file_directory_path() .'/sifr/sifr-screen.css',
      'access' => TRUE,
      'callback' => 'sifr_css_screen',
      'type' => MENU_CALLBACK,
    );
    $items[] = array(
      'title' => t('Download sifr file'),
      'path' => 'sifr/download',
      'callback' => 'sifr_octet_download',
      'access' => $access,
      'type' => MENU_CALLBACK,
    );
  }
  else {
    $items[] = array(
      'title' => t('Edit'),
      'path' => 'admin/settings/sifr/edit',
      'access' => $access,
      'callback' => 'sifr_edit_rule',
      'type' => strpos($_GET['q'], 'admin/settings/sifr/edit') === 0 ? MENU_LOCAL_TASK : MENU_CALLBACK,
      'weight' => 5,
    );
    $items[] = array(
      'title' => t('Delete rule'),
      'path' => 'admin/settings/sifr/rules/delete',
      'access' => $access,
      'callback' => 'drupal_get_form',
      'callback arguments' => array('sifr_delete_rule_form'),
      'type' => MENU_CALLBACK,
    );
    $items[] = array(
      'title' => t('Delete font'),
      'path' => 'admin/settings/sifr/deletefont',
      'access' => $access,
      'callback' => 'sifr_fontdelete_confirm',
      'type' => strpos($_GET['q'], 'admin/settings/sifr/deletefont') === 0 ? MENU_LOCAL_TASK : MENU_CALLBACK,
      'weight' => 6,
    );
    sifr_all_pages();
  }
  
  return $items;
}

/**
 * List the rules
 */
function sifr_rules() {
  $rules   = sifr_get_rules();
  $sifrdir = drupal_get_path('module', 'sifr');
  $header  = array(t('Rule Name'), t('CSS Selector'), t('Font'), t('Colors'), t('Weight'), array('data' => t('Operations'), 'colspan' => 2));
  $editimg = theme('image', $sifrdir .'/images/editor.png');
  $delimg  = theme('image', $sifrdir .'/images/delete.png');
  drupal_add_css(drupal_get_path('module', 'sifr') .'/sifr.css', 'module', 'all', FALSE);
  foreach ($rules as $r) {
    $fontroot = substr($r['font'], strrpos($r['font'], '/') + 1);
    $rows[] = array(
      $r['name'],
      $r['selector'],
      $fontroot,
      "<div style='width:90px; height:16px'>
      <div class='sifr-font-color' style='background-color: $r[color];' title='". t('font color') ."'> </div>
      <div class='sifr-font-color' style='background-color: $r[linkcolor];' title='". t('link color') ."'> </div>
      <div class='sifr-font-color' style='background-color: $r[hovercolor];' title='". t('hover color') ."'> </div>
      <div class='sifr-font-color' style='background-color: $r[bgcolor];' title='". t('background color') ."'> </div>
      </div>
      ",
      $r['weight'],
      l($editimg, 'admin/settings/sifr/edit/'. $r['rid'], array('title' => t('edit'), 'class' => 'sifr-rule-op'), NULL, NULL, FALSE, TRUE) . l($delimg, 'admin/settings/sifr/rules/delete/'. $r['rid'], array('title' => t('delete'), 'class' => 'sifr-rule-op'), NULL, NULL, FALSE, TRUE),
    );
  }
  $output .= theme_table($header, $rows, array('style' => 'width: 100%; clear: both;'));
  $output .= '<p>';
  $output .= l(t('Add another rule'), 'admin/settings/sifr/addrule') .'</p>';
  $output .= l(theme('image', $sifrdir .'/images/sifr.png', 'sIFR', 'Link to the sIFR', array()), 'http://www.mikeindustries.com/sifr/', array(), NULL, NULL, FALSE, TRUE);
  
  return $output;
}

/**
 * Manage the .swf files
 */
function sifr_manage() {
  $sifr = str_replace(' ', "%20", sifr_find_sifr());
  
  drupal_set_title(t('Manage sIFR fonts'));
  
  $delimg  = theme('image', drupal_get_path('module', 'sifr') .'/images/delete.png');
  $filedir = file_directory_path() .'/sifr';
  
  $header  = array(t('Font'), t('Location'), '');
  foreach (sifr_get_fonts() as $file => $name) {
    $editable = strpos($file, $filedir) === FALSE ? FALSE : TRUE;
    $rows[] = array(
      $name,
      $file,
      $editable ? l($delimg .' '. t('delete'), 'admin/settings/sifr/deletefont/'. urlencode($file), array(), NULL, NULL, FALSE, TRUE) : '',
    );
  }
  $output .= theme('table', $header, $rows, array('style' => 'width:100%'));
  
  $output .= drupal_get_form('sifr_upload');
  return $output;
}

function sifr_upload() {
  $form['#attributes'] = array('enctype' => 'multipart/form-data');
  
  $instructions = t('
  <h3>Good places to find sIFR fonts:</h3>
  <ul>
    <li><a href="http://sifrfonts.com/">SIFRfonts.com</a></li>
    <li><a href="http://www.fontsmack.com/">Font Smack</a></li>
    <li><a href="http://www.isarie.com/?p=17">Stefan Isarie</a></li>
  </ul>
  <p>Just download \'em from there and upload \'em here.</p>
  
  <h3>To create your own sIFR font files:</h3>
    <ol>
      <li>Download these files to the same directory: !files</li>
      <li>Open sifr.fla in Macromedia Flash.</li>
      <li>Double-click the invisible textbox in the middle of the stage. If the &quot;Properties&quot; palette is not already visible, open it by selecting &quot;Window > Properties&quot;, and select which font you\'d like to use from the drop down menu. If you select a TrueType font, you can also create bold and italic styles for your font by clicking on the &quot;I&quot; or &quot;B&quot; buttons. The standard sifr.fla file contains most of the English characters you will generally need. If you need to embed additional characters or languages, click the &quot;Character&quot; button and select more characters from there.</li>
      <li>To export the new file, choose &quot;File > Export&quot; and save as fontname.swf</li>
      <li>Upload the your font file below.</li>
    </ol>',
    array(
      '!files' => l('sifr.fla', 'sifr/download/sifr.fla') .', '. l('customize_me.as', 'sifr/download/customize_me.as') .', '. l('dont_customize_me.as', 'sifr/download/dont_customize_me.as')
      )
  );
  $form['instructions'] = array(
    '#type' => 'fieldset',
    '#collapsible' => TRUE,
    '#collapsed' => TRUE,
    '#title' => t('Instructions'),
    '#attributes' => array('style' => 'margin-top: 15px'),
  );
  $form['instructions']['instructions'] = array(
    '#type' => 'markup',
    '#value' => $instructions,
  );
  $form['sifrfile'] = array(
    '#type' => 'file',
    '#title' => t('Upload sIFR font file'),
    '#description' => t('Select the .swf file that you created using the instructions above.'),
    '#size' => 40,
  );
  $form[] = array(
    '#type' => 'submit',
    '#value' => t('Submit'),
  );
  
  return $form;
}

function sifr_upload_validate($form_id, &$form_values) {
  // check that it's a swf file
}

function sifr_upload_submit($form_id, $form_values) {
  $dir = file_create_path('sifr');
  // creates directory if needed
  if (file_check_directory($dir, 1)) {
    if ($file = file_save_upload('sifrfile', 'sifr')) {
      drupal_set_message(t('New font file uploaded.'));
    }
    else {
      drupal_set_message(t('File could not be saved.'), 'error');
    }
  }
  else {
    drupal_set_message(t('Cannot create sifr directory in files.'), 'error');
  }
}

/**
 * Edit or create a new rule
 *
 * @param $edit
 * an array or object of rule parameters
 *
 * @return
 * the rendered form
 */
function sifr_edit_rule($edit = NULL) {
  if (is_numeric($edit)) {
    if ($_POST['op'] == t('Delete')) {
      drupal_goto('admin/settings/sifr/rules/delete/'. $edit);
    }
    else {
      $rule = sifr_load_rule($edit);
    }
  }
  $font_select = $rule       = (array)$rule;
  $rules                     = array();
  
  // Override font colors for font selection.
  $font_select['color']      = '#000000';
  $font_select['linkcolor']  = '#000000';
  $font_select['hovercolor'] = '#000000';
  $font_select['bgcolor']    = '#FFFFFF';
  $fonts                     = sifr_get_fonts();
  foreach ($fonts as $path => $name) {
    $font_select['selector'] = "#font-". str_replace(array(' ', '_'), '-', $name);
    $font_select['font']     = $path;
    $rules[]                 = sifr_render_rule_js($font_select);
  }
  drupal_add_js(sifr_wrap_rules($rules), 'inline');
  
  drupal_add_css(drupal_get_path('module', 'sifr') .'/sifr.css', 'module', 'all', FALSE);
  
  return drupal_get_form('sifr_rule', $rule);
}

function sifr_rule($edit) {
  if ($edit['rid']) {
    $form['rid'] = array('#type' => 'hidden', '#value' => $edit['rid']);
    drupal_set_title(t('Edit sIFR rule %s', array('%s' => $edit['name'])));
  }
  else {
    drupal_set_title(t('Add a new sIFR rule'));
  }
  $form['basics'] = array(
    '#type' => 'fieldset',
    '#title' => t('Basics'),
  );
  $form['basics']['name'] = array(
    '#type' => 'textfield',
    '#title' => t('Rule Name'),
    '#default_value' => $edit['name'],
    '#required' => TRUE,
    '#description' => t('The human readable name for this rule.'),
  );
  
  $form['basics']['selector'] = array(
    '#type' => 'textfield',
    '#title' => t('CSS Selector'),
    '#default_value' => $edit['selector'],
    '#description' => t('<div>CSS selector for the elements you want to replace.
    </div>'),
    '#required' => TRUE,
  );
  $form['basics']['selectorhelp'] = array(
    '#type' => 'fieldset',
    '#title' => t('CSS Selector Help'),
    '#collapsible' => TRUE,
    '#collapsed' => TRUE,
  );
  $form['basics']['selectorhelp']['contents'] = array(
    '#type' => 'markup',
    '#value' => t('<div>The supported CSS selectors are <code>#</code>, <code>&gt;</code> and <code>.</code>. Whitespace is used to select descendants. Please use whitespace only for this, so instead of <code>#foo &gt; p</code> use <code>#foo&gt;p</code>. You can use multiple selectors by seperating them with a comma ("<code>,</code>").</div>
    <div style="margin-top:5px">Example presets based on Garland default elements:
    <div> - <a href="" onclick="document.getElementById(\'edit-selector\').value = \'#header h1 span\';return false;">site title</a></div>
    <div> - <a href="" onclick="document.getElementById(\'edit-selector\').value = \'#tabs-wrapper h2\';return false;">page title</a></div>
    <div> - <a href="" onclick="document.getElementById(\'edit-selector\').value = \'.node h2\';return false;">node titles</a></div>
    <div> - <a href="" onclick="document.getElementById(\'edit-selector\').value = \'.block h2\';return false;">block titles</a></div>
    <div> - <a href="" onclick="document.getElementById(\'edit-selector\').value = \'.comment h3\';return false;">comment titles</a></div>
    Selectors may be dependent on your theme. Examine html source to find appropriate classes and ids being output by your current theme.
    </div>'),
  );
  
  $form['basics']['font'] = array(
    '#type' => 'fieldset',
  );
  $form['basics']['font']['font'] = array(
    '#title' => t('Font'),
    '#type' => 'item',
    '#description' => t("Select a font to use for this rule."),
    '#required' => TRUE,
  );
  
  $fonts = sifr_get_fonts();
  foreach ($fonts as $path => $name) {
    $form['basics']['font']['font'][]['font'] = array(
      '#type' => 'radio',
      '#title' => '<span id="font-'. str_replace(array(' ', '_'), '-', $name) .'" class="sifr-font">'. $name .'</span>',
      '#return_value' => $path,
      '#default_value' => $edit['font'],
    );
  }
  
  $form['colors'] = array(
    '#type' => 'fieldset',
    '#title' => t('Colors'),
    '#collapsible' => TRUE,
    '#collapsed' => TRUE,
    '#description' => t('Each rule defines the colors for replaced text. Use six-character hexadecimal (CSS-style) color values preceeded by &quot;<code>#</code>&quot; to define text color, linked text color, hover-over link color, and text background color.'),
  );
  $form['colors']['color'] = array(
    '#type' => 'textfield',
    '#title' => t('Text Color'),
    '#size' => 12,
    '#default_value' => $edit['color'] ? $edit['color'] : '#000000',
  );
  $form['colors']['linkcolor'] = array(
    '#type' => 'textfield',
    '#title' => t('Link Color'),
    '#size' => 12,
    '#default_value' => $edit['linkcolor'] ? $edit['linkcolor'] : '#000000',
  );
  $form['colors']['hovercolor'] = array(
    '#type' => 'textfield',
    '#title' => t('Hover Color'),
    '#size' => 12,
    '#default_value' => $edit['hovercolor'] ? $edit['hovercolor'] : '#666666',
  );
  $form['colors']['bgcolor'] = array(
    '#type' => 'textfield',
    '#title' => t('Text Background Color'),
    '#size' => 12,
    '#default_value' => $edit['bgcolor'] ? $edit['bgcolor'] : '#FFFFFF',
  );
  $transparency_options = array(
    0 => t('No transparency'),
    1 => t('Use transparency'),
    2 => t('Opaque background'),
  );
  $form['colors']['transparent'] = array(
    '#title' => t('Transparency'),
    '#type' => 'radios',
    '#options' => $transparency_options,
    '#default_value' => $edit['transparent'],
    '#description' => t('<strong>Warning:</strong> Flash transparency is not well supported in all browsers and therefore not recommended.'),
  );
  $form['tweaks'] = array(
    '#type' => 'fieldset',
    '#title' => t('Tweaks'),
    '#collapsible' => TRUE,
    '#collapsed' => TRUE,
  );
  $form['tweaks']['letterspacing'] = array(
    '#type' => 'textfield',
    '#title' => t('Letter Spacing'),
    '#description' => t('A CSS value to adjust letter spacing on replaced text. Examples: &quot;-5px&quot;, &quot;-.2em&quot;'),
    '#size' => 12,
    '#default_value' => $edit['letterspacing'],
  );
  $form['tweaks']['fontsize'] = array(
    '#type' => 'textfield',
    '#title' => t('Font Size'),
    '#description' => t('A CSS value to adjust font size on replaced text. Examples: &quot;55px&quot;, &quot;2em&quot;'),
    '#size' => 12,
    '#default_value' => $edit['fontsize'],
  );
  $form['tweaks']['padding'] = array(
    '#type' => 'fieldset',
    '#title' => t('Padding'),
    '#description' => '<div style="display:block">'. t('If you use padding in the elements you want to replace, you have to set the amount of padding here (in pixels, but without the px part)') .'</div>',
    '#prefix' => '<div class="container-inline">',
    '#suffix' => '</div>',
  );
  $form['tweaks']['padding']['paddingtop'] = array(
    '#type' => 'textfield',
    '#title' => t('top'),
    '#size' => 6,
    '#default_value' => $edit['paddingtop'],
  );
  $form['tweaks']['padding']['paddingright'] = array(
    '#type' => 'textfield',
    '#title' => t('right'),
    '#size' => 6,
    '#default_value' => $edit['paddingright'],
  );
  $form['tweaks']['padding']['paddingbottom'] = array(
    '#type' => 'textfield',
    '#title' => t('bottom'),
    '#size' => 6,
    '#default_value' => $edit['paddingbottom'],
  );
  $form['tweaks']['padding']['paddingleft'] = array(
    '#type' => 'textfield',
    '#title' => t('left'),
    '#size' => 6,
    '#default_value' => $edit['paddingleft'],
  );
  $form['tweaks']['textalign'] = array(
    '#type' => 'select',
    '#title' => t('Text Alignment'),
    '#default_value' => $edit['textalign'],
    '#options' => array(
      'left' => t('Left'),
      'center' => t('Center'),
      'right' => t('Right'),
    ),
  );
  $form['tweaks']['lettercase'] = array(
    '#type' => 'select',
    '#title' => t('Case Transform'),
    '#default_value' => $edit['lettercase'],
    '#options' => array(
      'normal' => t('Normal'),
      'upper' => t('Upper-Case'),
      'lower' => t('Lower-Case'),
    ),
    '#description' => t('You can transform the text to be all upper-case or all lower-case'),
  );
  $form['tweaks']['underline'] = array(
    '#type' => 'checkbox',
    '#title' => t('Underline Links on Hover?'),
    '#default_value' => $edit['underline'],
    '#return_value' => 1,
  );
  
  $form['weight'] = array(
    '#type' => 'weight',
    '#title' => t('Weight'),
    '#description' => t('You can adjust the order in which the rules are executed by changing their weights. Lighter items are executed before heavier.'),
    '#delta' => 10,
    '#default_value' => isset($edit['weight']) ? $edit['weight'] : 0,
  );
  
  $form['submits'] = array(
    '#prefix' => '<div class="container-inline">',
    '#suffix' => '</div>',
  );
  $form['submits'][] = array('#type' => 'submit', '#value' => t('Submit'));
  if ($edit['rid']) {
    $form['submits'][] = array('#type' => 'button', '#value' => t('Delete'));
  }
  
  return $form;
}

function sifr_rule_submit($form_id, $form) {
  sifr_save_rule($form);
  return 'admin/settings/sifr';
}

function sifr_delete_rule_form($rid = NULL) {
  if (!isset($rid) || !($rule = sifr_load_rule($rid))) {
    drupal_goto('admin/settings/sifr');
  }
  $form = array();
  $form['rid'] = array(
    '#type' => 'hidden',
    '#value' => $rule['rid'],
  );
  return confirm_form($form, t('Are you sure you want to delete the rule @rule?', array('@rule' => $rule['name'])), 'admin/settings/sifr');
};

function sifr_delete_rule_form_submit($form_id, $form_values) {
  if ($form_values['op'] == t('Confirm')) {
    $rule = sifr_load_rule($form_values['rid']);
    db_query('DELETE FROM {sifr} WHERE rid = %d', $form_values['rid']);
    drupal_set_message(t('Rule %name has been deleted.', array('%name' => $rule['name'])));
    variable_del('sifr_rules');
    sifr_css_screen(FALSE);
  }
}

function sifr_fontdelete_confirm() {
  $clean_url_setting = variable_get('clean_url', 0);

  if ($clean_url_setting) {
    $fontfile = substr($_GET['q'], 31);
  }
  else {
    $fontfile = arg(4);
  }

  if (!$fontfile) {
    drupal_goto('admin/settings/sifr/manage');
  }
  elseif (!$clean_url_setting) {
    $fontfile = urldecode($fontfile);
  }
  return drupal_get_form('sifr_fontdelete_confirm_form', $fontfile);
}

function sifr_fontdelete_confirm_form($fontfile) {
  return confirm_form(array('sifr_fontfile' => array('#type' => 'hidden', '#value' => $fontfile)), t("Are you sure you want to delete the file &quot;%fontfile&quot;?", array('%fontfile' => $fontfile)), 'admin/settings/sifr/manage');
}

function sifr_fontdelete_confirm_form_submit($form_id, $form_values) {
  if ($form_values['op'] == t('Confirm')) {
    sifr_font_delete($form_values['sifr_fontfile']);
  }
  return 'admin/settings/sifr/manage';
}

/**
 * Scans files/sifr and modules/sifr/sifr for font files
 *
 * @return array
 *   Keyed array for select field
 */
function sifr_get_fonts() {
  $selects = array();
  
  // scan files/sifr
  $dir = file_create_path('sifr');
  $listings = file_scan_directory($dir, '.*\.(swf)', array('.', '..', 'CVS', '.svn'), 0, FALSE);
  foreach ((array)$listings as $listing) {
    $selects[$listing->filename] = $listing->name;
  }
  // scan modules/sifr/sifr
  $dir = sifr_find_sifr();
  $listings = file_scan_directory($dir, '.*\.(swf)', array('.', '..', 'CVS', '.svn'), 0, FALSE);
  foreach ((array)$listings as $listing) {
    $selects[$listing->filename] = $listing->name;
  }
  return $selects;
}

/**
 * Fetch rules from database.
 *
 * @return
 *   An array of rules.
 */
function sifr_get_rules() {
  $rules = array();
  $result = db_query('SELECT * FROM {sifr} ORDER BY weight');
  while ($r = db_fetch_array($result)) {
    $rules[$r['rid']] = $r;
  }
  return $rules;
}

/**
 * Get an individual rule
 *
 * @return object
 * the rule
 */
function sifr_load_rule($rid) {
  return db_fetch_array(db_query('SELECT * FROM {sifr} WHERE rid = %d', $rid));
}

/**
 * Save a rule into the db
 *
 * @param array $edit
 * the edit array from the rule add/edit form
 */
function sifr_save_rule($edit) {
  $edit = (array)$edit;
  if ($edit['rid']) {
    db_query('DELETE FROM {sifr} WHERE rid = %d', $edit['rid']);
  }
  else {
    $edit['rid'] = db_next_id('sifr');
  }
  foreach ($edit as $key => $val) {
    if (in_array($key, _sifr_fields())) {
      // only save keyed values
      if (!is_numeric($key)) {
        if (is_numeric($val)) {
          if (is_float(0 + $val)) {
            $valsubs[] = '%f';
          }
          else {
            $valsubs[] = '%d';
          }
        }
        else {
          $valsubs[] = '\'%s\'';
        }
        $vals[] = $val;
        $keys[] = $key;
      }
    }
  }
  $keys = implode(', ', $keys);
  $valsubs = implode(', ', $valsubs);
  db_query("INSERT INTO {sifr} ($keys) VALUES ($valsubs) ", $vals);
  drupal_set_message(t('%rule saved.', array('%rule' => $edit['name'])));
  // Create the CSS file.
  sifr_css_screen(FALSE);
  variable_del('sifr_rules');
}

function sifr_rule_delete($rid) {
  db_query('DELETE FROM {sifr} WHERE rid = %d', $rid);
  drupal_set_message(t('Rule deleted.'));
  variable_del('sifr_rules');
}

function sifr_font_delete($fontfile) {
  if (file_delete($fontfile)) {
    drupal_set_message(t('File deleted.'));
  }
  else {
    drupal_set_message(t('There was a problem deleting the file.'), 'error');
  }
}

/**
 * Find the sIFR directory and save its location as a variable
 *
 * This removes the need for admins to rename the sIFR directory
 * when they place it in the module directory
 *
 * recurses the directory for this module to find the shallowest
 * file called sifr.js
 *
 * @return unknown
 */
function sifr_find_sifr() {
  $moddir = drupal_get_path('module', 'sifr');
  $files = file_scan_directory($moddir, 'sifr\.js', array('.', '..', 'CVS', '.svn'), 0, TRUE, 'filename', 1);
  // the first one is the shallowest, return that one
  $file = array_shift($files);
  $file->dir = substr($file->filename, 0, strlen($file->filename) - strlen($file->basename) - 1);
  variable_set('sifr_dir', $file->dir);
  return $file->dir ? $file->dir : FALSE;
}

function sifr_all_pages() {
  static $done;
  if ($done) {
    return;
  }
  $sifrdir = variable_get('sifr_dir', FALSE);
  // no variable set? scan the dir
  if (!$sifrdir) {
    $sifrdir = urlencode(sifr_find_sifr());
  }
  // still can't find it? display an error
  if (!$sifrdir) {
    drupal_set_message(t('The sIFR library is in not installed correctly. Please download from <a href="http://www.mikeindustries.com/sifr/">http://www.mikeindustries.com/sifr/</a> and place in Drupal\'s modules/sifr/ directory.'), 'error');
  }
  else {
    $path = $sifrdir .'/';
    drupal_add_css(file_directory_path() .'/sifr/sifr-screen.css', 'module', 'screen');
    drupal_add_css($path .'sIFR-print.css', 'module', 'print');
    drupal_add_js($path .'sifr.js');
    drupal_add_js(sifr_render_rules_js(), 'inline');
  }
  $done = true;
}

function sifr_render_rules_js() {
  $rules = variable_get('sifr_rules', null);
  if (isset($rules)) {
    return $rules;
  }
  
  $rules = array();
  
  foreach (sifr_get_rules() as $rule) {
    $rules[] = sifr_render_rule_js($rule);
  }
  
  $output = sifr_wrap_rules($rules);
  variable_set('sifr_rules', $output);
  return $output;
}

function sifr_render_rule_js($rule) {
  $properties = array();
  // convert spaces in filename
  $fontpath = base_path() . str_replace('%2F', '/', rawurlencode($rule['font']));
  $properties['sFlashSrc']      = $fontpath;
  $properties['sColor']         = $rule['color'];
  $properties['sLinkColor']     = $rule['linkcolor'];
  $properties['sHoverColor']    = $rule['hovercolor'];
  $properties['sBgColor']       = $rule['bgcolor'];
  $properties['nPaddingTop']    = is_numeric($rule['paddingtop']) ? $rule['paddingtop'] : null;
  $properties['nPaddingRight']  = is_numeric($rule['paddingright']) ? $rule['paddingright'] : null;
  $properties['nPaddingBottom'] = is_numeric($rule['paddingbottom']) ? $rule['paddingbottom'] : null;
  $properties['nPaddingLeft']   = is_numeric($rule['paddingleft']) ? $rule['paddingleft'] : null;
  switch ($rule['transparent']) {
    case '1':
      $properties['sWmode'] = 'transparent';
      break;
    
    case '2':
      $properties['sWmode'] = 'opaque';
      break;
  }
  $properties['sCase'] = in_array($rule['lettercase'], array('upper', 'lower')) ? $rule['lettercase'] : '';
  $vars = array();
  if ($rule['underline']) {
    $vars[] = 'underline=true';
  }
  if (in_array($rule['textalign'], array('left', 'center', 'right'))) {
    $vars[] = 'textalign='. $rule['textalign'];
  }
  $properties['sFlashVars'] = implode($vars, '&');
  
  $output = 'sIFR.replaceElement("'. $rule['selector'] .'", named({';
  foreach ($properties as $property => $value) {
    if (!empty($value)) {
      $output .= $property .': "'. $value .'", ';
    }
  }
  $output = substr($output, 0, -2);
  $output .= '}));';
  
  return $output;
}

function sifr_wrap_rules($rules) {
  $output = '';
  if (is_array($rules) && count($rules)) {
    $output .= "\n//<![CDATA['\n";
    $output .= "if(typeof sIFR == \"function\") {\n";
    foreach ($rules as $rule) {
      $output .= '  '. $rule ."\n";
    }
    $output .= "};\n";
    $output .= "//]]>\n";
  }
  
  return $output;
}

function sifr_css_screen($print = TRUE) {
  if ($print) {
    header("Content-type: text/css");
    header("Expires: Sun, 19 Nov 1978 05:00:00 GMT");
    header("Last-Modified: ". gmdate("D, d M Y H:i:s") ." GMT");
    header("Cache-Control: no-store, no-cache, must-revalidate");
    header("Cache-Control: post-check=0, pre-check=0", FALSE);
    header("Pragma: no-cache");
  }
  $output = "/* These are standard sIFR styles... do not modify */

.sIFR-flash {
  visibility: visible !important;
  margin: 0;
}

.sIFR-replaced {
  visibility: visible !important;
}

span.sIFR-alternate {
  position: absolute;
  left: 0;
  top: 0;
  width: 0;
  height: 0;
  display: block;
  overflow: hidden;
}

/* Hide Adblock Object tab: the text should show up just fine, not poorly with a tab laid over it. */
.sIFR-flash + div[adblocktab=true] {
  display: none !important;
}

/* These \"decoy\" styles are used to hide the browser text before it is replaced... the negative-letter spacing in this case is used to make the browser text metrics match up with the sIFR text metrics since the sIFR text in this example is so much narrower... your own settings may vary... any weird sizing issues you may run into are usually fixed by tweaking these decoy styles */

";
  
  foreach (sifr_get_rules() as $rule) {
    $fontsize       = trim($rule['fontsize']) ? "  font-size: $rule[fontsize];\n" : '';
    $letterspacing  = trim($rule['letterspacing']) ? "  letter-spacing: $rule[letterspacing];\n" : '';
    $rule['selector'] = str_replace(',', ', .sIFR-hasFlash ', $rule['selector']);
    $output .= "
.sIFR-hasFlash $rule[selector] {
  visibility: hidden;
$fontsize$letterspacing}
";
  }
  $dir = file_create_path('sifr');
  if (file_check_directory($dir, 1)) {
    if ($file = file_save_data($output, $dir .'/sifr-screen.css', FILE_EXISTS_REPLACE)) {
      drupal_set_message(t('CSS file saved.'));
    }
    else {
      drupal_set_message(t('CSS file could not be saved.'), 'error');
    }
  }
  else {
    drupal_set_message(t('Cannot create sifr directory in files.'), 'error');
  }
  if ($print) {
    print $output;
  }
}

/**
 * Downloads files using applictation/octet-stream mime type
 * Makes txt files download rather than appearing in browser
 *
 * @param string $file
 *   The file to be downloaded
 */
function sifr_octet_download($file) {
  $filepath = sifr_find_sifr() .'/'. $file;
  if (is_file($filepath)) {
    header('Content-type: application/octet-stream');
    ob_start();
    include $filepath;
    $contents = ob_get_contents();
    ob_end_clean();
    print $contents;
  }
  else {
    return t('File not found. ');
  }
}

function _sifr_fields() {
  return array('rid', 'name', 'font', 'selector', 'color', 'linkcolor', 'hovercolor', 'bgcolor', 'transparent', 'weight', 'letterspacing', 'fontsize', 'paddingtop', 'paddingright', 'paddingbottom', 'paddingleft', 'textalign', 'underline', 'lettercase');
}
