uh_parser/releaseables.pl
changeset 177 6d3c3db11e72
child 258 08436a227940
equal deleted inserted replaced
176:266a7e9b9237 177:6d3c3db11e72
       
     1 # Copyright (c) 2009 Symbian Foundation Ltd
       
     2 # This component and the accompanying materials are made available
       
     3 # under the terms of the License "Eclipse Public License v1.0"
       
     4 # which accompanies this distribution, and is available
       
     5 # at the URL "http://www.eclipse.org/legal/epl-v10.html".
       
     6 #
       
     7 # Initial Contributors:
       
     8 # Symbian Foundation Ltd - initial contribution.
       
     9 #
       
    10 # Contributors:
       
    11 #
       
    12 # Description:
       
    13 # Extract releaseable (whatlog) information from Raptor log files
       
    14 
       
    15 use strict;
       
    16 use releaseables;
       
    17 use FindBin;
       
    18 use lib $FindBin::Bin;
       
    19 use XML::SAX;
       
    20 use RaptorSAXHandler;
       
    21 use Getopt::Long;
       
    22 
       
    23 our $basedir = '.';
       
    24 my $help = 0;
       
    25 GetOptions((
       
    26 	'basedir=s' => \$basedir,
       
    27 	'help!' => \$help
       
    28 ));
       
    29 my @logfiles = @ARGV;
       
    30 
       
    31 $help = 1 if (!@logfiles);
       
    32 
       
    33 if ($help)
       
    34 {
       
    35 	print "Extract releaseable (whatlog) information from Raptor log files\n";
       
    36 	print "Usage: perl releaseables.pl [OPTIONS] FILE1 FILE2 ...\n";
       
    37 	print "where OPTIONS are:\n";
       
    38 	print "\t--basedir=DIR Generate output under DIR (defaults to current dir)\n";
       
    39 	exit(0);
       
    40 }
       
    41 
       
    42 my $releaseablesdir = "$::basedir/releaseables";
       
    43 $releaseablesdir =~ s,/,\\,g; # this is because rmdir doens't cope correctly with the forward slashes
       
    44 system("rmdir /S /Q $releaseablesdir") if (-d "$releaseablesdir");
       
    45 mkdir("$releaseablesdir");
       
    46 
       
    47 my $saxhandler = RaptorSAXHandler->new();
       
    48 $saxhandler->add_observer('releaseables', $releaseables::reset_status);
       
    49 
       
    50 my $parser = XML::SAX::ParserFactory->parser(Handler=>$saxhandler);
       
    51 for (@logfiles)
       
    52 {
       
    53 	$parser->parse_uri($_);
       
    54 }
       
    55