source: genesis/tools/configcleaner.pl@ 4095

#!/usr/bin/perl -w
#
#Tooltje om de wleiden files er generiek uit te laten zien
#
#Rick van der Zwet (rick@wirelessleiden.nl)
use IP;

my $debug = 0;

#maak een mooi systeem met hash aanroepen om snel gegevens te verwerken
sub parse_config {
        foreach my $id (sort keys %config) {
                my $rawData = $config{$id};
                $rawData =~ s/#.*\n/\n/g;                  #wegslopen comments
                $rawData =~ s/\s*[\r,\n]+\s*/:::/g;        #spaties+enter+spaties vervangen door :::
                $rawData =~ s/^::://;                      #::: aan het begin weghalen
                $rawData =~ s/:::$//;                      #::: aan het eind weghalen
                my @configArray = split( /:::/, $rawData); #array er van maken
                foreach $line (@configArray) {
                        (my $name, my $value) = split( /\=/, $line);
                        $$name{$id} = $value;
                }
        }
}


sub genericConfig {
        my $configfile = $_[0];
        open( CONF, "> $configfile");
        print CONF <<EOP;
#
# Config cleaned up bij configcleaner
# config for $nodetype$nodename
#
\$master_ip='$master_ip';
\$nodetype='$nodetype';
\$nodename='$nodename';
\$status='$status';

\$location="$location";
\$X='$X';
\$Y='$Y';
\$labelpos='$labelpos';

\$OS='$OS';

EOP
        
        if(! $static_dhcp[0] eq "" ) {
                for( my $ctr=0; $ctr < scalar(@static_dhcp); $ctr++ ) {
                        print CONF "\$dhcp_static[$ctr]='$static_dhcp[$ctr]';" . "\n";
                }
        }

        foreach my $key (sort keys %config) {
                my $keyTerminator = $key;
                $keyTerminator =~ tr/a-z/A-Z/;
                $keyTerminator =~ s/://;
                print CONF <<EOP;

\$config{'$key'}=sprintf <<$keyTerminator;
  IP=$IP{$key}
  TYPE=$TYPE{$key}
EOP

                if( lc($TYPE{$key}) eq "wireless" ) {
                        print CONF <<EOP;
  MODE=$MODE{$key}
  ESSID=$ESSID{$key}
  CHANNEL=$CHANNEL{$key}
EOP
                }

                print CONF <<EOP;
  SPEED=$SPEED{$key}

  DESC=$DESC{$key}
  SDESC=$SDESC{$key}

  POINT_TO_POINT=$POINT_TO_POINT{$key}
  DHCP=$DHCP{$key}
EOP

                if( lc($TYPE{$key}) eq "wireless" ) {
                        print CONF <<EOP;

  POLAR=$POLAR{$key}
  ANTENNA=$ANTENNA{$key}
  GAIN=$GAIN{$key}
  DIRECTION=$DIRECTION{$key}
  CABLE=$CABLE{$key}
  HEIGHT=$HEIGTH{$key}
EOP
                }
                print CONF "$keyTerminator" . "\n";
        }
        print CONF "\n" . "# End of Config File" . "\n";
        close ( CONF );
}


foreach my $file (@ARGV) {
        if($debug) {
                $file_output = "test.conf";
        }
        else
                {$file_output = $file;
        }
        print "Working on $file...\n";
        @$_ = [] foreach qw(static_dhcp);
        $static_dhcp[0]="";
        $$_ = "" foreach qw(location master_ip gw_open nodetype nodename
                      OS status X Y N E OS DISK AGGREGATE);
        %$_ = () foreach qw(config TYPE IP DESC SDESC SPEED DHCP DHCP_STATIC
                            OSPF_BROADCAST OSPF_NEIGHBORS MODE ESSID CHANNEL
                            POLAR ANTENNA GAIN DIRECTION BEAMWIDTH CABLE
                            HEIGHT ROUTE);
        do($file) || die("Cann't open file");
        print "\t Parsing config...";
        parse_config;
        print "DONE\n";
        print "\t Applying generic rules ...";
        genericConfig($file_output);
        print "DONE\n";
}