| Server IP : 82.208.35.60 / Your IP : 216.73.217.33 Web Server : Apache/2.4.55 (FreeBSD) OpenSSL/1.1.1q-freebsd PHP/7.3.31 System : FreeBSD server7.d2m.cz 12.4-RELEASE-p9 FreeBSD 12.4-RELEASE-p9 GENERIC amd64 User : studiokobylisy_cz ( 1008) PHP Version : 7.3.31 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : OFF | Perl : OFF | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /usr/local/bin/ |
Upload File : |
#!/usr/local/bin/perl
eval 'exec perl -S $0 "$@"'
if $running_under_some_shell;
# fixwfwps: fix Word for windows PostScript for printing.
#
# Copyright (C) Angus J. C. Duggan 1991-1995
# See file LICENSE for details.
$nesting = 0;
while (<>) {
tr/\000-\010\012-\014\016-\037//d;
foreach (grep($_ ne "", split("\015"))) {
s!/SVDoc\s+save\s+def!!g;
s!SVDoc\s+restore!!g;
if (/^(%!PS-Adobe-\d*\.\d*) EPSF-/ && !$nesting) {
print "$1\n";
$wfwepsf = 1;
} elsif (/^SS\s*$/ && $wfwepsf) {
print "%%Page: $wfwepsf $wfwepsf\n";
$wfwepsf++;
print "$_\n";
} elsif (/^%MSEPS Preamble/) {
print "%%BeginDocument: (Included EPSF)\n";
print "$_\n";
$nesting++;
} elsif (/^%MSEPS Trailer/) {
$nesting--;
print "$_\n";
print "%%EndDocument\n";
} elsif (! /^%%BoundingBox/) {
print "$_\n";
}
}
}