#!/usr/bin/perl -w
#
# by Deniss (deniss at banda.lv)
#
%my_subnets=('30','255.255.255.252',
	  '29','255.255.255.248',
	  '28','255.255.255.240',
	  '27','255.255.255.224',
	  '26','255.255.255.192',
	  '25','255.255.255.128',
	  '24','255.255.255.0',
	  '23','255.255.254.0',
	  '22','255.255.252.0',
	  '21','255.255.248.0',
	  '20','255.255.240.0',
	  '19','255.255.224.0',
	  '18','255.255.192.0',
	  '17','255.255.128.0',
	  '16','255.255.0.0');
open(OUT_FILE,'>/usr/local/adm/latvian_networks') || die "Error open output File";
open(INPUT_FILE, '/usr/local/adm/local.net.last') || die "Error open Networks File";
while (<INPUT_FILE>) {
  tr/\r\n//d;
  s/( )+/ /gs;
  @tmp=split "/";
  $tmp[0]=~ s/ //g;
  $tmp[1]=~ s/ //g;
  chomp($tmp[0]);chomp($tmp[1]);
#  print STDOUT "$tmp[0]\t\t".$tmp[1]."\n";
  print OUT_FILE "$tmp[0]\t\t".$my_subnets{$tmp[1]}."\n";
}
close(INPUT_FILE);
close(OUT_FILE);
print "Latvian network database updated\n";