<?php

// this files is a modified clone of the /lib/resourcelib.php file that is part of the core moodle 2 pacakge as edited by keith at keithbloom dot com 2011/03/14

/**
 * Recourse module like helper functions
 *
 * @package    core
 * @subpackage lib
 * @copyright  2009 Petr Skoda (http://skodak.org)
 * @license    http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
 */

defined('MOODLE_INTERNAL') || die();

/** Try the best way */
define('MPLAYERLIB_DISPLAY_AUTO', 0);
/** Display using object tag */
define('MPLAYERLIB_DISPLAY_EMBED', 1);
/** Display inside frame */
define('MPLAYERLIB_DISPLAY_FRAME', 2);
/** Display normal link in new window */
define('MPLAYERLIB_DISPLAY_NEW', 3);
/** Force download of file instead of display */
define('MPLAYERLIB_DISPLAY_DOWNLOAD', 4);
/** Open directly */
define('MPLAYERLIB_DISPLAY_OPEN', 5);
/** Open in "emulated" pop-up without navigation */
define('MPLAYERLIB_DISPLAY_POPUP', 6);

/** Legacy files not needed or new mplayer */
define('MPLAYERLIB_LEGACYFILES_NO', 0);
/** Legacy files conversion marked as completed */
define('MPLAYERLIB_LEGACYFILES_DONE', 1);
/** Legacy files conversion in progress*/
define('MPLAYERLIB_LEGACYFILES_ACTIVE', 2);


/**
 * Try on demand migration of file from old course files
 * @param string $filepath old file path
 * @param int $cmid migrated course module if
 * @param int $courseid
 * @param string $component
 * @param string $filearea new file area
 * @param int $itemid migrated file item id
 * @return mixed, false if not found, stored_file instance if migrated to new area
 */
function mplayerlib_try_file_migration($filepath, $cmid, $courseid, $component, $filearea, $itemid) {
    $fs = get_file_storage();

    if (stripos($filepath, '/backupdata/') === 0 or stripos($filepath, '/moddata/') === 0) {
        // do not steal protected files!
        return false;
    }

    if (!$context = get_context_instance(CONTEXT_MODULE, $cmid)) {
        return false;
    }
    if (!$coursecontext = get_context_instance(CONTEXT_COURSE, $courseid)) {
        return false;
    }

    $fullpath = rtrim("/$coursecontext->id/course/legacy/0".$filepath, '/');
    do {
        if (!$file = $fs->get_file_by_hash(sha1($fullpath))) {
            if ($file = $fs->get_file_by_hash(sha1("$fullpath/.")) and $file->is_directory()) {
                if ($file = $fs->get_file_by_hash(sha1("$fullpath/index.htm"))) {
                    break;
                }
                if ($file = $fs->get_file_by_hash(sha1("$fullpath/index.html"))) {
                    break;
                }
                if ($file = $fs->get_file_by_hash(sha1("$fullpath/Default.htm"))) {
                    break;
                }
            }
            return false;
        }
    } while (false);

    // copy and keep the same path, name, etc.
    $file_record = array('contextid'=>$context->id, 'component'=>$component, 'filearea'=>$filearea, 'itemid'=>$itemid);
    try {
        return $fs->create_file_from_storedfile($file_record, $file);
    } catch (Exception $e) {
        // file may exist - highly unlikely, we do not want upgrades to stop here
        return false;
    }
}

/**
 * Returns list of available display options
 * @param array $enabled list of options enabled in module configuration
 * @param int $current current display options for existing instances
 * @return array of key=>name pairs
 */
