root/freepbx/trunk/amp_conf/htdocs/admin/page.modules.php

<?php /* $Id$ */

$extdisplay = isset($_REQUEST['extdisplay'])?$_REQUEST['extdisplay']:'';

if (isset($_POST['submit'])) { // if form has been submitted
    switch ($_POST['modaction']) {
        case "install":
            if (runModuleSQL($_POST['modname'],$_POST['modaction'])) 
                installModule($_POST['modname'],$_POST['modversion']);
            else
                echo "<div class=\"error\">"._("Module install script failed to run")."</div>";
        break;
        case "uninstall":
            if (runModuleSQL($_POST['modname'],$_POST['modaction']))
                uninstallModule($_POST['modname']);
            else
                echo "<div class=\"error\">"._("Module uninstall script failed to run")."</div>";
        break;
        case "enable":
            enableModule($_POST['modname']);
            echo "<script language=\"Javascript\">document.location='".$_SERVER['PHP_SELF']."?".$_SERVER['QUERY_STRING']."&foo=1'</script>";
        break;
        case "disable":
            disableModule($_POST['modname']);
            echo "<script language=\"Javascript\">document.location='".$_SERVER['PHP_SELF']."?".$_SERVER['QUERY_STRING']."&foo=2'</script>";
        break;
        case "delete":
            deleteModule($_POST['modname']);
            //echo "<script language=\"Javascript\">document.location='".$_SERVER['PHP_SELF']."?".$_SERVER['QUERY_STRING']."'</script>";
        break;
        case "download":
            fetchModule($_POST['location']);
            //echo "<script language=\"Javascript\">document.location='".$_SERVER['PHP_SELF']."?".$_SERVER['QUERY_STRING']."'</script>";
        break;
    }
}
?>

</div>
<div class="rnav">
    <li><a id="<?php echo ($extdisplay=='' ? 'current':'') ?>" href="config.php?display=modules&type=tool&extdisplay="><?php echo _("Local Modules") ?></a></li>
    <li><a id="<?php echo ($extdisplay=='online' ? 'current':'') ?>" href="config.php?display=modules&type=tool&extdisplay=online"><?php echo _("Online Modules") ?></a></li>
</div>
<div class="content">

