• Home
  • History
  • Annotate
  • Line#
  • Navigate
  • Raw
  • Download
  • only in /asuswrt-rt-n18u-9.0.0.4.380.2695/release/src-rt-6.x.4708/router/samba-3.5.8/examples/scripts/printing/cups/
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