Generating squid “myip acl” and tcp_outgoing_address for all your IPs on FreeBSD

This is the perl script which generates squid “myip acl” and tcp_outgoing_address directives for all the IPs configured on FreeBSD except localhost IP (i.e 127.0.0.1), I have written this script to help my friend configure squid as I describe here.

#!/usr/bin/perl
open(IFCONFIG, "ifconfig em0 |");
$count=1;
@acls = ();
@tcps = ();
while (<IFCONFIG>) {
  if (/inet/) {
    s/^\s+//;
    @tokens = split(/ /);
    if (! ($tokens[1] =~ "127.0.0.1")) {
       push(@acls, "acl ip$count myip $tokens[1]\n");
       push(@tcps, "tcp_outgoing_address $tokens[1] ip$count\n");
       $count++;
    }
  }
}
close(IFCONFIG);
foreach $acl (@acls) {
  print $acl;
}
foreach $tcp (@tcps) {
  print $tcp;
}

Click the “View Plain” link above the code, copy the code from the new window and use it.

I know its not commented but I didn’t had much time because of my Google Summer of Code, and the script is so trivial that I didn’t feel like commenting it.

Tags: FreeBSD, OpenSource, perl, squid