tsrc/testing/tools/copylogsfromdirs.pl
author Dremov Kirill (Nokia-D-MSW/Tampere) <kirill.dremov@nokia.com>
Mon, 18 Jan 2010 20:21:12 +0200
changeset 0 96612d01cf9f
permissions -rw-r--r--
Revision: 201001 Kit: 201003

#
# Copyright (c) 2007 Nokia Corporation and/or its subsidiary(-ies).
# All rights reserved.
# This component and the accompanying materials are made available
# under the terms of "Eclipse Public License v1.0"
# which accompanies this distribution, and is available
# at the URL "http://www.eclipse.org/legal/epl-v10.html".
#
# Initial Contributors:
# Nokia Corporation - initial contribution.
#
# Contributors:
#
# Description: 
#

#------------------------------------------------------------------------------------
# Includes
#------------------------------------------------------------------------------------
#use strict;
use warnings;
use Cwd; # for cwd
use FindBin; # for FindBin:Bin
use File::Path; # for mkpath
use Date::Calc;

while(scalar(@ARGV) >= 1)
{
	my $argument = shift(@ARGV);

	if($argument eq "-release")
	{
		#$paramRelease = shift(@ARGV);
	}
	else
	{
		print "arg: $argument\n";
		Help();
	}
}

sub Help
{
    print <<USAGE_EOF;

USAGE_EOF

	exit();
}

#------------------------------------------------------------------------------------
# Main code
#------------------------------------------------------------------------------------

my $startDir = cwd;

print("here: $startDir\n");

opendir(DIR, ".");
my @dirs = sort( readdir(DIR) );
closedir(DIR);

foreach my $dir(@dirs)
{
	print("search $dir\n");
	if($dir eq "." or $dir eq "..") {next};

	if (-d $dir)
	{
	    if($file eq "." or $file eq "..") {next};

	 	my $log = FindFile($dir, "iptvlog.txt", 0);
	 	my $report = FindFile($dir, "testreport.txt", 0);
	 	my $ctcdata = FindFile($dir, "ctcdata.txt", 0);
	 	$log =~ s/\//\\/;
	 	$report =~ s/\//\\/;
	 	$ctcdata =~ s/\//\\/;

	 	print("found $log\n");
	 	print("found $report\n");
	 	if($report ne "" and $log ne "")
	 	{
            my $file = GetFilename($log);
            my $pos = rindex($file, ".");
            my $ext = substr($file, $pos);
            my $file = substr($file, 0, $pos);
            $file = $file . "_" . $dir . $ext;
            my $logdest = $startDir . "\\" . $file;
	     	$logdest =~ s/\//\\/;
	     	system("copy \"$log\" \"$logdest\"\n\n");

            $file = GetFilename($report);
            $pos = rindex($file, ".");
            $ext = substr($file, $pos);
            $file = substr($file, 0, $pos);
            $file = $file . "_" . $dir . $ext;
            my $reportdest = $startDir . "\\" . $file;
	     	$reportdest =~ s/\//\\/;
	     	system("copy \"$report\" \"$reportdest\"\n\n");

            if( $ctcdata ne "" )
            {
                $file = GetFilename($ctcdata);
                $pos = rindex($file, ".");
                $ext = substr($file, $pos);
                $file = substr($file, 0, $pos);
                $file = $file . "_" . $dir . $ext;
                my $ctcdest = $startDir . "\\" . $file;
    	     	$ctcdest =~ s/\//\\/;
    	     	system("copy \"$ctcdata\" \"$ctcdest\"\n\n");
            }
	 	}
	}
}

chdir ($startDir);

exit();


#------------------------------------------------------------------------------------
# FindFiles
# Parameters:
#	$goDir, where to start finding
#	$fileSearch, filename search
#	$searchType, 0 = fullname search, 1 = filetype search
#	$refFiles, reference to array which will hold found files
#------------------------------------------------------------------------------------
sub FindFiles
{
	my ($godir, $fileSearch, $searchType, $refFiles) = @_;

	my $startDir = cwd;

	chdir($godir);

	#print("Now in: " . cwd . "\n");

	opendir(DIR, ".");
	my @filelist = sort(readdir(DIR));
	closedir(DIR);

	foreach my $file(@filelist)
	{
		if($file eq "." or $file eq "..") {next};

		if (-d $file)
		{
		 	FindFiles( $file, $fileSearch, $searchType, $refFiles );
		} else
		{
			if( ($file =~ m/$fileSearch/i and $searchType == 0) or ($file =~ m/$fileSearch$/i and $searchType == 1) )
			{
                $file = cwd . "/" . $file;
				push @$refFiles, $file;
				print("$file\n");
			}
		}
	}

	chdir ($startDir);
}



