Subversion Repositories oidplus

Rev

Rev 1050 | Rev 1064 | Go to most recent revision | Only display areas with differences | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1050 Rev 1053
1 
<?php
 1 
<?php
2 
 
 2 
 
3 
/*
 3 
/*
4 
 * OIDplus 2.0
 4 
 * OIDplus 2.0
5 
 * Copyright 2019 - 2022 Daniel Marschall, ViaThinkSoft
 5 
 * Copyright 2019 - 2022 Daniel Marschall, ViaThinkSoft
6 
 *
 6 
 *
7 
 * Licensed under the Apache License, Version 2.0 (the "License");
 7 
 * Licensed under the Apache License, Version 2.0 (the "License");
8 
 * you may not use this file except in compliance with the License.
 8 
 * you may not use this file except in compliance with the License.
9 
 * You may obtain a copy of the License at
 9 
 * You may obtain a copy of the License at
10 
 *
 10 
 *
11 
 *     http://www.apache.org/licenses/LICENSE-2.0
 11 
 *     http://www.apache.org/licenses/LICENSE-2.0
12 
 *
 12 
 *
13 
 * Unless required by applicable law or agreed to in writing, software
 13 
 * Unless required by applicable law or agreed to in writing, software
14 
 * distributed under the License is distributed on an "AS IS" BASIS,
 14 
 * distributed under the License is distributed on an "AS IS" BASIS,
15 
 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
 15 
 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
16 
 * See the License for the specific language governing permissions and
 16 
 * See the License for the specific language governing permissions and
17 
 * limitations under the License.
 17 
 * limitations under the License.
18 
 */
 18 
 */
19 
 
 19 
 
20 
use ViaThinkSoft\OIDplus\OIDplus;
 20 
use ViaThinkSoft\OIDplus\OIDplus;
21 
use ViaThinkSoft\OIDplus\OIDplusGui;
 21 
use ViaThinkSoft\OIDplus\OIDplusGui;
22 
use ViaThinkSoft\OIDplus\OIDplusException;
 22 
use ViaThinkSoft\OIDplus\OIDplusException;
23 
 
 23 
 
24 
header('Content-Type:text/html; charset=UTF-8');
 24 
header('Content-Type:text/html; charset=UTF-8');
25 
 
 25 
 
26 
require_once __DIR__ . '/../../../../includes/oidplus.inc.php';
 26 
require_once __DIR__ . '/../../../../includes/oidplus.inc.php';
27 
 
 27 
 
28 
set_exception_handler(array(OIDplusGui::class, 'html_exception_handler'));
 28 
set_exception_handler(array(OIDplusGui::class, 'html_exception_handler'));
29 
 
 29 
 
30 
@set_time_limit(0);
 30 
@set_time_limit(0);
31 
 
 31 
 
32 
OIDplus::init(true);
 32 
OIDplus::init(true);
33 
 
 33 
 
34 
if (OIDplus::baseConfig()->getValue('DISABLE_PLUGIN_ViaThinkSoft\OIDplus\OIDplusPageAdminNostalgia', false)) {
 34 
if (OIDplus::baseConfig()->getValue('DISABLE_PLUGIN_ViaThinkSoft\OIDplus\OIDplusPageAdminNostalgia', false)) {
35 
        throw new OIDplusException(_L('This plugin was disabled by the system administrator!'));
 35 
        throw new OIDplusException(_L('This plugin was disabled by the system administrator!'));
36 
}
 36 
}
37 
 
 37 
 
38 
if (!OIDplus::authUtils()->isAdminLoggedIn()) {
 38 
if (!OIDplus::authUtils()->isAdminLoggedIn()) {
39 
        throw new OIDplusException(_L('You need to <a %1>log in</a> as administrator.',OIDplus::gui()->link('oidplus:login$admin')));
 39 
        throw new OIDplusException(_L('You need to <a %1>log in</a> as administrator.',OIDplus::gui()->link('oidplus:login$admin')));
40 
}
 40 
}
41 
 
 41 
 
