index cf2464af92adbe40306b43cb21ae8843245cf4b8..3a80a76a8c705d94085fed28b6fc685e6d3b20c2 100755 (executable)
#!/usr/bin/perl -w
-# $Id$
+# $Id: check_ms_spooler.pl 64 2002-07-16 00:04:42Z stanleyhopcroft $
-# $Log$
# Revision 1.1 2002/07/16 00:04:42 stanleyhopcroft
# Primitive and in need of refinement test of MS spooler (with smbclient)
#
}
sub print_help () {
- print_revision($PROGNAME,'$Revision$ ');
+ 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.
}
sub version () {
- print_revision($PROGNAME,'$Revision$ ');
+ print_revision($PROGNAME,'$Revision: 64 $ ');
exit $ERRORS{'OK'};
}