<?php
switch($extdisplay) {
    case "online": ?>
        <h2><?php echo _("Online Modules")?></h2>
        <table border="1" >
<tr>
    <th><?php echo _("Module")?></th><th><?php echo _("Category")?></th><th><?php echo _("Version")?></th><th><?php echo _("Author")?></th><th><?php echo _("Status")?></th><th><?php echo _("Action")?></th>
</tr>
<?php
        // determine which modules we have installed already
        $installed = find_allmodules();
        // determine what modules are available
        $modules = getModuleXml();
        //echo "<pre>"; print_r($modules); echo "</pre>";
        // display the modules
        displayModules($modules,$installed);
    break;
    default: ?>
        <h2><?php echo _("Local Module Administration")?></h2>
        <table border="1" >
<tr>
    <th><?php echo _("Module")?></th><th><?php echo _("Category")?></th><th><?php echo _("Version")?></th><th><?php echo _("Type")?></th><th><?php echo _("Status")?></th><th><?php echo _("Action")?></th>
</tr>
<?php
        $allmods = find_allmodules();
        //echo "<pre>"; print_r($allmods); echo "</pre>";
        foreach($allmods as $key => $mod) {
            // sort the list in category / displayName order
            // this is the only way i know how to do this...surely there is another way?
            
            // fields for sort
            $displayName = isset($mod['displayName']) ? $mod['displayName'] : 'unknown';
            $category = isset($mod['category']) ? $mod['category'] : 'unknown';    
            // we want to sort on this so make it first in the new array
            $newallmods[$key]['asort'] = $category.$displayName;
        
            // copy the rest of the array
            $newallmods[$key]['displayName'] = $displayName;
            $newallmods[$key]['category'] = $category;
            $newallmods[$key]['version'] = isset($mod['version']) ? $mod['version'] : 'unknown';
            $newallmods[$key]['type'] = isset($mod['type']) ? $mod['type'] : 'unknown';
            $newallmods[$key]['status'] = isset($mod['status']) ? $mod['status'] : 0;
            
            asort($newallmods);    
        }
        foreach($newallmods as $key => $mod) {
            
            //dynamicatlly create a form based on status
            if ($mod['status'] == 0) {
                $status = _("Not Installed");
                //install form
                $action = "<form method=\"POST\" action=\"{$_SERVER['REQUEST_URI']}\" style=display:inline>";
                $action .= "<input type=\"hidden\" name=\"modname\" value=\"{$key}\">";
                $action .= "<input type=\"hidden\" name=\"modversion\" value=\"{$mod['version']}\">";
                $action .= "<input type=\"hidden\" name=\"modaction\" value=\"install\">";
                $action .= "<input type=\"submit\" name=\"submit\" value=\""._("Install")."\">";
                $action .= "</form>";
            } else if($mod['status'] == 1){
                $status = _("Disabled");
                //enable form
                $action = "<form method=\"POST\" action=\"{$_SERVER['REQUEST_URI']}\" style=display:inline>";
                $action .= "<input type=\"hidden\" name=\"modname\" value=\"{$key}\">";
                $action .= "<input type=\"hidden\" name=\"modaction\" value=\"enable\">";
                $action .= "<input type=\"submit\" name=\"submit\" value=\""._("Enable")."\">";
                $action .= "</form>";
                //uninstall form
                $action .= "<form method=\"POST\" action=\"{$_SERVER['REQUEST_URI']}\" style=display:inline>";
                $action .= "<input type=\"hidden\" name=\"modname\" value=\"{$key}\">";
                $action .= "<input type=\"hidden\" name=\"modaction\" value=\"uninstall\">";
                $action .= "<input type=\"submit\" name=\"submit\" value=\""._("Uninstall")."\">";
                $action .= "</form>";
                
            } else if($mod['status'] == 2){
                $status = _("Enabled");
                //disable form
                $action = "<form method=\"POST\" action=\"{$_SERVER['REQUEST_URI']}\" style=display:inline>";
                $action .= "<input type=\"hidden\" name=\"modname\" value=\"{$key}\">";
                $action .= "<input type=\"hidden\" name=\"modaction\" value=\"disable\">";
                $action .= "<input type=\"submit\" name=\"submit\" value=\""._("Disable")."\">";
                $action .= "</form>";
            } else if($mod['status'] == -1){
                $status = _("Broken");
                //disable form
                $action = "<form method=\"POST\" action=\"{$_SERVER['REQUEST_URI']}\" style=display:inline>";
                $action .= "<input type=\"hidden\" name=\"modname\" value=\"{$key}\">";
                $action .= "<input type=\"hidden\" name=\"modaction\" value=\"delete\">";
                $action .= "<input type=\"submit\" name=\"submit\" value=\""._("Delete")."\">";
                $action .= "</form>";
            }
            
            echo "<tr>";
            echo "<td>";
            echo _($mod['displayName']);
            echo "</td>";
            echo "<td>";
            echo $mod['category'];
            echo "</td>";
            echo "<td>";
            echo $mod['version'];
            echo "</td>";
            echo "<td>";
            echo _($mod['type']); 
            echo "</td>";
            echo "<td>";
            echo $status;
            echo "</td>";
            echo "<td>";
            echo $action;
            echo "</td>";
            echo "</tr>";
        } 
    break;
}
?>

</table>

<?php

/* BEGIN FUNCTIONS */

function displayModules($arr,$installed) {
    // So, we have an array with several:
/*
    [phpinfo] => Array
        (
            [displayName] => PHP Info
            [version] => 1.0
            [type] => tool
            [category] => Basic
            [author] => Coalescent Systems
            [email] => info@coalescentsystems.ca
            [items] => Array
                (
                    [PHPINFO] => PHP Info
                    [PHPINFO2] => PHP Info2
                )

            [requirements] => Array
                (
                    [FILE] => /usr/sbin/asterisk
                    [MODULE] => core
                )

        )
*/
    foreach(array_keys($arr) as $arrkey) {
        // Determine module status
        if(array_key_exists($arrkey,$installed)) {
            $status = "Local";
            $action = "";
        } else {
            $status = "Online";
            $action = "
            <form action={$_SERVER['PHP_SELF']}?{$_SERVER['QUERY_STRING']} method=post>
                <input type=hidden name=modaction value=download>
                <input type=hidden name=location value={$arr[$arrkey]['location']}>
                <input type=submit name=submit value=Download>
            </form>
            ";
        }
    
        // build author string/link
        if (isset($arr[$arrkey]['email']))
            $email = "<a href=\"mailto:".$arr[$arrkey]['email']."\">".$arr[$arrkey]['author']."</a>";
        else 
            $email = $arr[$arrkey]['author'];
            
        print <<< End_of_Html
        
        <tr>
            <td>{$arr[$arrkey]['displayName']} ({$arrkey})</td>
            <td>{$arr[$arrkey]['type']}</td>
            <td>{$arr[$arrkey]['version']}</td>
            <td>{$email}</td>
            <td>{$status}</td>
            <td>{$action}</td>
        </tr>
        
End_of_Html;
    }
}

