init III

Perl arp cache per snmp durchsuchen/new/menue.pm

@@ -0,0 +1,79 @@
+#!/bin/perl
+
+# Key: Shortcut im Menü
+# Value: Array aus Menüpunkttext und Aktion
+#		Aktion kann weiterer Menüpunkt sein, oder Funktion die aufgerufen werden soll
+#		Für Menüpunkt muss ein Hash mit diesem Namen angelegt werden, der ein weiteres
+#		Menü beschreibt.
+#		Für Funktion muss das erste Zeichen eine Raute (#) sein. Eine Funktion mit dem
+#		entspr. Namen muss angelegt sein.
+# Bei jedem Menüpunkt kann eine Beschreibung angegeben werden, dazu ist bei dem entspr.
+# Menühash ein Key 'desc' mitanzulegen. Der Value ist ein Skalar der den Menünamen enthält.
+
+
+# Beispielkonfig mit Aufruf
+#$haupt{'1'}    = ['Adressen', 'adressen'];
+#$haupt{'2'}    = ['Sagem', 'sagem'];
+#$haupt{'3'}    = ['Nokia', 'nokia'];
+#$haupt{'e'}    = ['Ende', '#bye'];
+#$haupt{'desc'} = "Hauptmenü";
+
+#$adressen{'1'}    = ['Suchen', '#adr_suchen'];
+#$adressen{'z'}    = ['Zurück', 'haupt'];
+#$adressen{'desc'} = "Adressen";
+
+#$sagem{'z'}    = ['Zurück', 'haupt'];
+#$sagem{'desc'} = "Sagem";
+
+#$nokia{'z'}    = ['Zurück', 'haupt'];
+#$nokia{'desc'} = "Nokia";
+
+#menue(\%haupt);
+#use Win32::Console::ANSI;
+#use Term::ANSIScreen qw/:color :cursor :screen/;
+
+package menue;
+
+sub zeigen {
+	($me) = @_;
+	%menu = %$me;
+
+	do {
+		#print "\e[2J";
+		my @subst = (['ä','ae'],['ö','oe'],['ü','ue'],['ß','ss'],['Ä','Ae'],['Ö','Oe'],['Ü','Ue']);
+		foreach (@subst) {
+			$menu{'desc'} =~ s/$_->[0]/$_->[1]/g;
+		}
+
+		print "\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n----- $menu{'desc'} -----\n\n";
+		foreach my $mp (sort keys %menu) {
+			if ($mp eq 'desc') { next; }
+			foreach (@subst) {
+				$menu{$mp}->[0] =~ s/$_->[0]/$_->[1]/g;
+			}
+			print "   $mp $menu{$mp}->[0]\n\n";
+		}
+
+		print "\nAuswahl:";
+		$auswahl = <STDIN>;
+		chomp $auswahl;
+		$ok=0;
+		foreach (sort keys %menu) {
+			if ("$_" eq "$auswahl") {
+				$ok = 1;
+			}
+		}
+	} while (!$ok);
+
+	$para = "$menu{$auswahl}->[1]";
+	if ($para =~ /#/) {
+		$para =~ s/#//,$para;
+		$fkt="main::$para";
+		&$fkt;
+	}
+	else {
+		menue::zeigen("$para");
+	}
+}
+
+1;