论坛徽章:: 2

电梯直达

1楼 [收藏(0)] [报告]

发表于 2005-02-17 16:00 |只看该作者 |倒序浏览

部分代码
=======================================
#!/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

富足长乐

论坛徽章:: 1

2楼 [报告]

发表于 2005-02-17 16:46 |只看该作者

达人帮帮忙，关于perl程序中添加和删除系统用户

前面加
$ENV{TERM} = "vt100";
$ENV{PATH} = "/usr/sbin:/usr/bin:/bin";
看看...

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

lssliu

稍有积蓄

论坛徽章:: 2

3楼 [报告]

发表于 2005-02-17 17:06 |只看该作者

达人帮帮忙，关于perl程序中添加和删除系统用户

不好用

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

apile

富足长乐

论坛徽章:: 1

4楼 [报告]

发表于 2005-02-17 17:38 |只看该作者

达人帮帮忙，关于perl程序中添加和删除系统用户

請說明不好用的理由？
不然怎麼幫你解決問題?
是不能用..還是?

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

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

lssliu

稍有积蓄

论坛徽章:: 2

5楼 [报告]

发表于 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";
=======================
加上后也是什么效果也没有。不明白为什么。。。。。。

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

哈哈密瓜

白手起家

论坛徽章:: 0

6楼 [报告]

发表于 2005-02-18 10:47 |只看该作者

达人帮帮忙，关于perl程序中添加和删除系统用户

你是说能在命令行用的意思吗，既然能在命令行永就能在web上用啊。
只要登录web的用户有管理权限就应该可以。

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

lssliu

稍有积蓄

论坛徽章:: 2

7楼 [报告]

发表于 2005-02-18 11:14 |只看该作者

达人帮帮忙，关于perl程序中添加和删除系统用户

问一下，在web中用需要什么条件么，对头有什么要求么

麻烦指教。谢谢

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

apile

富足长乐

论坛徽章:: 1

8楼 [报告]

发表于 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..也可能可以藉此入侵你的系統...