Привет всем ! Я не спец по настройкам и нужна помощь.
Был Мандрейк 8 , потом поставил АSР9.2 и начались проблемы :
есть скрипт ( надо при запросе броузером страницы х.х.х.х/adminmod.pl?num=1&stat=out закрыть для клиента 1 инет ) ,
при Мандрейк 8 работал , а теперь нет .
Вот его текст ,в чем проблема?
#!/usr/bin/perl
#Get data from memory --------
if ($ENV{'REQUEST_METHOD'} eq "POST"){
read(STDIN, $bufer, $ENV{'CONTENT_LENGTH'});
}
else{
$bufer=$ENV{'QUERY_STRING'};
}
#End -------------------------
# Decode data ----------------
@pairs = split(/&/, $bufer);
foreach $pair (@pairs){
($name, $value) = split(/=/, $pair);
$name =~ tr/+/ /;
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$name} = $value;
}
$htm=qq~Content-type: text/html\n\n
<html>
<head>
<title></title>
<LINK REV="made" HREF="mailto:">
<META NAME="author" content="WayFarer">
<META name="keywords" content="">
<META name="description" content="">
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=koi8-r">
<base href="http://noc.konotop.org/">
</style>
</head>
<body>~;
$num=$FORM{num};
$stat=$FORM{stat};
if($bufer eq ''){}
elsif($stat eq 'out'){&disconnectip;}
elsif($stat eq 'in'){&connection;}
$htm.=qq~
<script language="JavaScript">
<!--
self.close();
//--></script>
</body></html>~;
<INPUT TYPE="button" VALUE="Close" onClick="window3.close()">
print "$htm";
sub connection{
$ip="192.168.0.20$num";
system("sudo","/sbin/iptables","-A","inaccess","-s","$ip","-j","ACCEPT") == 0 || die "system failed: $?";
}
sub disconnectip{
$ip="192.168.0.20$num";
system("sudo","/sbin/iptables","-D","inaccess","-s","$ip","-j","ACCEPT") == 0 || die "system failed: $?";
}
Вариант для распечатки
WEB технологии (Public)
on
25-Сен-04, 21:04 (MSK)