function mplayerlib_get_displayoptions(array $enabled, $current=null) {
    if (is_number($current)) {
        $enabled[] = $current;
    }

    $options = array(MPLAYERLIB_DISPLAY_AUTO     => get_string('mplayerdisplayauto'),
                     MPLAYERLIB_DISPLAY_EMBED    => get_string('mplayerdisplayembed'),
                     MPLAYERLIB_DISPLAY_FRAME    => get_string('mplayerdisplayframe'),
                     MPLAYERLIB_DISPLAY_NEW      => get_string('mplayerdisplaynew'),
                     MPLAYERLIB_DISPLAY_DOWNLOAD => get_string('mplayerdisplaydownload'),
                     MPLAYERLIB_DISPLAY_OPEN     => get_string('mplayerdisplayopen'),
                     MPLAYERLIB_DISPLAY_POPUP    => get_string('mplayerdisplaypopup'));

    $result = array();

    foreach ($options as $key=>$value) {
        if (in_array($key, $enabled)) {
            $result[$key] = $value;
        }
    }

    if (empty($result)) {
        // there should be always something in case admin misconfigures module
        $result[MPLAYERLIB_DISPLAY_OPEN] = $options[MPLAYERLIB_DISPLAY_OPEN];
    }

    return $result;
}

/**
 * Tries to guess correct mimetype for arbitrary URL
 * @param string $fullurl
 * @return string mimetype
 */
function mplayerlib_guess_url_mimetype($fullurl) {
    global $CFG;
    require_once("$CFG->libdir/filelib.php");

    if (preg_match("|^(.*)/[a-z]*file.php(\?file=)?(/[^&\?]*)|", $fullurl, $matches)) {
        // remove the special moodle file serving hacks so that the *file.php is ignored
        $fullurl = $matches[1].$matches[3];
    }

    if (strpos($fullurl, '.php')){
        // we do not really know what is in general php script
        return 'text/html';

    } else if (substr($fullurl, -1) === '/') {
        // directory index (http://example.com/smaples/)
        return 'text/html';

    } else if (strpos($fullurl, '//') !== false and substr_count($fullurl, '/') == 2) {
        // just a host name (http://example.com), solves Australian servers "audio" problem too
        return 'text/html';

    } else {
        // ok, this finally looks like a real file
        return mimeinfo('type', $fullurl);
    }
}

/**
 * Returns image embedding html.
 * @param string $fullurl
 * @param string $title
 * @return string html
 */
function mplayerlib_embed_image($fullurl, $title) {
    $code = '';
    $code .= '<div class="mplayercontent mplayerimg">';
    $code .= "<img title=\"".strip_tags(format_string($title))."\" class=\"mplayerimage\" src=\"$fullurl\" alt=\"\" />";
    $code .= '</div>';

    return $code;
}

/**
 * Returns mp3 embedding html.
 * @param string $fullurl
 * @param string $title
 * @param string $clicktoopen
 * @return string html
 */
function mplayerlib_embed_mp3($fullurl, $title, $clicktoopen) {
    global $CFG, $OUTPUT, $PAGE;

    $c = $OUTPUT->mplayer_mp3player_colors();   // You can set this up in your theme/xxx/config.php
    $colors = explode('&', $c);
    $playercolors = array();
    foreach ($colors as $color) {
        $color = explode('=', $color);
        $playercolors[$color[0]] = $color[1];
    }

    $id = 'filter_mp3_'.time(); //we need something unique because it might be stored in text cache

    $playerpath = $CFG->wwwroot .'/filter/mediaplugin/mp3player.swf';
    $audioplayerpath = $CFG->wwwroot .'/filter/mediaplugin/flowplayer.audio.swf';

    $code = <<<OET
<div class="mplayercontent mplayermp3">
  <span class="mplayermediaplugin mplayermediaplugin_mp3" id="$id"></span>
  <noscript><div>
    <object width="251" height="25" id="nonjsmp3plugin" name="undefined" data="$playerpath" type="application/x-shockwave-flash">
    <param name="movie" value="$playerpath" />
    <param name="allowfullscreen" value="false" />
    <param name="allowscriptaccess" value="always" />
    <param name="flashvars" value='config={"plugins": {"controls": {
                                                            "fullscreen": false,
                                                            "height": 25,
                                                            "autoHide": false
                                                            }
                                                      },
                                           "clip":{"url":"$fullurl",
                                                   "autoPlay": false},
                                           "content":{"url":"$playerpath"}}}' />
    </object>
  </div></noscript>
