Author: jerry Date: 2005-01-20 17:17:29 +0000 (Thu, 20 Jan 2005) New Revision: 4873
WebSVN: http://websvn.samba.org/cgi-bin/viewcvs.cgi?view=rev&root=samba&rev=4873 Log: example delete printer script for use with cups Added: branches/SAMBA_3_0/examples/scripts/perl/smbdelprinter Changeset: Added: branches/SAMBA_3_0/examples/scripts/perl/smbdelprinter =================================================================== --- branches/SAMBA_3_0/examples/scripts/perl/smbdelprinter 2005-01-20 17:11:05 UTC (rev 4872) +++ branches/SAMBA_3_0/examples/scripts/perl/smbdelprinter 2005-01-20 17:17:29 UTC (rev 4873) @@ -0,0 +1,27 @@ +#!/usr/bin/perl +## Delete printer script for samba, APW, and cups +## Copyright (C) Gerald (Jerry) Carter <[EMAIL PROTECTED]> 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. + [EMAIL PROTECTED] = @ARGV; + +# take in args +my $lpname=shift(@argv); # printer name + +system("/usr/sbin/lpadmin -x $lpname"); + Property changes on: branches/SAMBA_3_0/examples/scripts/perl/smbdelprinter ___________________________________________________________________ Name: svn:executable + *