#!/usr/bin/perl

BEGIN {
unshift (@INC,"/view/sawans1_api_test/vobs/pp2dev/src/testsuite/user/tinc");
unshift (@INC,"/view/sawans1_api_test/vobs/pp2dev/src/testsuite/user");
}

use DHPL::System;
use nightly::common;
use Logs::LogReader;

$file = ` rsh -l root remote_machien cp /nightly_results/2010_03_19/remote_file.log ` ;

    # $file = "/path/remote_file/";

my $sul = SuiteLog->new( { FILE => $file } );  # $logfile is the log file of test run

$sul->parse_suite( );

# get_scheduled will return the list of all the test_suites present in the respective test_run
foreach my $sname ( @{$sul->get_scheduled( )} ) {

my $scl = $sul->get_log( $sname );
my $name = $scl->name( );
my $result = $scl->result( );
my $errors = $scl->log_errors_short( );
my $description = $scl->get_decription( );

print"Test Suite Name = $name\n";
print"Result = $result\n";
print"Errors = $errors\n";
print"Description = $description\n";

}