Кто может - проверьте скрипт эмулятор Jet Direct...

[smaharbA]

Текст скрипта (требует либо perl либо одну из - ncat, netcat, nc)
находит устройства /dev/*/lp* и перенаправляет на них выход печати
принтер ставится как сетевой с соответствующим адресом и портом
предназначен для сетевой печати минуя caps где подключен принтеры,
есть масса подобных решений и lp_server и через inetd/xinetd и перенаправление netcat
тут попытка объединить и запускать как стартовый скрипт
(двусторонний обмен реализован в другой версии + печать на любой принтер "без дриверов", но это отдельно)

(Нажмите, чтобы показать/скрыть)

Код: [Выделить]

#!/usr/bin/env sh
#
# lpserver     This starts, stops, and restart the lpserver
#              emulate HP Jet Direct
#
# chkconfig: 2345 45 10
# description: emulate HP Jet Direct
#

PATH=/sbin:/usr/sbin:$PATH

getfullname() {
    local path name
    path=`(echo ${BASH_SOURCE[0]}) 2>&1`
    path=${path%%:*}
    name=${path##*/}
    path=`cd "${path%/*}" 2> /dev/null;pwd`
    echo $path/$name
    }

fullname=`getfullname "$0"`
path=${fullname%/*}
name=${fullname##*/}
prog=$name
#
# prog = {netcat|nc|ncat|this script}
#
devices=`find /dev -name "lp*" -type c | sort`
port=9099
command=ERROR
if [ "$prog" = "$name" ] && grep -q '^#!/usr/bin/env perl' "$path/$name" && perl -e "use strict;use Socket;use IO::Handle;" 2> /dev/null; then
    command="perl -x $prog"
else
    for cmd in ncat netcat nc; do
    command=`which $cmd || echo ERROR`
    [ $command != ERROR ] && break
    done
fi
COLOR_SUCCESS="\\033[1;32m"
COLOR_FAILURE="\\033[1;31m"
COLOR_NORMAL="\\033[0;39m"
[ -z "${COLUMNS:-}" ] && COLUMNS=`stty size 2>/dev/null | awk '{ print $2 }'`
[ -z "${COLUMNS:-}" ] && COLUMNS=80
MOVE_TO_COL="\\033[$((COLUMNS - 15))G"

_status() {
    echo -n $1
    (
    printf $MOVE_TO_COL
    if [ "$2" = "1" ]; then
        printf $COLOR_FAILURE
    else
        printf $COLOR_SUCCESS
    fi
    [ -n "$3" ] && echo -n " [ $3 ]"
    echo
    printf $COLOR_NORMAL
    ) 2> /dev/null
    return $2
    }

usage(){
    _status "Usage: service $prog {start|stop|restart|status}" 2
    }

status() {
    pid=`ps ax -o pid= -o command= | grep "$command" | grep -v "^$$\|grep" | awk '{ print $1 }'`
    pid=`ps -o pid= -p $pid 2> /dev/null`
    pid=`echo $pid`
    if [ -n "$pid" ]; then
        _status "$prog is running ($pid)..." 0
    else
        _status "$prog is not running..." 1
    fi
    }

start(){
    status
    if [ $? -eq 0 ]; then
        _status "Process alredy is running..." 1
        return $?
    fi
    pid=""
    echo "Starting... "
    for device in $devices; do
        (cat /dev/null > $device) 2> /dev/null || continue
        while [ $? -eq 0 ]; do
            port=$((port + 1))
            netstat -a -n | grep -q "^tcp.*[\.:]$port.*LISTEN"
        done
        $command -v -n -l $port -k > $device 2> /dev/null &
        pid="$pid$! "
        _status "port: $port; device $device" 0 "OK"
        sleep 1
    done
    if [ -n "$pid" ]; then
        _status "$prog is started ($pid)..." 0 'OK'
    else
        _status "$prog is started ($pid)..." 1 'ERR'
    fi
    }

