Freesco, NND, CDN, EOS

#!/usr/bin/perl

print "Content-type: text/html\n\n";
$script = "/etc/awork/p2pblock michal";
print "<PRE>\n";
chdir("/etc/awork");
$res = `$script`;
print $res;
print "</PRE>\n";

#!/bin/bash

echo $1
x=$(grep $1 /etc/hosts)
y=$(grep $1 p2pblocked)
if [ -z "$x" ]; then
 echo "Nie ma takiego uzytkownika"
else
 if [ -z "$y" ]; then
  iptables -I PREROUTING -t mangle -s $1 -p tcp --dport 111:442 -j DROP
  iptables -I PREROUTING -t mangle -s $1 -p tcp --dport 444:65535 -j DROP
  iptables -I PREROUTING -t mangle -s $1 -p udp --dport ! 53 -j DROP
  /etc/rc.d/iptables save
  echo "$1" >> p2pblocked
 else
  echo "Uzytkownik jest juz zablokowany"
 fi
fi

 [ -z "$PID" ] && /usr/sbin/thttpd -p 82 -c "/cgi-bin/*" -u root -d /var/www -T iso-8859-2 -l /dev/null   

stty: standard input: Invalid argument
michal

$script = "/etc/awork/p2pblock michal 2> /dev/null";

/etc/rc.d/iptables save

stty erase '^H'

$script = "/etc/awork/p2pblock michal 2> /dev/null";