1#!/usr/bin/perl 2## Delete printer script for samba, APW, and cups 3## Copyright (C) Gerald (Jerry) Carter <jerry@samba.rog> 2004 4## 5## This program is free software; you can redistribute it 6## and/or modify it under the terms of the GNU General 7## Public License as published by the Free Software Foundation; 8## Either version 3 of the License, or (at your option) any 9## later version. 10## 11## This program is distributed in the hope that it will be useful, 12## but WITHOUT ANY WARRANTY; without even the implied warranty of 13## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 14## GNU General Public License for more details. 15## 16## You should have received a copy of the GNU General Public 17## License along with this program; if not, see <http://www.gnu.org/licenses/>. 18 19@argv = @ARGV; 20 21# take in args 22my $lpname=shift(@argv); # printer name 23 24system("/usr/sbin/lpadmin -x $lpname"); 25 26