[Sommaire] [Imprimer]

   1  <?php
   2  # ***** BEGIN LICENSE BLOCK *****
   3  # This file is part of DotClear.
   4  # Copyright (c) 2003-2006 Olivier Meunier and contributors. All rights
   5  # reserved.
   6  #
   7  # DotClear is free software; you can redistribute it and/or modify
   8  # it under the terms of the GNU General Public License as published by
   9  # the Free Software Foundation; either version 2 of the License, or
  10  # (at your option) any later version.
  11  # 
  12  # DotClear is distributed in the hope that it will be useful,
  13  # but WITHOUT ANY WARRANTY; without even the implied warranty of
  14  # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15  # GNU General Public License for more details.
  16  # 
  17  # You should have received a copy of the GNU General Public License
  18  # along with DotClear; if not, write to the Free Software
  19  # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  20  #
  21  # ***** END LICENSE BLOCK *****
  22  
  23  l10n::set(dirname(__FILE__).'/locales/'.$_lang.'/main');
  24  $css_file = path::real($core->blog->public_path).'/custom_style.css';
  25  
  26  if (!is_file($css_file) && !is_writable(dirname($css_file))) {
  27      throw new Exception(
  28          sprintf(__('File %s does not exist and directory %s is not writable.'),
  29          $css_file,dirname($css_file))
  30      );
  31  }
  32  
  33  if (isset($_POST['css']))
  34  {
  35      @$fp = fopen($css_file,'wb');
  36      fwrite($fp,$_POST['css']);
  37      fclose($fp);
  38      
  39      echo
  40      '<div class="message"><p>'.
  41      __('Style sheet upgraded.').
  42      '</p></div>';
  43  }
  44  
  45  $css_content = is_file($css_file) ? file_get_contents($css_file) : '';
  46  
  47  echo
  48  '<p class="area"><label>'.__('Style sheet:').' '.
  49  form::textarea('css',60,20,html::escapeHTML($css_content)).'</label></p>';
  50  ?>