방화벽으로 웹 막기.

Trend 2008. 2. 12. 11:22

[e6/home/www/script]# cat ./closeweb.pl
#!/usr/bin/perl

my $string=`ifconfig | grep 'inet addr' | awk '{print \$2}'`;
my @array = $string =~ /addr:(\d+.\d+.\d+.\d+)/g;
#print $_, "\n" foreach(@array); # ¹è¿­ Ãâ·Â

foreach $ip (@array) {
        chomp $ip;
        print "iptables -I INPUT -p tcp --dport 80 -d $ip -j DROP\n";
        my $result = `iptables -I INPUT -p tcp --dport 80 -d $ip -j DROP`;
}

'Trend' 카테고리의 다른 글

버핏의 투자  (0) 2008.02.24
linux find 샘플  (0) 2008.02.16
Common Development and Distribution License (CDDL)  (0) 2008.01.21
리뷰 고고싱 게임?!!!  (0) 2008.01.21
소켓에서 읽을 데이터가 없습니다 라고 에러가 날때  (0) 2008.01.14
Posted by '김용환'
,