42 
if (!class_exists('ZipArchive')) {
 42 
if (!class_exists('ZipArchive')) {
43 
        throw new OIDplusException(_L('The PHP extension "ZipArchive" needs to be installed to create a ZIP archive with an included database. Otherwise, you can just download the plain program without data.'));
 43 
        throw new OIDplusException(_L('The PHP extension "ZipArchive" needs to be installed to create a ZIP archive with an included database. Otherwise, you can just download the plain program without data.'));
44 
}
 44 
}
45 
 
 45 
 
46 
$dos_ids = array();
 46 
$dos_ids = array();
47 
$parent_oids = array();
 47 
$parent_oids = array();
48 
$i = 0;
 48 
$i = 0;
49 
$dos_ids[''] = '00000000';
 - 
 
50 
$parent_oids[''] = '';
 - 
 
51 
 
 49 
 
- 
 
 50 
// Root node
52 
$dos_ids[''] = str_pad(strval($i++), 8, '0', STR_PAD_LEFT);
 51 
$dos_ids[''] = str_pad(strval($i++), 8, '0', STR_PAD_LEFT);
- 
 
 52 
$parent_oids[''] = '';
- 
 
 53 
$iri[''] = array();
- 
 
 54 
$asn1[''] = array();
- 
 
 55 
$title[''] = 'OID Root';
- 
 
 56 
$description[''] = 'Exported by OIDplus 2.0';
- 
 
 57 
 
- 
 
 58 
// Now check all OIDs
53 
$res = OIDplus::db()->query("select * from ###objects where id like 'oid:%' order by ".OIDplus::db()->natOrder('id'));
 59 
$res = OIDplus::db()->query("select * from ###objects where id like 'oid:%' order by ".OIDplus::db()->natOrder('id'));
54 
while ($row = $res->fetch_object()) {
 60 
while ($row = $res->fetch_object()) {
55 
        $oid = substr($row->id, strlen('oid:'));
 61 
        $oid = substr($row->id, strlen('oid:'));
56 
        $parent_oid = substr($row->parent, strlen('oid:'));
 62 
        $parent_oid = substr($row->parent, strlen('oid:'));
- 
 
 63 
 
57 
        $dos_ids[$oid] = str_pad(strval($i++), 8, '0', STR_PAD_LEFT);
 64 
        $dos_ids[$oid] = str_pad(strval($i++), 8, '0', STR_PAD_LEFT);
- 
 
 65 
        fill_asn1($oid, $asn1);
- 
 
 66 
        fill_iri($oid, $iri);
- 
 
 67 
        $title[$oid] = $row->title;
- 
 
 68 
        $description[$oid] = $row->description;
- 
 
 69 
 
58 
        if ($parent_oid == '') {
 70 
        if ((oid_len($oid) > 1) && ($parent_oid == '')) {
- 
 
 71 
                do {
- 
 
 72 
                        $real_parent = oid_len($oid) > 1 ? oid_up($oid) : '';
59 
                $parent_oids[$oid] = '';
 73 
                        $parent_oids[$oid] = $real_parent;
- 
 
 74 
 
- 
 
 75 
                        if (isset($dos_ids[$real_parent])) break; // did we already handle this parent node?
- 
 
 76 
 
- 
 
 77 
                        $dos_ids[$real_parent] = str_pad(strval($i++), 8, '0', STR_PAD_LEFT);
- 
 
 78 
                        fill_asn1($real_parent, $asn1); // well-known OIDs?
- 
 
 79 
                        fill_iri($real_parent, $iri); // well-known OIDs?
- 
 
 80 
                        $title[$real_parent] = '';
- 
 
 81 
                        $description[$real_parent] = '';
- 
 
 82 
                        $res2 = OIDplus::db()->query("select * from ###objects where id = 'oid:$real_parent'");
- 
 
 83 
                        while ($row2 = $res2->fetch_object()) {
- 
 
 84 
                                $title[$real_parent] = $row2->title;
- 
 
 85 
                                $description[$real_parent] = $row2->description;
- 
 
 86 
                        }
- 
 
 87 
 
- 
 
 88 
                        // next
- 
 
 89 
                        if ($real_parent == '') break;
- 
 
 90 
                        $oid = $real_parent;
- 
 
 91 
                } while (true);
60 
        } else {
 92 
        } else {
61 
                $parent_oids[$oid] = $parent_oid;
 93 
                $parent_oids[$oid] = $parent_oid;
62 
        }
 94 
        }
63 
}
 95 
}
64 
 
 96 
 
