[Add User] -- insert a control

[Ryuuku]

Some good news !

I managed to execute my script ^ But not totally ^^

File : ispcp-dmn-mngr :

Code:

if ($dmn_status eq 'toadd') {

        $rs = dmn_add_data($entry);
        $timestamp = time();

        if ($rs == 0) {

            $sql = "update domain set domain_status='ok' where domain_id = $dmn_id";
            # $rs = &egw_ctrl_dmn($entry);    ### Appel de la fonction pour Egroupware
            my $ispcp2egw_dmn_add = $main::cfg{'ispcp2egw_dmn_add'};
            $rs = system`$ispcp2egw_dmn_add`;  <<<< My call Function

File : ispcp2egw_dmn_add

Code:

## Function Egroupware Control Checkbox

sub egw_ctrl_dmn {

my ($rs, $rdata) = ('', '');
my ($dmn_data) = @_;
my $dmn_id = @$dmn_data[0];
my $dmn_name = @$dmn_data[1];
my $dmn_egw = @$dmn_data[21];

open(FILE,">/tmp/test.sql");
printf FILE "\n\n Testttttttttttttt \n";
printf FILE "\n dmn_egw = $dmn_egw" ;
close(FILE);

if ($dmn_egw eq 'yes') {

        # Test
        mkdir ("/tmp/ispcp2egw1/",0777) ;

} elsif ($dmn_egw eq 'no') {
        mkdir ('/tmp/ispcp2egw2', 0777) ;
} # Fin Elsif
} # Fin Fonction egw_ctrl_dmn
              
####################################################
# Main => Appel du programme prinicipal

open(FIC,">/tmp/test1.sql");
printf FIC "\n\n Mouaaaaaaaaaaaaaaaaaaaaaaa \n";
close(FIC);

# my ($rs, $rows, $rdata) = (undef, undef, undef);
# my $entry = @$rows[0];
$rs = &egw_ctrl_dmn($entry);

open(FIC,">/tmp/test1.sql");
printf FIC "\n\n popooooooooooooooooooo \n";
close(FIC);

Result of my test :
-> ispcp-dmn-mngr call well my script
-> File test1.sql is well created
-> File test.sql is also well created
But the printf of $dmn_egw return nothing ... so i have to found how my function could have data from ispcp-dmn-mngr @dmn_data[*]

Voilou ^^ See you soon