perl web管理服务器的问题

cnbist

我想通过web来管理服务器 但不知道为何perl脚本在web上运行后没任何反映

#!/usr/bin/perl -w use CGI; my $cgi = new CGI; $id = $cgi -> param('id'); print "content-type:text/plain\n\n\n"; print "hello \n"; $sys = $id; &restart_vsftpd if($sys==1); &restart_php if($sys==2); &restart_nginx if($sys==3); &restart_server if($sys==4); sub restart_php {     unless (system "/web/cgi/admin/c/cgi/php.sh &"){         print "We gave a date, OK!\n";     }   } sub restart_vsftpd {         system "/web/cgi/admin/c/cgi/vsftpd.sh"; } sub restart_nginx {         system "/web/cgi/admin/c/cgi/nginx.sh"; } sub restart_server {         system "/web/cgi/admin/c/cgi/reboot.sh"; }

sh脚本是
/usr/local/etc/rc.d/*** restart

好像是权限的问题 但不知道如何解决

xuanfei

是否可以考虑下跟数据库结合起来呢：）

DQP

你都知道是权限问题了 怎么会解决不了呢。 出什么问题了？

要不就是提升你cgi的用户权限
要不就是降低那些脚本的权限要求（不是好主意）

yangchaohi

你是本地上传到Unix服务器上吗?每次上次要修改权限和文件格式的..