aboutsummaryrefslogtreecommitdiff
path: root/contrib/check_ms_spooler.pl
diff options
context:
space:
mode:
Diffstat (limited to 'contrib/check_ms_spooler.pl')
-rwxr-xr-xcontrib/check_ms_spooler.pl324
1 files changed, 0 insertions, 324 deletions
diff --git a/contrib/check_ms_spooler.pl b/contrib/check_ms_spooler.pl
deleted file mode 100755
index 3a80a76a..00000000
--- a/contrib/check_ms_spooler.pl
+++ /dev/null
@@ -1,324 +0,0 @@
-#!/usr/bin/perl -w
-
-# $Id: check_ms_spooler.pl 64 2002-07-16 00:04:42Z stanleyhopcroft $
-
-# Revision 1.1 2002/07/16 00:04:42 stanleyhopcroft
-# Primitive and in need of refinement test of MS spooler (with smbclient)
-#
-# Revision 2.5 2002-02-13 07:36:08+11 anwsmh
-# Correct 'apostrophe' disaster.
-# Apostrophes in plugin output cause Netsaint notification commands
-# ( sh echo 'yada $PLUGINOUTPUT$ ..') to fail, usually mysteriously
-# eg notify OK works but notify CRITICAL does not.
-# Replace '$var' in print "output" with \"$var\".
-#
-# Revision 2.4 2001-11-21 21:36:05+11 anwsmh
-# Minor corrections
-# . replace 'die' by print .. exit $ERRORS{CRITICAL}
-# . change concluding message to list the queues (sorted) if there are no enqueued docs.
-#
-# Revision 2.3 2001-11-20 11:00:58+11 anwsmh
-# Major corrections.
-# 1. to sub AUTOLOAD: coderef parms must be @_ (ie the parm when the new sub is called)
-# 2. to processing of queue report (no inspection of $last_line; entire $queue_report is
-# checked for errors)
-# 3. cosmetic and debug changes in many places.
-#
-# Revision 2.2 2001-11-17 23:30:34+11 anwsmh
-# After adapting two different queue reports resulting from
-# different name resolution methods.
-#
-# Revision 2.1 2001-11-17 13:21:54+11 anwsmh
-# Adapt to Netsaint ('use utils, Getopt::Long, and standard switch processing).
-# Fix many peculiarities.
-#
-
-
-use strict ;
-
-use Getopt::Long ;
-use utils ;
-
-use vars qw($opt_H $opt_s $opt_W $opt_u $opt_p $opt_w $opt_c $debug);
-use vars '$AUTOLOAD' ;
-use utils qw($TIMEOUT %ERRORS &print_revision &support &usage);
-
-my $PROGNAME = 'check_ms_spooler' ;
-
-sub print_help ();
-sub print_usage ();
-sub help ();
-sub version ();
-
-delete @ENV{'PATH', 'IFS', 'CDPATH', 'ENV', 'BASH_ENV'};
-
-use constant SMBCLIENT_PATH => '/usr/local/samba/bin/smbclient' ;
-use constant MAX_QUEUES_TO_CHECK => 20 ; # So that the check doesn't take longer than $TIMEOUT
-
-use constant SMBCLIENT_SVC => sub { return `${\SMBCLIENT_PATH} -L //$_[0] -U $_[1]%$_[2]` } ;
-use constant SMBCLIENT_QUEUE => sub { return `${\SMBCLIENT_PATH} //$_[0]/$_[1] -U $_[2]%$_[3] -c 'queue; quit' 2>/dev/null` } ;
-
- # The queue results depend on the name resolution method.
-
- # Forcing 'wins' or 'bcat' name resolution makes the queue results the
- # same for all spoolers (those that are resolved with WINS have an extra line
- # 'Got a positive name query response from <ip address of WINS> ..)
- # but would fail if there is no WINS and when miscreant spoolers
- # don't respond to broadcasts.
-
-use constant MIN => sub { my $min = $_[0] ; foreach (@_) { $min = $_ if $_ <= $min; } return $min ; } ;
-
-$SIG{"ALRM"} = sub { die "Alarm clock restart" } ;
-
-Getopt::Long::Configure('bundling', 'no_ignore_case');
-GetOptions
- ("V|version" => \&version,
- "h|help" => \&help,
- "d|debug" => \$debug,
- "p|password=s" => \$opt_p,
- "u|username=s" => \$opt_u,
- "H|hostname=s" => \$opt_H);
-
-
-
-($opt_H) || usage("MS Spooler name not specified\n");
-my $spooler = $1 if $opt_H =~ m#(\w+)# ; # MS host names allow __any__ characters (more than \w)
-($spooler) || usage("Invalid MS spooler name: $opt_H\n");
-
-($opt_u) || ($opt_u = 'guest');
-my $user = $1 if $opt_u =~ m#(\w+)# ;
-($user) || usage("Invalid user: $opt_u\n");
-
-($opt_p) || ($opt_p = 'guest');
-my $pass = $1 if ($opt_p =~ /(.*)/);
-($pass) || usage("Invalid password: $opt_p\n");
-
-my ($printer, $queue, @queues, $ms_spooler_status, @results, %junk) ;
-my (@fault_messages, @queue_contents, @services, @prandom_queue_indices) ;
-my ($queue_contents, $number_of_queues, $state, $queue_report) ;
-
-$state = "getting service list (${\SMBCLIENT_PATH} -L $spooler -U $user%$pass) from spooler\n" ;
-
-eval {
- alarm($TIMEOUT) ;
- @services = SMBCLIENT_SVC->( $spooler, $user, $pass ) ;
-} ;
-alarm(0) ;
-
-if ($@ and $@ !~ /Alarm clock restart/) {
- print "Failed. $PROGNAME failed $state. Got \"$@\"\n" ;
- exit $ERRORS{"CRITICAL"} ;
-}
-
-if ($@ and $@ =~ /Alarm clock restart/) {
- print "Failed. $PROGNAME timed out $state. Got \"@services\"\n" ;
- exit $ERRORS{"CRITICAL"} ;
-}
-
-# tsitc> /usr/local/samba/bin/smbclient //ipaprint1/tt03 -U blah%blah -P -c 'queue; quit'
-# Added interface ip=10.0.100.252 bcast=10.255.255.255 nmask=255.0.0.0
-# Connection to ipaprint1 failed
-
-# tsitc> /usr/local/samba/bin/smbclient -L sna_spl1 -U blah%blah | & more
-# Added interface ip=10.0.100.252 bcast=10.255.255.255 nmask=255.0.0.0
-# Got a positive name query response from 10.0.100.29 ( 10.0.6.20 )
-# session setup failed: ERRDOS - ERRnoaccess (Access denied.)
-
-if ( grep /Connection to $spooler failed|ERR/, @services ) {
- print "Failed. $PROGNAME failed $state. Got \"@services\"\n" ;
- # print "Failed. Request for services list to $spooler failed. Got \"@services\"\n" ;
- exit $ERRORS{"CRITICAL"} ;
-}
-
-# tsitc# /usr/local/samba/bin/smbclient -L ipaprint -U blah%blah
-# Added interface ip=10.0.100.252 bcast=10.255.255.255 nmask=255.0.0.0
-# Domain=[IPAUSTRALIA] OS=[Windows NT 4.0] Server=[NT LAN Manager 4.0]
-#
-# Sharename Type Comment
-# --------- ---- -------
-# TH02 Printer TH02
-# ADMIN$ Disk Remote Admin
-# IPC$ IPC Remote IPC
-# S431 Printer S431
-# S402 Printer S402
-# S401 Printer S401
-# C$ Disk Default share
-# BW01 Printer BW01
-# BW02 Printer BW02
-# TL11 Printer TL11
-# TL07 Printer TL07
-# S225 Printer Discovery South - 2nd Floor - HP CLJ4500
-# S224 Printer S224
-# S223 Printer Discovery South 2nd Floor Trademarks Training
-# S222 Printer S222
-# S203 Printer S203
-# S202 Printer S202
-
-my @printers = map { my @junk = split; $junk[0] }
- grep { my @junk = split; defined $junk[1] and $junk[1] eq 'Printer' } @services ;
- # don't check IPC$, ADMIN$ etc.
-
-$ms_spooler_status = 0 ;
-$number_of_queues = MIN->(MAX_QUEUES_TO_CHECK, (scalar(@services) >> 3) + 1) ;
-
-$state = "checking queues on $spooler" ;
-
-eval {
- # foreach queues to check
- # generate a pseudo-random int in 0 .. $#printers
- # drop it if the index has already been generated ;
-
- %junk = () ;
- @prandom_queue_indices = grep { ! $junk{$_}++ }
- map { int( rand($#printers) ) } ( 1 .. $number_of_queues ) ;
-
- @queues = @printers[@prandom_queue_indices] ;
-
- # @queues = @printers[ map { int( rand($#printers) ) } ( 1 .. $number_of_queues ) ] ;
-
- alarm($TIMEOUT) ;
-
- @queue_contents = @fault_messages = () ;
-
- foreach $printer (sort @queues) {
-
- # Expect 3 lines from a queue report.
- # If queue is empty, last line is null otherwise
- # it will contain a queue report or an SMB error
-
- # Empty Queue.
- # Added interface ip=10.0.100.252 bcast=10.255.255.255 nmask=255.0.0.0
- # Domain=[IPAUSTRALIA] OS=[Windows NT 4.0] Server=[NT LAN Manager 4.0]
-
- # Queue command from a spooler with a DNS name.
- # Added interface ip=10.0.100.252 bcast=10.255.255.255 nmask=255.0.0.0
- # Domain=[IPAUSTRALIA] OS=[Windows NT 4.0] Server=[NT LAN Manager 4.0]
- # 65 16307 Microsoft Word - Servicesweoffer2.doc
- # 68 10410 Microsoft Word - Servicesweoffer.doc
- # 143 24997 Microsoft Word - Miss Samantha Anne Craig.doc
- # 182 15635 Microsoft Word - services we provide.doc
-
- # Error.
- # Added interface ip=10.0.100.252 bcast=10.255.255.255 nmask=255.0.0.0
- # Domain=[IPAUSTRALIA] OS=[Windows NT 4.0] Server=[NT LAN Manager 4.0]
- # tree connect failed: ERRDOS - ERRnosuchshare (You specified an invalid share name)
-
- # Can't connect error.
- # Added interface ip=10.0.100.252 bcast=10.255.255.255 nmask=255.0.0.0
- # Connection to sna_spl2 failed
-
-
- # Empty Queue from a spooler with no DNS name, NetBIOS name resolved by WINS.
- # Added interface ip=10.0.100.252 bcast=10.255.255.255 nmask=255.0.0.0
- # Got a positive name query response from 10.0.100.29 ( 10.0.6.20 )
- # Domain=[SNA_PRINT] OS=[Windows NT 4.0] Server=[NT LAN Manager 4.0]
-
- # There are 3 lines of output from smbclient for those spoolers whose names are
- # resolved by WINS (because those names are NetBIOS and therefore not in DNS);
- # 4 lines for errors or enqueued jobs
-
- print STDERR "${\SMBCLIENT_PATH} //$spooler/$printer -U $user%$pass -c 'queue; quit' ==>\n" if $debug ;
-
- @results = SMBCLIENT_QUEUE->( $spooler, $printer, $user, $pass ) ;
-
- print STDERR "\"@results\"\n" if $debug ;
-
- # set $ms_spooler_status somehow
-
- chomp( @results ) ;
- $queue_report = queue_report->(@results) ;
- print STDERR '$queue_report for $printer ', "$printer: \"$queue_report\"\n\n" if $debug ;
-
- if ( defined $queue_report and ($queue_report !~ /ERR/ && $queue_report !~ /failed/) ) {
- $ms_spooler_status = 1 ;
- push @queue_contents, "$printer: $queue_report" if $queue_report ;
- } else {
- push @fault_messages, "$printer: $queue_report" ;
- }
- }
- alarm(0) ;
-} ;
-
-if ($@ and $@ !~ /Alarm clock restart/) {
- print "Failed. $PROGNAME failed at $state. Got \"$@\"\n" ;
- exit $ERRORS{"CRITCAL"} ;
-}
-
-if ($@ and $@ =~ /Alarm clock restart/) {
- my $i ;
- foreach (@queues) { $i++ ; last if $_ eq $printer }
- print "Failed. Timed out connecting to $printer ($i of $number_of_queues) on //$spooler after $TIMEOUT secs. Got \"@fault_messages\"\n" ;
- exit $ERRORS{"CRITICAL"} ;
-}
-
-if (! $ms_spooler_status) {
- print "Failed. Couldn't connect to @queues on //$spooler as user $user. Got \"@fault_messages\"\n" ;
- exit $ERRORS{"CRITICAL"} ;
-}
-
-$queue_contents = ( @queue_contents != 0 ? join(" ", (@queue_contents == 1 ? "Queue" : "Queues"), @queue_contents) :
- "All Queues empty" ) ;
-
-print "Ok. Connected to ", $queue_contents =~ /empty$/ ? "@{[sort @queues]}" : scalar @queues, " queues on //$spooler. $queue_contents\n" ;
-exit $ERRORS{"OK"} ;
-
-sub print_usage () {
- print "Usage: $PROGNAME -H <spooler> -u <user> -p <password>\n";
-}
-
-sub print_help () {
- print_revision($PROGNAME,'$Revision: 64 $ ');
- print "Copyright (c) 2001 Karl DeBisschop/S Hopcroft
-
-Perl Check MS Spooler plugin for NetSaint. Display a subset of the queues on an SMB (Samba or MS) print spooler.
-
-";
- print_usage();
- print '
--H, --hostname=STRING
- NetBIOS name of the SMB Print spooler (Either Samba or MS spooler)
--u, --user=STRING
- Username to log in to server. (Default: "guest")
--p, --password=STRING
- Password to log in to server. (Default: "guest")
--d, --debug
- Debugging output.
--h, --help
- This stuff.
-
-';
- support();
-}
-
-sub version () {
- print_revision($PROGNAME,'$Revision: 64 $ ');
- exit $ERRORS{'OK'};
-}
-
-sub help () {
- print_help();
- exit $ERRORS{'OK'};
-}
-
-sub AUTOLOAD {
-
- my @queue_rep = @_ ;
-
- # 'Object Oriented Perl', D Conway, p 95
-
- no strict 'refs' ;
-
- if ( $AUTOLOAD =~ /.*::queue_report/ ) {
-
- if ( grep /Got a positive name query response from/, @queue_rep ){
- *{$AUTOLOAD} = sub { return join ' ', splice(@_, 3) } ;
- return join '', splice(@queue_rep, 3) ;
- } else {
- *{$AUTOLOAD} = sub { return join ' ',splice(@_, 2) } ;
- return join '', splice(@queue_rep, 2) ;
- }
- } else {
- die "No such subroutine: $AUTOLOAD" ;
- }
-}
-