imported by accident

1 files changed, 0 insertions, 224 deletions

diff --git a/www/htmlfix/files/if-psprint.pl b/www/htmlfix/files/if-psprint.pl
deleted file mode 100755
index a0394e64c61..00000000000
--- a/www/htmlfix/files/if-psprint.pl
+++ /dev/null
@@ -1,224 +0,0 @@
-#!@PREFIX@/bin/perl -w
-#
-# $NetBSD: if-psprint.pl,v 1.1.1.1 2002/01/31 18:07:25 abs Exp $
-# 
-#	Copyright (c) 2000 David Brownlee <abs@netbsd.org>. All rights
-#	reserved. Provided as-is without express or implied warranties.
-#
-#	Redistribution and use in source and binary forms, with or without
-#	modification, are permitted provided the above copyright and this
-#	notice is retained.
-#
-
-=head1 NAME
-
-if-psprint - send text, postscript, or native printer language to
-arbitrary printer.
-
-=head1 SYNOPSIS
-
-Designed as a quick fix for the random printers that get hooked up to
-the NetBSD server and random Windows boxes around the office. Uses enscript
-to convert text to postscript, and ghostcript to convert to native printer
-language as required.
-
-=head1 DESCRIPTION
-
-=over 4
-
-=item *
-
-Overloads 'af' entry to contain printer type, and optional location.
-in the form 'type[.model][/smb/smb_dest]'. Use type 'ps' for no gs filter.
-
-=item *
-
-Reads first 1k and calls 'file' to determine filetype.
-
-=item *
-
-Builds a spool command based on filetype:
-
-=over 4
-
-=item *
-
-If text and not postscript, use enscript text->postscript
-
-=item *
-
-If enscripted or postscript, use gs postscript->printer_format
-
-=item *
-
-Otherwise assumed to be native printer language (its your rope)
-
-=back
-
-=item *
-
-Open pipe to spool command, send first 1k, then rest of data
-
-=item *
-
-requires ghostscript, enscript, and samba if printing to smb hosts
-
-=back
-
-=head1 EXAMPLE PRINTCAP ENTRIES
-
-(Remember to create spool dir [sd])
-
-=over 4
-
-=item *
-
-HP deskjet named 'leaves' connected to smb host 'tea'.
-(using ghostscript 'hpdj' driver model 'unspec')
-
-  leaves:\	
-    :if=@PREFIX@/libexec/if-psprint:lf=/var/log/lpd-errs:\
-    :sh:mx=0:lp=/dev/null:sd=/var/spool/lpd/leaves:\
-    :af=hpdj.unspec/smb/tea/leaves:
-
-=item *
-
-Canon bubblejet connected to /dev/lpa0 (using gs 'bjc800' driver)
-
-  bubbly:\	
-    :if=@PREFIX@/libexec/if-psprint:lf=/var/log/lpd-errs:\
-    :sh:mx=0:lp=/dev/lpa0:sd=/var/spool/lpd/bubbly:\
-    :af=bjc800:
-
-=back
-
-=cut
-
-$ENV{'PATH'}="@PREFIX@/bin:/usr/bin:/bin";
-
-use strict;
-use Getopt::Std;
-use IPC::Open3;
-
-my( $user,
-    $dest,
-    $spoolhost,
-    $device,
-    $model,
-    %opt,
-    );
-
-# Parse options (ignore most)
-#
-
-&getopts('vw:l:i:n:h:', \%opt);
-$user = $opt{'n'};
-$user ||= $ENV{'USER'};
-$spoolhost = $opt{'h'};
-if (!$spoolhost)
-    { chomp($spoolhost = `hostname`); }
-
-if (@ARGV != 1 || $ARGV[0] !~ m#(\w+)(\.(\w+)|)(/smb/.*/.*|)#)
-    { usage_and_exit(); }
-$device = $1;
-$model = $3;
-$dest = $4;
-if ($dest)
-    { $dest =~ s#/smb/#smb:/#; }
-
-# Determine filetype
-#
-
-my($data, $filetype);
-if (!read(STDIN, $data, 1024)) # initial filetype check data
-    { &fail("No data to print"); }
-$filetype = &filetype($data);
-
-# Generate spool command
-#
-
-my($spool);
-$spool = '';
-if ($filetype =~ /^PostScript/ || $filetype =~ /text/)
-    {
-    if ($filetype !~ /^PostScript/)
-	{ $spool .= '|'.filter_enscript(); }
-    if ($model || $device ne 'ps')
-	{ $spool .= '|'.filter_gs($device, $model); }
-    }
-
-if ($dest)
-    { $spool .= "|smbspool smb://$dest 1 $user $spoolhost 1 -"; }
-
-if ($spool eq '')
-    { $spool = '>&STDOUT'; }
-
-if ($opt{'v'})
-    { print STDERR "$spool\n"; }
-# Spool output
-#
-if (!open(OUTPUT, $spool))
-    { &fail("Unable to run '$spool': $!"); }
-print OUTPUT $data; # print initial filetype check data
-while (read(STDIN, $data, 16*1024))
-    { print OUTPUT $data; }
-close(STDIN);
-close(OUTPUT);
-exit;
-
-sub fail
-    {
-    print STDERR "if-psprint: @_\n";
-    exit 1;
-    }
-
-sub filetype
-    {
-    my($data) = @_;
-    my($pid, $filetype);
-
-    unless ($pid = open3('WTRFH', 'RDRFH', 'ERRFH', 'file -b -'))
-	{ &fail("Unable to run 'file': $!"); }
-    print WTRFH $data;
-    close(WTRFH);
-    close(ERRFH);
-    0 && close(ERRFH); # Pacify perl's -w
-    chop($filetype = <RDRFH>);
-    close(RDRFH);
-    wait;
-    $filetype;
-    }
-
-sub filter_enscript
-    {
-    my($filter);
-
-    $filter = "enscript -q -B -p -";
-    }
-
-sub filter_gs
-    {
-    my($device, $model) = @_;
-    my($filter);
-    $filter = "gs -q -dBATCH -sDEVICE=$device";
-    if (defined $model)
-	{ $filter .= " -sModel=$model"; }
-    $filter .= " -SOutputFile=- -";
-    }
-
-sub usage_and_exit
-    {
-    print "Usage: if-psprint [opts] gs_device[.gs_model]/smbdestination
-[opts]
-	-v	  Verbose
-	-w width	
-	-l lines	
-	-i indent	
-	-n user	
-	-h host
-
-if-psprint is intended to be used from within printcap. See manpage for more
-details.
-";
-    exit 1;
-    }