</div>
OET;
    $PAGE->requires->js('/lib/flowplayer.js');
    $code .= $PAGE->requires->js_function_call('M.util.init_mp3flowplayer', array('id'=>$id, 'playerpath'=>$playerpath, 'audioplayerpath'=>$audioplayerpath, 'fileurl'=>$fullurl, 'color'=>$playercolors));

    return $code;
}

/**
 * Returns flash video embedding html.
 * @param string $fullurl
 * @param string $title
 * @param string $clicktoopen
 * @return string html
 */
function mplayerlib_embed_flashvideo($fullurl, $title, $clicktoopen) {
    global $CFG, $PAGE;

    $id = 'filter_flv_'.time(); //we need something unique because it might be stored in text cache

    $playerpath = $CFG->wwwroot .'/filter/mediaplugin/flvplayer.swf';

    $code = <<<EOT
<div class="mplayercontent mplayerflv">
  <span class="mediaplugin mediaplugin_flv" id="$id"></span>
  <noscript><div>
    <object width="800" height="600" id="undefined" name="undefined" data="$playerpath" type="application/x-shockwave-flash">
    <param name="movie" value="$playerpath" />
    <param name="allowfullscreen" value="true" />
    <param name="allowscriptaccess" value="always" />
    <param name="flashvars" value='config={"clip":{"url":"$fullurl",
                                                   "autoPlay": false},
                                           "content":{"url":"$playerpath"}}}' />
    </object>
  </div></noscript>
</div>
EOT;

    $PAGE->requires->js('/lib/flowplayer.js');
    $code .= $PAGE->requires->js_function_call('M.util.init_flvflowplayer', array('id'=>$id, 'playerpath'=>$playerpath, 'fileurl'=>$fullurl));
    return $code;
}

/**
 * Returns flash embedding html.
 * @param string $fullurl
 * @param string $title
 * @param string $clicktoopen
 * @return string html
 */
function mplayerlib_embed_flash($fullurl, $title, $clicktoopen) {
    $code = <<<EOT
<div class="mplayercontent mplayerswf">
  <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000">
    <param name="movie" value="$fullurl" />
    <param name="autoplay" value="true" />
    <param name="loop" value="true" />
    <param name="controller" value="true" />
    <param name="scale" value="aspect" />
    <param name="base" value="." />
<!--[if !IE]>-->
    <object type="application/x-shockwave-flash" data="$fullurl">
      <param name="controller" value="true" />
      <param name="autoplay" value="true" />
      <param name="loop" value="true" />
      <param name="scale" value="aspect" />
      <param name="base" value="." />
<!--<![endif]-->
$clicktoopen
<!--[if !IE]>-->
    </object>
<!--<![endif]-->
  </object>
</div>
EOT;

    return $code;
}

/**
 * Returns ms media embedding html.
 * @param string $fullurl
 * @param string $title
 * @param string $clicktoopen
 * @return string html
 */
function mplayerlib_embed_mediaplayer($fullurl, $title, $clicktoopen) {
    $code = <<<EOT
<div class="mplayercontent mplayerwmv">
  <object type="video/x-ms-wmv" data="$fullurl">
    <param name="controller" value="true" />
    <param name="autostart" value="true" />
    <param name="src" value="$fullurl" />
    <param name="scale" value="noScale" />
    $clicktoopen
  </object>
</div>
EOT;

    return $code;
}

/**
 * Returns quicktime embedding html.
 * @param string $fullurl
 * @param string $title
 * @param string $clicktoopen
 * @return string html
 */
function mplayerlib_embed_quicktime($fullurl, $title, $clicktoopen) {
    $code = <<<EOT
<div class="mplayercontent mplayerqt">
  <object classid="clsid:02BF25D5-8C17-4B23-BC80-D3488ABDDC6B" codebase="http://www.apple.com/qtactivex/qtplugin.cab">
    <param name="src" value="$fullurl" />
    <param name="autoplay" value="true" />
    <param name="loop" value="true" />
    <param name="controller" value="true" />
    <param name="scale" value="aspect" />
<!--[if !IE]>-->
    <object type="video/quicktime" data="$fullurl">
      <param name="controller" value="true" />
      <param name="autoplay" value="true" />
      <param name="loop" value="true" />
      <param name="scale" value="aspect" />
<!--<![endif]-->
$clicktoopen
<!--[if !IE]>-->
    </object>
<!--<![endif]-->
  </object>
</div>
EOT;

    return $code;
}

