방화벽으로 웹 막기.

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
방화벽으로 웹 막기.  (0) 2008.02.12
Common Development and Distribution License (CDDL)  (0) 2008.01.21
리뷰 고고싱 게임?!!!  (0) 2008.01.21
소켓에서 읽을 데이터가 없습니다 라고 에러가 날때  (0) 2008.01.14
Posted by '김용환'

댓글을 달아 주세요