burgergold 5$? va chez l'diable! | Si je fais
Code :
- use Win32::NetAdmin;
|
j'ai aucune erreur, sauf à l'exécution sous unix
Si je fais
Code :
- if ($^O =~ /win32/i) {
- require Win32::NetAdmin;
- import Win32::NetAdmin qw(USER_PRIV_ADMIN);
- }
|
j'ai une erreur de syntaxe en tentant d'utiliser USER_PRIV_ADMIN, que je n'avais pas avec le use
Code :
- ##########
- # Must not have system privileges beyond what the web server requires to run
- my ($curpassword, $curpasswordAge, $curprivilege, $curhomeDir, $curcomment, $curflags, $curscriptPath);
- Win32::NetAdmin::UserGetAttributes(Win32::NodeName(), $httpd_conf->User, $curpassword, $curpasswordAge,
- $curprivilege, $curhomeDir, $curcomment, $curflags, $curscriptPath,
- );
- if (($curprivilege & USER_PRIV_ADMIN)) {
- push(@report, "1.1 Must not have system privileges beyond what the web server requires to run." );
- }
- ##########
|
|