[Ispman-cvs] CVS: ispman/bin ispman.addMailGroup,NONE,1.1 ispman.addMailGroupAttributeValues,NONE,1.1 ispman.alias.mailgroup,NONE,1.1 ispman.getMailGroupAttributeValues,NONE,1.1 ispman.listMailGroups,NONE,1.1 ispman.passwd.client,NONE,1.1 ispman.passwd.domain,NONE,1.1 ispman.passwd.reseller,NONE,1.1 ispman.passwd.vhost,NONE,1.1

[Atif G. <ma...@us...>]

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

Added Files:
	ispman.addMailGroup ispman.addMailGroupAttributeValues 
	ispman.alias.mailgroup ispman.getMailGroupAttributeValues 
	ispman.listMailGroups ispman.passwd.client 
	ispman.passwd.domain ispman.passwd.reseller 
	ispman.passwd.vhost 
Log Message:
more CLI scripts

--- NEW FILE ---
#!/usr/bin/perl
BEGIN{
   use FindBin; unshift @INC, ($FindBin::Bin , "$FindBin::Bin/../lib", "$FindBin::Bin/../conf");
   use Getopt::Std;
   getopt('dfa',  \%opts);
   unless ($opts{'d'} && $opts{'f'} && $ARGV[0]){
      print "$FindBin::Script -d domain -f forwardingAddress mailGroupName\n";
      print "\n";
      print "Example:\n";
      print "$FindBin::Script -d domain.tld -f postmaster\@domain.tld abuse\n";
      print "\nThis will create a mailGroup with the address abuse\@domain.tld\n";
      print " and all mails will be forwarded to the email address postmaster\@domain.tld\n\n";
      print "The forwarding address does not need to be in the same domain as the mailGroup\n";
      exit;
   }
}
use ISPMan;
use CGI;

my $r=CGI->new();
$r->param("ispmanDomain", $opts{"d"});
$r->param("mailForwardingAddress", $opts{"f"});
$r->param("cn", $ARGV[0]);

my $ispman=ISPMan->new();
$ispman->addMailGroup($r);
print $ispman->get_mail_groups($opts{'d'});


--- NEW FILE ---
#!/usr/bin/perl
#USAGE: ScriptName domain mailGroup Attribute

BEGIN{
   print "FOR DEVELOPERS ONLY\n\n";
   print "You may use this command if indicated as part of a support request's response\n";
	print "See source code for USAGE info\n";
   use FindBin; unshift @INC, ($FindBin::Bin , "$FindBin::Bin/../lib", "$FindBin::Bin/../conf");
	exit unless $ARGV[3];
	
}
use ISPMan;

my $ispman=ISPMan->new();
print $ispman->dumper($ispman->addMailGroupAttributeValues(@ARGV));
print "\n";
print $ispman->dumper($ispman->getMailGroupAttributeValues(@ARGV));
print "\n";


--- NEW FILE ---
#!/usr/bin/perl
BEGIN{
   use FindBin; unshift @INC, ($FindBin::Bin , "$FindBin::Bin/../lib", "$FindBin::Bin/../conf");
   use Getopt::Std;
   getopt('dg',  \%opts);
   unless ($opts{'d'} && $opts{'g'}){
      print "$FindBin::Script -d domain -g mailgroup alias";
      print "\n";
      exit;
   }
}
use ISPMan;
my $ispman=ISPMan->new();
print $ispman->dumper($ispman->get_mail_groups($opts{'d'}));
print "\n";


--- NEW FILE ---
#!/usr/bin/perl
#USAGE: ScriptName domain mailGroup Attribute

BEGIN{
   print "FOR DEVELOPERS ONLY\n\n";
   print "You may use this command if indicated as part of a support request's response\n";
	print "See source code for USAGE info\n";
   use FindBin; unshift @INC, ($FindBin::Bin , "$FindBin::Bin/../lib", "$FindBin::Bin/../conf");
	exit unless $ARGV[2];
	
}
use ISPMan;

my $ispman=ISPMan->new();
print $ispman->dumper($ispman->getMailGroupAttributeValues(@ARGV));
print "\n";


--- NEW FILE ---
#!/usr/bin/perl
BEGIN{
   use FindBin; unshift @INC, ($FindBin::Bin , "$FindBin::Bin/../lib", "$FindBin::Bin/../conf");
   use Getopt::Std;
   getopt('d',  \%opts);
   unless ($opts{'d'}){
      print "$0 -d domain";
      print "\n";
      exit;
   }
}
use ISPMan;
my $ispman=ISPMan->new();
print $ispman->dumper($ispman->get_mail_groups($opts{'d'}));
print "\n";


--- NEW FILE ---
#!/usr/bin/perl

BEGIN {
   use FindBin; unshift @INC, ($FindBin::Bin , "$FindBin::Bin/../lib", "$FindBin::Bin/../conf");
   use Getopt::Std;
   getopt('c',  \%opts);
   unless   ($opts{'c'}  && $ARGV[0]){
      print "Usage: $FindBin::Script -c clientID  new_password\n\n";
      exit;
   }
}



use ISPMan;
my $ispman=ISPMan->new();
if ( $ispman->changeClientPassword($opts{"c"}, $ARGV[0])) {
   print "Password changed\n";
}
__END__




--- NEW FILE ---
#!/usr/bin/perl

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


use ISPMan;
my $ispman=ISPMan->new();
print $ispman->changeDomainPassword($opts{"d"}, $ARGV[0]);
print "\n";

__END__


--- NEW FILE ---
#!/usr/bin/perl

BEGIN {
   use FindBin; unshift @INC, ($FindBin::Bin , "$FindBin::Bin/../lib", "$FindBin::Bin/../conf");
   use Getopt::Std;
   getopt('r',  \%opts);
   unless   ($opts{'r'}  && $ARGV[0]){
      print "Usage: $FindBin::Script -r resellerId  new_password\n\n";
      exit;
   }
}



use ISPMan;
my $ispman=ISPMan->new();
if ( $ispman->changeResellerPassword($opts{"r"}, $ARGV[0])) {
   print "Password changed\n";
}
__END__




--- NEW FILE ---
#!/usr/bin/perl

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


use ISPMan;
my $ispman=ISPMan->new();
if ($ispman->changeVhostPassword($opts{"v"}, $opts{"d"}, $ARGV[0])){
      print "Password changed\n";
}


__END__