#!/bin/sh
# -*- tcl -*-
# The next line is executed by /bin/sh, but not tcl \
exec tclsh "$0" ${1+"$@"}
package require Expect
# This script unhangs a printer which claims it is "waiting for lock".
# Written by Don Libes. Based on English instructions from Scott Paisley.
# lpunlock figures out if the printer is on a server, and if so which,
# by looking in the local printcap file. (You can override this by
# supplying a server name as an additional argument.) It then rlogins
# to the server, recreates the device and resets the queue via lpc.
# assumes user has root privs on remote host via /.rhosts
# assumes printer is name of device on remote system
proc usage {} {
send_user "usage: lpunlock <printer> \[<server>\]\n"
send_user "example: lpunlock lw-isg durer\n"
exit
}
if {$argc==0} usage
set printer [lindex $argv 0]
set client [exec hostname]
if {$argc == 1} {
# if no arg2, look in local printcap for info
spawn ed /etc/printcap
expect "\n" ;# discard character count
send "/$printer/\r"
for {} {1} {} {
expect -re ".*:rm=(\[^:]*):.*\r\n" {
set server $expect_out(1,string)
break
} "\r\n*\\\r\n" { ;# look at next line of entry
send "\r"
} "\r\n*\n" { ;# no more lines of entry - give up
set server $client
break
}
}
} else {
if {$argc == 2} {
set server [lindex $argv 1]
} else usage
}
set whoami [exec whoami]
if {[string match $server $client] && [string match $whoami "root"]} {
spawn csh
expect "# "
} else {
# login to the print server as root.
# Set timeout high because login is slow.
set timeout 60
spawn rlogin $server -l root
expect timeout exit \
eof exit \
"Password*" {
send_user "\ncouldn't login to $server as root\n"
exit
} "1#*"
set timeout 10
}
# run lpc and 'stop printer'
send lpc\r ; expect "lpc>*"
send stop $printer\r ; expect "unknown*" exit \
"disabled*lpc>*"
# exit lpc and cd /dev
send quit\r ; expect "#*"
send cd /dev\r ; expect "#*"
# figure out major/minor device numbers
send ls -l /dev/$printer\r ; expect timeout {
send_user "\nbad device - couldn't get major/minor numbers\n"; exit
} "crw*#*"
scan $expect_out(buffer) "ls -l %*s %*s 1 root %d, %d" major minor
# delete the lock and the printer device itself
send rm /var/spool/$printer/lock /dev/$printer\r ; expect #*
# recreate the printer device
send mknod $printer c $major $minor\r ; expect #*
# run lpc and 'start printer'
send lpc\r ; expect lpc>*
send start $printer\r ; expect started*lpc>*
send quit\r ; expect #*
# logout
send exit\r ; expect eof
send_user Printer unlocked and restarted.\n
Mini Shell