2 |
## $Id$ |
## $Id$ |
3 |
## ------------------------------------------------------------------------- |
## ------------------------------------------------------------------------- |
4 |
## $Log$ |
## $Log$ |
5 |
|
## Revision 1.3 2003/02/20 18:44:26 joko |
6 |
|
## renamed modules |
7 |
|
## + sub find_rules: attempts to find 'rap.xml' |
8 |
|
## + updated documentation: added SYNOPSIS |
9 |
|
## |
10 |
## Revision 1.2 2003/02/18 16:02:04 joko |
## Revision 1.2 2003/02/18 16:02:04 joko |
11 |
## +- renamed module |
## +- renamed module |
12 |
## |
## |
43 |
And then: |
And then: |
44 |
|
|
45 |
|
|
46 |
|
=head1 SYNOPSIS |
47 |
|
|
48 |
|
my $rap = Data::Rap->new( target => 'sync-core' ); |
49 |
|
$rap->start(); |
50 |
|
|
51 |
|
print Dumper($rap); |
52 |
|
|
53 |
|
print Dumper($rap->get_property('/')); |
54 |
|
|
55 |
|
print Dumper($rap->get_property('.')); |
56 |
|
print Dumper($rap->get_property('global')); |
57 |
|
print Dumper($rap->get_property('app')); |
58 |
|
print Dumper($rap->get_property('app.config')); |
59 |
|
print Dumper($rap->get_property('app.config.preboot')); |
60 |
|
print Dumper($rap->get_property('app.config.databases.oefcore')); |
61 |
|
|
62 |
|
|
63 |
=head1 Overview |
=head1 Overview |
64 |
|
|
65 |
=head2 Rap - Request And Process |
=head2 Rap - Request And Process |
77 |
- OEF::Component::Task |
- OEF::Component::Task |
78 |
- make "old" shortcut programs like "feed.pl", "tell.pl" and such obsolete |
- make "old" shortcut programs like "feed.pl", "tell.pl" and such obsolete |
79 |
- add more targets in order to make "setup.pl" & Co. obsolete as well |
- add more targets in order to make "setup.pl" & Co. obsolete as well |
80 |
|
- some new concepts (perly): |
81 |
|
- namespaces |
82 |
|
- plugins |
83 |
|
- contexts |
84 |
|
|
85 |
|
|
86 |
=head3 It's using these fine modules from CPAN |
=head3 It's using these fine modules from CPAN |
99 |
|
|
100 |
=head3 Rap does networking |
=head3 Rap does networking |
101 |
|
|
102 |
- It's a client. (cli program, standalone) |
x It's a client. (cli program, standalone) |
103 |
- It's a server/daemon as well. (cli interacts with daemon via tcp-socket) |
(->Command-Frontends: rap.pl) |
104 |
|
o It's a server/daemon as well. (cli interacts with daemonized engine via tcp-socket) |
105 |
|
(->Command-Frontends: rap.pl --remote|--host=<hostname>) |
106 |
|
|
107 |
|
|
108 |
=head3 Rap is open for enhancements and/or integration into/with other stuff |
=head3 Rap is open for enhancements and/or integration into/with other stuff |
109 |
|
|
110 |
=head4 Command-Frontends (local and/or remote) |
=head4 Command-Frontends (local and/or remote) |
111 |
|
|
112 |
|
x rap.pl |
113 |
o Commands can be sent via psh (The Perl Shell) or similar frontends (via rap.pl or Rap.pm) |
o Commands can be sent via psh (The Perl Shell) or similar frontends (via rap.pl or Rap.pm) |
114 |
o Commands can be issued from a php-frontend (via RPC using Rap::) |
o Commands can be issued from a php-frontend (via RPC using Rap::) |
115 |
|
|
150 |
use base qw( |
use base qw( |
151 |
DesignPattern::Object |
DesignPattern::Object |
152 |
DesignPattern::Bridge |
DesignPattern::Bridge |
153 |
Log::Dispatch::Config::Object |
DesignPattern::Logger |
154 |
|
DesignPattern::Exception |
155 |
); |
); |
156 |
|
|
157 |
|
|
158 |
use Data::Dumper; |
use Data::Dumper; |
159 |
|
use Cwd; |
160 |
|
use File::Spec::Functions qw( splitpath splitdir catpath catdir ); |
161 |
|
|
162 |
|
|
163 |
sub constructor { |
sub constructor { |
164 |
my $self = shift; |
my $self = shift; |
165 |
$self->load([qw( Metadata Engine Property Command )]); |
|
166 |
|
# patch |
167 |
|
$self->{__rap}->{filename} = $self->{filename}; |
168 |
|
delete $self->{filename}; |
169 |
|
|
170 |
|
# check |
171 |
|
if (!$self->{__rap}->{filename}) { |
172 |
|
$self->{__rap}->{filename} = $self->find_rules(); |
173 |
|
} |
174 |
|
|
175 |
|
$self->load([qw( Metadata Engine Command Context Property )]); |
176 |
#$self->load("Command"); |
#$self->load("Command"); |
177 |
#$self->load("Metadata"); |
#$self->load("Metadata"); |
178 |
#$self->load("Engine"); |
#$self->load("Engine"); |
191 |
$self->log("target: $target", 'info'); |
$self->log("target: $target", 'info'); |
192 |
$self->performTarget($target); |
$self->performTarget($target); |
193 |
} else { |
} else { |
194 |
my $meta_raw = $self->readXmlOverview(); |
my $meta_raw = $self->getTargetList(); |
195 |
#print Dumper($meta_raw); |
|
196 |
|
foreach my $entry (@$meta_raw) { |
197 |
|
print " - rap.pl $entry->{name}", "\n"; |
198 |
|
print $entry->{description}, "\n" if $entry->{description}; |
199 |
|
} |
200 |
|
|
201 |
|
return; |
202 |
|
|
203 |
|
print Dumper($meta_raw); |
204 |
|
exit; |
205 |
|
|
206 |
foreach my $key (keys %{$meta_raw->{target}}) { |
foreach my $key (keys %{$meta_raw->{target}}) { |
207 |
my $target = $meta_raw->{target}->{$key}; |
my $target = $meta_raw->{target}->{$key}; |
208 |
print " - rap.pl $key", "\n"; |
print " - rap.pl $key", "\n"; |
220 |
|
|
221 |
} |
} |
222 |
|
|
223 |
|
sub find_rules { |
224 |
|
my $self = shift; |
225 |
|
my $cwd = cwd(); |
226 |
|
|
227 |
|
(my $volume, my $directory, my $file) = splitpath( $cwd ); |
228 |
|
my @dir = splitdir($directory); |
229 |
|
pop @dir; |
230 |
|
#pop @dir; |
231 |
|
my $base = catpath($volume, catdir(@dir)); |
232 |
|
|
233 |
|
my $rap_xml = "$base/etc/rap.xml"; |
234 |
|
return $rap_xml; |
235 |
|
} |
236 |
|
|
237 |
|
|
238 |
1; |
1; |
239 |
__END__ |
__END__ |