From: Aleš Křenek <ljocha@ics.muni.cz>
Date: Thu, 14 Jun 2007 13:29:06 +0000 (+0000)
Subject: added flashes
X-Git-Tag: glite-lb-build_R_1_6_0_1~53
X-Git-Url: http://scientific.zcu.cz/git/?a=commitdiff_plain;h=9ea9e03bcb4e088e85489820a2a04924cc217a68;p=jra1mw.git

added flashes
---

diff --git a/org.glite.lb/project/MultiStruct.pm b/org.glite.lb/project/MultiStruct.pm
index 9cd847c..2de9051 100644
--- 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
--- 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