65 
$tmp_file = OIDplus::localpath().'userdata/dos_export.zip';
 97 
$tmp_file = OIDplus::localpath().'userdata/dos_export.zip';
66 
 
 98 
 
67 
$zip = new ZipArchive();
 99 
$zip = new ZipArchive();
68 
if ($zip->open($tmp_file, ZipArchive::CREATE)!== true) {
 100 
if ($zip->open($tmp_file, ZipArchive::CREATE)!== true) {
69 
        throw new OIDplusException("cannot open <$tmp_file>");
 101 
        throw new OIDplusException("cannot open <$tmp_file>");
70 
}
 102 
}
71 
 
 103 
 
72 
function make_line($command, $data) {
 104 
function make_line($command, $data) {
73 
        return $command.$data."\r\n";
 105 
        return $command.$data."\r\n";
74 
}
 106 
}
75 
 
 107 
 
76 
// https://github.com/danielmarschall/oidplus_dos/blob/master/OIDFILE.PAS
 108 
// https://github.com/danielmarschall/oidplus_dos/blob/master/OIDFILE.PAS
77 
define('CMD_VERSION',         'VERS');
 109 
define('CMD_VERSION',         'VERS');
78 
define('CMD_OWN_ID',          'SELF');
 110 
define('CMD_OWN_ID',          'SELF');
79 
define('CMD_PARENT',          'SUPR');
 111 
define('CMD_PARENT',          'SUPR');
80 
define('CMD_CHILD',           'CHLD');
 112 
define('CMD_CHILD',           'CHLD');
81 
define('CMD_ASN1_IDENTIFIER', 'ASN1');
 113 
define('CMD_ASN1_IDENTIFIER', 'ASN1');
82 
define('CMD_UNICODE_LABEL',   'UNIL');
 114 
define('CMD_UNICODE_LABEL',   'UNIL');
83 
define('CMD_DESCRIPTION',     'DESC');
 115 
define('CMD_DESCRIPTION',     'DESC');
84 
 
 116 
 
