Si alguien usa ipplan en php4 debian7 y desea migrarlo a php7 debian9
Versiones usadas:
# cat /etc/debian_version
7.11
# mysql --version
mysql Ver 15.1 Distrib 10.0.36-MariaDB, for debian-linux-gnu (x86_64)
using readline 5.2
Version Debian donde se migró el ipplan:
# cat /etc/debian_version
9.11
# mysql --version
mysql Ver 15.1 Distrib 10.4.8-MariaDB, for debian-linux-gnu (x86_64)
using readline 5.2
Descargar actualización de adodb:
https://adodb.org/dokuwiki/doku.php?id=index
Reemplazar el directorio ipplan/adodb con el nuevo adodb que soporta php7
En el ipplan realizar los siguientes cambios:
diff -r '--exclude=adodb' ipplan_php4/admin/schemacreate.php
ipplan_php7/admin/schemacreate.php
404c404
< if (DBF_TYPE=="mysql" or DBF_TYPE=="maxsql") {
---
> if (DBF_TYPE=="mysql" or DBF_TYPE=="maxsql" or DBF_TYPE=="mysqli") {
diff -r '--exclude=adodb' ipplan_php4/class.dnslib.php
ipplan_php7/class.dnslib.php
757c757
< list($oc1, $oc2, $oc3, $oc4, $tail) = split("\.", $host, 5);
---
> list($oc1, $oc2, $oc3, $oc4, $tail) = explode("\.", $host, 5);
diff -r '--exclude=adodb' ipplan_php4/config.php ipplan_php7/config.php
33c33
< define("DBF_TYPE", 'maxsql');
---
> define("DBF_TYPE", 'mysqli');
diff -r '--exclude=adodb' ipplan_php4/contrib/qipImport-public.pl
ipplan_php7/contrib/qipImport-public.pl
265c265
< my @items = split(/,/,$line);
---
> my @items = explode(/,/,$line);
297c297
< my @items = split(/,/,$line);
---
> my @items = explode(/,/,$line);
352c352
< my @items = split(/,/,$line);
---
> my @items = explode(/,/,$line);
389c389
< my @items = split(/,/,$line);
---
> my @items = explode(/,/,$line);
426c426
< my @items = split(/,/,$line);
---
> my @items = explode(/,/,$line);
diff -r '--exclude=adodb' ipplan_php4/ipplanlib.php ipplan_php7/ipplanlib.php
431c431
< // split language and path from cookie
---
> // explode language and path from cookie
469,470c469,470
< $tmp = eregi_replace("/user$","",$tmp);
< $tmp = eregi_replace("/admin$","",$tmp);
---
> $tmp = str_replace("/user","",$tmp);
> $tmp = str_replace("/admin","",$tmp);
491,492c491,492
< $tmp = eregi_replace("/user$","",$tmp);
< $tmp = eregi_replace("/admin$","",$tmp);
---
> $tmp = str_replace("/user$","",$tmp);
> $tmp = str_replace("/admin$","",$tmp);
860c860
< $tokens = split(" ", $vars);
---
> $tokens = explode(" ", $vars);
863c863
< list($code, $variable) = split(":", $value);
---
> list($code, $variable) = explode(":", $value);
diff -r '--exclude=adodb'
ipplan_php4/menus/lib/layersmenu-common.inc.php
ipplan_php7/menus/lib/layersmenu-common.inc.php
468c468
< $buffer = ereg_replace(chr(13), '', $buffer); //
Microsoft Stupidity Suppression
---
> $buffer = str_replace(chr(13), '', $buffer); // Microsoft Stupidity Suppression
487c487
< $this->menuStructure = ereg_replace(chr(13), '', $tree_string);
// Microsoft Stupidity Suppression
---
> $this->menuStructure = str_replace(chr(13), '', $tree_string); // Microsoft Stupidity Suppression
793c793
< $this->tree[$cnt]['parsed_href'] = (ereg_replace(' ', '',
$this->tree[$cnt]['href']) == '') ? '#' : $this->prependedUrl .
$this->tree[$cnt]['href'];
---
> $this->tree[$cnt]['parsed_href'] = (str_replace(' ', '', $this->tree[$cnt]['href']) == '') ? '#' : $this->prependedUrl . $this->tree[$cnt]['href'];
diff -r '--exclude=adodb' ipplan_php4/schema.php ipplan_php7/schema.php
34,35c34,35
< if (phpversion() >= "6") {
< die("This version of IPplan will not work with PHP 6.x");
---
> if (phpversion() >= "8") {
> die("This version of IPplan will not work with PHP 8.x");
59c59
< DBF_TYPE=='mysql' or DBF_TYPE=='maxsql') {
---
> DBF_TYPE=='mysql' or DBF_TYPE=='maxsql' or DBF_TYPE=='mysqli') {
diff -r '--exclude=adodb' ipplan_php4/user/Net/DNS/RR/A.php
ipplan_php7/user/Net/DNS/RR/A.php
88c88
< $aparts = split('\.', $this->address);
---
> $aparts = explode('\.', $this->address);
diff -r '--exclude=adodb' ipplan_php4/user/Net/DNS/Resolver.php
ipplan_php7/user/Net/DNS/Resolver.php
365c365
< foreach (split(' ', $regs[2]) as $ns)
---
> foreach (explode(' ', $regs[2]) as $ns)
381c381
< $this->nameservers = split(' ', getenv('RES_NAMESERVERS'));
---
> $this->nameservers = explode(' ', getenv('RES_NAMESERVERS'));
385c385
< $this->searchlist = split(' ', getenv('RES_SEARCHLIST'));
---
> $this->searchlist = explode(' ', getenv('RES_SEARCHLIST'));
393c393
< $env = split(' ', getenv('RES_OPTIONS'));
---
> $env = explode(' ', getenv('RES_OPTIONS'));
395c395
< list($name, $val) = split(':', $opt);
---
> list($name, $val) = explode(':', $opt);
diff -r '--exclude=adodb' ipplan_php4/user/displaysubnet.php
ipplan_php7/user/displaysubnet.php
615c615
< $pollflag=split(":", my_("D:W:M:Y"));
---
> $pollflag=explode(":", my_("D:W:M:Y"));
diff -r '--exclude=adodb' ipplan_php4/user/modifydns.php
ipplan_php7/user/modifydns.php
125c125
< $muldomains = split(";", $domain);
---
> $muldomains = explode(";", $domain);
diff -r '--exclude=adodb' ipplan_php4/user/modifydnsform.php
ipplan_php7/user/modifydnsform.php
183c183
< list($createyear, $createmonth, $createday) = split('[/.-]',
$row["createmod"]);
---
> list($createyear, $createmonth, $createday) = explode('[/.-]', $row["createmod"]);
189c189
< list($expireyear, $expiremonth, $expireday) = split('[/.-]',
$row["expiremod"]);
---
> list($expireyear, $expiremonth, $expireday) = explode('[/.-]', $row["expiremod"]);
195c195
< list($regyear, $regmonth, $regday) = split('[/.-]', $row["regmod"]);
---
> list($regyear, $regmonth, $regday) = explode('[/.-]', $row["regmod"]);
diff -r '--exclude=adodb' ipplan_php4/user/modifyzone.php
ipplan_php7/user/modifyzone.php
122c122
< $muldomains = split(";", $zone);
---
> $muldomains = explode(";", $zone);
diff -r '--exclude=adodb' ipplan_php4/user/requestip.php
ipplan_php7/user/requestip.php
200c200
< $lst = split(",", REQUESTCUST);
---
> $lst = explode(",", REQUESTCUST);
Listo que disfruten.
--
================
Reply to: