Chinaunix

标题: 达人帮帮忙，关于perl程序中添加和删除系统用户 [打印本页]

作者: lssliu 时间: 2005-02-17 16:00
标题: 达人帮帮忙，关于perl程序中添加和删除系统用户
部分代码
=======================================
#!/usr/bin/perl
use CGI qw( :standard);
use lib qw(/var/www/cgi-bin/DBConn);
use DBConn;
use DBI;
print header(-type=>;'text/html',-charset=>;'euc_jp');
print "<HTML>;";
print "<HEAD>;";
此处省略n行
my $name = param("photoshopCode"

. "a";
my $encrypted = param("MACaddress1"

;
my $nameArea = param("photoshopName"

;
my @cmd = ("userdel",$name);
my $errorcode = 0xffff & system @cmd;
@cmd = ("useradd",$name,"-p",$encrypted,"-d","/ftp_source/$nameArea"

;
$errorcode = 0xffff & system @cmd;
此处省略n行
print "</BODY>;";
print "</HTML>;";
========================================
不明白为什么
my @cmd = ("userdel",$name);
my $errorcode = 0xffff & system @cmd;
@cmd = ("useradd",$name,"-p",$encrypted,"-d","/ftp_source/ $nameArea"

;
$errorcode = 0xffff & system @cmd;
没执行。希望各位指教

作者: apile 时间: 2005-02-17 16:46
标题: 达人帮帮忙，关于perl程序中添加和删除系统用户
前面加
$ENV{TERM} = "vt100";
$ENV{PATH} = "/usr/sbin:/usr/bin:/bin";
看看...

作者: lssliu 时间: 2005-02-17 17:06
标题: 达人帮帮忙，关于perl程序中添加和删除系统用户
不好用

作者: apile 时间: 2005-02-17 17:38
标题: 达人帮帮忙，关于perl程序中添加和删除系统用户
請說明不好用的理由？
不然怎麼幫你解決問題?
是不能用..還是?

你用apache去增加刪除用戶..
就有很大的安全性問題..

作者: lssliu 时间: 2005-02-18 10:34
标题: 达人帮帮忙，关于perl程序中添加和删除系统用户
我是刚到公司实习的学生，刚接触perl，对很多问题都不太清楚，项目要求在web中实现ftp 用户的添加。可是我写的代码，
=======================
my @cmd = ("userdel",$name);
my $errorcode = 0xffff & system @cmd;
@cmd = ("useradd",$name,"-p",$encrypted,"-d","/ftp_source/ $nameArea"

;
=======================
只能在纯perl中用，加入网页中就什么反应也没有。所以挺郁闷。
=======================
$ENV{TERM} = "vt100";
$ENV{PATH} = "/usr/sbin:/usr/bin:/bin";
=======================
加上后也是什么效果也没有。不明白为什么。。。。。。

作者: 哈哈密瓜 时间: 2005-02-18 10:47
标题: 达人帮帮忙，关于perl程序中添加和删除系统用户
你是说能在命令行用的意思吗，既然能在命令行永就能在web上用啊。
只要登录web的用户有管理权限就应该可以。

作者: lssliu 时间: 2005-02-18 11:14
标题: 达人帮帮忙，关于perl程序中添加和删除系统用户
问一下，在web中用需要什么条件么，对头有什么要求么

麻烦指教。谢谢

作者: apile 时间: 2005-02-21 13:00
标题: 达人帮帮忙，关于perl程序中添加和删除系统用户
httpd.conf中..
要讓裡面的user與group那兩行的user（有空去Web版中看一下）
可以新增刪除ftp user...

可以考慮用sudo去做...讓那個user可以新增移除user..
但是security得小心點..sudo在linux版精華區有解釋..

一般WEB中的PATH都不會包含/usr/sbin或/sbin

所以我通常都會把env|grep PATH 的內容寫在.pl的開頭處...
這樣後面要用system什麼command都可以自動找到...
只是cracker..也可能可以藉此入侵你的系統...

作者: lssliu 时间: 2005-02-21 13:51
标题: 达人帮帮忙，关于perl程序中添加和删除系统用户
郁闷，没看懂

作者: freeand 时间: 2005-02-21 15:31
标题: 达人帮帮忙，关于perl程序中添加和删除系统用户
一句话,你的web没有权限执行系统命令.

作者: lssliu 时间: 2005-02-22 09:40
标题: 达人帮帮忙，关于perl程序中添加和删除系统用户
ok，明白了，那要如何使我的web有这种权限呢？？

作者: lssliu 时间: 2005-02-22 10:17
标题: 达人帮帮忙，关于perl程序中添加和删除系统用户
怎么才能有权限？？

作者: freedemon 时间: 2005-02-22 15:42
标题: 达人帮帮忙，关于perl程序中添加和删除系统用户
当然不行了。

添加删除用户只能用root特权

要么是web server运行在root特权下，要么使用SUID程序

但是perl是不允许在SUID环境下执行的，所以你当然运行不成功

可以换用SUID-Perl，但是得单独安装，而且也有额外的安全隐患

.

作者: reason001 时间: 2005-02-23 11:30
标题: 达人帮帮忙，关于perl程序中添加和删除系统用户
这个问题确实很头痛呀.

不知各位认为设置mysql虚拟用户的方案,如何.

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)