85 
foreach ($dos_ids as $oid => $dos_id) {
 117 
foreach ($dos_ids as $oid => $dos_id) {
86 
        $cont = '';
 118 
        $cont = '';
87 
 
 119 
 
88 
        $cont .= make_line(CMD_VERSION, 2022);
 120 
        $cont .= make_line(CMD_VERSION, 2022);
89 
 
 121 
 
90 
        $cont .= make_line(CMD_OWN_ID, $dos_id.$oid);
 122 
        $cont .= make_line(CMD_OWN_ID, $dos_id.$oid);
91 
 
 123 
 
92 
        $parent_oid = $parent_oids[$oid];
 124 
        $parent_oid = $parent_oids[$oid];
93 
        $parent_id = $dos_ids[$parent_oid];
 125 
        $parent_id = $dos_ids[$parent_oid];
94 
        $cont .= make_line(CMD_PARENT, $parent_id.$parent_oid);
 126 
        $cont .= make_line(CMD_PARENT, $parent_id.$parent_oid);
95 
 
 127 
 
96 
        foreach ($parent_oids as $child_oid => $parent_oid) {
 128 
        foreach ($parent_oids as $child_oid => $parent_oid) {
97 
                if ($child_oid == '') continue;
 129 
                if ($child_oid == '') continue;
98 
                if ($parent_oid == $oid) {
 130 
                if ($parent_oid == $oid) {
99 
                        $child_id = $dos_ids[$child_oid];
 131 
                        $child_id = $dos_ids[$child_oid];
100 
                        $cont .= make_line(CMD_CHILD, $child_id.$child_oid);
 132 
                        $cont .= make_line(CMD_CHILD, $child_id.$child_oid);
101 
                }
 133 
                }
102 
        }
 134 
        }
103 
 
 135 
 
104 
        $res = OIDplus::db()->query("select * from ###asn1id where oid = 'oid:$oid'");
 - 
 
105 
        while ($row = $res->fetch_object()) {
 - 
 
106 
                $asn1 = $row->name;
 136 
        foreach ($asn1[$oid] as $name) {
107 
                $cont .= make_line(CMD_ASN1_IDENTIFIER, $asn1);
 137 
                $cont .= make_line(CMD_ASN1_IDENTIFIER, $name);
108 
        }
 138 
        }
109 
 
 139 
 
110 
        $res = OIDplus::db()->query("select * from ###iri where oid = 'oid:$oid'");
 - 
 
111 
        while ($row = $res->fetch_object()) {
 - 
 
112 
                $iri = $row->name;
 140 
        foreach ($iri[$oid] as $name) {
113 
                $cont .= make_line(CMD_UNICODE_LABEL, $iri);
 141 
                $cont .= make_line(CMD_UNICODE_LABEL, $name);
114 
        }
 142 
        }
115 
 
 143 
 
116 
        if ($oid == '') {
 - 
 
117 
                // TODO: Split our OIDplus root OIDs into the real OID tree (1, 1.3, 1.3.6, ...)
 - 
 
118 
                $cont .= make_line(CMD_DESCRIPTION, 'Here, you can find the root OIDs');
 - 
 
119 
        } else {
 - 
 
120 
                $res = OIDplus::db()->query("select * from ###objects where id = 'oid:$oid';");
 - 
 
121 
                $row = $res->fetch_object();
 - 
 
122 
                $desc_ary1 = handleDesc($row->title);
 144 
        $desc_ary1 = handleDesc($title[$oid]);
123 
                $desc_ary2 = handleDesc($row->description);
 145 
        $desc_ary2 = handleDesc($description[$oid]);
124 
                $desc_ary = array_merge($desc_ary1, $desc_ary2);
 146 
        $desc_ary = array_merge($desc_ary1, $desc_ary2);
125 
                $prev_line = '';
 147 
        $prev_line = '';
126 
                foreach ($desc_ary as $line_idx => $line) {
 148 
        foreach ($desc_ary as $line_idx => $line) {
127 
                        if ($line == $prev_line) continue;
 149 
                if ($line == $prev_line) continue;
128 
                        if ($line_idx >= 10/*DESCEDIT_LINES*/) break;
 150 
                if ($line_idx >= 10/*DESCEDIT_LINES*/) break;
129 
                        $cont .= make_line(CMD_DESCRIPTION, $line);
 151 
                $cont .= make_line(CMD_DESCRIPTION, $line);
130 
                        $prev_line = $line;
 152 
                $prev_line = $line;
131 
                }
 153 
        }
132 
        }
 - 
 
133 
 
 154 
 
134 
        //echo "****$dos_id.OID\r\n";
 155 
        //echo "****$dos_id.OID\r\n";
135 
        //echo "$cont\r\n";
 156 
        //echo "$cont\r\n";
136 
 
 157 
 
137 
        $zip->addFromString("$dos_id.OID", $cont);
 158 
        $zip->addFromString("$dos_id.OID", $cont);
138 
}
 159 
}
139 
 
 160 
 
140 
$exe_url = 'https://github.com/danielmarschall/oidplus_dos/raw/master/OIDPLUS.EXE';
 161 
$exe_url = 'https://github.com/danielmarschall/oidplus_dos/raw/master/OIDPLUS.EXE';
141 
$exe = url_get_contents($exe_url);
 162 