stop(){
    status || return 1
    echo -n "Stopping: "
    pid=`status`
    pid=${pid##*(}
    pid=${pid%%)*}
    kpid=""
    for cpid in $pid; do
        kill -9 $cpid && kpid="$kpid$cpid "
    done
    if [ -n "$kpid" ]; then
        _status "$prog is stopped ($kpid)..." 0 "OK"
    else
        _status "$prog not stopped ($pid)..." 1 "ERR"
    fi
    }

arg=$1

[ "$command" = "ERROR" ] && arg=ERROR

case "$arg" in
    start) start ;;
    stop) stop ;;
    status) status ;;
    restart) stop; start ;;
    ERROR) _status "Can't running... Not commands: ncat, netcat, nc or not running [perl -x $prog]" 1 "ERR";;
    *) usage ;;
esac

exit $?

#!/usr/bin/env perl
# lpserver.pl
#--------------------
use strict;
use Socket;
use IO::Handle;
$|=1;
my $scriptname=(split("\/",$0))[-1];

my $port=0;
my ($list,$keep,$verb)=(grep(/^-l$/i,@ARGV),grep(/^-k$/i,@ARGV),grep(/^-v$/i,@ARGV));

if ($list eq "") {
    print "Usage: ./$scriptname -l [TCP port] [-k] [-v]\n-k kepp connection;\n-v verbose.\n";
    exit;
    }
while ($port = shift) {
    last if (0 + $port ne 0);
    }
$port = 0 + $port eq 0 ? 9100 : abs($port);

$SIG{INT} = $SIG{QUIT} = $SIG{TERM} = $SIG{TSTP} = $SIG{STOP} = \&interrupt;;

my $proto = getprotobyname('tcp');

socket(SOCKET, PF_INET, SOCK_STREAM, $proto) or die "Can't open socket $!\n";
setsockopt(SOCKET, SOL_SOCKET, SO_REUSEADDR, 1) or die "Can't set socket option to SO_REUSEADDR $!\n";

my $addr = sockaddr_in($port, INADDR_ANY);
bind( SOCKET, $addr) or die "Can't bind to port $port!\n";
listen(SOCKET, 20) or die "listen: $!\n";
print STDERR "SERVER started on port $port\n";

my $maxlen=256;
my $flags=0;
my $byte;
my $c_port;
my $c_ip;
my $ip;

my $c_addr;
while ($c_addr = accept(C_SOCKET, SOCKET)) {
    ($c_port,$c_ip)=sockaddr_in($c_addr);
    $ip = inet_ntoa($c_ip);
    print STDERR "Client connected from $ip\n" if ($verb ne 0);
    C_SOCKET->autoflush(1);
    $byte=".";
    while ($byte ne ""){
    recv(C_SOCKET,$byte,$maxlen,$flags);# or die "Can't receive: $!\n";
    print STDOUT "$byte";
    }
#    print STDOUT "\x1a";
    close C_SOCKET;
    last if ($keep eq 0);
    }
close SOCKET;
exit;

sub interrupt {
    print STDERR "\nInterrupt $scriptname...\n";
    close SOCKET;
    exit;
    }


[smaharbA]

некоторые недополности
(претерпел еще некоторые коллизии, так же не опосредованные)

(Нажмите, чтобы показать/скрыть)

Код: [Выделить]

#!/usr/bin/env bash
#
# lpserver     This starts, stops, and restart the lpserver
#              emulate HP Jet Direct
#
# chkconfig: 2345 45 10
# description: emulate HP Jet Direct
#

export LANG=ru_RU.UTF-8


PATH=/bin:/sbin:/usr/bin:/usr/sbin:$PATH

#prog=ncat

