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

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

Parent Directory | Revision Log | View Patch Patch

-revision 1.2 by joko,
Tue Feb 18 16:02:04 2003 UTC
+revision 1.8 by joko,
Fri Dec  5 04:59:33 2003 UTC
 Line 2
  ##  $Id$
  ## -------------------------------------------------------------------------
  ##  $Log$
+ ##  Revision 1.8  2003/12/05 04:59:33  joko
+ ##  + minor update: disabled some unnecessary loggers
+ ##
+ ##  Revision 1.7  2003/05/13 05:52:58  joko
+ ##  minor update: modified description printing logic
+ ##
+ ##  Revision 1.6  2003/03/29 07:08:56  joko
+ ##  rap goes global:
+ ##    + distinguish between running in global- or project-mode
+ ##    + some comments in pod
+ ##
+ ##  Revision 1.5  2003/03/28 16:52:41  jonen
+ ##  now using env-var 'RAPBIN'
+ ##
+ ##  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
  ##
-Line 23
+Line 45
    A Process is a Task.
    There are just details.
  =head2 ahh...
-   CPAN already *has got* all the tools starting an attempt to do this.
+   rap means 'Request And Process'.
+   rap is contained in 'wrapped'.
+   dot is the 'Database Of Targets', by default '/etc/rap.xml'. (rename to 'dot.xml'?)
+   CPAN already *has got* all required tools starting an attempt to do this.
-   Having enough experience with Perl now, this attempt should work out well.....
+   Will this work out?
    But still, Hmmm......
    And: lots of work, i believe....
+   Let's start...
    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
+ =head3 Rap's Features
+   - have targets (like make) declared in xml (like ant)
+   - run these targets...
+     - ... from a multitude of possible human interaction devices (HIDs), e.g.
+       - cli (console mode)
+       - gui
+       - web
+       - speech
+       - scribe
+     - ... from a different location (non-local - for remote administration purposes)
+       - the remote wrapper is 'rapd' - the rap-daemon....
+       - rapd can run in command-mode (like apache, sendmail and related)
+         and/or web-service mode (commands are wrapped into request-/response-
+         xml-payload-communication)
+   - rap is self contained on various levels
+     - runtime-layer
+       - pass arguments between targets
+       - core targets are declared in xml (rap-lingo) as well
+         these exist by now: (look at Data/Rap/targets/default.xml)
+         - core.os.win32
+         - core.os.linux
+         - core.rap.mode
+         - core.rap.daemon
+     - declaration-layer
+       - the xml-file in rap-lingo can contain descriptions associated with each target
+       - rap can make report on its guis about these
+       - rap can use this declaration as an api for the rap-daemon 'rapd'
+     - rap itself can run in "global"- or "project"-mode
+       - FIXME: write something about this (by now: read the source, luke.....)
+ =head3 Rap's Future
+   - rapd
+     - rapd can also run in apache mode for non-root purposes
+     - many rapd's can talk to each other - first example application would be:
+       - one rapd is running as apache-mod-perl-handler (non-root)
+       - one rapd is running locally as root
+       - remark: the way to go (by now) is via org.netfrag.glib's DataSource-libraries,
+         which wrap the innards of rpc-communication via xml (XMLRPC) (lingo: php)
+         an example application is caesar.rapweb and (maybe) caesar.ums
  =head3 Rap's aims are directed to get some of this together
-Line 55
+Line 141
         - 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 73
+Line 163
  =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 121 
 use warnings;
+Line 214 
 use warnings;
  use base qw(
    DesignPattern::Object
    DesignPattern::Bridge
-   Log::Dispatch::Config::Object
+   DesignPattern::Logger
+   DesignPattern::Exception
  );
  use Data::Dumper;
+ use Cwd;
+ use File::Spec::Functions qw( splitpath splitdir catpath catdir );
+ # a package global topic registry
+ our $registry;
  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");
  }
  sub start {
    my $self = shift;
-   $self->log("starting", 'info');
+   #$self->log("starting", 'info');
    $self->loadGlobalProperties();
    #print Dumper($self);
    if (my $target = $self->{target}) {
      #$self->{targets}->{$target} = Data::Rap::Target->new( name => $target );
-     $self->log("target: $target", 'info');
+     #$self->log("target: $target", 'info');
      $self->performTarget($target);
    } else {
-     my $meta_raw = $self->readXmlOverview();
+     my $meta_raw = $self->getTargetList();
-     #print Dumper($meta_raw);
+     my $maxlength = 0;
+     map {
+       my $len = length($_->{name});
+       $maxlength = $len if $len > $maxlength;
+     } @$meta_raw;
+     my $program = splitpath($0);
+     foreach my $entry (@$meta_raw) {
+       my $len = length($entry->{name});
+       #$len = ((1 / ($len / 8)) * 1.9);
+       #$len = ((1 / ($maxlength - $len / 8)) * 1.9);
+       $len = $maxlength - $len + 5;
+       #print "len: $len", "\n";
+       # one line per target
+       print "$program $entry->{name}", " " x $len;
+       print $entry->{description} if $entry->{description};
+       print "\n";
+       # more lines per target
+       #print "$program $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 168 
 sub start {
+Line 305 
 sub start {
  }
+ sub find_rules {
+   my $self = shift;
+   my $rapfile = 'etc/rap.xml';
+   my $rapfile_found = '';
+   my $basedir = '';
+   # directly from env-var?
+   if (my $rapdir = $ENV{RAPDIR}) {
+     $basedir = $rapdir;
+   # relative?
+   } else {
+     my $cwd = cwd();
+     (my $volume, my $directory, my $file) = splitpath( $cwd );
+     my @dir = splitdir($directory);
+     pop @dir;
+     #pop @dir;
+     $basedir = catpath($volume, catdir(@dir));
+   }
+   #print "basedir: '$basedir'", "\n";
+   # check for $basedir/PROJECT
+   if (! -d "$basedir/PROJECT") {
+     $basedir = '';
+   }
+   if ($basedir) {
+     # TODO: review this! handle relative ./etc/rap.xml here!!!
+     $rapfile_found = "$basedir/$rapfile";
+   } else {
+     #if (! -e $rapfile_found) { $rapfile_found = "/$rapfile"; }
+     $rapfile_found = "/$rapfile";
+   }
+   #print "rapfile_found: $rapfile_found", "\n";
+   # if rapfile doesn't exists, try to fall back to absolute (global) mode (/etc/rap.xml)
+   #if (! -e $rapfile_found) { $rapfile_found = catpath($volume, "/", $rapfile); }
+   #if (! -e $rapfile_found) { $rapfile_found = "/$rapfile"; }
+   $self->log( "Using rapfile $rapfile_found.", 'info' );
+   return $rapfile_found;
+ }
 ;
  __END__

 Legend:



Removed from v.1.2
 


changed lines


 
Added in v.1.8
 Legend:



Removed from v.1.2
 


changed lines


 
Added in v.1.8
-Removed from v.1.2
+Added in v.1.8

MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26