ispman/tasks addmailrec_action.pl, NONE, 1.1 addvhost_action.pl, NONE, 1.1 execDomainActions_task.pl, NONE, 1.1

Update of /cvsroot/ispman/ispman/tasks
In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv29955/tasks

Added Files:
	addmailrec_action.pl addvhost_action.pl 
	execDomainActions_task.pl 
Log Message:
implemented domain actions
(see feature request [ 1658512 ] Support "hosting packages")

--- NEW FILE: addvhost_action.pl ---
#!/usr/bin/perl

use FindBin;
unshift @INC,
  ( "$FindBin::Bin../bin", "$FindBin::Bin/../lib", "$FindBin::Bin/../conf" );

my $domain = $ARGV[0];

system("$FindBin::Bin/../bin/ispman.addvhost -d $domain www");


--- NEW FILE: addmailrec_action.pl ---
#!/usr/bin/perl

BEGIN {
use FindBin;
unshift @INC,
  ( "$FindBin::Bin../bin", "$FindBin::Bin/../lib", "$FindBin::Bin/../conf" );
}

use ISPMan;
my $domain = shift @ARGV;

my $ispman = ISPMan->new();

my $domainInfo = $ispman->getDomainInfo($domain);

system( "$FindBin::Bin/../bin/ispman.dnsset -d $domain -t A mail "
      . $domainInfo->{'ispmanDomainDefaultMailDropHost'} );


--- NEW FILE: execDomainActions_task.pl ---
sub execDomainActions_task {
    my $params = shift;
    unless ( $params->{'domain'} ) {
        print STDERR "Domain not defined. Cannot continue\n";
        return 0;
    }
    unless ( $params->{'script'} ) {
        print STDERR "script not defined. Cannot continue\n";
        return 0;
    }

    push @cmd, "$FindBin::Bin/../tasks/$params->{'script'} $params->{'domain'}";
}


-------------------------------------------------------------------------
Take Surveys. Earn Cash. Influence the Future of IT
Join SourceForge.net's Techsay panel and you'll get the chance to share your
opinions on IT & business topics through brief surveys-and earn cash
http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV