#!/usr/bin/perl
# get_link
#
# Extracts linkpairs from wleiden.conf files
#

$scriptname="get_link.pl";
$author ="Ous";
$versionstring="0.2";
$versiondate="06Jun07";

#
# 
# License: WL
# 
# History:
# ver:	date:		Desc:
# 0.1	5jun07		Initial attempt
# 0.2	6jun07		Clean up output, create reduced linklist, ...
#
# Todo:
# fix multiple links on same adapter
# 
# Known issues:
# ========================================================================================


$nodelist="./nodelijst.txt";
$outfile="./link_list.txt";
$outfile2="./linkreverse_list.txt";
$outfile3="./reduced_linklist.txt";


#=======MAIN============

&init;
$config_end=false;
while($node=<NODELIST>) {
	chomp($node);
	if ($node !~ /^#/) {$infile="$node/wleiden.conf";}
	&process_configfile;
	}
&verwerk;
&close_all;

#=======================
#========================
sub init {
        $date=localtime;
        #print "$date\n";
        ($dat_weekday, $dat_month, $dat_day, $dat_time, $dat_year)= split(/\s+/,$date);
        $lastchange="$dat_day $dat_month $dat_year";
	
	open (NODELIST,$nodelist) or die "Can't open $nodelist";
	open (OUTFILE, ">$outfile");
        open (OUTFILE2, ">$outfile2");
	open (OUTFILE3, ">$outfile3");
$linkcount=0;
}
#========================
#========================

sub close_all {
	close (NODELIST);
	close(OUTFILE);
	close(OUTFILE2);
	close(OUTFILE3);
}
#=======================
#========================
sub process_configfile {

open(CONF, $infile);

while ($line=<CONF>) {
	chomp($line);
	$line =~ s/
//g;
	if ($line =~ /^\#/) { $key="";$value=""} else {

	($key, $value)=split(/\=/,$line);
	if ($key =~ /\$nodename/) { $nodename=$value; $nodename=~ s/[\';\s]//g;$nodename=~ tr/[A-Z]/[a-z]/ }	

	if ($key =~ /\$config.+\}/) {
		$id=$key;
               	$id =~ s/.*?\'//;
		$id =~ s/\'.*//;
		$ID=$id;
		$value=~ s/.+\<\<//;
		$value=~ s/;.*//;
		$config_end=$value; 
		}
        if ($key =~ /^IP/ ) {
	$IP=$value;
                }
        if ($key =~ /^ESSID/) {
        ($linktype, $destnode, $wleiden,$net)=split(/\./,$value);
	$ESSID=$value;
                }
	if ($key =~ /^SDESC/){
	$SDESC=$value;
	}
	if ($key =~ /^TYPE/){
	$TYPE=$value;
	}
	if ($key =~ /$config_end/) {$config_end="";&report_config}
 }
}
close(CONF);
}
#========================
#========================
sub report_config {
if ($SDESC =~ /^2/ and $TYPE =~ /wireless/) {
	$nodename =~ tr/[A-Z]/[a-z]/;
	$SDESC =~ s/^2//;
	$SDESC =~ tr/[A-Z]/[a-z]/;
	$linkcounter ++;
	@nodefrom=(@nodefrom,$nodename);
	@nodeto=(@nodeto,$SDESC);
        @fromto=(@fromto,"$nodename+$SDESC");
	@tofrom=(@tofrom,"$SDESC+$nodename");	
	%fromtohash=(%fromtohash,$linkcounter,"$nodename+$SDESC");
	%tofromhash=(%tofromhash,"$SDESC+$nodename",$linkcounter);
	print OUTFILE "$nodename+$SDESC\n";
$IP="";
$ID="";
$ESSID="";
$SDESC="";
$TYPE="";
 }}
#========================
#========================
sub verwerk {
print OUTFILE2 "Link#\tReverse\tFrom+To";
for ($i=0;$i<=$linkcounter;$i++) {
$heen=$fromtohash{$i};
$weer=$tofromhash{$heen};
print OUTFILE2 "$i\t$weer\t$heen\n";
if($weer){delete($fromtohash{$weer})}

}
foreach $k (sort {$a <=> $b} keys (%fromtohash)) {if ($fromtohash{$k} !~ /test/ ){print OUTFILE3 "$k\t$fromtohash{$k}\n"}}
}