For å dele en skriver på en Windows-maskin må du gjøre følgende:
/etc/printcap-seksjonen under er for en HP 5MP-skriver på en Windows NT-vert. Kodene som brukes er som følger:
cm - kommentar
lp - enhetsnavn som skal åpnes for utdata
sd - skriverens spool-katalog (på lokal maskin)
af - regnskapsfilen
mx - maksimum filstørrelse (null er ubegrenset)
if - navn på inndata-filteret (skript)
For mer informasjon, se "Utskrifts-HOWTO" eller man-sidene for printcap.
# /etc/printcap
#
# //zimmerman/oreilly via smbprint
#
lp:\
:cm=HP 5MP Postscript OReilly på zimmerman:\
:lp=/dev/lp1:\
:sd=/var/spool/lpd/lp:\
:af=/var/spool/lpd/lp/acct:\
:mx=0:\
:if=/usr/bin/smbprint:
Forsikre deg om at spool- og regnskaps-kataloger eksisterer og er skrivbare. Sørg for at 'if'-linjen inneholder riktig sti til smbprint-skriptet (se under) og at det pekes til riktig enhet (filen under /dev-katalogen).
Deretter smbprint-skriptet selv. Det plasseres vanligvis i /usr/bin og tilskrives Andrew Tridgell, mannen som laget Samba såvidt jeg vet. Det følger med Samba-kildekodedistribusjonen, men mangler i noen binære distribusjoner, så jeg har lagt det her.
Det kan hende du ønsker å se nøye på dette. Det er enkelte små endringer som har vist seg å være nyttige.
#!/bin/sh -x
# This script is an input filter for printcap printing on a unix machine. It
# uses the smbclient program to print the file to the specified smb-based
# server and service.
# For example you could have a printcap entry like this
#
# smb:lp=/dev/null:sd=/usr/spool/smb:sh:if=/usr/local/samba/smbprint
#
# which would create a unix printer called "smb" that will print via this
# script. You will need to create the spool directory /usr/spool/smb with
# appropriate permissions and ownerships for your system.
# Set these to the server and service you wish to print to
# In this example I have a WfWg PC called "lapland" that has a printer
# exported called "printer" with no password.
#
# Script further altered by hamiltom@ecnz.co.nz (Michael Hamilton)
# so that the server, service, and password can be read from
# a /usr/var/spool/lpd/PRINTNAME/.config file.
#
# In order for this to work the /etc/printcap entry must include an
# accounting file (af=...):
#
# cdcolour:\
# :cm=CD IBM Colorjet on 6th:\
# :sd=/var/spool/lpd/cdcolour:\
# :af=/var/spool/lpd/cdcolour/acct:\
# :if=/usr/local/etc/smbprint:\
# :mx=0:\
# :lp=/dev/null:
#
# The /usr/var/spool/lpd/PRINTNAME/.config file should contain:
# server=PC_SERVER
# service=PR_SHARENAME
# password="password"
#
# E.g.
# server=PAULS_PC
# service=CJET_371
# password=""
#
# Debugging log file, change to /dev/null if you like.
#
logfile=/tmp/smb-print.log
# logfile=/dev/null
#
# The last parameter to the filter is the accounting file name.
#
spool_dir=/var/spool/lpd/lp
config_file=$spool_dir/.config
# Should read the following variables set in the config file:
# server
# service
# password
# user
eval `cat $config_file`
#
# Some debugging help, change the >> to > if you want to same space.
#
echo "server $server, service $service" >> $logfile
(
# NOTE You may wish to add the line `echo translate' if you want automatic
# CR/LF translation when printing.
echo translate
echo "print -"
cat
) | /usr/bin/smbclient "\\\\$server\\$service" $password -U $user -N -P >> $logfile
De fleste Linux-distribusjonene kommer med nenscript for å konvertere ASCII-dokumenter til Postscript. Dette perl-skriptet gjør livet enklere ved å gi et enkelt grensesnitt mot Linux-utskrifter via smbprint.
Bruk: print [-a|c|p] <filnavn>
-a skriver <filnavn> som ASCII
-c skriver <filnavn> formatert som kildekode
-p skriver <filnavn> som Postscript
Hvis ingen brytere blir gitt, forsøker print å
gjette filtypen og lage en korrekt utskrift.
Det å bruke smbprint for å skrive ut ASCII-filer forårsaker gjerne at lange linjer blir kuttet. Dette skriptet deler lange linjer på ordmellomrom (i stedet for midt i ordet), hvis mulig.
Kildekodeformatering er gjort med nenscript. Det tar en ASCII-fil og formaterer den i to kolonner med en fancy tittel (dato, filnavn osv). Det nummererer også linjene. Ved å bruke dette som eksempel kan andre typer formatering også gjøres.
Postscript-dokumenter er allerede riktig formatert, så de går rett igjennom til utskrift
#!/usr/bin/perl
# Script: print
# Authors: Brad Marshall, David Wood
# Plugged In Communications
# Date: 960808
#
# Script to print to oreilly which is currently on zimmerman
# Purpose: Takes files of various types as arguments and
# processes them appropriately for piping to a Samba print script.
#
# Currently supported file types:
#
# ASCII - ensures that lines longer than $line_length characters wrap on
# whitespace.
# Postscript - Takes no action.
# Code - Formats in Postscript (using nenscript) to display
# properly (landscape, font, etc).
#
# Set the maximum allowable length for each line of ASCII text.
$line_length = 76;
# Set the path and name of the Samba print script
$print_prog = "/usr/bin/smbprint";
# Set the path and name to nenscript (the ASCII-->Postscript converter)
$nenscript = "/usr/bin/nenscript";
unless ( -f $print_prog ) {
die "Can't find $print_prog!";
}
unless ( -f $nenscript ) {
die "Can't find $nenscript!";
}
&ParseCmdLine(@ARGV);
# DBG
print "filetype is $filetype\n";
if ($filetype eq "ASCII") {
&wrap($line_length);
} elsif ($filetype eq "code") {
&codeformat;
} elsif ($filetype eq "ps") {
&createarray;
} else {
print "Sorry..no known file type.\n";
exit 0;
}
# Pipe the array to smbprint
open(PRINTER, "|$print_prog") || die "Can't open $print_prog: $!\n";
foreach $line (@newlines) {
print PRINTER $line;
}
# Send an extra linefeed in case a file has an incomplete last line.
print PRINTER "\n";
close(PRINTER);
print "Completed\n";
exit 0;
# --------------------------------------------------- #
# Everything below here is a subroutine #
# --------------------------------------------------- #
sub ParseCmdLine {
# Parses the command line, finding out what file type the file is
# Gets $arg and $file to be the arguments (if the exists)
# and the filename
if ($#_ < 0) {
&usage;
}
# DBG
# foreach $element (@_) {
# print "*$element* \n";
# }
$arg = shift(@_);
if ($arg =~ /\-./) {
$cmd = $arg;
# DBG
# print "\$cmd found.\n";
$file = shift(@_);
} else {
$file = $arg;
}
# Defining the file type
unless ($cmd) {
# We have no arguments
if ($file =~ /\.ps$/) {
$filetype = "ps";
} elsif ($file =~ /\.java$|\.c$|\.h$|\.pl$|\.sh$|\.csh$|\.m4$|\.inc$|\.html$|\.htm$/) {
$filetype = "code";
} else {
$filetype = "ASCII";
}
# Process $file for what type is it and return $filetype
} else {
# We have what type it is in $arg
if ($cmd =~ /^-p$/) {
$filetype = "ps";
} elsif ($cmd =~ /^-c$/) {
$filetype = "code";
} elsif ($cmd =~ /^-a$/) {
$filetype = "ASCII"
}
}
}
sub usage {
print "
Usage: print [-a|c|p] <filename>
-a prints <filename> as ASCII
-c prints <filename> formatted as source code
-p prints <filename> as Postscript
If no switch is given, print attempts to
guess the file type and print appropriately.\n
";
exit(0);
}
sub wrap {
# Create an array of file lines, where each line is < the
# number of characters specified, and wrapped only on whitespace
# Get the number of characters to limit the line to.
$limit = pop(@_);
# DBG
#print "Entering subroutine wrap\n";
#print "The line length limit is $limit\n";
# Read in the file, parse and put into an array.
open(FILE, "<$file") || die "Can't open $file: $!\n";
while(<FILE>) {
$line = $_;
# DBG
#print "The line is:\n$line\n";
# Wrap the line if it is over the limit.
while ( length($line) > $limit ) {
# DBG
#print "Wrapping...";
# Get the first $limit +1 characters.
$part = substr($line,0,$limit +1);
# DBG
#print "The partial line is:\n$part\n";
# Check to see if the last character is a space.
$last_char = substr($part,-1, 1);
if ( " " eq $last_char ) {
# If it is, print the rest.
# DBG
#print "The last character was a space\n";
substr($line,0,$limit + 1) = "";
substr($part,-1,1) = "";
push(@newlines,"$part\n");
} else {
# If it is not, find the last space in the
# sub-line and print up to there.
# DBG
#print "The last character was not a space\n";
# Remove the character past $limit
substr($part,-1,1) = "";
# Reverse the line to make it easy to find
# the last space.
$revpart = reverse($part);
$index = index($revpart," ");
if ( $index > 0 ) {
substr($line,0,$limit-$index) = "";
push(@newlines,substr($part,0,$limit-$index)
. "\n");
} else {
# There was no space in the line, so
# print it up to $limit.
substr($line,0,$limit) = "";
push(@newlines,substr($part,0,$limit)
. "\n");
}
}
}
push(@newlines,$line);
}
close(FILE);
}
sub codeformat {
# Call subroutine wrap then filter through nenscript
&wrap($line_length);
# Pipe the results through nenscript to create a Postscript
# file that adheres to some decent format for printing
# source code (landscape, Courier font, line numbers).
# Print this to a temporary file first.
$tmpfile = "/tmp/nenscript$$";
open(FILE, "|$nenscript -2G -i$file -N -p$tmpfile -r") ||
die "Can't open nenscript: $!\n";
foreach $line (@newlines) {
print FILE $line;
}
close(FILE);
# Read the temporary file back into an array so it can be
# passed to the Samba print script.
@newlines = ("");
open(FILE, "<$tmpfile") || die "Can't open $file: $!\n";
while(<FILE>) {
push(@newlines,$_);
}
close(FILE);
system("rm $tmpfile");
}
sub createarray {
# Create the array for postscript
open(FILE, "<$file") || die "Can't open $file: $!\n";
while(<FILE>) {
push(@newlines,$_);
}
close(FILE);
}
Og nå MagicFilter-måten. Takk til Alberto Menegazzi ( flash.egon@iol.it) for denne informasjonen.
Alberto sier:
--------------------------%<----------------------------------
1) Installer MagicFilter med filteret for de skriverne du trenger i /usr/bin/local men IKKE fyll ut /etc/printcap med forslagene fra dokumentasjonen til MagicFilter.
2) Skriv /etc/printcap på denne måten (dette er for min LaserJet 4L):
lp|ljet4l:\
:cm=HP LaserJet 4L:\
:lp=/dev/null:\ # eller /dev/lp1
:sd=/var/spool/lpd/ljet4l:\
:af=/var/spool/lpd/ljet4l/acct:\
:sh:mx#0:\
:if=/usr/local/bin/main-filter:
Du bør forklare at lp=/dev/... er åpnet for låsing så "virtuelle" devicer, en for hver tilkoblede skriver bør brukes.
Eksempel på å lage med : touch /dev/ljet4l
3) Skriv filteret /usr/local/bin/main-filter på samme måte du foreslår å bruke ljet4l-filteret istedet for cat.
Her er min.
#! /bin/sh
logfile=/var/log/smb-print.log
spool_dir=/var/spool/lpd/ljet4l
(
echo "print -"
/usr/local/bin/ljet4l-filter
) | /usr/bin/smbclient "\\\\SHIR\\HPLJ4" -N -P >> $logfile
P.S. : her er et sitat fra Print2Win mini-Howto om låsing og hvorfor man skal lage virtuelle printere
---Starter her
Hint fra Rick Bressler :
Godt tipsark. Jeg bruker noe veldig likt. Et nyttig tips, dette er ikke en spesielt god ide:
:lp=/dev/null:\
lpr gjør en 'exclusive' åpning på filen du spesifiserer som lp=. Den gjør dette for å forhindre flere prosesser fra å forsøke å skrive til samme skriver samtidig.
Bivirkningen av dette er at i ditt tilfelle kan ikke eng og color skrive ut samtidig, (vanligvis mer eller mindre usynlig siden de sannsynligvis skriver raskt og siden de legger det i kø vil du sannsynligvis ikke merke det) men enhver annen prosess som forsøker å skrive til /dev/null vil gå i stykker!
På et enbrukersystem sannsyligvis ikke et stort problem. Jeg har et system med over 50 skrivere. Det ville nok vært et problem der.
Løsningen er å lage en dummy-skriver for hver. F.eks: touch /dev/eng.
Jeg har modifisert lp-oppføringene i printcap-filen over for å ta med Ricks forslag. Jeg gjorde følgende:
#touch /dev/eng
#touch /dev/colour
--------------------------%<----------------------------------