$exe = url_get_contents($exe_url);
142 
if (!$exe) {
 163 
if (!$exe) {
143 
        throw new OIDplusException(_L("Cannot download the binary file from GitHub (%1)", $exe_url));
 164 
        throw new OIDplusException(_L("Cannot download the binary file from GitHub (%1)", $exe_url));
144 
}
 165 
}
145 
$zip->addFromString('OIDPLUS.EXE', $exe);
 166 
$zip->addFromString('OIDPLUS.EXE', $exe);
146 
 
 167 
 
147 
$zip->close();
 168 
$zip->close();
148 
 
 169 
 
149 
if (!headers_sent()) {
 170 
if (!headers_sent()) {
150 
        header('Content-Type: application/zip');
 171 
        header('Content-Type: application/zip');
151 
        header('Content-Disposition: attachment; filename=oidplus_dos.zip');
 172 
        header('Content-Disposition: attachment; filename=oidplus_dos.zip');
152 
        readfile($tmp_file);
 173 
        readfile($tmp_file);
153 
}
 174 
}
154 
 
 175 
 
155 
unlink($tmp_file);
 176 
unlink($tmp_file);
156 
 
 177 
 
157 
OIDplus::invoke_shutdown();
 178 
OIDplus::invoke_shutdown();
158 
 
 179 
 
159 
# ---
 180 
# ---
160 
 
 181 
 
- 
 
 182 
function fill_asn1($oid, &$asn1) {
- 
 
 183 
        if (!isset($asn1[$oid])) $asn1[$oid] = array();
- 
 
 184 
        $res = OIDplus::db()->query("select * from ###asn1id where oid = 'oid:$oid'");
- 
 
 185 
        while ($row = $res->fetch_object()) {
- 
 
 186 
                $asn1[$oid][] = $row->name;
- 
 
 187 
        }
- 
 
 188 
}
- 
 
 189 
 
- 
 
 190 
function fill_iri($oid, &$iri) {
- 
 
 191 
        if (!isset($iri[$oid])) $iri[$oid] = array();
- 
 
 192 
        $res = OIDplus::db()->query("select * from ###iri where oid = 'oid:$oid'");
- 
 
 193 
        while ($row = $res->fetch_object()) {
- 
 
 194 
                $iri[$oid][] = $row->name;
- 
 
 195 
        }
- 
 
 196 
}
- 
 
 197 
 
161 
function handleDesc($desc) {
 198 
function handleDesc($desc) {
162 
        $desc = preg_replace('/\<br(\s*)?\/?\>/i', "\n", $desc); // br2nl
 199 
        $desc = preg_replace('/\<br(\s*)?\/?\>/i', "\n", $desc); // br2nl
163 
        $desc = strip_tags($desc);
 200 
        $desc = strip_tags($desc);
164 
        $desc = str_replace('&nbsp;', ' ', $desc);
 201 
        $desc = str_replace('&nbsp;', ' ', $desc);
165 
        $desc = html_entity_decode($desc);
 202 
        $desc = html_entity_decode($desc);
166 
        $desc = str_replace("\r", "", $desc);
 203 
        $desc = str_replace("\r", "", $desc);
167 
        $desc = str_replace("\n", "  ", $desc);
 204 
        $desc = str_replace("\n", "  ", $desc);
168 
        $desc = str_replace("\t", "  ", $desc);
 205 
        $desc = str_replace("\t", "  ", $desc);
169 
        $desc = trim($desc);
 206 
        $desc = trim($desc);
170 
        $desc_ary = explode("\r\n", wordwrap($desc, 75, "\r\n", true));
 207 
        $desc_ary = explode("\r\n", wordwrap($desc, 75, "\r\n", true));
171 
        if (implode('',$desc_ary) == '') $desc_ary = array();
 208 
        if (implode('',$desc_ary) == '') $desc_ary = array();
172 
        return $desc_ary;
 209 
        return $desc_ary;
173 
}
 210 
}
174 
 
 211