/[cvs]/nfo/perl/libs/Data/Rap.pm

Diff of /nfo/perl/libs/Data/Rap.pm

Parent Directory | Revision Log | View Patch Patch

-revision 1.1 by joko,
Tue Feb 18 15:34:26 2003 UTC
+revision 1.4 by joko,
Thu Mar 27 15:31:01 2003 UTC
 Line 2
  ##  $Id$
  ## -------------------------------------------------------------------------
  ##  $Log$
+ ##  Revision 1.4  2003/03/27 15:31:01  joko
+ ##  fixes to modules regarding new namespace(s) below Data::Mungle::*
+ ##
+ ##  Revision 1.3  2003/02/20 18:44:26  joko
+ ##  renamed modules
+ ##  + sub find_rules: attempts to find 'rap.xml'
+ ##  + updated documentation: added SYNOPSIS
+ ##
+ ##  Revision 1.2  2003/02/18 16:02:04  joko
+ ##  +- renamed module
+ ##
  ##  Revision 1.1  2003/02/18 15:34:26  joko
  ##  + initial commit
  ##
-Line 29
+Line 40
    And: lots of work, i believe....
    Okay:
-   Look at DesignPattern:: and Data::Transform::Deep & Co. (lowlevel stuff)
+   Look at DesignPattern:: and Data::Mungle::Transform::Deep & Co. (lowlevel stuff)
    or OEF::, Data::Storage and Data::Transfer::Sync (highlevel stuff).
    And then:
+ =head1 SYNOPSIS
+   my $rap = Data::Rap->new( target => 'sync-core' );
+   $rap->start();
+   print Dumper($rap);
+   print Dumper($rap->get_property('/'));
+   print Dumper($rap->get_property('.'));
+   print Dumper($rap->get_property('global'));
+   print Dumper($rap->get_property('app'));
+   print Dumper($rap->get_property('app.config'));
+   print Dumper($rap->get_property('app.config.preboot'));
+   print Dumper($rap->get_property('app.config.databases.oefcore'));
  =head1 Overview
  =head2 Rap - Request And Process
-Line 52
+Line 80
         - OEF::Component::Task
      - make "old" shortcut programs like "feed.pl", "tell.pl" and such obsolete
      - add more targets in order to make "setup.pl" & Co. obsolete as well
+   - some new concepts (perly):
+     - namespaces
+     - plugins
+     - contexts
  =head3 It's using these fine modules from CPAN
-Line 70
+Line 102
  =head3 Rap does networking
-   - It's a client. (cli program, standalone)
+   x It's a client. (cli program, standalone)
-   - It's a server/daemon as well. (cli interacts with daemon via tcp-socket)
+       (->Command-Frontends: rap.pl)
+   o It's a server/daemon as well. (cli interacts with daemonized engine via tcp-socket)
+       (->Command-Frontends: rap.pl --remote|--host=<hostname>)
  =head3 Rap is open for enhancements and/or integration into/with other stuff
  =head4 Command-Frontends (local and/or remote)
+   x rap.pl
    o Commands can be sent via psh (The Perl Shell) or similar frontends (via rap.pl or Rap.pm)
    o Commands can be issued from a php-frontend (via RPC using Rap::)
-Line 117 
 use warnings;
+Line 152 
 use warnings;
  use base qw(
    DesignPattern::Object
-   DesignPattern::Object::Logger
    DesignPattern::Bridge
+   DesignPattern::Logger
+   DesignPattern::Exception
  );
  use Data::Dumper;
+ use Cwd;
+ use File::Spec::Functions qw( splitpath splitdir catpath catdir );
  sub constructor {
    my $self = shift;
-   $self->load([qw( Metadata Engine Property Command )]);
+   # patch
+     $self->{__rap}->{filename} = $self->{filename};
+     delete $self->{filename};
+   # check
+     if (!$self->{__rap}->{filename}) {
+       $self->{__rap}->{filename} = $self->find_rules();
+     }
+   $self->load([qw( Metadata Engine Command Context Property )]);
    #$self->load("Command");
    #$self->load("Metadata");
    #$self->load("Engine");
-Line 146 
 sub start {
+Line 194 
 sub start {
      $self->log("target: $target", 'info');
      $self->performTarget($target);
    } else {
-     my $meta_raw = $self->readXmlOverview();
+     my $meta_raw = $self->getTargetList();
-     #print Dumper($meta_raw);
+     foreach my $entry (@$meta_raw) {
+       print "  - rap.pl $entry->{name}", "\n";
+       print $entry->{description}, "\n" if $entry->{description};
+     }
+     return;
+     print Dumper($meta_raw);
+     exit;
      foreach my $key (keys %{$meta_raw->{target}}) {
        my $target = $meta_raw->{target}->{$key};
        print "  - rap.pl $key", "\n";
-Line 165 
 sub start {
+Line 223 
 sub start {
  }
+ sub find_rules {
+   my $self = shift;
+   my $cwd = cwd();
+   (my $volume, my $directory, my $file) = splitpath( $cwd );
+   my @dir = splitdir($directory);
+   pop @dir;
+   #pop @dir;
+   my $base = catpath($volume, catdir(@dir));
+   my $rap_xml = "$base/etc/rap.xml";
+   return $rap_xml;
+ }
 ;
  __END__

 Legend:



Removed from v.1.1
 


changed lines


 
Added in v.1.4
 Legend:



Removed from v.1.1
 


changed lines


 
Added in v.1.4
-Removed from v.1.1
+Added in v.1.4

MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26