remove programm name aliases (symlinks already gone since some time)

diff --git a/bin/wanna-build b/bin/wanna-build
index 6249d10e6eea6078d0625e18f52fae42346e7386..f5717c4d8e6cdedec5e6e25a7e1bf02af759ed34 100755 (executable)
--- a/bin/wanna-build
+++ b/bin/wanna-build
@@ -88,15 +88,6 @@ $curr_date = strftime("%Y %b %d %H:%M:%S",@curr_time);
 $short_date = strftime("%m/%d/%y",@curr_time);
 $| = 1;
 
-# map program invocation names to operation modes
-my %prognames = ( "uploaded-build"  => "set-uploaded",
-                                 "failed-build"    => "set-failed",
-                                 "no-build"            => "set-not-for-us",
-                                 "give-back-build" => "set-needs-build",
-                                 "dep-wait-build"  => "set-dep-wait",
-                                 "forget-build"        => "forget",
-                                 "build-info"          => "info" );
-
 %short_category = ( u => "uploaded-fixed-pkg",
                                    f => "fix-expected",
                                        r => "reminder-sent",
@@ -107,16 +98,6 @@ my %prognames = ( "uploaded-build"  => "set-uploaded",
                                        c => "compiler-error",
                                        "" => "none" );
 
-my $progname;
-($progname = $0) =~ s,.*/,,;
-if ($prognames{$progname}) {
-       $op_mode = $prognames{$progname};
-}
-elsif ($progname =~ /^list-(.*)$/) {
-       $op_mode = "list";
-       $list_state = ($1 eq "all") ? "" : $1;
-}
-
 my %options =
        (# flags
         simulate       => { flag => \$simulate }, # this is not supported by all operations (yet)!