ispman/bin ispman.deleteClient,NONE,1.1

Update of /cvsroot/ispman/ispman/bin
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17382/bin

Added Files:
	ispman.deleteClient 
Log Message:
added suggested file from Tony Wasson:
Based on ispman.deleteAdmin.
Accepts ClientID# to delete as the only argument.
Obtain ClientID by running "ispman.listClients".

--- NEW FILE: ispman.deleteClient ---
#!/usr/bin/perl
BEGIN{
   use FindBin; unshift @INC, ($FindBin::Bin , "$FindBin::Bin/../lib", "$FindBin::Bin/../conf");
   unless ($ARGV[0]){
      print "$0  ClientID\n";
      exit;
   }
}
use lib qw(%%installDir%%/lib);
use ISPMan;
use vars qw($ispman);
$ispman=ISPMan->new();
$ispman->DeleteClient($ARGV[0]);



-------------------------------------------------------
The SF.Net email is sponsored by EclipseCon 2004
Premiere Conference on Open Tools Development and Integration
See the breadth of Eclipse activity. February 3-5 in Anaheim, CA.
http://www.eclipsecon.org/osdn