source: genesis/tools/configcleaner.pl@ 6538

#!/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';



\$tproxy='$tproxy';

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";

}