A.4. help

UserTag help PosNumber 1
UserTag help Order name
UserTag help Routine <<EOR
sub parse_help {
    my ($var, $value) = @_;
    my (@files);
    my (@items);
    my ($c, $chunk, $item, $help, $key);
    unless (defined $value && $value) {
        $c = {};
        return $c;
    }
    $c = $C->{'Help'};
    $var = lc $var;
    $C->{'Source'}->{'Help'} = $value;
    @files = get_files($C->{'PageDir'}, split /\s+/, $value);
    foreach $chunk (@files) {
        @items = split /\r?\n\r?\n/, $chunk;
        foreach $item (@items) {
            ($key,$help) = split /\s*\n/, $item, 2;
            if(defined $c->{$key}) {
                $c->{$key} .= $help;
            }
            else {
                $c->{$key} = $help;
            }

        }
    }
    return $c;
}

sub {
    my($help) = shift;
    # Move this to control section?
    if ($::Values->{mv_helpon}) {
        delete $::Values->{mv_helpoff};
        undef $::Values->{mv_helpon};
    }
    return '' if defined $::Values->{'mv_helpoff'};
    if (defined $Vend::Cfg->{'Help'}{$help}) {
        return $Vend::Cfg->{'Help'}{$help};
    }
    else {
        return '';
    }
}
EOR

AddDirective Help help