#
# Copyright (c) 2010 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: 
#
#!/usr/bin/perl -w

# This Perl program
#
#  o parses a directory
#  o creates a package definition file for whatever it finds there
#  o creates the package
#  o and signs it
#
# NOTE: this program does not take arguments, you must set the
# variables below.


############################################
#
#   Configuration Variables
#

# Input directory (use path separator at the end)
my $SrcDir = "m:/epoc32/winscw/c/Data/perfmetrics/000/";

# package definition file path
my $PkgDefFile = "idxdb.pkg";

# destination installation directory (use path separator at the end)
my $DstDir = "c:/Data/indexing/indexdb/file/";

# Certificate to sign with
my $CertificateFile = "m:/rd.crt";

# Key to sign with
my $KeyFile = "m:/rd.key";




############################################
#
#   Global Variables (don't touch)
#

# List of files to generate package for
my @SrcFiles = ();


############################################
#
#   Body of program
#


# Lists (not recursively) file names from source directory ($srcDir)
# to %srcFiles
sub readSrcFiles()
{
    local $globbedSrcDir = $SrcDir . "*";
    local @srcFiles = glob $globbedSrcDir;
    foreach $file (@srcFiles) {
        push @SrcFiles, substr($file, length($SrcDir))
    }

    foreach $file (@SrcFiles) {
        print "TODO ### $file\n";
    }
}


sub createPkgDefFile()
{
    open(PKGDEF, ">$PkgDefFile") or die "Can't open $PkgDefFile for writing: $!\n";

    print PKGDEF <<EOS;
; Installation file for test corpus
;
; This is an auto-generated PKG file by Carbide.
; This file uses variables specific to Carbide builds that will not work
; on command-line builds. If you want to use this generated PKG file from the
; command-line tools you will need to modify the variables with the appropriate
; values: $(EPOCROOT), $(PLATFORM), $(TARGET)
;
;Languages
&EN

;
; UID is the app\'s UID
;
#{"testcorpus"},(0xEC2D35B4),1,0,0

;Localised Vendor name
%{"Vendor-EN"}

;Unique Vendor name
:"Vendor"

; Supports Series 60 v 3.0
[0x101F7961], 0, 0, 0, {"S60ProductID"}

; Files to install
; Symbols set up for the source location are Carbide.c++ specific symbols
EOS

    foreach $file (@SrcFiles) {
        print PKGDEF "\"$SrcDir$file\"-\"$DstDir$file\"\n";
    }

    close(PKGDEF);
}


sub makeAndSignSis()
{
    $sisFile = $PkgDefFile;
    $sisFile =~ s/.pkg/.sis/;

    system ("makesis", "$PkgDefFile", "$sisFile");

    $sisxFile = $PkgDefFile;
    $sisxFile =~ s/.pkg/.sisx/;

    system ("signsis", "-v", "$sisFile", "$sisxFile", "$CertificateFile", "$KeyFile");
}

############################################
#
#   Main
#
readSrcFiles();
createPkgDefFile();
makeAndSignSis();