$ write sys$output "======================"
$ write sys$output "PHP ECO 1/2 COMPARISON"
$ write sys$output "======================"
$!
$ write sys$output "==========="
$ write sys$output "Environment"
$ write sys$output "==========="
$!
$ write sys$output ""
$ write sys$output "PHP executables"
$ write sys$output ""
$ dir/full php_root:[000000...]*.exe*;*
$!
$ write sys$output "Installed PHP modules"
$ write sys$output ""
$ pipe install list | sea sys$pipe PHP
$ write sys$output ""
$ write sys$output "PHP.INI"
$ write sys$output ""
$ type PHP_ROOT:[000000]php.ini
$!
$ write sys$output ""
$ write sys$output "========="
$ write sys$output "PHP ECO 1"
$ write sys$output "========="
$ write sys$output ""
$ write sys$output "PHP logicals"
$ write sys$output ""
$ sho log php*/full
$ write sys$output ""
$ write sys$output "PHP image data"
$ write sys$output ""
$ pipe ana/ima php_root:[bin]php.exe | sea sys$pipe link
$ pipe ana/ima php_root:[bin]phpshr.exe | sea sys$pipe link
$ write sys$output ""
$ write sys$output "MOD PHP image data"
$ write sys$output ""
$Loop1:
$ f=f$search("PHP_ROOT:[extensions]*.exe;1
$ if f .eqs. "" thenm goto loop1end
$ write sys$output 'f'
$ pipe ana/ima 'f' | sea sys$pipe link
$ goto Loop1
$Loop1End:
$ write sys$output ""
$ write sys$output "RUN PHP - ECO1"
$ write sys$output ""
$ po :== $php_root:[bin]php.exe
$ set watch file/class=all
$ po php-bin:php_rules.php
$ set watch file/class=none
$!
$ write sys$output "========="
$ write sys$output "PHP ECO 2"
$ write sys$output "========="
$ def phpshr php_root:[bin]phpshr.exe_bad
$ write sys$output ""
$ write sys$output "PHP logicals"
$ write sys$output ""
$ sho log php*/full
$ write sys$output ""
$ write sys$output "PHP image data"
$ write sys$output ""
$ pipe ana/ima php_root:[bin]php.exe_bad | sea sys$pipe link
$ pipe ana/ima php_root:[bin]phpshr.exe_bad | sea sys$pipe link
$ write sys$output ""
$ write sys$output "MOD PHP image data"
$ write sys$output ""
$Loop2:
$ f=f$search("PHP_ROOT:[extensions]*.exe;2
$ if f .eqs. "" thenm goto loop1end
$ write sys$output 'f'
$ pipe ana/ima 'f' | sea sys$pipe link
$ goto Loop2
$Loop2End:
$ write sys$output ""
$ write sys$output "RUN PHP - ECO2
$ write sys$output ""
$ set watch file/class=all
$ pn :== $php_root:[bin]php.exe_bad
$ pn php-bin:php_rules.php
$ set watch file/class=none
$ deassign phpshr
$!
$ exit