getfullname() {
    local path name
    path=`(echo ${BASH_SOURCE[0]}) 2>&1`
    path=${path%%:*}
    name=${path##*/}
    path=`cd "${path%/*}" 2> /dev/null;pwd`
    echo $path/$name
    }

fullname=`getfullname "$0"`
fullname=`readlink -f "$fullname"`
path=${fullname%/*}
name=${fullname##*/}
prog=${prog:=$name}
log=/var/log/lpserver.log

#
# prog = {netcat|nc|ncat|this script}
#

getlpX() {
    find /dev -name "lp*" -type c | sort
    }

usblp() {
    local device
    device=$1
    lsmod | grep -q '^usblp' && (rmmod usblp && modprobe usblp) || modprobe usblp
    sleep 1
    [ -e "$device" -o -z "$device" ] && return 0 || return 1
    }

port=9099
command=ERROR
if [ "$prog" = "$name" ] && grep -q '^#!/usr/bin/env perl' "$fullname" && perl -e "use strict;use Socket;use IO::Handle;" 2> /dev/null; then
    command="perl -x $fullname"
elif which "$prog" > /dev/null 2>&1; then
    command=`which "$prog" || echo ERROR`
else
    for cmd in ncat netcat nc; do
    command=`which $cmd || echo ERROR`
    [ $command != ERROR ] && break
    done
fi
$command -h 2>&1 | grep -q '\-d.*stdin' && command="$command -d"
COLOR_SUCCESS="\\033[1;32m"
COLOR_FAILURE="\\033[1;31m"
COLOR_NORMAL="\\033[0;39m"
[ -z "${COLUMNS:-}" ] && COLUMNS=`stty size 2>/dev/null | awk '{ print $2 }'`
[ -z "${COLUMNS:-}" ] && COLUMNS=80
MOVE_TO_COL="\\033[$((COLUMNS - 15))G"

_status() {
    echo -n $1
    (
    printf $MOVE_TO_COL
    if [ "$2" = "1" ]; then
        printf $COLOR_FAILURE
    else
        printf $COLOR_SUCCESS
    fi
    [ -n "$3" ] && echo -n " [ $3 ]"
    echo
    printf $COLOR_NORMAL
    ) 2> /dev/null
    return $2
    }

usage(){
    _status "Usage: service $name {start|stop|restart|status}" 2
    }

status() {
    local pid
    pid=`ps ax -o pid= -o command= | grep "$name[\t ]\+#daemon[\t ]" | grep -v "^$$\|grep" | awk '{ print $1 }'`
    pid=`ps -o pid= -p $pid 2> /dev/null`
    if [ "$1" = "-p" ]; then
    echo $pid
    elif [ -n "$pid" ]; then
        _status "$name is running ($pid)..." 0
    else
        _status "$name is not running..." 1
    fi
    }

fnum() {
    return 6
    }

fopen() {
    local fd
    fnum
    fd=$?
    eval "exec $fd> $1"
    return $fd
    }

fclose() {
    eval "exec $1>&-"
    }

daemon() {
    local command port device pid prog
#    trap "service stop lpserver" INT QUIT TERM 9
    command=$1
    port=$2
    device=$3
    prog=${command##*/}
    fopen "$device"
    fd=$?
    while true; do
    i=0
    while sleep 1 && [ ! -w "$device" -a $i -lt 10 ]; do
        fclose $fd
        ps -p "$pid" > /dev/null 2>&1 && kill -TERM "$pid"
        usblp
#        sleep 1
        i=$((i + 1))
    done
    if [ ! -w "$device" ]; then
        fclose $fd
        ps -p "$pid" > /dev/null 2>&1 && kill -TERM "$pid"
        echo Device $device not response... 1>&2;
        return 2
    elif [ $i -gt 0 ]; then
        fopen "$device"
        fd=$?
    fi
        if ! ps -p "$pid" > /dev/null 2>&1; then
        $command -v -n -l $port >&$fd 2> /dev/null &
        pid=$!
    fi
    done
    fclose $fd
    }

stop(){
    local pid child cpid kpid
    status || return 1
    echo -n "Stopping: "
    pid=`status -p`
    for cpid in $pid; do
    child=`ps -o pid= --ppid $cpid 2> /dev/null`
    [ -n "$child" ] && kill -TERM $child || continue
    kill -TERM $cpid && kpid="$kpid$cpid "
    done
    if [ -n "$kpid" ]; then
        _status "$name is stopped ($kpid)..." 0 "OK"
    else
        _status "$name not stopped ($pid)..." 1 "ERR"
    fi
    }

start(){
    local pid
    status
    if [ $? -eq 0 ]; then
        _status "Process alredy is running..." 1
        return $?
    fi
    echo "Starting... "
    usblp > /dev/null 2>&1
    devices=`getlpX`
    for device in $devices; do
        (cat /dev/null > $device) 2> /dev/null || continue
        while [ $? -eq 0 ]; do
            port=$((port + 1))
            netstat -a -n | grep -q "^tcp.*[\.:]$port.*LISTEN"
        done
        $fullname '#daemon' "$command" "$port" "$device" 2> /dev/null &
        pid="$pid$! "
        _status "port: $port; device $device ($!)" 0 "OK"
        sleep 1
    done
    if [ -n "$pid" ]; then
        _status "$name is started ($pid)..." 0 'OK'
    else
        _status "$name is started ($pid)..." 1 'ERR'
    fi
    }

arg=$1

[ "$command" = "ERROR" ] && arg=ERROR

case "$arg" in
    start) start ;;
    stop) stop ;;
    status) status ;;
    restart) stop; start ;;
    '#daemon') daemon "$2" $3 $4;;
    ERROR) _status "Can't running... Not commands: ncat, netcat, nc or not running [perl -x $fullname]" 1 "ERR";;
    *) usage ;;
