Файловый менеджер - Редактировать - /var/www/iplanru/data/www/intesco.ru/d59ed/fixtpps.tar
Назад
usr/bin/fixtpps 0000666 00000001273 15077242452 0007564 0 ustar 00 #!/usr/bin/perl eval 'exec perl -S $0 "$@"' if $running_under_some_shell; # fixtpps: fix tpscript document to work with PSUtils # # Copyright (C) Angus J. C. Duggan 1991-1995 # See file LICENSE for details. $nesting = 0; $header = 1; while (<>) { if (/^%%Page:/ && $nesting == 0) { print $_; print "save home\n"; $header = 0; } elsif (/^%%BeginDocument/ || /^%%BeginBinary/ || /^%%BeginFile/) { print $_; $nesting++; } elsif (/^%%EndDocument/ || /^%%EndBinary/ || /^%%EndFile/) { print $_; $nesting--; } elsif (/save home/) { s/save home//; print $_; } elsif (!$header || (! /^save$/ && ! /^home$/)) { print $_; } }
| ver. 1.4 |
Github
|
.
| PHP 5.4.45-1~dotdeb+6.1 | Генерация страницы: 0 |
proxy
|
phpinfo
|
Настройка