#!/usr/bin/perl -wT
use strict;
use CGI;

my $query = CGI->new;

# get appropriate function
my $function = get_branch_function( $query );

# get results and process
my $results  = $function->( $query );

sub get_branch_function {
	my $query = shift;
    my $action  = $query->param('action')  || 0;
    my $confirm = $query->param('confirm') ? 1 : 0;
    my $commit  = $query->param('commit')  ? 1 : 0;

    my %dispatch = (
        add => {
            confirm => {
                commit  => \&commit_dialog,
                default => \&add_dialog,
            },
            default => \&add_dialog,
        },
        remove => {
            confirm => {
                commit  => \&commit_dialog,
                default => \&confirm_dialog,
            },
            default => \&choose_dialog,
        },
        modify => {
            confirm => {
                commit  => \&commit_dialog,
                default => \&confirm_dialog,
            },
            default => \&choose_dialog,
        },
        default => \&action_dialog
    );

    if ( ! exists $dispatch{ $action } ) {
        return $dispatch{ default }
    } elsif ( ! $confirm ) {
        return $dispatch{ $action }{ default };
    } elsif ( ! $commit ) {
        return $dispatch{ $action }{ confirm }{ default };
    } else {
        return $dispatch{ $action }{ confirm }{ commit };
    }
}