请教一个关于perl ldap module执行权限的问题

真少少

我打算写一个perl cgi脚本修改LDAP的信息 。目前这个脚本必须是root权限才能执行。不知道怎么把脚本权限给所有用户。
当然这个脚本的执行权限已经是755 可是还不能使用。

#!/usr/bin/perl -w use strict; use FindBin; use FindBin qw($RealBin); use lib "$RealBin/"; use smbldap_tools; use Getopt::Std; #my $nscd_status; my $user = $ARGV[0]; my $ldap_master=connect_ldap_master(); my $user_entry = read_user_entry($user); my $dn= $user_entry->dn(); my $modify = $ldap_master->modify ( "$dn",                                       changes => [                                                   'replace' => [mailAlternateAddress => "$user\@6666666.aaaaaaaaaaacom"],                                                  ]                                     );

flw

装 sperl，然后 chmod +s /path/to/your/script.pl

真少少

多谢我试试！

真少少

请问 suidperl 是否就是sperl 我修改了执行的条件。但是还是无法使用！

真少少

修改后如下
#!/usr/bin/suidperl -w
use strict;
use FindBin;
use FindBin qw($RealBin);
use lib "$RealBin/";
use smbldap_tools;
#use Getopt::Std;
#my $nscd_status;
my $user = $ARGV[0];
#my $ldap_master=connect_ldap_master();
my $ldap_slave=connect_ldap_slave();

my $user_entry = read_user_entry($user);
my $dn= $user_entry->dn();
my $modify = $ldap_slave->modify ( "$dn",
                                      changes => [
                                                  'replace' => [mailAlternateAddress => "$user\@1111111.com"],
                                                 ]
                                    );

执行后有如下错误
Insecure dependency in require while running setuid at ./test1 line 6.
BEGIN failed--compilation aborted at ./test1 line 6.