trunk/bin/cli.pl

#!/usr/bin/perl

use strict;
use warnings;

use lib 'lib';

use Term::Shelly;
use CWMP::Store;
use CWMP::Tree;
use DBM::Deep;
use Data::Dump qw/dump/;
use Getopt::Long;
use Carp qw/confess/;

my $debug = 0;
my $store_path = './';
my $store_plugin = 'YAML';

GetOptions(
        'debug+' => \$debug,
        'store-path=s' => \$store_path,
        'store-plugin=s' => \$store_plugin,
);

my $sh = Term::Shelly->new();
my $tree = CWMP::Tree->new({ debug => $debug });

our $store = CWMP::Store->new({
        module => $store_plugin,
        path => $store_path,
        debug => $debug,
});

$sh->out(
"You can issue commenads in form using tab-complete:

CPE_Serial ( parametar [ [=] value ] | command )
"
);

$sh->{"completion_function"} = \&completer;
$sh->{"readline_callback"} = \&command;

my @history = ( 'exit' );
my $pos = $#history;
$sh->{'mappings'}->{'up-history'} = [ sub {
        my $self = shift;
        if ( $pos >= 0 ) {
                $self->{'input_line'} = $history[ $pos ];
                $pos--;
                $self->{'input_position'} = length( $self->{'input_line'} );
                $self->fix_inputline;
        }
} ];
$sh->{'mappings'}->{'down-history'} = [ sub {
        my $self = shift;
        my $line = '';
        if ( $pos < $#history ) {
                $pos++;
                $line = $history[ $pos ];
        }
        $self->{'input_line'} = $line;
        $self->{'input_position'} = length( $self->{'input_line'} );
        $self->fix_inputline;
} ];

$sh->prompt( '> ' );

while (1) {
        $sh->do_one_loop();
}

sub completer {
        my ($line, $bword, $pos, $curword) = @_;

        $sh->out( "line: '$line' [ $bword - $pos ] -> '$curword'" );

        my @matches;

        # do we have list (part) of CPE?
        if ( $line =~ /^(\S*)\s*$/ ) {
                @matches = sort grep { /^\Q$curword\E/ } $store->all_uids;
                $sh->out( "CPE available: ", join(",", @matches ) );
        } elsif ( $line =~ /^(\w+)\s+(\S+)$/ ) {
                $sh->out("finding completes for '$2'");
                my ( $cpe_uid, $name ) = ( $1, $2 );

                my $beginning = $name;
                my $part = '';
                if ( $beginning =~ s/\.([^\.]+)$// ) {
                        $part = $1;
                } elsif ( $beginning =~ s/^(\S+)$// ) {
                        $part = $1;
                } else {
                        confess "can't extract suffix";
                }

                $sh->out( "## $cpe_uid ## beginning: $beginning -- part: $part" );
                my $perl = "\$store->db->{state}->{'$cpe_uid'}->{ParameterInfo}";
                $perl .= '->' . $tree->name2perl( $beginning ) if ( defined( $beginning ) && $beginning ne '' );
                $sh->out( "## $cpe_uid ## $perl" );

                @matches = eval "keys %{ $perl }";

        }

        return @matches;
}

sub command {
        my ( $line ) = @_;

        return unless ( $line && $line ne '' );

        # just CPE uid
        if ( $line =~ /^(\w+)\s*$/ ) {
                if ( main->can( $1 ) ) {
                        $sh->out( "# execute command $1" );
                        eval " \&$1( \$line ) ";
                } elsif ( defined ( $store->db->{state}->{$1} ) ) {
                        $sh->out(
                                join(" ", keys %{ $store->db->{state}->{$1}->{ParameterInfo} })
                        );
                        push @history, $line;
                        $pos = $#history;
                } else {
                        $sh->out( "$line: CPE not found" );
                }
        } else {
                $sh->out( "$line: command not recognized" );
        }
}

sub history {
        $sh->out( "history: ", dump ( @history ) );
}

