RT 4.0.22
[freeside.git] / bin / strip-eps
1 #!/usr/bin/perl -w
2
3 # Author: Andy Turner <andrew.turner@acadia.net>
4  
5 use strict;
6
7 # The first line has some binary magic for file identification
8 # purposes.  GhostScript doesn't like it.  Strip it.
9 scalar <>;
10
11 # Add a header so that we can use magic to determine the file type.
12 print "%!PS-Adobe-3.0 EPSF-3.0\n";
13
14 while (<>) {
15     print;  
16
17     # Illustrator Version 7 format EPS files have a bunch of binary gook
18     # after the "%%EOF" line.  (% is a comment in PostScript, right?)
19     last if /^%%EOF/;                                                
20 }