OEF/bin/cli.pl

#!/usr/bin/perl

##    --------------------------------------------------------------------------------
##    $Id: cli.pl,v 1.3 2003/02/21 07:04:41 joko Exp $
##    --------------------------------------------------------------------------------
##    $Log: cli.pl,v $
##    Revision 1.3  2003/02/21 07:04:41  joko
##    new startup module
##
##    Revision 1.2  2002/12/13 21:52:05  cvsjoko
##    + plugin-architecture
##
##    Revision 1.1  2002/12/11 07:16:35  cvsjoko
##    + initial check-in
##
##    --------------------------------------------------------------------------------


use strict;
use warnings;

# dependency startup
BEGIN { 
  use FindBin;
  use lib "$FindBin::RealBin";
  require 'preface.pl';
}


use Data::Dumper;
use Data::Walker;


$bizProcess->load('Core');

# get logger instance
my $logger = Log::Dispatch::Config->instance;


sub _read_val {
  my $val = <STDIN>;
  exit if !$val;
  chomp($val);
  return $val;
}


sub _boot_start_cli {

MENU:

  my $menu = <<MENUTEXT;

================
Load object(s) ....

  [1] ... directly via id
  [2] ... by browsing classes
  [3] ... by building one or more filter(s)
  [e] exit

MENUTEXT

  print $menu;
  
  print "Your selection? ";
  my $selection = _read_val();
  print "\n";
  chomp($selection);
  
  my $filter;
  my $result = "Selecting an object seems to have failed.";
  
  if ($selection eq '1') {
    print "Please specify object-id: ";
    my $objectId = _read_val();
    my $object = $bizProcess->{storage}->getObject($objectId);
    my $class_meta = $bizProcess->_getClassInfo($object);
    $result = $object;

  } elsif ($selection eq '2') {
    my $class = _select_class();
    $filter = {
      type => $class,
      value => 'all',
    };
    $result = $bizProcess->getObjectsByFilter($filter);

  } elsif ($selection eq '3') {
    print "not yet implemented", "\n";

  } elsif ($selection =~ m/^e/) {
    print "exit!", "\n";
    exit;
  }
  
  my $obj_filter = {
    type => 'Bet',
    #field => '',
    value => 'all',
  };
  #$obj_filter{type} = shift;
  #$obj_filter{field} = shift;
  #$obj_filter{value} = shift;
  
  #my $results = $bizProcess->getObjectsByFilter($obj_filter);
  #my @results = @{$results};
  
  print "-" x 78, "\n";
  Data::Walker->cli( $result );

  print "\n";

  goto MENU;

}

sub _select_class {
  my @object_names = Class::Tangram::known_classes();
  my $counter = 1;
  foreach (@object_names) {
    print "[$counter] $_", "\n";
    $counter++;
  }
  print "Please select class: ";
  my $sel = _read_val();
  my $idx = $sel - 1;
  return $object_names[$idx];
}

_boot_start_cli();

1;
__END__
1	#!/usr/bin/perl
2
3	## --------------------------------------------------------------------------------
4	## $Id: cli.pl,v 1.3 2003/02/21 07:04:41 joko Exp $
5	## --------------------------------------------------------------------------------
6	## $Log: cli.pl,v $
7	## Revision 1.3 2003/02/21 07:04:41 joko
8	## new startup module
9	##
10	## Revision 1.2 2002/12/13 21:52:05 cvsjoko
11	## + plugin-architecture
12	##
13	## Revision 1.1 2002/12/11 07:16:35 cvsjoko
14	## + initial check-in
15	##
16	## --------------------------------------------------------------------------------
17
18
19	use strict;
20	use warnings;
21
22	# dependency startup
23	BEGIN {
24	use FindBin;
25	use lib "$FindBin::RealBin";
26	require 'preface.pl';
27	}
28
29
30	use Data::Dumper;
31	use Data::Walker;
32
33
34	$bizProcess->load('Core');
35
36	# get logger instance
37	my $logger = Log::Dispatch::Config->instance;
38
39
40	sub _read_val {
41	my $val = <STDIN>;
42	exit if !$val;
43	chomp($val);
44	return $val;
45	}
46
47
48	sub _boot_start_cli {
49
50	MENU:
51
52	my $menu = <<MENUTEXT;
53
54	================
55	Load object(s) ....
56
57	[1] ... directly via id
58	[2] ... by browsing classes
59	[3] ... by building one or more filter(s)
60	[e] exit
61
62	MENUTEXT
63
64	print $menu;
65
66	print "Your selection? ";
67	my $selection = _read_val();
68	print "\n";
69	chomp($selection);
70
71	my $filter;
72	my $result = "Selecting an object seems to have failed.";
73
74	if ($selection eq '1') {
75	print "Please specify object-id: ";
76	my $objectId = _read_val();
77	my $object = $bizProcess->{storage}->getObject($objectId);
78	my $class_meta = $bizProcess->_getClassInfo($object);
79	$result = $object;
80
81	} elsif ($selection eq '2') {
82	my $class = _select_class();
83	$filter = {
84	type => $class,
85	value => 'all',
86	};
87	$result = $bizProcess->getObjectsByFilter($filter);
88
89	} elsif ($selection eq '3') {
90	print "not yet implemented", "\n";
91
92	} elsif ($selection =~ m/^e/) {
93	print "exit!", "\n";
94	exit;
95	}
96
97	my $obj_filter = {
98	type => 'Bet',
99	#field => '',
100	value => 'all',
101	};
102	#$obj_filter{type} = shift;
103	#$obj_filter{field} = shift;
104	#$obj_filter{value} = shift;
105
106	#my $results = $bizProcess->getObjectsByFilter($obj_filter);
107	#my @results = @{$results};
108
109	print "-" x 78, "\n";
110	Data::Walker->cli( $result );
111
112	print "\n";
113
114	goto MENU;
115
116	}
117
118	sub _select_class {
119	my @object_names = Class::Tangram::known_classes();
120	my $counter = 1;
121	foreach (@object_names) {
122	print "[$counter] $_", "\n";
123	$counter++;
124	}
125	print "Please select class: ";
126	my $sel = _read_val();
127	my $idx = $sel - 1;
128	return $object_names[$idx];
129	}
130
131	_boot_start_cli();
132
133	1;
134	__END__
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26