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

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

Parent Directory | Revision Log | View Patch Patch

-revision 1.5 by jonen,
Fri Mar 28 16:52:41 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'
  ##
-Line 34
+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::Mungle::Transform::Deep & Co. (lowlevel stuff)
-Line 70
+Line 88
  =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 166 
 use Cwd;
+Line 224 
 use Cwd;
  use File::Spec::Functions qw( splitpath splitdir catpath catdir );
+ # a package global topic registry
+ our $registry;
  sub constructor {
    my $self = shift;
-Line 183 
 sub constructor {
+Line 245 
 sub constructor {
    #$self->load("Metadata");
    #$self->load("Engine");
-   # check for another environment-variable: 'RAPBIN'
-   chdir $ENV{RAPBIN} if $ENV{RAPBIN};
  }
  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->getTargetList();
+     my $maxlength = 0;
+     map {
+       my $len = length($_->{name});
+       $maxlength = $len if $len > $maxlength;
+     } @$meta_raw;
+     my $program = splitpath($0);
      foreach my $entry (@$meta_raw) {
-       print "  - rap.pl $entry->{name}", "\n";
+       my $len = length($entry->{name});
-       print $entry->{description}, "\n" if $entry->{description};
+       #$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;
-Line 232 
 sub start {
+Line 308 
 sub start {
  sub find_rules {
    my $self = shift;
-   my $basedir;
+   my $rapfile = 'etc/rap.xml';
+   my $rapfile_found = '';
+   my $basedir = '';
+   # directly from env-var?
    if (my $rapdir = $ENV{RAPDIR}) {
      $basedir = $rapdir;
-   } else {
+   # 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 = '';
    }
-   my $rap_xml = "$basedir/etc/rap.xml";
+   if ($basedir) {
-   return $rap_xml;
+     # 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;
  }

 Legend:



Removed from v.1.5
 


changed lines


 
Added in v.1.8
 Legend:



Removed from v.1.5
 


changed lines


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

MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26