Source for file dict.php

#!/usr/local/bin/php -q
<?php
 
// {{{ includes
require 'Console/Getopt.php';
require 'Net/Dict.php';
// }}}
// {{{ get options
 
$longOptions  = array('help', 'match=', 'databases', 'strategies', 
                        'info=', 'server', 'status');
 
$con = new Console_Getopt;
 
$args = $con->readPHPArgv();
 
// array_shift($args);
 
$options = $con->getopt($args, '', $longOptions);
 
if (PEAR::isError($options)) {
    die($options->getMessage());
}
 
// }}}
// {{{ help!
function help()
{
echo <<<HELP
 
Usage: dict [OPTIONS] keyword
 
Options:
    --help          Prints this help screen
    --matches=word  Show DB matches for word 
    --databases     Show DB list
    --strategies    Show Strategy list
    --info=DATABASE Show Info on DB
    --server        Show Server Info    
    --status        Show Status
 
HELP;
    exit(0);
}
 
if ('--help' == $options[0][0][0] or ( empty($options[0][0][0]) and empty($options[1][0]) )  ) help();
 
// }}}
// {{{ connect
$d = new Net_Dict;
 
$conn = $d->connect();
 
if (PEAR::isError($conn)) {
    die($conn->getMessage());
}
 
// }}}
// {{{ define
 
if (!empty($options[1][0])) {
 
    foreach ($options[1] as $keyword) {
    
            $defs = $d->define($keyword);
 
            if (PEAR::isError($defs)) {
                    die($defs->getMessage());
            }
 
            foreach ($defs as $def) {
                    echo $def['definition'];
            }
    }
}
 
// }}}
// {{{ options 
 
switch ($options[0][0][0]) {
 
    case '--help':
        help();
        break;
 
    case '--match':
 
        foreach($d->match($options[0][0][1]) as $matches)
            echo $matches['database'] . ' : ' . $matches['word'] . "\n";
   
        break;
 
    case '--databases':
 
        foreach ($d->showDatabases() as $db) 
            echo $db['database'] . ' : ' . $db['description']."\n";
 
        break;
 
    case '--strategies':
        
        foreach ($d->showStrategies() as $strat)
            echo $strat['strategy'] . ' : ' . $strat['description'] . "\n";
 
        break;
 
    case '--info':
 
        $info = $d->showInfo($options[0][0][1]);
 
        if (PEAR::isError($info))
            die($info->getMessage());
 
        echo $info;
 
        break;
 
    case '--server':
        
        $server = $d->showServer();
 
        if (PEAR::isError($server)) 
            die($server->getMessage());
 
        echo $server;
 
        break;
 
    case '--status':
        
        echo $d->status();
 
        break;
 
    default:
        break;
}
 
// }}}