Perl

[Perl] utilisé une librairie Win32 dans un script pouvant rouler unix

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Perl] utilisé une librairie Win32 dans un script pouvant rouler unix

burgergold

5$? va chez l'diable!

J'ai un script, qui devra vérifier des trucs pour les serveurs web sous les OS suivants: AIX, linux (debian), MVS (zos) et Windows.

Je dois entre autre vérifier que le userid tournant le serveur web n'a pas de privilège système.

Sous Win32, je compte utilisé Win32::NetAdmin::UserGetAttributes

cependant, aussitot que je fais le use, même si c'est dans ma boucle "Si l'os est Win32", j'ai une erreur en tentant de le faire tourner sous unix (Can't locate Win32/NetAdmin.pm in @INC)

Publicité

burgergold

5$? va chez l'diable!

---------------
http://www.boincstats.com/signature/user_664861.gif

pospos

Les "use" sont executé à la compilation, quelque soit l'endroit ou ils sont.

si tu le fait dans une boucle conditionnelle alors utilise un "require" à la place du "use". Par contre si tu veux importer des fonction (ou si il en importe par defaut et que tu les utilise), il faudra que tu fasse un "import" explicite.
L'autre solution c'est de faire un 'eval "use ...";'

burgergold

5$? va chez l'diable!

et dans mon cas qu'est-ce qui serait le plus approprié?

le script peut rouler sous divers OS, mais lorsque c'est windows, j'ai besoin de la Win32::NetAdmin et de certaines de ses fonctions

pospos

moi je ferais:

Code :

if ($^O =~ /win32/i) {
require Win32::NetAdmin;
import Win32::NetAdmin;
# ou eventuellement avec le nom des fonctions que tu veux importer si elles ne sont pas importées par defaut, exactement comme pour le use:
# import Win32::NetAdmin qw(func1 func2);
}

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." );
}
##########

pospos

Tu ne l'a que sous Unix cette erreur non?

burgergold

5$? va chez l'diable!

pospos a écrit :

Tu ne l'a que sous Unix cette erreur non?

erreur sous win32

Code :

use strict;
#use Win32::NetAdmin;
if ($^O =~ /win32/i) {
#require Win32::NetAdmin;
#import Win32::NetAdmin qw(USER_PRIV_ADMIN);
}
##########
# 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(), "yaberger", $curpassword, $curpasswordAge, $curprivilege, $curhomeDir, $curcomment, $curflags, $curscriptPath);
if (($curprivilege & USER_PRIV_ADMIN)) {
print "1.1 Must not have system privileges beyond what the web server requires to run.\n";
}
##########
print "test";

si j'utilise le "use", ca print mon 1.1 must not have...
si j'utilise le require et le import, sous windows, j'ai cette erreur:

Z:\httpd_cops>perl ../test.pl
Bareword "USER_PRIV_ADMIN" not allowed while "strict subs" in use at ../test.pl line 17.
Execution of ../test.pl aborted due to compilation errors.

Message édité par burgergold le 17-03-2004 à 14:07:56

pospos

ouai, c'est pasque Perl verifi les barewords à la compilation, et ta constant USER_PRIV_ADMIN n'existe pas encore à ce moment la...

donc la solution c'est soit de mettre tout le bloc du "if $^O..." dans un BEGIN (pas certian que ca marche cependant), soit de declarer une sub USER_PRIV_ADMIN qui sera ensuite ecrasée par la vraie constante au moment de l'importe. Du reste c'est le seul moyen de faire si tu veux que ca tourne aussi sous Unix car meme si tu n'execute pas les portions de code specifiques windows en testant une condition, Perl verifira tout de meme les barewords et si il y a aucune surt qui correspond il va gueuler

burgergold

5$? va chez l'diable!

je viens d'essayer ca et ca ne fonctionne pas

Code :

BEGIN {
if ($^O =~ /win32/i) {
#use Win32::NetAdmin;
require Win32::NetAdmin;
import Win32::NetAdmin qw(USER_PRIV_ADMIN);
}
}

Publicité

burgergold

5$? va chez l'diable!

Fonctionnel

Code :

use strict;
if ($^O =~ /win32/i) {
require Win32::NetAdmin;
import Win32::NetAdmin qw(USER_PRIV_ADMIN);
}
sub USER_PRIV_ADMIN;
if ($^O =~ /win32/i) {
##########
# 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(), "yaberger", $curpassword, $curpasswordAge, $curprivilege, $curhomeDir, $curcomment, $curflags, $curscriptPath);
if (($curprivilege & USER_PRIV_ADMIN)) {
print "1.1 Must not have system privileges beyond what the web server requires to run.\n";
}
##########
}
print "test";

gros merci à toi Pospos, oh grand gourou Perl :jap:

pospos

FORUM HardWare.fr

Programmation

Perl

[Perl] utilisé une librairie Win32 dans un script pouvant rouler unix

Sujets relatifs
Mon serveur n'a pas la librairie mcrypt...	[Perl] Fonction find, en plus d'utilisation de simili-objet
[perl-cgi] Passage de parametres	prog php : script commentaire
[Php] adresse de la page de script !	[xchat-script python] get le texte des users?
Script perl qui convertit les fuseaux horaires	script no robot ?!?
MySQL script d'update pour manip sur un tinyblob
Plus de sujets relatifs à : [Perl] utilisé une librairie Win32 dans un script pouvant rouler unix

Page générée en 0.059 secondes