9 # Initial Contributors:

     9 # Initial Contributors:

    10 # Accenture - Initial contribution

    10 # Accenture - Initial contribution

    11 #

    11 #

    12 use strict;

    12 use strict;

    13 use lib "../../tools";

    13 use lib "../../tools";

    14 use fshu;

    15 use fshu;

    15 

    16 

    16 my $platform = shift @ARGV;

    17 my $platform = shift @ARGV;

    17 my $version = fshu::Version();

    19 my $version = fshu::Version();

    18 my $localTime = scalar(localtime);

    20 my $localTime = scalar(localtime);

    19 my $gmTime = scalar(gmtime);

    21 my $gmTime = scalar(gmtime);

    20 my $builder = $ENV{USERNAME};

    22 my $builder = $ENV{USERNAME};

    21 my $compilerVersion = CompilerVersion();

    23 my $compilerVersion = CompilerVersion();

    22 

    24 

    23 

    26 

    24 print "

    27 print "

    25 #include <fshell/iocli.h>

    28 #include <fshell/iocli.h>

    26 

    29 

    27 extern void PrintVersionInfo(RIoWriteHandle& aOut, TBool aVerbose)

    30 extern void PrintVersionInfo(RIoWriteHandle& aOut, TBool aVerbose)

    45 		}

    48 		}

    46 	}

    49 	}

    47 ";

    50 ";

    48 

    51 

    49 sub CompilerVersion {

    52 sub CompilerVersion {

    50   my $version = 'Unknown';

    56   my $version = 'Unknown';

    51   if ($platform =~ /^armv5$/i) {

    57   if ($platform =~ /^armv5$/i) {

    52     open (COMPILER, "armcc 2>&1 |") or die "Couldn't run \"armcc\": $!\n";

    58     open (COMPILER, "armcc 2>&1 |") or die "Couldn't run \"armcc\": $!\n";

    53     while (my $line = <COMPILER>) {

    59     while (my $line = <COMPILER>) {

    54       if ($line =~ /\[Build\s+\d+\]/) {

    60       if ($line =~ /\[Build\s+\d+\]/) {