use strict;

my $pkgbase = ";Language - standard language definitions
\&EN,FI,ZH,JA

; standard SIS file header
\#{\"HelloWorldBasicREPLACE1\", \"HelloWorldBasicREPLACE1\", \"HelloWorldBasicREPLACE1\", \"HelloWorldBasicREPLACE1\"},(REPLACEUID),1,0,0

;Localised Vendor name
\%{\"Vendor-EN\", \"Vendor-FI\", \"Vendor-ZH\", \"Vendor-JA\"}

;Unique Vendor name
:\"Vendor\"

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

";

my $pkgfiles = ";Files
\"\\epoc32\\release\\armv5\\urel\\HelloWorldBasicREPLACE2.exe\" -\"!:\\sys\\bin\\HelloWorldBasicREPLACE2.exe\"

\"\\epoc32\\data\\z\\resource\\apps\\HelloWorldBasicREPLACE2.rsc\" -\"!:\\resource\\apps\\HelloWorldBasicREPLACE2.rsc\"
\"\\epoc32\\data\\z\\resource\\apps\\HelloWorldBasicREPLACE2.r09\" -\"!:\\resource\\apps\\HelloWorldBasicREPLACE2.r09\"
\"\\epoc32\\data\\z\\resource\\apps\\HelloWorldBasicREPLACE2.r31\" -\"!:\\resource\\apps\\HelloWorldBasicREPLACE2.r31\"
\"\\epoc32\\data\\z\\resource\\apps\\HelloWorldBasicREPLACE2.r32\" -\"!:\\resource\\apps\\HelloWorldBasicREPLACE2.r32\"

\"\\epoc32\\data\\z\\private\\10003a3f\\import\\apps\\HelloWorldBasicREPLACE2_reg.rsc\" -\"!:\\private\\10003a3f\\import\\apps\\HelloWorldBasicREPLACE2_reg.rsc\"
\"\\epoc32\\data\\z\\private\\10003a3f\\import\\apps\\HelloWorldBasicREPLACE2_reg.r09\" -\"!:\\private\\10003a3f\\import\\apps\\HelloWorldBasicREPLACE2_reg.r09\"
\"\\epoc32\\data\\z\\private\\10003a3f\\import\\apps\\HelloWorldBasicREPLACE2_reg.r31\" -\"!:\\private\\10003a3f\\import\\apps\\HelloWorldBasicREPLACE2_reg.r31\"
\"\\epoc32\\data\\z\\private\\10003a3f\\import\\apps\\HelloWorldBasicREPLACE2_reg.r32\" -\"!:\\private\\10003a3f\\import\\apps\\HelloWorldBasicREPLACE2_reg.r32\"
\"\\epoc32\\data\\z\\resource\\apps\\helloworldbasicREPLACE2_aif.mif\" -\"!:\\resource\\apps\\helloworldbasicREPLACE2_aif.mif\"
;end
";

my $appnum = shift;
my $baseuid = 0xA000018A;
my $defaultappforpkg = 5;
my $filenum = $appnum/$defaultappforpkg;
if ($appnum%$defaultappforpkg > 0) 
    {
    $filenum++;
    }

generate();

sub generate()
    {
    my $i = 0;
    for ( $i=1; $i<=$filenum; $i++ ) 
        {
        my $filepart =".\\sis\\helloworldbasicPart".$i."\.pkg";
        open FW, ">$filepart" or die "Couldn't open $filepart to write";
        binmode FW;
        print FW replaceheader($i);
        my $fb = filesbegin($i);
        my $fe = filesend($i);
        for(my $f=$fb; $f<=$fe; $f++)
            {
            print FW replacefiles($f);
            }        
        close FW;    
        }    
    }
    
sub filesend()
    {
    my $fileiter = shift;
    my $fend = $fileiter*$defaultappforpkg;
    if($fend>$appnum)
        {
        $fend = $appnum;
        }
    return $fend;
    }
    
sub filesbegin()
    {
    my $fileiter = shift;
    my $fbegin = ($fileiter-1)*$defaultappforpkg+1;
    return $fbegin;
    }    
    
sub replaceheader()
    {
    my $it = shift;
    my $tempbuf = $pkgbase;
    $tempbuf =~ s/REPLACE1/$it/sg;
    $it = ($it-1)*$defaultappforpkg + 1;
    my $tempuid = uid($it);
    $tempbuf =~ s/REPLACEUID/$tempuid/sg;
    return $tempbuf;
    }
    
sub replacefiles()
    {
    my $it = shift;
    my $tempbuf = $pkgfiles;
    $tempbuf =~ s/REPLACE2/$it/sg;
    return $tempbuf;
    }    
    
sub uid
    {
    my $iter = shift;
    my $uuid = $baseuid + $iter -1;
    my $hu = sprintf '%#X',  $uuid;
    $hu =~s/X/x/;
    return $hu;
    }