--- nfo/perl/libs/Data/Rap.pm	2003/03/29 07:08:56	1.6
+++ nfo/perl/libs/Data/Rap.pm	2004/06/20 16:06:57	1.9
@@ -1,7 +1,16 @@
 ## -------------------------------------------------------------------------
-##  $Id: Rap.pm,v 1.6 2003/03/29 07:08:56 joko Exp $
+##  $Id: Rap.pm,v 1.9 2004/06/20 16:06:57 joko Exp $
 ## -------------------------------------------------------------------------
 ##  $Log: Rap.pm,v $
+##  Revision 1.9  2004/06/20 16:06:57  joko
+##  sub start: little modification, now using targets-cache if available
+##
+##  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
@@ -218,6 +227,10 @@
 use File::Spec::Functions qw( splitpath splitdir catpath catdir );
 
 
+# a package global topic registry
+our $registry;
+
+
 sub constructor {
   my $self = shift;
   
@@ -239,21 +252,39 @@
 
 sub start {
   my $self = shift;
-  $self->log("starting", 'info');
+  #$self->log("starting", 'info');
   
   $self->loadGlobalProperties();
+  $self->indexTargets({ load => 1 });
   
   #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";
-      print $entry->{description}, "\n" if $entry->{description};
+      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;