Chinaunix

标题: perl web管理服务器的问题 [打印本页]

作者: cnbist 时间: 2008-12-29 03:22
标题: perl web管理服务器的问题
我想通过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 时间: 2008-12-29 10:37
标题: 回复 #1 cnbist 的帖子
是否可以考虑下跟数据库结合起来呢：）

作者: DQP 时间: 2008-12-29 15:01
你都知道是权限问题了怎么会解决不了呢。出什么问题了？

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

作者: yangchaohi 时间: 2008-12-29 15:21
标题: 回复 #1 cnbist 的帖子
你是本地上传到Unix服务器上吗?每次上次要修改权限和文件格式的..

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