[freeside-commits] freeside/bin strip-eps,NONE,1.1.2.2

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/bin
In directory wavetail:/tmp/cvs-serv7812

Added Files:
      Tag: FREESIDE_1_7_BRANCH
	strip-eps 
Log Message:
adding quick find-overapplied script

--- NEW FILE: strip-eps ---
#!/usr/bin/perl -w

# Author: Andy Turner <andrew.turner at acadia.net>
 
use strict;

# The first line has some binary magic for file identification
# purposes.  GhostScript doesn't like it.  Strip it.
scalar <>;

# Add a header so that we can use magic to determine the file type.
print "%!PS-Adobe-3.0 EPSF-3.0\n";

while (<>) {
    print;  

    # Illustrator Version 7 format EPS files have a bunch of binary gook
    # after the "%%EOF" line.  (% is a comment in PostScript, right?)
    last if /^%%EOF/;                                                
}