/**
 * Returns mpeg embedding html.
 * @param string $fullurl
 * @param string $title
 * @param string $clicktoopen
 * @return string html
 */
function mplayerlib_embed_mpeg($fullurl, $title, $clicktoopen) {
    $code = <<<EOT
<div class="mplayercontent mplayermpeg">
  <object classid="CLSID:22d6f312-b0f6-11d0-94ab-0080c74c7e95" codebase="http://activex.microsoft.com/activex/controls/mplayer/en/nsm p2inf.cab#Version=5,1,52,701" type="application/x-oleobject">
    <param name="fileName" value="$fullurl" />
    <param name="autoStart" value="true" />
    <param name="animationatStart" value="true" />
    <param name="transparentatStart" value="true" />
    <param name="showControls" value="true" />
    <param name="Volume" value="-450" />
<!--[if !IE]>-->
    <object type="video/mpeg" data="$fullurl">
      <param name="controller" value="true" />
      <param name="autostart" value="true" />
      <param name="src" value="$fullurl" />
<!--<![endif]-->
$clicktoopen
<!--[if !IE]>-->
    </object>
<!--<![endif]-->
  </object>
</div>
EOT;

    return $code;
}

/**
 * Returns real media embedding html.
 * @param string $fullurl
 * @param string $title
 * @param string $clicktoopen
 * @return string html
 */
function mplayerlib_embed_real($fullurl, $title, $clicktoopen) {
    $code = <<<EOT
<div class="mplayercontent mplayerrm">
  <object classid="clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA" width="320" height="240">
    <param name="src" value="$fullurl" />
    <param name="controls" value="All" />
<!--[if !IE]>-->
    <object type="audio/x-pn-realaudio-plugin" data="$fullurl" width="320" height="240">
      <param name="controls" value="All" />
<!--<![endif]-->
$clicktoopen
<!--[if !IE]>-->
    </object>
<!--<![endif]-->
  </object>
</div>
EOT;

    return $code;
}

/**
 * Returns general link or pdf embedding html.
 * @param string $fullurl
 * @param string $title
 * @param string $clicktoopen
 * @return string html
 */
function mplayerlib_embed_pdf($fullurl, $title, $clicktoopen) {
    global $CFG, $PAGE;

    $code = <<<EOT
<div class="mplayercontent mplayerpdf">
  <object id="mplayerobject" data="$fullurl" type="application/pdf">
    <param name="src" value="$fullurl" />
    $clicktoopen
  </object>
</div>
EOT;
    //$PAGE->requires->js_init_call('M.util.init_maximised_embed', array('mplayerobject'), true);

    return $code;
}


/**
 * Returns general link or file embedding html.
 * @param string $fullurl
 * @param string $title
 * @param string $clicktoopen
 * @return string html
 */
function mplayerlib_embed_general($fullurl, $title, $clicktoopen, $mimetype) {
    global $CFG, $PAGE;

    $iframe = false;
    // IE can not embed stuff properly if stored on different server
    // that is why we use iframe instead, unfortunately this tag does not validate
    // in xhtml strict mode
    if ($mimetype === 'text/html' and check_browser_version('MSIE', 5)) {
        if (preg_match('(^https?://[^/]*)', $fullurl, $matches)) {
            if (strpos($CFG->wwwroot, $matches[0]) !== 0) {
                $iframe = true;
            }
        }
    }

    if ($iframe) {
        $code = <<<EOT
<div class="mplayercontent mplayergeneral">
  <iframe id="mplayerobject" src="$fullurl">
    $clicktoopen
  </iframe>
</div>
EOT;
    } else {
        $code = <<<EOT
<div class="mplayercontent mplayergeneral">
  <object id="mplayerobject" data="$fullurl" type="$mimetype">
    <param name="src" value="$fullurl" />
    $clicktoopen
  </object>
</div>
EOT;
    }

    $PAGE->requires->js_init_call('M.util.init_maximised_embed', array('mplayerobject'), true);

    return $code;
}