perl web管理服务器的问题

cnbist

UID: 28076
帖子: 91
积分: 209
在线时间: 11 小时

1^# 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

UID: 22625
帖子: 1
积分: 2
在线时间: 10 分钟

2^# xuanfei 发表于 2008-12-29 10:37

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

DQP

UID: 22959
帖子: 5
积分: 11
在线时间: 10 分钟

3^# DQP 发表于 2008-12-29 15:01

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

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

yangchaohi

UID: 27953
帖子: 53
积分: 121
在线时间: 4 小时

4^# yangchaohi 发表于 2008-12-29 15:21

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