minor change

jkooten · May 25, 2021 · 869f221 · 869f221
1 parent 87d92e1
commit 869f221
Show file tree

Hide file tree

Showing 3 changed files with 13 additions and 16 deletions.
diff --git a/CmDsHist/pnm-cmdshist-decode-v1 b/CmDsHist/pnm-cmdshist-decode-v1
@@ -60,7 +60,7 @@ my @merarray=();
 
 foreach my $lijn (@inputfile)	{
 				$lijn =~ s/ +/ /g;
-                                my @subline = split /\ /,$lijn;
+                my @subline = split /\ /,$lijn;
 
 				##	SOME DEFAULT VALUES
 				$filetype = join "", $subline[0], $subline[1], $subline[2], $subline[3];
@@ -70,8 +70,8 @@ foreach my $lijn (@inputfile)	{
 				#my $minvers = $subline[5];
 
 				##	TIMESTAMP
-                                my $timestamp = join "", $subline[4], $subline[5], $subline[6], $subline[7];
-                                $realtmstmp = hex($timestamp);
+                my $timestamp = join "", $subline[4], $subline[5], $subline[6], $subline[7];
+                $realtmstmp = hex($timestamp);
 				$date = localtime($realtmstmp)->strftime('%F %T');
 
 				##	EXTRACTING MODEN MAC FROM PNM
@@ -94,7 +94,7 @@ foreach my $lijn (@inputfile)	{
 				my $realhitlength = hex($hitlength);
 
 				print "$filetype ==> OFDM CMDSHistogram\n";
-                                print "Date of PNM Measurememt ==> $date\n";
+                print "Date of PNM Measurememt ==> $date\n";
 				print "Modem MAC Address =  $mdmmac\n";
 				print "Symmetry = $symmetry\n";
 				print "LENGTH DWELL COUNT  = $reallengthdwellcount\n";
@@ -109,7 +109,7 @@ foreach my $lijn (@inputfile)	{
 
 				##	PUSH REALDATA IN ARRAY
 
-                                my $startf = 1;
+                my $startf = 1;
 
 				my $i = $startdata;
 				while ($i <= $enddata)	{
@@ -119,8 +119,8 @@ foreach my $lijn (@inputfile)	{
 					$i=$i + 4;
 
 					push (@scarray, $startf);
-                                       	$startf++;
-                                }
+                    $startf++;
+                }
 
 
 }
@@ -155,4 +155,4 @@ open(PICTURE, "> /var/www/html/pnm/$filename.png") or die("Cannot open file for
 
 binmode PICTURE;
 print PICTURE $myimage->png;
-close PICTURE;
+close PICTURE;
diff --git a/OFDMAUSRxMer/pnm-ofdmarxmer-filedecode-v2 b/OFDMAUSRxMer/pnm-ofdmarxmer-filedecode-v2
@@ -60,15 +60,15 @@ my @merarray=();
 
 foreach my $lijn (@inputfile)	{
 				$lijn =~ s/ +/ /g;
-                                my @subline = split /\ /,$lijn;
+                my @subline = split /\ /,$lijn;
 				##	SOME DEFAULT VALUES
 
 				$filetype = join "", $subline[0], $subline[1], $subline[2], $subline[3];
 				my $majvers = $subline[4];
 				my $minvers = $subline[5];
 
-                                my $timestamp = join "", $subline[6], $subline[7], $subline[8], $subline[9];
-                                $realtmstmp = hex($timestamp);
+                my $timestamp = join "", $subline[6], $subline[7], $subline[8], $subline[9];
+                $realtmstmp = hex($timestamp);
 				$date = localtime($realtmstmp)->strftime('%F %T');
 
 				my $ifindex = join "", $subline[10], $subline[11], $subline[12], $subline[13];
@@ -116,8 +116,8 @@ foreach my $lijn (@inputfile)	{
 				print "Amount Active Subcarriers = $realbytelength\n";
 
 				$freqfirstcar = $realsubczero + ( $subcarrierspacing * $realfirstactcar);
-                                print "First Subcarrier Frequency = $freqfirstcar\n";
-                                $freqlastcar = $realsubczero + ( $subcarrierspacing * ( $realfirstactcar + $realbytelength) );
+                print "First Subcarrier Frequency = $freqfirstcar\n";
+                $freqlastcar = $realsubczero + ( $subcarrierspacing * ( $realfirstactcar + $realbytelength) );
 				print "Last Subcarrier Frequency = $freqlastcar\n";
 
 				##	PUSH REALDATA IN ARRAY

diff --git a/OFDMDSRxMer/pnm-ofdmrxmer-filedecode-v1 b/OFDMDSRxMer/pnm-ofdmrxmer-filedecode-v1
@@ -1,4 +1,3 @@
-g
 #!/usr/bin/perl
 #
 # startup  jvkooten@gmail.com
@@ -12,8 +11,6 @@ g
 #       As from I11 the Major and Minor Version are introduced in PNM Output.
 #       Once that has dripped down to modem vendors this scripts needs some small updates!
 #
-#
-#
 #    This program is free software: you can redistribute it and/or modify
 #    it under the terms of the GNU General Public License as published by
 #    the Free Software Foundation, either version 3 of the License, or