# # KCMENU- Unix Menu Program (Perl)
APLawrence.com -  Resources for Unix and Linux Systems, Bloggers and the self-employed

I've removed advertising from most of this site and will eventually clean up the few pages where it remains.

While not terribly expensive to maintain, this does cost me something. If I don't get enough donations to cover that expense, I will be shutting the site down in early 2020.

If you found something useful today, please consider a small donation.



Some material is very old and may be incorrect today

© April 2011 Tony Lawrence

Perl Kcmenu

Many years ago Kevin Clark wrote a nice little menu generator for SCO systems. I wrote about it at Kcmenu.

Unfortunately, Kevin has misplaced the source code so it is constrained to SCO Unix systems. As most of those systems are converting to Linux (see the many "Conversion" articles here), that's unfortunate.

I thought about re-writing this in Perl. As I researched how I might do that, I came across Term::ANSIMenu.

Normally I hate using anyone's code, but I thought this might save a lot of time.

What this will do is do a quick, dirty translation of "kcmenu" menu files into Perl. It's not perfect, but as it produces Perl code, you could always modify that code as needed.

I haven't done any excessive testing. I wrote this in all of twenty minutes this morning, so it could easily blow up. I know it does work with the sample menu provided at that original article.

When run, it creates a Perl executable using the name of the menu file as a template and attempts to "exec" that file. for example, if you named the Perl script "kcmenu", and did:

kcmenu /menus/sample
 

It would look for a menu file named "/menus/sample", read it, and create a new Perl script called "/menus/samplekc.pl", which it will try to "exec". If that works, you get your menu. If not, examine "/menus/samplekc.pl".

You'll need to get Term::ANSIMenu from CPAN, of course. If you've used CPAN before, just fire it up and do "install Term::ANSIMenu".

Here's the code. If you run into issues, send me the menu file and I'll try to accomodate you. If you spot bugs, please send back modified codes.

This doesn't support the original "exit" function. It could, but I didn't take the time to code it so "Q" or "q" quits regardless of what your "exit" line says. It also just ignores lines that are not complete menu items; Kevin's code would print them.

#!/usr/bin/perl
$ENV{PATH} = ".:$ENV{PATH}";
$file=shift @ARGV;
$ofile=$file;
$width=40;
open(I,$file) or $notfound=1;
if ($notfound) {
$notfound=0;
$file="/usr/kctools/$file";
open(I,$file) or $notfound=1;
}
if ($notfound) {
 print "Can't find $ofile\n";
 exit 1;
}

$x=0;
while(<I>) {
  next if /^#/;
  next if /^$/;
  if (not $title) {
    $title=$_;
    $title=~ s/^..//; 
    chomp $title;
    next;
   }
  $delim=substr $_,0,1;
  next if ((substr $_,1,1) eq $delim);
  print;
  chomp;
  ($j,$s[$x],$p[$x],$e[$x])= split /$delim/;
  $l=length($p[$x]);
  $x++ ;
  $width=$l if ($l >$width );
}
$width=$width % 80;
$file .= "kc.pl";
open(O,">$file");
print O <<EOF;
#!/usr/bin/perl
use Term::ANSIMenu;
my \$menu = Term::ANSIMenu->new(
                               width  => $width,
                               title  => '$title',
EOF
print O "help   => [['', \\&standard_help],\n";
foreach(@p) {
  print O qq([ '$_', undef ],\n);
}
print O "],\n";
print O "items  => [";
$x=0;
foreach(@s) {
  $s=substr $s[$x],0,1;
  if ($s[$x] and not $e[$x]) { 
    print O qq([ '$s', '$s[$x]',undef ],\n);
  }
  if ($s[$x] and $e[$x]) {
    print O qq([ '$s','$s[$x]',sub {system "$e[$x]"} ],\n);
  }
  $x++;
}
print O <<EOF;
],
                               status => '$p[0]',
                               prompt => 'Please choose: ');
\$menu->print_menu();
  while (my \$key = \$menu->read_key()) {
    last unless defined \$menu->do_key(\$key);
    \$menu->update_status('') if \$key eq 'S';
    \$menu->update_status('New status') if \$key eq 's';
    \$menu->update_prompt('') if \$key eq 'P';
    \$menu->update_prompt('New prompt: ') if \$key eq 'p';
  }
  \$menu->pos(\$menu->line_after_menu() + 1, 1);
EOF
close O;
chmod(0755,$file);
exec($file);

Here's what it looks like running the sample menu:

Perl kcmenu example

If you found something useful today, please consider a small donation.



Got something to add? Send me email.





(OLDER)    <- More Stuff -> (NEWER)    (NEWEST)   

Printer Friendly Version

->
-> KCMENU- Unix Menu Program (Perl)


Inexpensive and informative Apple related e-books:

Take control of Apple TV, Second Edition

Are Your Bits Flipped?

El Capitan: A Take Control Crash Course

Take Control of the Mac Command Line with Terminal, Second Edition

Take Control of IOS 11





More Articles by © Tony Lawrence





Printer Friendly Version

Have you tried Searching this site?

This is a Unix/Linux resource website. It contains technical articles about Unix, Linux and general computing related subjects, opinion, news, help files, how-to's, tutorials and more.

Contact us


Printer Friendly Version





You can't do it unless you can imagine it. (George Lucas)




Linux posts

Troubleshooting posts


This post tagged:

Conversion

Perl

Programming

Scripting



Unix/Linux Consultants

Skills Tests

Unix/Linux Book Reviews

My Unix/Linux Troubleshooting Book

This site runs on Linode