1 # Copyright (c) 2003-2009 Nokia Corporation and/or its subsidiary(-ies).

     2 # All rights reserved.

     3 # This component and the accompanying materials are made available

     4 # under the terms of "Eclipse Public License v1.0"

     5 # which accompanies this distribution, and is available

     6 # at the URL "http://www.eclipse.org/legal/epl-v10.html".

     7 #

     8 # Initial Contributors:

     9 # Nokia Corporation - initial contribution.

    10 #

    11 # Contributors:

    12 #

    13 # Description:

    14 # Utility functions that are used by templates.

    15 # 

    16 #

    17 package myutils;

    18 

    19 my $iDir = $ENV{PublishLocation}."\\".$ENV{Type}."\\" .$ENV{BuildNumber}."\\logs\\";

    20 my $iSnapshot = $ENV{SnapshotNumber};

    21 my $iProduct = $ENV{Product};

    22 my $iLinkPath = $ENV{PublishLocation}."\\".$ENV{Type}."\\logs\\".$ENV{BuildNumber}."\\";

    23 

    24 sub getiDir

    25 {

    26     return $iDir;

    27 }

    28 

    29 sub getiSnapshot

    30 {

    31     return $iSnapshot;

    32 }

    33 

    34 sub getiProduct

    35 {

    36     return $iProduct;

    37 }

    38 

    39 sub getiLinkPath

    40 {

    41     return $iLinkPath;

    42 }

    43 

    44 sub getTime

    45 {

    46     my ($sec,$min,$hours,$mday,$mon,$year)= localtime();

    47     $year += 1900;

    48     $mon +=1;

    49     my @date = ($year,$mon,$mday,$hours,$min,$sec);

    50     my $date = sprintf("%d-%02d-%02dT%02d:%02d:%02d", @date);

    51     return ($date);

    52 }

    53 

    54 sub getDelim

    55 {

    56   $Delimiter = [ '[@--', '--@]' ];

    57   return (\$Delimiter);

    58 }

    59 1;