esac

exit $?

#!/usr/bin/env perl
# lpserver.pl
#--------------------
use strict;
use Socket;
use IO::Handle;
$|=1;
my $scriptname=(split("\/",$0))[-1];

my $port=0;
my ($list,$keep,$verb)=(grep(/^-l$/i,@ARGV),grep(/^-k$/i,@ARGV),grep(/^-v$/i,@ARGV));

if ($list eq "") {
    print "Usage: ./$scriptname -l [TCP port] [-k] [-v]\n-k kepp connection;\n-v verbose.\n";
    exit;
    }
while ($port = shift) {
    last if (0 + $port ne 0);
    }
$port = 0 + $port eq 0 ? 9100 : abs($port);


$SIG{HUP} = $SIG{USR1} = $SIG{USR2} = \&hup;;

$SIG{INT} = $SIG{QUIT} = $SIG{TERM} = $SIG{TSTP} = $SIG{STOP} = \&interrupt;;

my $proto = getprotobyname('tcp');

socket(SOCKET, PF_INET, SOCK_STREAM, $proto) or die "Can't open socket $!\n";
setsockopt(SOCKET, SOL_SOCKET, SO_REUSEADDR, 1) or die "Can't set socket option to SO_REUSEADDR $!\n";

my $addr = sockaddr_in($port, INADDR_ANY);
bind( SOCKET, $addr) or die "Can't bind to port $port!\n";
listen(SOCKET, 20) or die "listen: $!\n";
print STDERR "SERVER started on port $port\n";

my $maxlen=256;
my $flags=0;
my $byte;
my $c_port;
my $c_ip;
my $ip;

my $retval=0;
my $nohup=1;
my $c_addr;

sub X {
    $nohup=2;
    while ($c_addr = accept(C_SOCKET, SOCKET)) {
    ($c_port,$c_ip)=sockaddr_in($c_addr);
    $ip = inet_ntoa($c_ip);
    print STDERR "Client connected from $ip\n" if ($verb ne 0);
    C_SOCKET->autoflush(1);
    $byte=".";
    while ($byte ne ""){
        recv(C_SOCKET,$byte,$maxlen,$flags);# or die "Can't receive: $!\n";
        print STDOUT "$byte" || return 0;
    }
#    print STDOUT "\x1a";
    close C_SOCKET;
    print STDOUT "" || return 0;
    $nohup=0;
    last if ($keep eq 0);
    }
    return $nohup;
    }

while (X() eq 1) {
    sleep 1;
    }
close SOCKET;
exit $nohup;

sub interrupt {
    print STDERR "\nInterrupt $scriptname...\n";
    $nohup=0;
    }

sub hup {
    $SIG{HUP} = $SIG{USR1} = $SIG{USR2} = \&hup;;
    print STDERR "\nReload $scriptname...\n";
    $nohup=1;
    }