X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;ds=sidebyside;f=current%2Fsrc%2Fget-level;fp=current%2Fsrc%2Fget-level;h=0000000000000000000000000000000000000000;hb=b13ea8a082364672c6de2b010e558211ff52ec9a;hp=b1b6ac2411e331ffd89d9d11880f0ed0ff93eb70;hpb=01534a94130c1f5a3a230cf4fe18365a235ba271;p=deb_pkgs%2Fscowl.git

diff --git a/current/src/get-level b/current/src/get-level
deleted file mode 100755
index b1b6ac2..0000000
--- a/current/src/get-level
+++ /dev/null
@@ -1,26 +0,0 @@
-#!/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";
-