From 44084552c8edb7c7fa088d0f1023b4bc4e8106fe Mon Sep 17 00:00:00 2001 From: Andreas Barth Date: Thu, 31 Mar 2011 17:55:01 +0000 Subject: [PATCH] remove programm name aliases (symlinks already gone since some time) --- bin/wanna-build | 19 ------------------- 1 file changed, 19 deletions(-) diff --git a/bin/wanna-build b/bin/wanna-build index 6249d10..f5717c4 100755 --- 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)! -- 2.39.2