Discussion :

[wodel]

Salut,

je veu ajouter un indicateur de remplissage de boite mail, j'ai essayé avec php mais j'ai eu des problems d'accés refusés, alors j'ai pensé faire comme un plugin que j'ai essayé avec squirrelmail, qui change les mots de passe des utilisateurs, il utilise pour ça un programme en c...

j'ai fait un ptit script perl qui calcul l'espace de la Maildir d'un utilisateur, et il marche bien.

mais lorsque je le lance depuis une page php avec la commande exec, ça ne marche pas (toujours le problem d'accés refusé), j'ai essayé de faire ceci

chown root:www monScriptPerl.pl
chmod 4750 monScriptPerl.pl

j'obtient l'erreur suivante dans le log d'apache: Can't do seteuid!

j'ai cherché sur le net, et tout ce que j'ai trouvé c'est une seule et meme réponse:

Can't do seteuid!
(P) L'émulateur setuid de suidperl a échoué pour certaines raisons.

Can't do setuid
(F) Cela veut typiquement dire que le perl ordinaire essaye d'exécuter suidperl pour faire une émulation setuid, mais ne peut le faire. Il cherche un nom de la forme sperl5.000 dans le même répertoire que réside l'exécutable perl, typiquement sous /usr/local/bin sur les machines Unix. Si le fichier s'y trouve, vérifiez les permissions d'exécution. Si ce n'est pas cela, demandez à votre administrateur système pourquoi il l'a désactivé.


bon j'ai pas trouvé ce fameux fichier sperl5.000 null part et je suis mon propre admin

alors je ne sais plus comment faire.............

comment faire pour que mon script aie les droits necessaires pour accéder aux Maildir des differents utilisateurs pour calculer leur taille???

[Jedai]

Quel est ton perl ? Que dit perl -V ?

--
Jedaï

[wodel]

Suse:~ # perl -v

This is perl, v5.8.8 built for i686-linux

Copyright 1987-2006, Larry Wall

Perl may be copied only under the terms of either the Artistic License or the
GNU General Public License, which may be found in the Perl 5 source kit.

Complete documentation for Perl, including FAQ lists, should be found on
this system using "man perl" or "perldoc perl". If you have access to the
Internet, point your browser at http://www.perl.org/, the Perl Home Page.

voila...........

[Jedai]

perl -V, la majuscule est importante.

--
Jedaï

[wodel]

perl -V
Summary of my perl5 (revision 5 version 8 subversion 8) configuration:
Platform:
osname=linux, osvers=2.6.16.27-0.9-smp, archname=i686-linux
uname='linux suse 2.6.16.27-0.9-smp #1 smp tue feb 13 09:35:18 utc 2007 i686 i686 i386 gnulinux '
config_args='-ds -e'
hint=recommended, useposix=true, d_sigaction=define
usethreads=undef use5005threads=undef useithreads=undef usemultiplicity=undef
useperlio=define d_sfio=undef uselargefiles=define usesocks=undef
use64bitint=undef use64bitall=undef uselongdouble=undef
usemymalloc=n, bincompat5005=undef
Compiler:
cc='cc', ccflags ='-fno-strict-aliasing -pipe -Wdeclaration-after-statement -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64',
optimize='-O2',
cppflags='-fno-strict-aliasing -pipe -Wdeclaration-after-statement -I/usr/local/include'
ccversion='', gccversion='4.1.0 (SUSE Linux)', gccosandvers=''
intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234
d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=8
alignbytes=4, prototype=define
Linker and Libraries:
ld='cc', ldflags =' -L/usr/local/lib'
libpth=/usr/local/lib /lib /usr/lib
libs=-lnsl -lgdbm -ldb -ldl -lm -lcrypt -lutil -lc
perllibs=-lnsl -ldl -lm -lcrypt -lutil -lc
libc=/lib/libc-2.4.so, so=so, useshrplib=false, libperl=libperl.a
gnulibc_version='2.4'
Dynamic Linking:
dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-Wl,-E'
cccdlflags='-fpic', lddlflags='-shared -L/usr/local/lib'


Characteristics of this binary (from libperl):
Compile-time options: PERL_MALLOC_WRAP USE_LARGE_FILES USE_PERLIO
Built under linux
Compiled at Apr 22 2007 14:43:13
@INC:
/usr/local/lib/perl5/5.8.8/i686-linux
/usr/local/lib/perl5/5.8.8
/usr/local/lib/perl5/site_perl/5.8.8/i686-linux
/usr/local/lib/perl5/site_perl/5.8.8
/usr/local/lib/perl5/site_perl


voila...

[wodel]

Salut,

j'ai réussi a contourner le problem avec un programme en C qui fait appel a mon script aprés avoir executé l'instruction seteuid

vous pouvez trouvez plus d'explication dans cette article:

http://lea-linux.org/cached/index/De..._scripts.html#


merci

[Jedai]

Désolé,
J'avais oublié ton problème... perlsec recommande effectivement d'utiliser un wrapper en C si ton Perl n'a pas été compilé avec les bonnes options (comme c'est ton cas ici).

--
Jedaï