#------------------------------------------------------------------------------------
# FindDirectory
#
# Parameters:
#	$goDir, where to start finding
#	$fileSearch, filename search
#	$minSize, minimum size for the directory
#
# Returns the directory found.
#------------------------------------------------------------------------------------
sub FindDirectory
{
	my ($godir, $fileSearch, $dontCheckSubFolders, $minSize) = @_;

	my $startDir = cwd;

    #print("Now in $startDir\n");
    print("minsize: $minSize for $fileSearch\n") if($minSize);

	chdir($godir);

	opendir(DIR, ".");
	my @filelist = sort(readdir(DIR));
	closedir(DIR);

	foreach my $file(@filelist)
	{
		if($file eq "." or $file eq "..") {next};

		if (-d $file)
		{
			print("($file - $fileSearch)\n");
			if( $file =~ m/$fileSearch/i  )
			{
                if(!$minSize or DirSize($file) > $minSize)
                {
                    $file = cwd . "/" . $file;
    				$file =~ s/\//\\/g;
    				chdir ($startDir);
    				return $file;
    			}
			}
		}
	}

    return "" if($dontCheckSubFolders);

    # Find subfolders
	foreach my $file(@filelist)
	{
		if($file eq "." or $file eq "..") {next};

		if (-d $file)
		{
		 	my $found = FindDirectory( $file, $fileSearch );
		 	if($found ne "")
		    {
		        chdir ($startDir);
		        $found =~ s/\//\\/g;
		        return $found;
		    }
		}
	}

	chdir ($startDir);
	return "";
}


#------------------------------------------------------------------------------------
# FindFile
#
# Parameters:
#	$goDir, where to start finding
#	$fileSearch, filename search
#   $minSize, minimum size for the file
#
# Returns the file found.
#------------------------------------------------------------------------------------
sub FindFile
{
	my ($godir, $fileSearch, $dontCheckSubFolders, $minSize) = @_;

	my $startDir = cwd;

    #print("Now in $startDir\n");

	chdir($godir);

	opendir(DIR, ".");
	my @filelist = sort(readdir(DIR));
	closedir(DIR);

	foreach my $file(@filelist)
	{
		if($file eq "." or $file eq "..") {next};

		if( $file =~ m/$fileSearch/i and !(-d $file) )
		{
            if(!$minSize or -s $file > $minSize)
            {
                $file = cwd . "/" . $file;
    			$file =~ s/\//\\/g;
    			chdir ($startDir);
    			return $file;
    		}
		}
	}

    return "" if($dontCheckSubFolders);

    # Find subfolders
	foreach my $file(@filelist)
	{
		if($file eq "." or $file eq "..") {next};

		if (-d $file)
		{
		 	my $found = FindFile( $file, $fileSearch );
		 	if($found ne "")
		    {
		        chdir ($startDir);
		        $found =~ s/\//\\/g;
		        return $found;
		    }
		}
	}

	chdir ($startDir);
	return "";
}

#------------------------------------------------------------------------------------
# DirSize
#
# Parameters:
#	$goDir, directory
#
# Returns the size of directory
#------------------------------------------------------------------------------------
sub DirSize
{
	my ($godir) = @_;

	my $startDir = cwd;

	chdir($godir);

	opendir(DIR, ".");
	my @filelist = sort(readdir(DIR));
	closedir(DIR);

    my $size = 0;

	foreach my $file(@filelist)
	{
		if($file eq "." or $file eq "..") {next};

		if (-d $file)
		{
			$size += DirSize($file);
		}
		else
		{
		    $size += -s $file;
		}
	}

	chdir ($startDir);
	return $size;
}

#------------------------------------------------------------------------------------
# GetFilename
#
# Parameters:
# 	$text
#------------------------------------------------------------------------------------
sub GetFilename
{
	my ($file) = @_;
	$file =~ s/\//\\/g; # / -> \
    my $pos = rindex($file, "\\");
    die("Invalid path: $file\n") if($pos == -1);
    return substr($file, $pos+1);
}

#------------------------------------------------------------------------------------
# RemoveWhiteSpaces
#
# Parameters:
# 	$text
#------------------------------------------------------------------------------------
sub RemoveWhiteSpaces()
{
	my ($text) = @_;
	${$text} =~ s/\s+$//; #whitespaces in the end
	${$text} =~ s/^\s+//; #whitespaces at the start
}

#------------------------------------------------------------------------------------
# Timestamp
#
# Parameters:
#------------------------------------------------------------------------------------
sub Timestamp
{
    my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);

    return "" . ($year+1900) . "-" . ($mon+1) . "-" . $mday . "-" . $hour . "-" . $min;
}