#!/usr/local/bin/perl -w
#
# tcprange
#
# Usage: tcprange <tcp.smtp | tcpmakectl tcp.smtp.cdb tcp.smtp.tmp
#
# Allows you to specify a range of addresses in a source file to tcpmakectl.
# e.g. 192.203.178.1-20:deny
#
# ivan@voicenet.com 97-sep-5
 
use strict;
use vars qw($info $ip $rule $start $stop $iter);
 
while (<>) {
 
  next if /^#/;
 
  /^([^\@:]+\@)?([\d\.\-]*)?:(.*)$/ or die "Illegal line: $_";
  ($info,$ip,$rule)=($1,$2,$3);
 
  unless ( $ip =~ /-/ ) {
    print;
    next;
  }
 
  # is `!!' ok?
  $ip =~ s/(\d{1,3})-(\d{1,3})/!!/ or die "Illegal line: $_";
  ($start,$stop)=($1,$2);
  foreach $iter ( $start .. $stop ) {
    my($iterip)=$ip;
    $iterip =~ s/!!/$iter/; # `!!' ?
    $^W=0; # $info and $rule might be undef
    print "$info$iterip:$rule\n";
    $^W=1;
  }
 
}

.