hotsanic

Subversion Repositories:
[/] [trunk/] [modules/] [networks/] [init] - Rev 5 Go to most recent revision
Compare with Previous - Blame - Download
#!/usr/bin/env perl
use warnings;
use diagnostics;

use lib "../../lib";
use HotSaNICparser;

# read global settings
#
$MODNAME=HotSaNICparser::get_module_name();

# read module-specific settings
#

foreach (HotSaNICparser::read_settings(".")) {
  ($var,$value)=HotSaNICparser::parse_line($_);
  if ($var eq "INTIF") { $INTIF=$value; }
  if ($var eq "IPTABLES") { $IPTABLES=$value; }
  if ($var eq "EXTIF") { $EXTIF=$value; }
  if ($var eq "DEVEXT") {
    ($dev,$maxin,$maxout,$descr)=split(/,/,$value);
    push @WORLDDEST,$dev;
    }
  if ($var eq "DEVINT") {
    ($dev,$maxin,$maxout,$descr)=split(/,/,$value);
    push @LOCALDEST,$dev;
    }
  }

if ( ! defined $IPTABLES) { die time," ",$MODNAME,": IPTABLES not configured in module settings...\n"; }

print "\nclearing old and setting up new accounting chains\n";
foreach $prt ("tcp","udp","icmp","all") {
  system("$IPTABLES -F acct_ext_$prt > /dev/null");
  system("$IPTABLES -X acct_ext_$prt > /dev/null");
  system("$IPTABLES -F acct_int_$prt > /dev/null ");
  system("$IPTABLES -X acct_int_$prt > /dev/null");
  system("$IPTABLES -N acct_ext_$prt > /dev/null");
  system("$IPTABLES -N acct_int_$prt > /dev/null");
  }

#
# set up Accounting for unique IPs in subnet...
#

print "\naccounting for local targets\n";

foreach $host (@LOCALDEST) {
  print "  ",$host,"\n";
  foreach $prt ("tcp","udp","icmp","all") {
    system("$IPTABLES -A acct_int_$prt -s $host");
    system("$IPTABLES -A acct_int_$prt -d $host");
    }
  }

#
# set up accounting for dedicated networks to local subnet
#

print "\naccounting for externel targets\n";

foreach $host (@WORLDDEST) {
  print "  ",$host,"\n";
  foreach $prt ("tcp","udp","icmp","all") {
    system("$IPTABLES -A acct_ext_$prt -s $host");
    system("$IPTABLES -A acct_ext_$prt -d $host");
    }
  }

print "\nlinking accounting chains to INPUT/OUTPUT chain\n";
foreach $dev (split(/,/,$EXTIF)) {
  if ($IPTABLES =~ /ipchains/) {
    system("$IPTABLES -I input -i $dev -j acct_ext > /dev/null");
    system("$IPTABLES -I output -i $dev -j acct_ext > /dev/null");
    }
  else {
    foreach $prt ("tcp","udp","icmp","all") {
      system("$IPTABLES -I INPUT -i $dev -p $prt -j acct_ext_$prt > /dev/null");
      system("$IPTABLES -I OUTPUT -o $dev -p $prt  -j acct_ext_$prt > /dev/null");
      system("$IPTABLES -I FORWARD -i $dev -p $prt  -j acct_ext_$prt > /dev/null");
      system("$IPTABLES -I FORWARD -o $dev -p $prt  -j acct_ext_$prt > /dev/null");
      }
    }
  }

foreach $dev (split(/,/,$INTIF)) {
  if ($IPTABLES =~ /ipchains/) {
    system("$IPTABLES -I input -i $dev -j acct_int > /dev/null");
    system("$IPTABLES -I output -i $dev -j acct_int > /dev/null");
    }
  else {
    foreach $prt ("tcp","udp","icmp","all") {
      system("$IPTABLES -I INPUT -i $dev -p $prt -j acct_int_$prt > /dev/null");
      system("$IPTABLES -I OUTPUT -o $dev -p $prt  -j acct_int_$prt > /dev/null");
      system("$IPTABLES -I FORWARD -i $dev -p $prt  -j acct_int_$prt > /dev/null");
      system("$IPTABLES -I FORWARD -o $dev -p $prt  -j acct_int_$prt > /dev/null");
      }
    }
  }
print "\n\nAll done! - accounting should be running now!\n";