Replace ip-screen C source with Perl

grml · Oct 4, 2024 · 792d5ef · 792d5ef
1 parent bad8883
commit 792d5ef
Show file tree

Hide file tree

Showing 6 changed files with 17 additions and 93 deletions.
diff --git a/compile/Makefile b/compile/Makefile
@@ -1,4 +1,4 @@
-PROGS = ip-screen cpu-screen
+PROGS = cpu-screen
 
 #ifndef CFLAGS
 CFLAGS = -O2 -Wall -s
@@ -14,9 +14,6 @@ CC = gcc
 
 all: $(PROGS)
 
-ip-screen: ip-screen.c
-	diet $(CC) $(CFLAGS) -o $@ $^
-
 cpu-screen: cpu-screen.c
 	diet $(CC) $(CFLAGS) -o $@ $^
 

diff --git a/compile/ip-screen.c b/compile/ip-screen.c
diff --git a/debian/control b/debian/control
@@ -18,6 +18,7 @@ Depends:
  dash,
  grml-etc-core,
  less,
+ libio-interface-perl,
  lockfile-progs,
  perl,
  screen,

diff --git a/debian/grml-scripts-core.install b/debian/grml-scripts-core.install
@@ -1,3 +1,2 @@
 compile/cpu-screen usr/bin/
-compile/ip-screen usr/bin/
 usr_bin/* usr/bin/
diff --git a/debian/grml-scripts-core.lintian-overrides b/debian/grml-scripts-core.lintian-overrides
@@ -1,4 +1,3 @@
 grml-scripts-core: statically-linked-binary [usr/bin/cpu-screen]
-grml-scripts-core: statically-linked-binary [usr/bin/ip-screen]
 grml-scripts-core: bugs-field-does-not-refer-to-debian-infrastructure mailto:[email protected]
 grml-scripts-core: script-with-language-extension [usr/bin/lesspipe.sh]
diff --git a/usr_bin/ip-screen b/usr_bin/ip-screen
@@ -0,0 +1,15 @@
+#!/usr/bin/perl
+use strict;
+use IO::Interface::Simple;
+
+my @interfaces = IO::Interface::Simple->interfaces;
+my $found = 0;
+for my $if (@interfaces) {
+  next if $if->is_loopback;
+  print " | " if $found;
+  print $if->address;
+  $found = 1;
+}
+print "[ network n/a ]" unless $found;
+print "\n";
+