source: trunk/third/lprng/athena/check_unprintable.pl @ 13328

Revision 13328, 200 bytes checked in by danw, 25 years ago (diff)
Add check_unprintable and reject_unprintable. Install banner.pl as "banner"
  • Property svn:executable set to *
Line 
1#!/usr/athena/bin/perl
2
3$_ = <>;
4
5if (/^%PDF-/) { print "PDF\n"; }
6elsif (/^<MakerFile /) { print "FrameMaker\n"; }
7elsif (/[\x80-\xFF]/) { print "binary\n"; }
8else { print "text\n"; }
9
10while (<>) {}
Note: See TracBrowser for help on using the repository browser.