+++ /dev/null
-#!/usr/bin/perl
-
-$/ = undef;
-open F, "l/levels-list";
-@levels = ("00", split(/[ \n]+/,<F>), "99");
-
-if ($ARGV[0] eq 'max') {
- print $levels[$#levels-1];
-} elsif ($ARGV[0] eq 'min') {
- print $levels[1];
-} else {
- $pos = 0;
- while ($levels[$pos] != $ARGV[1]) {
- die if $pos == $#levels-1;
- $pos++;
- }
- if ($ARGV[0] eq 'next') {
- print $levels[$pos+1];
- } elsif ($ARGV[0] eq 'prev') {
- print $levels[$pos-1];
- } else {
- die;
- }
-}
-print "\n";
-