function getModuleXml() {
    //this should be in an upgrade file ... putting here for now.
    sql('CREATE TABLE IF NOT EXISTS module_xml (time INT NOT NULL , data BLOB NOT NULL) TYPE = MYISAM ;');
    
    $result = sql('SELECT * FROM module_xml','getRow',DB_FETCHMODE_ASSOC);
    // if the epoch in the db is more than 10 minutes old, then regrab xml
    if((time() - $result['time']) > 600) {
        $fn = "http://svn.sourceforge.net/svnroot/amportal/modules/trunk/modules.xml";
        //$fn = "/usr/src/freepbx-modules/modules.xml";
        $data = file_get_contents($fn);
        // remove the old xml
        sql('DELETE FROM module_xml');
        // update the db with the new xml
        $data4sql = (get_magic_quotes_gpc() ? $data : addslashes($data));
        sql('INSERT INTO module_xml (time,data) VALUES ('.time().',"'.$data4sql.'")');
    } else {
        echo "using cache";
        $data = $result['data'];
    }
    //echo time() - $result['time'];
    $parser = new xml2ModuleArray($data);
    $xmlarray = $parser->parseModulesXML($data);
    //$modules = $xmlarray['XML']['MODULE'];
    
    //echo "<hr>Raw XML Data<pre>"; print_r(htmlentities($data)); echo "</pre>";
    //echo "<hr>XML2ARRAY<pre>"; print_r($xmlarray); echo "</pre>";
    
    return $xmlarray;
}

// executes the SQL found in a module install.sql or uninstall.sql
function runModuleSQL($moddir,$type){
    global $db;
    global $amp_conf;
    $data='';
    $retval = false;
    // if there is an sql file, run it
    if (is_file("modules/{$moddir}/{$type}.sql")) {
        // run sql script
        $fd = fopen("modules/{$moddir}/{$type}.sql","r");
        while (!feof($fd)) {
            $data .= fread($fd, 1024);
        }
        fclose($fd);

        preg_match_all("/((SELECT|INSERT|UPDATE|DELETE|CREATE|DROP).*);\s*\n/Us", $data, $matches);
        
        foreach ($matches[1] as $sql) {
                $result = $db->query($sql); 
                if(DB::IsError($result)) {     
                    return false;
                }
        }
        $retval = true;
    }
    // if there is a php file, run it
    print "Looking at modules/{$moddir}/{$type}.php\n";
    if (is_file("modules/{$moddir}/{$type}.php")) {
        include("modules/{$moddir}/{$type}.php");
        $retval = true;
    }
    return $retval;
}

function installModule($modname,$modversion) 
{
    global $db;
    global $amp_conf;
    
    switch ($amp_conf["AMPDBENGINE"])
    {
        case "sqlite":
            // to support sqlite2, we are not using autoincrement. we need to find the 
            // max ID available, and then insert it
            $sql = "SELECT max(id) FROM modules;";
            $results = $db->getRow($sql);
            $new_id = $results[0];
            $new_id ++;
            $sql = "INSERT INTO modules (id,modulename, version,enabled) values ('{$new_id}','{$modname}','{$modversion}','0' );";
            break;
        
        default:
            $sql = "INSERT INTO modules (modulename, version) values ('{$modname}','{$modversion}');";
        break;
    }

    $results = $db->query($sql);
    if(DB::IsError($results)) {
        die($results->getMessage());
    }
}

function uninstallModule($modname) {
    global $db;
    $sql = "DELETE FROM modules WHERE modulename = '{$modname}'";
    $results = $db->query($sql);
    if(DB::IsError($results)) {
        die($results->getMessage());
    }
}

function enableModule($modname) {
    global $db;
    $sql = "UPDATE modules SET enabled = 1 WHERE modulename = '{$modname}'";
    $results = $db->query($sql);
    if(DB::IsError($results)) {
        die($results->getMessage());
    }
}

function disableModule($modname) {
    global $db;
    $sql = "UPDATE modules SET enabled = 0 WHERE modulename = '{$modname}'";
    $results = $db->query($sql);
    if(DB::IsError($results)) {
        die($results->getMessage());
    }
}

function deleteModule($modname) {
    global $db;
    $sql = "DELETE FROM modules WHERE modulename = '{$modname}' LIMIT 1";
    $results = $db->query($sql);
    if(DB::IsError($results)) {
        die($results->getMessage());
    }
}

//downloads a module, and extracts it into the module dir
function fetchModule($location) {
    global $amp_conf;
    $file = basename($location);
    $url = "https://svn.sourceforge.net/svnroot/amportal/modules/trunk/".$location;
    //save the file to /tmp
    $filename = "/tmp/".$file;
    $fp = @fopen($filename,"w");
    fwrite($fp,file_get_contents($url));
    fclose($fp);
    if(!file_exists($filename)) {
        echo "<div class=\"error\">"._("Unable to save")." {$filename}</div>";
        return false;
    }
    // unarchive the module to the modules dir
    system("tar zxf {$filename} --directory={$amp_conf['AMPWEBROOT']}/admin/modules/");
    unlink($filename);
    return true;
}

?>