Rev 1050 | Rev 1064 | Go to most recent revision | Only display areas with differences | Ignore 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 | } |
- | |
132 | } |
153 | } |
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(' ', ' ', $desc); |
201 | $desc = str_replace(' ', ' ', $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 |