sub exit {
        CORE::exit();
}
1	dpavlin	97	#!/usr/bin/perl
2
3			use strict;
4			use warnings;
5
6			use lib 'lib';
7
8			use Term::Shelly;
9			use CWMP::Store;
10	dpavlin	105	use CWMP::Tree;
11	dpavlin	97	use DBM::Deep;
12			use Data::Dump qw/dump/;
13			use Getopt::Long;
14	dpavlin	105	use Carp qw/confess/;
15	dpavlin	97
16			my $debug = 0;
17	dpavlin	164	my $store_path = './';
18			my $store_plugin = 'YAML';
19	dpavlin	97
20			GetOptions(
21			'debug+' => \$debug,
22			'store-path=s' => \$store_path,
23	dpavlin	164	'store-plugin=s' => \$store_plugin,
24	dpavlin	97	);
25
26	dpavlin	105	my $sh = Term::Shelly->new();
27			my $tree = CWMP::Tree->new({ debug => $debug });
28
29	dpavlin	97	our $store = CWMP::Store->new({
30	dpavlin	164	module => $store_plugin,
31			path => $store_path,
32	dpavlin	97	debug => $debug,
33			});
34
35			$sh->out(
36			"You can issue commenads in form using tab-complete:
37
38			CPE_Serial ( parametar [ [=] value ] \| command )
39			"
40			);
41
42			$sh->{"completion_function"} = \&completer;
43			$sh->{"readline_callback"} = \&command;
44
45			my @history = ( 'exit' );
46			my $pos = $#history;
47			$sh->{'mappings'}->{'up-history'} = [ sub {
48			my $self = shift;
49			if ( $pos >= 0 ) {
50			$self->{'input_line'} = $history[ $pos ];
51			$pos--;
52			$self->{'input_position'} = length( $self->{'input_line'} );
53			$self->fix_inputline;
54			}
55			} ];
56			$sh->{'mappings'}->{'down-history'} = [ sub {
57			my $self = shift;
58			my $line = '';
59			if ( $pos < $#history ) {
60			$pos++;
61			$line = $history[ $pos ];
62			}
63			$self->{'input_line'} = $line;
64			$self->{'input_position'} = length( $self->{'input_line'} );
65			$self->fix_inputline;
66			} ];
67
68	dpavlin	99	$sh->prompt( '> ' );
69	dpavlin	97
70			while (1) {
71			$sh->do_one_loop();
72			}
73
74			sub completer {
75			my ($line, $bword, $pos, $curword) = @_;
76
77			$sh->out( "line: '$line' [ $bword - $pos ] -> '$curword'" );
78
79			my @matches;
80
81	dpavlin	99	# do we have list (part) of CPE?
82	dpavlin	105	if ( $line =~ /^(\S)\s$/ ) {
83	dpavlin	164	@matches = sort grep { /^\Q$curword\E/ } $store->all_uids;
84	dpavlin	97	$sh->out( "CPE available: ", join(",", @matches ) );
85	dpavlin	105	} elsif ( $line =~ /^(\w+)\s+(\S+)$/ ) {
86			$sh->out("finding completes for '$2'");
87			my ( $cpe_uid, $name ) = ( $1, $2 );
88	dpavlin	97
89	dpavlin	105	my $beginning = $name;
90			my $part = '';
91			if ( $beginning =~ s/\.([^\.]+)$// ) {
92			$part = $1;
93			} elsif ( $beginning =~ s/^(\S+)$// ) {
94			$part = $1;
95			} else {
96			confess "can't extract suffix";
97			}
98
99			$sh->out( "## $cpe_uid ## beginning: $beginning -- part: $part" );
100			my $perl = "\$store->db->{state}->{'$cpe_uid'}->{ParameterInfo}";
101			$perl .= '->' . $tree->name2perl( $beginning ) if ( defined( $beginning ) && $beginning ne '' );
102			$sh->out( "## $cpe_uid ## $perl" );
103
104			@matches = eval "keys %{ $perl }";
105
106			}
107
108	dpavlin	97	return @matches;
109			}
110
111			sub command {
112			my ( $line ) = @_;
113
114			return unless ( $line && $line ne '' );
115
116			# just CPE uid
117			if ( $line =~ /^(\w+)\s*$/ ) {
118			if ( main->can( $1 ) ) {
119			$sh->out( "# execute command $1" );
120			eval " \&$1( \$line ) ";
121	dpavlin	105	} elsif ( defined ( $store->db->{state}->{$1} ) ) {
122			$sh->out(
123			join(" ", keys %{ $store->db->{state}->{$1}->{ParameterInfo} })
124			);
125	dpavlin	97	push @history, $line;
126			$pos = $#history;
127			} else {
128			$sh->out( "$line: CPE not found" );
129			}
130			} else {
131			$sh->out( "$line: command not recognized" );
132			}
133			}
134
135			sub history {
136			$sh->out( "history: ", dump ( @history ) );
137			}
138
139			sub exit {
140			CORE::exit();
141			}