added flashes

diff --git a/org.glite.lb/project/MultiStruct.pm b/org.glite.lb/project/MultiStruct.pm
index 9cd847c..2de9051 100644 (file)
--- a/org.glite.lb/project/MultiStruct.pm
+++ b/org.glite.lb/project/MultiStruct.pm
@@ -8,6 +8,7 @@ sub new {
        $self->{comments} = {}; # typ->comment
        $self->{fields} = {};   # typ->{ name->StructField, ... }
        $self->{order} = {};
+       $self->{flesh} = {};
 
        bless $self;
 }
@@ -55,6 +56,7 @@ sub load {
        my $self = shift;
        my $fh = shift;
        local $_;
+       my $flesh = 'common';
 
        while ($_ = <$fh>) {
 
@@ -65,6 +67,12 @@ sub load {
                if (/^\@type\s+(\S+)\s*(.*$)$/) {
                        $self->addType($1,$2);
                        $self->{order}->{$1} = $.;
+                       $self->{flesh}->{$1} = $flesh;
+                       next;
+               }
+
+               if (/^\@flesh\s+(\S+)\s*(.*$)$/) {
+                       $flesh = $1;
                        next;
                }
 

diff --git a/org.glite.lb/project/events.T b/org.glite.lb/project/events.T
index 42b6b29..a6d5752 100644 (file)
--- a/org.glite.lb/project/events.T
+++ b/org.glite.lb/project/events.T
@@ -28,6 +28,8 @@
        string  src_instance    Instance of source component (e.g. service communication endpoint).
        _optional_
 
+@flesh gLite
+
 @type Transfer         Start, success, or failure of job transfer to another component.
        logsrc  destination     Destination where the job is being transfered to.
        string  dest_host       Hostname of server that takes over control of the job.
@@ -213,6 +215,7 @@
        jobid   child           JobId of subjob, which triggered the state change.      
        string  child_event     Event which triggered the state change. 
 
+@flesh PBS
 
 @type PBSQueued                Job enqued
        string  queue           Queue name
@@ -253,6 +256,8 @@
 @type PBSError         Any error occured
        string  error_desc      Error reason
 
+@flesh Condor
+
 @type CondorMatch      Job MATCHed
        string  owner           Owner
        string  dest_host       Matched host