diff options
author | Gerald Carter <jerry@samba.org> | 2005-01-20 17:17:29 +0000 |
---|---|---|
committer | Gerald (Jerry) Carter <jerry@samba.org> | 2007-10-10 10:55:06 -0500 |
commit | eb44d99e9ed062dfe216dc4bca340143960a9d7a (patch) | |
tree | ee0a48434eb67b1286e78478b494296fd1694a0d /examples/scripts/perl | |
parent | 6a6c7cbf9968919fea574e84ad3f1318e10969f2 (diff) | |
download | samba-eb44d99e9ed062dfe216dc4bca340143960a9d7a.tar.gz samba-eb44d99e9ed062dfe216dc4bca340143960a9d7a.tar.bz2 samba-eb44d99e9ed062dfe216dc4bca340143960a9d7a.zip |
r4873: example delete printer script for use with cups
(This used to be commit c646829e3231d5e4e8c030bb084920fadaafb983)
Diffstat (limited to 'examples/scripts/perl')
-rwxr-xr-x | examples/scripts/perl/smbdelprinter | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/examples/scripts/perl/smbdelprinter b/examples/scripts/perl/smbdelprinter new file mode 100755 index 0000000000..30daf24b35 --- /dev/null +++ b/examples/scripts/perl/smbdelprinter @@ -0,0 +1,27 @@ +#!/usr/bin/perl +## Delete printer script for samba, APW, and cups +## Copyright (C) Gerald (Jerry) Carter <jerry@samba.rog> 2004 +## +## This program is free software; you can redistribute it +## and/or modify it under the terms of the GNU General +## Public License as published by the Free Software Foundation; +## ither version 2 of the License, or (at your option) any +## later version. +## +## This program is distributed in the hope that it will be useful, +## but WITHOUT ANY WARRANTY; without even the implied warranty of +## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +## GNU General Public License for more details. +## +## You should have received a copy of the GNU General Public +## License along with this program; if not, write to the Free +## Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, +## USA. + +@argv = @ARGV; + +# take in args +my $lpname=shift(@argv); # printer name + +system("/usr/sbin/lpadmin -x $lpname"); + |