Файловый менеджер - Редактировать - /var/www/iplanru/data/www/intesco.ru/d59ed/fixpsditps.tar
Назад
usr/bin/fixpsditps 0000666 00000001266 15077224766 0010276 0 ustar 00 #!/usr/bin/perl eval 'exec perl -S $0 "$@"' if $running_under_some_shell; # fixpsditps: fix psdit output for use in psutils # # Copyright (C) Angus J. C. Duggan 1991-1995 # See file LICENSE for details. $nesting = 0; while (<>) { if (/^\/p{pop showpage pagesave restore \/pagesave save def}def$/) { print "/p{pop showpage pagesave restore}def\n"; } elsif (/^%%BeginDocument/ || /^%%BeginBinary/ || /^%%BeginFile/ ) { print $_; $nesting++; } elsif (/^%%EndDocument/ || /^%%EndBinary/ || /^%%EndFile/) { print $_; $nesting--; } elsif (/^%%Page:/ && $nesting == 0) { print $_; print "xi\n"; } elsif (! /^xi$/) { print $_; } }
| ver. 1.4 |
Github
|
.
| PHP 5.4.45-1~dotdeb+6.1 | Генерация страницы: 0 |
proxy
|
phpinfo
|
Настройка