ispman/bin ispman.getWebUsers,NONE,1.1

Update of /cvsroot/ispman/ispman/bin
In directory sc8-pr-cvs1:/tmp/cvs-serv21679

Added Files:
	ispman.getWebUsers 
Log Message:
script to list web users

--- NEW FILE: ispman.getWebUsers ---
#!/usr/bin/perl
# exaple script.
# shows web users in domain

BEGIN{
   use FindBin; unshift @INC, ($FindBin::Bin , "$FindBin::Bin/../lib", "$FindBin::Bin/../conf");
   use Getopt::Std;
   getopt('d',  \%opts);
   unless ($opts{'d'}){
      print "Usage: $FindBin::Script -d domain";
      print "\n";
      exit;
   }
}

use ISPMan;
use vars qw($ispman);
$ispman=ISPMan->new();


showWebUsers($opts{'d'});




sub showWebUsers {
   my $domain=shift;
   print "Web Users for $domain\n";
   my $users=$ispman->getWebusers($domain);
   print join "\n", keys    %$users;
   print "\n";
}





-------------------------------------------------------
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