vcware and modemware Versions on AS5300

[Yuval Ben-Ari]

show modem version seems too long,
you might want to monitor "show spe version"

this routine will do it:

sub ShowSpeVersion {
    print STDERR "    In ShowSpeVersion: $_" if ($debug);

    while (<INPUT>) {
        tr/\015//d;
        last if (/^$prompt/);
        next if (/^(\s*|\s*$cmd\s*)$/);
        return(1) if /^\s*\^\s*$/;
        return(1) if /(Invalid input detected|Type help or )/;
        return(-1) if (/command authorization failed/i);
        ProcessHistory("MODEM","","","!Modem: $_") && next;
    }
    ProcessHistory("MODEM","","","!\n");
    return(0);
}


also need to add the commands to trigger it in the right place:

        'show spe version'      => "ShowSpeVersion",

        'show spe version',