[ViewVC] Annotation of: cvsroot/COMP/BOSS/Examples/cmsswPostprocess

#!/usr/bin/perl
$lines=0;
$|=1;
$val="";
$openTag=0;

while ( <STDIN> ) {
  
  
  if($_ =~ /.*<FrameworkJobReport .* Status="(\w*)".*/)  {
    $val = $1;
    print "TASK_NAME = $val\n";
  }

  if($_ =~ /.*<SiteDetail Parameter="SiteName" Value="(.*)".*/)  {
    $val = $1;
    print "COMMENT = $val\n";
  }
  if($_ =~ /.*<SiteDetail Parameter="se-name" Value="(.*)".*/)  {
    $val = $1;
    print "SE_OUT = $val\n";
  }

  if($_ =~ m|.*<Size>(.*)|s)
    {
      $openTag=1;
      $lines=0;
      $val=$1;
      chomp($val);
    }
  if($_ =~ m|(.*)</Size>.*|s)
    {
      $val.=$1;
      chomp($val);
      if($val =~ /\s*(\S*)\s*/s)
        {  
          $val=$1;
        }
      print "SE_SIZE = $val\n";
      $openTag=0;
    }
  if($_ =~ m|.*<ProcessedDataset>(.*)|s)
    {
      $openTag=1;
      $lines=0;
      $val=$1;
    }
  if($_ =~ m|(.*)</ProcessedDataset>.*|s)
    {
      $val.=$1;
      chomp($val);
      if($val =~ m|\s*(\S*)\s*|s)
        {  
          $val=$1;
        }
      print "PROCDATASET = $val\n";
      
      $openTag=0;
    }
  if($openTag)
    {
      if ($lines>0){
        $val .= $_;
        chomp($val);
      }
      $lines+=1;
    }
}
Revision:	1.2
Committed:	Wed Jul 19 10:08:15 2006 UTC (18 years, 9 months ago) by bacchi
Branch:	MAIN
Changes since 1.1:	+14 -0 lines
Log Message:	Added site_name from FrameworkJobReport in COMMENT field, Success/Failed status from FrameworkJobReport in TASK_NAME field, se-name from FrameworkJobReport in SE_OUT.
#	User	Rev	Content
1	bacchi	1.1	#!/usr/bin/perl
2			$lines=0;
3			$\|=1;
4			$val="";
5			$openTag=0;
6
7			while ( <STDIN> ) {
8
9
10	bacchi	1.2	if($_ =~ /.<FrameworkJobReport . Status="(\w)"./) {
11			$val = $1;
12			print "TASK_NAME = $val\n";
13			}
14
15			if($_ =~ /.<SiteDetail Parameter="SiteName" Value="(.)".*/) {
16			$val = $1;
17			print "COMMENT = $val\n";
18			}
19			if($_ =~ /.<SiteDetail Parameter="se-name" Value="(.)".*/) {
20			$val = $1;
21			print "SE_OUT = $val\n";
22			}
23
24	bacchi	1.1	if($_ =~ m\|.<Size>(.)\|s)
25			{
26			$openTag=1;
27			$lines=0;
28			$val=$1;
29			chomp($val);
30			}
31			if($_ =~ m\|(.)</Size>.\|s)
32			{
33			$val.=$1;
34			chomp($val);
35			if($val =~ /\s(\S)\s*/s)
36			{
37			$val=$1;
38			}
39			print "SE_SIZE = $val\n";
40			$openTag=0;
41			}
42			if($_ =~ m\|.<ProcessedDataset>(.)\|s)
43			{
44			$openTag=1;
45			$lines=0;
46			$val=$1;
47			}
48			if($_ =~ m\|(.)</ProcessedDataset>.\|s)
49			{
50			$val.=$1;
51			chomp($val);
52			if($val =~ m\|\s(\S)\s*\|s)
53			{
54			$val=$1;
55			}
56			print "PROCDATASET = $val\n";
57
58			$openTag=0;
59			}
60			if($openTag)
61			{
62			if ($lines>0){
63			$val .= $_;
64			chomp($val);
65			}
66			$lines+=1;
67			}
68			}