' . $this->getLang('menu') . '

<?php
/**
 * DokuWiki Plugin update (Admin Component)
 *
 * @license GPL 2 http://www.gnu.org/licenses/gpl-2.0.html
 * @author  Andreas Gohr <andi@splitbrain.org>
 */

// must be run within Dokuwiki
if (!defined('DOKU_INC')) die();

if (!defined('DOKU_LF')) define('DOKU_LF', "\n");
if (!defined('DOKU_TAB')) define('DOKU_TAB', "\t");
if (!defined('DOKU_PLUGIN')) define('DOKU_PLUGIN',DOKU_INC.'lib/plugins/');

require_once DOKU_PLUGIN.'admin.php';
require_once DOKU_PLUGIN.'update/VerboseTarLib.class.php';

class admin_plugin_update extends DokuWiki_Admin_Plugin {
    private $tgzurl;
    private $tgzfile;
    private $tgzdir;

    public function __construct(){
        global $conf;

        $branch = 'stable';

        $this->tgzurl  = 'http://github.com/splitbrain/dokuwiki/tarball/'.$branch;
        $this->tgzfile = $conf['tmpdir'].'/dokuwiki-update.tgz';
        $this->tgzdir  = $conf['tmpdir'].'/dokuwiki-update/';
    }

    function getMenuSort() { return 555; }

    function handle() {
    }

    public function html() {
        $abrt = false;
        $next = false;

        echo '<h1>' . $this->getLang('menu') . '</h1>';
#FIXME check and abort on safemode

        $this->_stepit(&$abrt, &$next);

#FIXME add security check
        echo '<form action="" method="get">';
        echo '<input type="hidden" name="do" value="admin" />';
        echo '<input type="hidden" name="page" value="update" />';
        if($next) echo '<input type="submit" name="step['.$next.']" value="Continue" />';
        if($abrt) echo '<input type="submit" name="step[cancel]" value="Abort" />';
        echo '</form>';
    }

    private function _stepit(&$abrt, &$next){
        if(isset($_REQUEST['step']) && is_array($_REQUEST['step'])){
            $step = array_shift(array_keys($_REQUEST['step']));
        }else{
            $step = '';
        }

        if($step == 'cancel'){
            # cleanup
            @unlink($this->tgzfile);
            $this->_rdel($this->tgzdir);
            $step = '';
        }

        if($step){
            $abrt = true;
            $next = false;
            $this->_say('<div id="plugin__update">');
            if(!file_exists($this->tgzfile)){
                if($this->_step_download()) $next = 'unpack';
            }elseif(!is_dir($this->tgzdir)){
                if($this->_step_unpack()) $next = 'check';
            }elseif($step != 'upgrade'){
                if($this->_step_copy(true)) $next = 'upgrade';
            }elseif($step == 'upgrade'){
                if($this->_step_copy(false)) $next = 'cancel';
            }else{
                #continue
                echo 'huh';
            }
            $this->_say('</div>');
        }else{
            # first time run, show intro
            echo $this->locale_xhtml('step0');
            $abrt = false;
            $next = 'download';
        }
    }

    private function _say(){
        $args = func_get_args();
        echo vsprintf(array_shift($args)."<br />\n",$args);
        flush();
        ob_flush();
    }

    /**
     * Recursive delete
     *
     * @author zibi at nora dot pl
     * @link http://de.php.net/manual/en/function.unlink.php#100092
     */
    private function _rdel($path) {
        return is_file($path)?
               @unlink($path):
               array_map(array($this,'_rdel'),glob($path.'/*'))==@rmdir($path);
    }

    private function _step_download(){
        $this->_say('Downloading from %s',$this->tgzurl);

        @set_time_limit(120);
        @ignore_user_abort();

        $http = new DokuHTTPClient();
        $http->timeout = 120;
        $data = $http->get($this->tgzurl);

        if(!$data){
            $this->_say($http->error);
            $this->_say("Download failed.");
            return false;
        }

        $this->_say('Received %d bytes',strlen($data));

        if(!io_saveFile($this->tgzfile,$data)){
            $this->_say("Failed to save download.");
            return false;
        }

        return true;
    }

    private function _step_unpack(){
        global $conf;
        $this->_say('Extracting the archive...');

        @set_time_limit(120);
        @ignore_user_abort();

        $tar = new VerboseTarLib($this->tgzfile);
        if($tar->_initerror < 0){
            $this->_say($tar->TarErrorStr($tar->_initerror));
            $this->_say('Extraction failed on init');
            return false;
        }

        $ok = $tar->Extract(VerboseTarLib::FULL_ARCHIVE,$this->tgzdir,1,$conf['fmode'],'/^(_cs|_test|\.gitignore)/');
        if($ok < 1){
            $this->_say($tar->TarErrorStr($ok));
            $this->_say('Extraction failed');
            return false;
        }

        $this->_say('Extraction done.');
        return true;
    }

    private function _step_copy($dryrun=true){
        $ok = $this->_traverse('',$dryrun);
        if($dryrun){
            if($ok){
                $this->_say('<b>All files are writable, ready to upgrade</b>');
            }else{
                $this->_say('<b>Some files aren\'t writable. Uprade not possible.</b>');
            }
        }else{
            if($ok){
                $this->_say('<b>All files upgraded successfully</b>');

                #FIXME delete unused files
            }else{
                $this->_say('<b>Some files couldn\'t be upgraded. Uh-oh. Better check manually.</b>');
            }
        }
        return $ok;
    }

    private function _traverse($dir,$dryrun){
        $base = $this->tgzdir;
        $ok = true;

        $dh = @opendir($base.'/'.$dir);
        if(!$dh) return;
        while(($file = readdir($dh)) !== false){
            if($file == '.' || $file == '..') continue;
            $from = "$base/$dir/$file";
            $to   = DOKU_INC."$dir/$file";

            if(is_dir($from)){
                if($dryrun){
                    // just check for writability
                    if(!is_dir($to)){
                        if(is_dir(dirname($to)) && !is_writable(dirname($to))){
                            $this->_say("<b>%s is not writable</b>",hsc("$dir/$file"));
                            $ok = false;
                        }
                    }
                }

                // recursion
                if(!$this->_traverse("$dir/$file",$dryrun)){
                    $ok = false;
                }
            }else{
                $fmd5 = md5($from);
                $tmd5 = md5($to);
                if($fmd5 != $tmd5){
                    if($dryrun){
                        // just check for writability
                        if( (file_exists($to) && !is_writable($to)) ||
                            (!file_exists($to) && is_dir(dirname($to)) && !is_writable(dirname($to))) ){

                            $this->_say("<b>%s is not writable</b>",hsc("$dir/$file"));
                            $ok = false;
                        }else{
                            $this->_say("%s needs update",hsc("$dir/$file"));
                        }
                    }else{
                        // check dir
                        if(io_mkdir_p(dirname($to))){
                            // copy
                            if(!copy($from,$to)){
                                $this->_say("<b>%s couldn't be copied</b>",hsc("$dir/$file"));
                                $ok = false;
                            }else{
                                $this->_say("%s updated",hsc("$dir/$file"));
                            }
                        }else{
                            $this->_say("<b>failed to create %s</b>",hsc("$dir"));
                            $ok = false;
                        }
                    }
                }
            }
        }
        closedir($dh);
        return $ok;
    }
}

// vim:ts=4:sw=4:et:enc=utf-8: