38be0d1383
This is the beginning of revision history for this module. If you want to look at revision history older than this, please refer to the Qt Git wiki for how to use Git history grafting. At the time of writing, this wiki is located here: http://qt.gitorious.org/qt/pages/GitIntroductionWithQt If you have already performed the grafting and you don't see any history beyond this commit, try running "git log" with the "--follow" argument. Branched from the monolithic repo, Qt master branch, at commit 896db169ea224deb96c59ce8af800d019de63f12
434 lines
16 KiB
Perl
Executable File
434 lines
16 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
#############################################################################
|
|
##
|
|
## Copyright (C) 2011 Nokia Corporation and/or its subsidiary(-ies).
|
|
## All rights reserved.
|
|
## Contact: Nokia Corporation (qt-info@nokia.com)
|
|
##
|
|
## This file is part of the S60 port of the Qt Toolkit.
|
|
##
|
|
## $QT_BEGIN_LICENSE:LGPL$
|
|
## No Commercial Usage
|
|
## This file contains pre-release code and may not be distributed.
|
|
## You may use this file in accordance with the terms and conditions
|
|
## contained in the Technology Preview License Agreement accompanying
|
|
## this package.
|
|
##
|
|
## GNU Lesser General Public License Usage
|
|
## Alternatively, this file may be used under the terms of the GNU Lesser
|
|
## General Public License version 2.1 as published by the Free Software
|
|
## Foundation and appearing in the file LICENSE.LGPL included in the
|
|
## packaging of this file. Please review the following information to
|
|
## ensure the GNU Lesser General Public License version 2.1 requirements
|
|
## will be met: http://www.gnu.org/licenses/old-licenses/lgpl-2.1.html.
|
|
##
|
|
## In addition, as a special exception, Nokia gives you certain additional
|
|
## rights. These rights are described in the Nokia Qt LGPL Exception
|
|
## version 1.1, included in the file LGPL_EXCEPTION.txt in this package.
|
|
##
|
|
## If you have questions regarding the use of this file, please contact
|
|
## Nokia at qt-info@nokia.com.
|
|
##
|
|
##
|
|
##
|
|
##
|
|
##
|
|
##
|
|
##
|
|
##
|
|
## $QT_END_LICENSE$
|
|
##
|
|
#############################################################################
|
|
|
|
############################################################################################
|
|
#
|
|
# Convenience script for creating signed packages you can install on your phone.
|
|
#
|
|
############################################################################################
|
|
|
|
use strict;
|
|
|
|
# use a command-line parsing module
|
|
use Getopt::Long;
|
|
# Use file name parsing module
|
|
use File::Basename;
|
|
# Use File::Spec services mainly rel2abs
|
|
use File::Spec;
|
|
# Use File::Path - to make stub sis target directory
|
|
use File::Path;
|
|
# use CWD abs_bath, which is exported only on request
|
|
use Cwd 'abs_path';
|
|
use File::Copy;
|
|
|
|
sub Usage() {
|
|
print <<ENDUSAGESTRING;
|
|
|
|
==============================================================================================
|
|
Convenience script for creating signed packages you can install on your phone.
|
|
|
|
Usage: createpackage.pl [options] templatepkg [target]-[platform] [certificate key [passphrase]]
|
|
|
|
Where supported options are as follows:
|
|
[-i|install] = Install the package right away using PC suite.
|
|
[-p|preprocess] = Only preprocess the template .pkg file.
|
|
[-c|certfile <file>] = The file containing certificate information for signing.
|
|
The file can have several certificates, each specified in
|
|
separate line. The certificate, key and passphrase in line
|
|
must be ';' separated. Lines starting with '#' are treated
|
|
as a comments. Also empty lines are ignored. The paths in
|
|
<file> can be absolute or relative to <file>.
|
|
[-u|unsigned] = Preserves the unsigned package.
|
|
[-o|only-unsigned] = Creates only unsigned package.
|
|
[-s|stub] = Generates stub sis for ROM.
|
|
[-n|sisname <name>] = Specifies the final sis name.
|
|
[-g|gcce-is-armv5] = Convert gcce platform to armv5.
|
|
[-d|dont-patch] = Skip automatic patching of capabilities and pkg file if default certificate
|
|
is used. Instead non-self-signable capabilities just cause warnings.
|
|
[-t|tmp-dir <path>] = Specifies temporary directory to be used for package creation.
|
|
Defaults to 'createpackage_tmp' under same directory as templatepkg.
|
|
Where parameters are as follows:
|
|
templatepkg = Name of .pkg file template
|
|
target = Either debug or release
|
|
platform = One of the supported platform
|
|
winscw | gcce | armv5 | armv6 | armv7
|
|
Note that when packaging binaries built using gcce and symbian-sbsv2
|
|
mkspec, armv5 must be used for platform instead of gcce.
|
|
certificate = The certificate file used for signing
|
|
key = The certificate's private key file
|
|
passphrase = The passphrase of the certificate's private key file
|
|
|
|
Example:
|
|
createpackage.pl fluidlauncher_template.pkg release-armv5
|
|
|
|
Example with certfile:
|
|
createpackage.pl -c=mycerts.txt fluidlauncher_template.pkg release-armv5
|
|
|
|
Content of 'mycerts.txt' must be something like this:
|
|
# This is comment line, also the empty lines are ignored
|
|
rd.cer;rd-key.pem
|
|
.\\cert\\mycert.cer;.\\cert\\mykey.key;yourpassword
|
|
X:\\QtS60\\s60installs\\selfsigned.cer;X:\\QtS60\\s60installs\\selfsigned.key
|
|
|
|
If no certificate and key files are provided, either a RnD certificate or
|
|
a self-signed certificate from QtDir\\src\\s60installs directory is used.
|
|
In the latter case the resulting package will also be automatically patched
|
|
using patch_capabilities.pl script, which makes it unsuitable for distribution.
|
|
Always specify certificates explicitly if you wish to distribute your package.
|
|
|
|
==============================================================================================
|
|
|
|
ENDUSAGESTRING
|
|
|
|
exit();
|
|
}
|
|
|
|
# Read given options
|
|
my $install = "";
|
|
my $preprocessonly = "";
|
|
my $certfile = "";
|
|
my $preserveUnsigned = "";
|
|
my $stub = "";
|
|
my $signed_sis_name = "";
|
|
my $onlyUnsigned = "";
|
|
my $convertGcce = "";
|
|
my $dontPatchCaps = "";
|
|
my $tempPackageDir = "";
|
|
|
|
unless (GetOptions('i|install' => \$install,
|
|
'p|preprocess' => \$preprocessonly,
|
|
'c|certfile=s' => \$certfile,
|
|
'u|unsigned' => \$preserveUnsigned,
|
|
'o|only-unsigned' => \$onlyUnsigned,
|
|
's|stub' => \$stub,
|
|
'n|sisname=s' => \$signed_sis_name,
|
|
'g|gcce-is-armv5' => \$convertGcce,
|
|
'd|dont-patch' => \$dontPatchCaps,
|
|
't|tmp-dir=s' => \$tempPackageDir,)) {
|
|
Usage();
|
|
}
|
|
|
|
my $epocroot = $ENV{EPOCROOT};
|
|
my $epocToolsDir = "";
|
|
if ($epocroot ne "") {
|
|
$epocroot =~ s,\\,/,g;
|
|
if ($epocroot =~ m,[^/]$,) {
|
|
$epocroot = $epocroot."/";
|
|
}
|
|
$epocToolsDir = "${epocroot}epoc32/tools/";
|
|
}
|
|
|
|
my $certfilepath = abs_path(dirname($certfile));
|
|
|
|
# Read params to variables
|
|
my $templatepkg = $ARGV[0];
|
|
my $targetplatform = lc $ARGV[1];
|
|
|
|
if ($targetplatform eq "") {
|
|
$targetplatform = "-";
|
|
}
|
|
|
|
my @tmpvalues = split('-', $targetplatform);
|
|
my $target;
|
|
$target = $tmpvalues[0] or $target = "";
|
|
my $platform;
|
|
$platform = $tmpvalues[1] or $platform = "";
|
|
|
|
if ($platform =~ m/^gcce$/i) {
|
|
if (($convertGcce ne "")) {
|
|
$platform = "armv5";
|
|
} elsif ($ENV{SBS_HOME}) {
|
|
# Print a informative note in case suspected misuse is detected.
|
|
print "\nNote: You should use armv5 as platform or specify -g parameter to convert platform\n";
|
|
print " when packaging gcce binaries built using symbian-sbsv2 mkspec.\n\n";
|
|
}
|
|
}
|
|
|
|
# Convert visual target to real target (debug->udeb and release->urel)
|
|
$target =~ s/debug/udeb/i;
|
|
$target =~ s/release/urel/i;
|
|
|
|
my $certificate;
|
|
$certificate = $ARGV[2] or $certificate = "";
|
|
my $key;
|
|
$key = $ARGV[3] or $key = "";
|
|
my $passphrase;
|
|
$passphrase = $ARGV[4] or $passphrase = "";
|
|
|
|
if ($tempPackageDir eq "") {
|
|
my ($templateVolume, $templatePath, $templateFileName) = File::Spec->splitpath($templatepkg);
|
|
$tempPackageDir = File::Spec->catpath($templateVolume, $templatePath."createpackage_tmp", "");
|
|
}
|
|
|
|
mkpath($tempPackageDir);
|
|
|
|
# Generate output pkg basename (i.e. file name without extension)
|
|
my $pkgoutputbasename = $templatepkg;
|
|
$pkgoutputbasename =~ s/_template/_$targetplatform/g;
|
|
$pkgoutputbasename =~ s/_installer\.pkg/_installer___temp\.pkg/g;
|
|
$pkgoutputbasename =~ s/\.pkg//g;
|
|
|
|
# Store output file names to variables
|
|
my ($dummy1, $dummy2, $pkgoutput) = File::Spec->splitpath($pkgoutputbasename.".pkg");
|
|
$pkgoutput = $tempPackageDir."/".$pkgoutput;
|
|
my $sisoutputbasename;
|
|
if ($signed_sis_name eq "") {
|
|
$sisoutputbasename = $pkgoutputbasename;
|
|
$sisoutputbasename =~ s/_$targetplatform//g;
|
|
$sisoutputbasename =~ s/_installer___temp/_installer/g;
|
|
$signed_sis_name = $sisoutputbasename.".sis";
|
|
} else {
|
|
$sisoutputbasename = $signed_sis_name;
|
|
if ($sisoutputbasename =~ m/(\.sis$|\.sisx$)/i) {
|
|
$sisoutputbasename =~ s/$1//i;
|
|
} else {
|
|
$signed_sis_name = $signed_sis_name.".sis";
|
|
}
|
|
}
|
|
|
|
my $installer_unsigned_app_sis_name = "";
|
|
my $installer_app_sis_name = "";
|
|
|
|
if ($templatepkg =~ m/_installer\.pkg$/i && $onlyUnsigned) {
|
|
$installer_unsigned_app_sis_name = $templatepkg;
|
|
$installer_unsigned_app_sis_name =~ s/_installer.pkg$/_unsigned.sis/i;
|
|
$installer_app_sis_name = $installer_unsigned_app_sis_name;
|
|
$installer_app_sis_name =~ s/_unsigned.sis$/.sis/;
|
|
}
|
|
|
|
my $unsigned_sis_name = $sisoutputbasename."_unsigned.sis";
|
|
my $stub_sis_name = $sisoutputbasename.".sis";
|
|
|
|
# Store some utility variables
|
|
my $scriptpath = dirname(__FILE__);
|
|
my $certtext = $certificate;
|
|
# certificates are one step up in hierarchy
|
|
my $certpath = File::Spec->catdir($scriptpath, File::Spec->updir(), "src/s60installs/");
|
|
|
|
# Check some pre-conditions and print error messages if needed.
|
|
unless (length($templatepkg)) {
|
|
print "\nERROR: Template PKG filename is not defined!\n";
|
|
Usage();
|
|
}
|
|
|
|
# Check template exist
|
|
stat($templatepkg);
|
|
unless( -e _ ) {
|
|
print "\nERROR: Package description file '$templatepkg' does not exist!\n";
|
|
Usage();
|
|
}
|
|
|
|
# Check certifcate preconditions and set default certificate variables if needed
|
|
if (length($certificate)) {
|
|
unless(length($key)) {
|
|
print "\nERROR: Custom certificate key file parameter missing.!\n";
|
|
Usage();
|
|
}
|
|
} else {
|
|
#If no certificate is given, check default options
|
|
$certtext = "RnD";
|
|
$certificate = File::Spec->catfile($certpath, "rd.cer");
|
|
$key = File::Spec->catfile($certpath, "rd-key.pem");
|
|
|
|
stat($certificate);
|
|
unless( -e _ ) {
|
|
$certtext = "Self Signed";
|
|
$certificate = File::Spec->catfile($certpath, "selfsigned.cer");
|
|
$key = File::Spec->catfile($certpath, "selfsigned.key");
|
|
}
|
|
}
|
|
|
|
# Read the certificates from file to two dimensional array
|
|
my @certificates;
|
|
if (length($certfile)) {
|
|
open CERTFILE, "<$certfile" or die $!;
|
|
while(<CERTFILE>){
|
|
s/#.*//; # ignore comments by erasing them
|
|
next if /^(\s)*$/; # skip blank lines
|
|
chomp; # remove trailing newline characters
|
|
my @certinfo = split(';', $_); # split row to certinfo
|
|
|
|
# Trim spaces
|
|
for(@certinfo) {
|
|
s/^\s+//;
|
|
s/\s+$//;
|
|
}
|
|
|
|
# Do some validation
|
|
unless(scalar(@certinfo) >= 2 && scalar(@certinfo) <= 3 && length($certinfo[0]) && length($certinfo[1]) ) {
|
|
print "\nERROR: $certfile line '$_' does not contain valid information!\n";
|
|
Usage();
|
|
}
|
|
|
|
push @certificates, [@certinfo]; # push data to two dimensional array
|
|
}
|
|
}
|
|
|
|
# Remove any existing .sis packages
|
|
unlink $unsigned_sis_name;
|
|
if (!$onlyUnsigned) {
|
|
unlink $signed_sis_name;
|
|
}
|
|
unlink $pkgoutput;
|
|
|
|
# Preprocess PKG
|
|
|
|
local $/;
|
|
# read template file
|
|
open( TEMPLATE, $templatepkg) or die "ERROR: '$templatepkg': $!";
|
|
$_=<TEMPLATE>;
|
|
close (TEMPLATE);
|
|
|
|
# If the pkg file does not contain macros, there is no need for platform or target.
|
|
if (m/\$\(PLATFORM\)/) {
|
|
unless (length($platform) && length($target)) {
|
|
print "\nERROR: Platform or target is not defined!\n";
|
|
Usage();
|
|
}
|
|
}
|
|
|
|
# replace the PKG variables
|
|
s/\$\(PLATFORM\)/$platform/gm;
|
|
s/\$\(TARGET\)/$target/gm;
|
|
|
|
if ($installer_unsigned_app_sis_name ne "") {
|
|
s/$installer_app_sis_name\"/$installer_unsigned_app_sis_name\"/;
|
|
}
|
|
|
|
#write the output
|
|
open( OUTPUT, ">$pkgoutput" ) or die "ERROR: '$pkgoutput' $!";
|
|
print OUTPUT $_;
|
|
close OUTPUT;
|
|
|
|
if ($preprocessonly) {
|
|
# Copy preprocessed file from tmp dir to pkg file dir
|
|
my ($templateVolume, $templatePath, $templateFileName) = File::Spec->splitpath($templatepkg);
|
|
my ($dummy1, $dummy2, $copyFileName) = File::Spec->splitpath($pkgoutput);
|
|
my $copyTarget = File::Spec->catpath($templateVolume, $templatePath, $copyFileName);
|
|
copy($pkgoutput, $copyTarget) or die "Preprocessed pkg file '$pkgoutput' cannot be copied.";
|
|
exit;
|
|
}
|
|
|
|
if($stub) {
|
|
if(!($epocroot)) { die("ERROR: EPOCROOT must be set to create stub sis files"); }
|
|
my $systeminstall = "${epocroot}epoc32/data/z/system/install";
|
|
mkpath($systeminstall);
|
|
my $stub_sis_name = $systeminstall."/".$stub_sis_name;
|
|
# Create stub SIS.
|
|
system ("${epocToolsDir}makesis -s $pkgoutput $stub_sis_name");
|
|
} else {
|
|
if ($certtext eq "Self Signed"
|
|
&& !@certificates
|
|
&& $templatepkg !~ m/_installer\.pkg$/i
|
|
&& !$onlyUnsigned) {
|
|
my $patch_capabilities = File::Spec->catfile(dirname($0), "patch_capabilities");
|
|
if ($dontPatchCaps) {
|
|
system ("$patch_capabilities -c $pkgoutput") and print ("Warning: Package check for self-signing viability failed. Installing the package on a device will most likely fail!\n\n");
|
|
} else {
|
|
print("Auto-patching self-signed package.\n");
|
|
system ("$patch_capabilities -t $tempPackageDir $pkgoutput") and die ("ERROR: Automatic patching failed");
|
|
}
|
|
}
|
|
|
|
# Create SIS.
|
|
# The 'and' is because system uses 0 to indicate success.
|
|
system ("${epocToolsDir}makesis $pkgoutput $unsigned_sis_name") and die ("ERROR: makesis failed");
|
|
|
|
print("\n");
|
|
|
|
my $targetInsert = "";
|
|
if ($targetplatform ne "-") {
|
|
$targetInsert = " for $targetplatform";
|
|
}
|
|
|
|
if ($onlyUnsigned) {
|
|
stat($unsigned_sis_name);
|
|
if( -e _ ) {
|
|
print ("Successfully created unsigned package ${unsigned_sis_name}${targetInsert}!\n");
|
|
} else {
|
|
print ("\nUnsigned package creation failed!\n");
|
|
}
|
|
|
|
print ("\n");
|
|
exit;
|
|
}
|
|
|
|
# Sign SIS with certificate info given as an argument.
|
|
my $relcert = File::Spec->abs2rel($certificate);
|
|
my $relkey = File::Spec->abs2rel($key);
|
|
# The 'and' is because system uses 0 to indicate success.
|
|
system ("${epocToolsDir}signsis $unsigned_sis_name $signed_sis_name $relcert $relkey $passphrase") and die ("ERROR: signsis failed");
|
|
|
|
# Check if creating signed SIS Succeeded
|
|
stat($signed_sis_name);
|
|
if( -e _ ) {
|
|
print ("Successfully created signed package ${signed_sis_name}${targetInsert} using certificate: $certtext!\n");
|
|
|
|
# Sign with additional certificates & keys
|
|
for my $row ( @certificates ) {
|
|
# Get certificate absolute file names, relative paths are relative to certfilepath
|
|
my $relcert = File::Spec->abs2rel(File::Spec->rel2abs( $row->[0], $certfilepath));
|
|
my $relkey = File::Spec->abs2rel(File::Spec->rel2abs( $row->[1], $certfilepath));
|
|
|
|
system ("${epocToolsDir}signsis $signed_sis_name $signed_sis_name $relcert $relkey $row->[2]");
|
|
print ("\tAdditionally signed the SIS with certificate: $row->[0]!\n");
|
|
}
|
|
|
|
# remove temporary unsigned sis
|
|
if (!$preserveUnsigned) {
|
|
unlink $unsigned_sis_name;
|
|
}
|
|
|
|
# Install the sis if requested
|
|
if ($install) {
|
|
print ("\nInstalling $signed_sis_name...\n");
|
|
system ("$signed_sis_name");
|
|
}
|
|
} else {
|
|
# Lets leave the generated PKG for problem solving purposes
|
|
print ("\nSIS creation failed!\n");
|
|
}
|
|
print ("\n");
|
|
}
|
|
|
|
#end of file
|