#!/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");