救命啊，好惨啊，今天要解决啊。谢谢啦

[小蕊_claudia]

1、如下代码
sub userlogin ($)
{
my ($q) = @_;

my $account = "wangmz";# $q->param('account');
my $password ="123456";# $q->param('password');
my $cmd = "/home/httpd/admin/cgi-bin/test ";
$cmd .= $account;
$cmd .= " ";
$cmd .= $password;
tie %conf, 'esmith::config';
bill::cgi::genHeaderNonCacheable($q, \%conf, "宾客登录");

print "<center>登录成功!$cmd</center><br>";
open(IN,"$cmd ¦") or die "can't run command";
//略去取返回值
bill::cgi::genFooter ($q);
return;
}
运行结果：
登录成功!/home/httpd/admin/cgi-bin/test wangmz 123456 //结果 $cmd命令样式

当改为下列代码

sub userlogin ($)
{
my ($q) = @_;

my $account =$q->param ('account'); //修改===========
my $password =$q->param ('password'); //修改============
my $cmd = "/home/httpd/admin/cgi-bin/test ";
$cmd .= $account;
$cmd .= " ";
$cmd .= $password;
tie %conf, 'esmith::config';
bill::cgi::genHeaderNonCacheable($q, \%conf, "宾客登录");

print "<center>登录成功!$cmd</center><br>";
open(IN,"$cmd ¦") or die "can't run command"; //报错=============
//略去取返回值
bill::cgi::genFooter ($q);
return;
}

运行结果：
登录成功!/home/httpd/admin/cgi-bin/test wangmz 123456 //结果 $cmd命令样式同上面的一样却运行异常?????????

Content-type: text/html
Software error:
Insecure dependency in piped open while running with -T switch at /home/httpd/admin/cgi-bin/login line 146.//========
For help, please send mail to the webmaster (root@WebRoad-pnsm), giving this error message and the time and date of the error.


2、通过perl CGI 怎样得到用户登录连接中的ip??

3、权限问题???
程序fgauth (程序写死IP)
a、命令行方式运行：
./faguth wangmz 123456
输出：
user wangmz ,pass 123456
create dbenv sucess
pUser -> LoginName : wangmz
starting auth
OpenUsers send ZC_OW_USER for: 2400A8C0.
Fgauth TEST: OpenUser return value: 0.
user: wangmz, IP addr: 192.168.0.36. fgauth ok. //认证登录成功，控制台可见在线，ip mac正常

b、使用CGI运行
输出：
user wangmz ,pass 123456
create dbenv sucess
Initial db env object error. //访问权限问题????????????
user: wangmz fgauth fail.

[liany2023]

这代码怎么看啊??

[小蕊_claudia]

1、如下代码
sub userlogin ($)
{
my ($q) = @_;

my $account = "wangmz";# $q->param ('account');
my $password ="123456";# $q->param ('password');
my $cmd = "/home/httpd/admin/cgi-bin/test ";
$cmd .= $account;
$cmd .= " ";
$cmd .= $password;
tie %conf, 'esmith::config';
bill::cgi::genHeaderNonCacheable($q, \%conf, "宾客登录");

print "<center>登录成功!$cmd</center><br>";
open(IN,"$cmd |") or die "can't run command";
//略去取返回值
bill::cgi::genFooter ($q);
return;
}
运行结果：
登录成功!/home/httpd/admin/cgi-bin/test wangmz 123456 //结果 $cmd命令样式

当改为下列代码

sub userlogin ($)
{
my ($q) = @_;

my $account =$q->param ('account'); //修改===========
my $password =$q->param ('password'); //修改============
my $cmd = "/home/httpd/admin/cgi-bin/test ";
$cmd .= $account;
$cmd .= " ";
$cmd .= $password;
tie %conf, 'esmith::config';
bill::cgi::genHeaderNonCacheable($q, \%conf, "宾客登录");

print "<center>登录成功!$cmd</center><br>";
open(IN,"$cmd |") or die "can't run command"; //报错=============
//略去取返回值
bill::cgi::genFooter ($q);
return;
}

运行结果：
登录成功!/home/httpd/admin/cgi-bin/test wangmz 123456 //结果 $cmd命令样式同上面的一样却运行异常?????????

Content-type: text/html
Software error:
Insecure dependency in piped open while running with -T switch at /home/httpd/admin/cgi-bin/login line 146.//========
For help, please send mail to the webmaster (root@WebRoad-pnsm), giving this error message and the time and date of the error.


2、通过perl CGI 怎样得到用户登录连接中的ip??

3、权限问题???
程序fgauth (程序写死IP)
a、命令行方式运行：
./faguth wangmz 123456
输出：
user wangmz ,pass 123456
create dbenv sucess
pUser -> LoginName : wangmz
starting auth
OpenUsers send ZC_OW_USER for: 2400A8C0.
Fgauth TEST: OpenUser return value: 0.
user: wangmz, IP addr: 192.168.0.36. fgauth ok. //认证登录成功，控制台可见在线，ip mac正常

b、使用CGI运行
输出：
user wangmz ,pass 123456
create dbenv sucess
Initial db env object error. //访问权限问题????????????
user: wangmz fgauth fail.

[小蕊_claudia]

不能排版啊！