#!/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 LWP::Simple;
use DHPL::System;
use nightly::common;
use Logs::LogReader;


sub get_user_scenario_desc{
    my($web_link, $us_name) = @_;

if($web_link =~ m/nightly_results(.*?)(.html)/) {
	 $web_link= "/nightly_db".$1;
}

`rcp lcla238.lss.emc.com:$web_link`;

my $file = "/tmp/nightly_db.html";

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( );

if($name eq $us_name){
print"Test Scenario Name = $name\n";
print"Result = $result\n";
print"Errors = $errors\n";
print"Description = $description\n";
}

}

}

##</code><code>##

perl UserScenarioDesc.pl &get_user_scenario_desc("http://some_link/XYZ.html","testdare/UserScenarioDAREtestCkmadm")