Hi @all, this is my first posting to this list. Please advice me, if there is something wrong with it. Sorry also for my poore english, I'm an native german speaker. The question I have is lprng-related, but there are also some relations to samba, mgetty+sendfax and perl.
Here is my question: I'm the maintainer of a samba package for the small new german gpl project eisfair, which you can find at http://www.eisfair.org The printing system on eisfair is lprng. Thats why I had to add the entry printing = lprng in global part of the smb.conf. My samba package is needed for a second package called eisfax, a faxserver package based on mgetty+sendfax/respond. In eisfax a perlscript printfax.pl is used to print faxes. On http://www.boerde.de/~horstf 2 perlscripts for showing and deleting faxes are downloadable: http://www.boerde.de/~horstf/download/faxlpq http://www.boerde.de/~horstf/download/faxlprm The complete entry for the eisfax share with faxlpq and faxlprm is this: [eisfax] comment = eisfax on %h browseable = yes printable = yes path = /tmp print command = ( /usr/bin/printfax.pl %I %s %U %m; rm %s ) & lpq command = /usr/bin/faxlpq %U lprm command = /usr/bin/faxlprm %j %U public = yes create mode = 0700 The problem is, the scripts faxlpq and faxlprm don't work for us, because the output is formatted for printing system bsd and hpux only. Is there anybody, who can modify the above perlscript(s) for generating a lprng-compatible behaviour? Here is the relevant part from faxlpq (I don't know, what the relevant part of faxlprm is...): faxlpq: [...] # Print the lpq line if ( $format eq 'hpux' ) { print "\tfence priority : 1\n"; if ($status eq 'suspended' ) { $prio = 0; } else { $prio = 1 }; print "fax-$jobnum $name priority $prio $jobtime "; if ( $status eq 'queued' ) { print "from $name\n"; } elsif ( $status eq 'active' ) { print "on fax\n"; } else { print "from $name\n"; } print "\t$recv $bytes bytes\n"; } elsif ( $format eq 'bsd' ) { print "$status $name $jobnum $recv $size bytes\n" unless $status eq 'suspended'; } # add here elsif ( $format eq 'yoursystem' ) { print ...; } # if you use another printing system (and send me your additions) } [...] Thanks for all tips/answers tom ----------------------------------------------------------------------------- YOU MUST BE A LIST MEMBER IN ORDER TO POST TO THE LPRNG MAILING LIST The address you post from MUST be your subscription address If you need help, send email to [EMAIL PROTECTED] (or lprng-requests or lprng-digest-requests) with the word 'help' in the body. For the impatient, to subscribe to a list with name LIST, send mail to [EMAIL PROTECTED] with: | example: subscribe LIST <mailaddr> | subscribe lprng-digest [EMAIL PROTECTED] unsubscribe LIST <mailaddr> | unsubscribe lprng [EMAIL PROTECTED] If you have major problems, send email to [EMAIL PROTECTED] with the word LPRNGLIST in the SUBJECT line. -----------------------------------------------------------------------------
