Mmmm, terus pertanyaannya apa?
--
Salam
Yohanes
http://yohanesnugroho.com
On 8/16/07, net <[EMAIL PROTECTED]> wrote:
> saya bikin file perl yg isi nya seperti ini
> #!/opt/lampp/bin/perl -W
>
> sub daemonize;
>
> use File::Compare;
> use File::Copy;
> my $sec_counter = 0;
>
> &daemonize;
>
> while(1) {
> snort_config();
> }
>
> sub snort_config {
> system("cat /usr/local/snort/snort.conf | grep var | grep HOME_NET |
> grep -v \"^#\" | head -n 1 > filename");
> if
> (compare("/root/melihat_koneksi/filename","/IardFileServer/www/pa/config/filename")
> != 0) {
> system("cat /root/melihat_koneksi/filename > $var");
> system("cat /IardFileServer/www/pa/config/filename > $var1");
> system("sed -i -e 's/$var/$var1'
> /usr/local/snort/snort.conf");
> }
> }
>
> isi dari filename itu var HOME_NET 10.14.200.0/24
> rencananya mau rubah yg di /usr/local/snort/snort.conf dari
> 10.14.200.0/24 jadi yg ada di file
> /IardFileServer/www/pa/config/filename
--
Regards
Yohanes
http://tinyhack.com/freewarelist/s603rd/
--
Berhenti langganan: [EMAIL PROTECTED]
Arsip dan info: http://linux.or.id/milis
