J'essais de créer une nouvelle page pour la GUI d'IPCOP qui lancerait 2 binaires différents (admin ou classic)
Lorsque je lance /usr/local/bin/admin ou /usr/local/bin/classic ça marche, mais quand j'utilise ma page que j'ai créé cela ne fonctionne pas
Si quelqu'un pouvait me dire ou est l'erreur dans mon code
Voici mon code pour le fichier CGI :
#!/usr/bin/perl
#
# Page perso IPCOP
require '/var/ipcop/header.pl';
my (%outsettings);
&showhttpheaders();
$outsettings{'ADMIN'} = '';
$outsettings{'CLASSIC'} = '';
&getcgihash(\%outsettings);
if ($outsettings{'ADMIN'} eq 'active-admin')
{
system('/usr/local/bin/admin');
};
if ($outsettings{'CLASSIC'} eq 'active-classic')
{
system('/usr/local/bin/classic)';
}
&openpage('Out ports', 1, '');
&showservicessection();
&openbigbox('100%', 'LEFT');
print "<FORM METHOD='POST'>\n";
&openbox('100%', 'LEFT', 'Gestion des ports en sortie');
print <<END;
<TABLE WIDTH='100%'>
<TR>
<TD WIDTH='15%' CLASS='base'>Admin ports</TD>
<TD WIDTH='25%' ALIGN='CENTER'><INPUT TYPE='submit' NAME='ADMIN' VALUE='active-admin'></TD>
<TD WIDTH='15%' CLASS='base'>Classic ports</TD>
<TD WIDTH='25%' ALIGN='CENTER'><INPUT TYPE='submit' NAME='CLASSIC' VALUE='active-classic'></TD>
</TR>
</TABLE>
END
;
&closebox();
print "</FORM>\n";
&closebigbox();
&closepage();
Merci d'avance pour vos reponses
