filter private ips if at least one public ip is present

Author: nikopol

hi

@@ -6,7 +6,7 @@ use warnings;
 use utf8;
 use 5.010;
 
-my $VERSION = '0.7';
+my $VERSION = '0.8';
 
 my %FONTS = (
    default => {
@@ -159,8 +159,8 @@ for my $c ( split(//,lc($info || '')) ) {
    if( $c eq 'k' ) {
       $l = 'kernel';
       $i = shell('uname -r');
-      $z = shell('cat /etc/issue.net');
-      $i = $z.' - '.$i if $z;
+      #$z = shell('cat /etc/issue.net');
+      #$i = $z.' - '.$i if $z;
       $i =~ s/[\n\r]+//g;
    } elsif( $c eq 'u' ) {
       $l = 'load/up';
@@ -178,7 +178,8 @@ for my $c ( split(//,lc($info || '')) ) {
       my $out = shell('/sbin/ip -4 addr 2>/dev/null');
       $out = shell('/sbin/ifconfig 2>/dev/null') unless $out;
       my @ips = grep { ! /255|^127\.0/ } ( $out =~ m/([0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3})/gm );
-      $i = join(' / ',@ips);
+      my @pips = grep { ! /^10\.0|^192\.168|172\.(16|17|18|19|20|21|22|23|24|25|26|27|28|29|30|31)\./ } @ips;
+      $i = join(' / ',scalar @pips ? @pips : @ips);
    } elsif( $c eq 'c' ) {
       $l = 'cpu';
       if( $macmode ) {