<?php

$quotchar = '"';
$quotchar = '';

$ok = true;
if ($argc < 5)
    $ok = false;
else
{
    $cmd = $argv[4];
    if ($cmd != 'list' && $cmd != 'xml')
        $ok = false;
}

if (!$ok)
{
    echo "XMLDUMP - utility to dump Firebird DB to xml file -------\n\n";
    echo "Usage: xmldump db_path user pass command [file]\n\n";
    echo "command can be:\n";
    echo "list - dumps a list of tables and columns\n";
    echo "xml  - loads list of tables and columns from [file] and dumps xml file\n\n";
    exit(0);
}

ibase_connect($argv[1], $argv[2], $argv[3], 'UTF-8');

if ($cmd == 'list')
{
    $sql = 'select f.rdb$relation_name, f.rdb$field_name
        from rdb$relation_fields f
        where rdb$system_flag is null or rdb$system_flag = 0
        order by 1, 2';
    $res = ibase_query($sql);
    $tab = array();
    while ($row = ibase_fetch_row($res))
        $tab[trim($row[0])][] = $quotchar.trim($row[1]).$quotchar;
    foreach ($tab as $tn => $cols)
        echo "#T:$quotchar$tn$quotchar:".join(',', $cols).":::\n";
    exit(0);
}

if ($cmd == 'xml')
{
    $fp = fopen($argv[5], 'r');
    if (!$fp)
    {
        echo "Cannot open file ".$argv[5]."\n";
        exit(1);
    }

    $doc = new DOMDocument();
    $doc->xmlStandalone = true;
    $doc->formatOutput = true;
    $doc->encoding = 'UTF-8';
    $root = $doc->createElement('data');
    $doc->appendChild($root);

    while (!feof($fp))
    {
        $line = explode(':', fgets($fp));
        if (count($line) < 3 || $line[0] != '#T')   // empty row?
            continue;
        $tab = $line[1];
        $cols = $line[2];

        $sql = "select $cols from $tab";
        $res = ibase_query($sql);
        if (!$res)
        {
            echo $sql."\n\n".ibase_errmsg();
            exit(2);
        }
        while ($row = ibase_fetch_assoc($res))
        {
            $tablenode = $doc->createElement($tab);
            foreach ($row as $colname => $colvalue)
            {
                if ($colvalue == null)
                    continue;
                $colnode = $doc->createElement(trim($colname));
                $tn = $doc->createTextNode(trim($colvalue));
                $colnode->appendChild($tn);
                $tablenode->appendChild($colnode);
            }
            $root->appendChild($tablenode);
        }
    }
    echo $doc->saveXML();
}