Jump to content
Калькуляторы

myth

VIP
  • Content Count

    2166
  • Joined

  • Last visited

About myth

  • Rank
    Доцент

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. Не удаляются ip адреса из квагги после удаления ip адреса из локального блэклиста
  2. Этож тоже скрипт перепиливать нужно. Как понимаю, серьезно.
  3. Для тех, у кого проблемы с vtysh -c "show run". my $ip_cidr=new Net::CIDR::Lite; my $ip_cidr_null=new Net::CIDR::Lite; my $ip6_cidr=new Net::CIDR::Lite; my $ip6_cidr_null=new Net::CIDR::Lite; my @ip_list; my @ip6_list; my @ip_list_null; my @ip6_list_null; my $net_file_hash_old=get_md5_sum($bgpd_file); my $n = 0; my @show_run; my $zebra; my $bgpd; my $read; my $Zebra_FILE = '/etc/quagga/zebra.conf'; my $Bgpd_FILE = '/etc/quagga/bgpd.conf'; #if ( $? == -1 ) #{ # $logger->error("Error while executed cmd $cmd: $!, skip soft Quagga reconfiguration"); # $update_soft_quagga=0; #} #Zebra open ($zebra, $Zebra_FILE) or die "Could not open file '$Zebra_FILE' $!"; while ($read=<$zebra>){ $n++; push(@show_run, $read); #$logger->info("$read"); } close $zebra; #Bgpd open ($bgpd, $Bgpd_FILE) or die "Could not open file '$Bgpd_FILE' $!"; while ($read=<$bgpd>){ $n++; push(@show_run, $read); } close $bgpd; $logger->info("Readed $n lines from files"); !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! sub analyse_quagga_networks { my $need_save_config=0; my %ips_to_add = %ip_s; my %ips6_to_add = %ip6_s; my %ips_to_add_null=%ip_s_null; my %ips6_to_add_null=%ip6_s_null; my %ips_to_del; my %ips6_to_del; my %ips_to_del_null; my %ips6_to_del_null; foreach my $line (@show_run) { next if ($line =~ /^\s*\!/); if($line =~ /^\s*network\s+(.+)\/(\d+)/) { diff делать лень   Принцип, думаю, понятен.
  4. и все бы ничего, но потом твоими способами начинают пользоваться админы сайтов. И трахать начинают провайдеров
  5. Вроде еще выгрузки не выгружаются такие. Как пилить скрипт?
  6. Ну, по сути, это и есть очистка конфига   Штраф словили из-за этого...
  7. он хочет себе на рабочее место интернету немного спиздить