common/tools/ats/make_junction.pl
author Simon Howkins <simonh@symbian.org>
Mon, 05 Oct 2009 10:20:32 +0100
changeset 578 75fa4158340a
parent 152 9b92bfde63bf
permissions -rw-r--r--
Fixed handling or regular expression strings, so the regular expression functiuonality works, not just substring detection! Added special handling if the severity marker is "ignore". Unsuprisingly, it ignores that line.
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
99
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
     1
#!/usr/bin/perl
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
     2
113
7f0174848f99 Adding license boilerplate to perl scripts.
Mike Kinghan <mikek@symbian.org>
parents: 99
diff changeset
     3
# Copyright (c) 2009 Symbian Foundation Ltd
7f0174848f99 Adding license boilerplate to perl scripts.
Mike Kinghan <mikek@symbian.org>
parents: 99
diff changeset
     4
# This component and the accompanying materials are made available
7f0174848f99 Adding license boilerplate to perl scripts.
Mike Kinghan <mikek@symbian.org>
parents: 99
diff changeset
     5
# under the terms of the License "Eclipse Public License v1.0"
7f0174848f99 Adding license boilerplate to perl scripts.
Mike Kinghan <mikek@symbian.org>
parents: 99
diff changeset
     6
# which accompanies this distribution, and is available
7f0174848f99 Adding license boilerplate to perl scripts.
Mike Kinghan <mikek@symbian.org>
parents: 99
diff changeset
     7
# at the URL "http://www.eclipse.org/legal/epl-v10.html".
7f0174848f99 Adding license boilerplate to perl scripts.
Mike Kinghan <mikek@symbian.org>
parents: 99
diff changeset
     8
#
7f0174848f99 Adding license boilerplate to perl scripts.
Mike Kinghan <mikek@symbian.org>
parents: 99
diff changeset
     9
# Initial Contributors:
7f0174848f99 Adding license boilerplate to perl scripts.
Mike Kinghan <mikek@symbian.org>
parents: 99
diff changeset
    10
# Symbian Foundation Ltd - initial contribution.
7f0174848f99 Adding license boilerplate to perl scripts.
Mike Kinghan <mikek@symbian.org>
parents: 99
diff changeset
    11
#   Mike Kinghan, mikek@symbian.org
7f0174848f99 Adding license boilerplate to perl scripts.
Mike Kinghan <mikek@symbian.org>
parents: 99
diff changeset
    12
#
7f0174848f99 Adding license boilerplate to perl scripts.
Mike Kinghan <mikek@symbian.org>
parents: 99
diff changeset
    13
# Contributors:
7f0174848f99 Adding license boilerplate to perl scripts.
Mike Kinghan <mikek@symbian.org>
parents: 99
diff changeset
    14
#
7f0174848f99 Adding license boilerplate to perl scripts.
Mike Kinghan <mikek@symbian.org>
parents: 99
diff changeset
    15
# Description:
7f0174848f99 Adding license boilerplate to perl scripts.
Mike Kinghan <mikek@symbian.org>
parents: 99
diff changeset
    16
#   This is a tool for sending an ATS3 testdrop to an ATS3 server.
7f0174848f99 Adding license boilerplate to perl scripts.
Mike Kinghan <mikek@symbian.org>
parents: 99
diff changeset
    17
99
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
    18
use strict;
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
    19
use Getopt::Long;
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
    20
use File::Spec;
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
    21
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
    22
my $link;
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
    23
my $target;
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
    24
my $help;
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
    25
my $force = 0;
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
    26
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
    27
sub usage($);
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
    28
sub help();
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
    29
sub usage_error();
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
    30
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
    31
my %optmap = (  'link' => \$link,
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
    32
			    'target' => \$target,
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
    33
			    'force' => \$force, 
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
    34
                'help' => \$help);
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
    35
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
    36
GetOptions(\%optmap,
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
    37
          'link=s',
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
    38
          'target=s',
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
    39
          'force!',
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
    40
          'help!') 
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
    41
          or usage_error();
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
    42
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
    43
if ($help) {
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
    44
	help();
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
    45
}
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
    46
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
    47
usage_error(), unless (defined($link) && defined($target));
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
    48
152
9b92bfde63bf Applied the /accepteula option to all calls to junction so that it will never stall a build waiting for the user to accept the EULA,
Mike Kinghan <mikek@symbian.org>
parents: 113
diff changeset
    49
my $junction_help = `junction /accepteula /?`;
99
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
    50
die("Need command \"junction\". Not found\n"), if ($junction_help =~ /is not recognised/);
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
    51
die("Directory \"$target\" not found\n"), unless -d "$target";
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
    52
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
    53
my ($vol,$dir,$file) = File::Spec->splitpath($target);
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
    54
my @subst_lines = `subst`;
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
    55
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
    56
foreach (@subst_lines) {
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
    57
    my $line = $_;
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
    58
    chomp($line);
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
    59
    $line =~ /^(.:)\\: => (.*)$/;
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
    60
    die("Cannot parse output of 'subst'. Bailing out confused."), unless (defined($1) and defined($2));    
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
    61
    my $subst_drive = $1;
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
    62
    my $subst_targ = $2;
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
    63
    if (lc($subst_drive) eq lc($vol)) {
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
    64
        print("Target $target is in a substituted drive: $line\n");
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
    65
        $target = File::Spec->catfile(($subst_targ,$dir),$file);
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
    66
        print("Target $target will be used\n");
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
    67
        last;
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
    68
    }
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
    69
}
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
    70
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
    71
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
    72
if ( -e "$link") {
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
    73
    print("\"$link\" already exists. ");
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
    74
    if (!$force) {
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
    75
        my $choice;
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
    76
        while($choice ne 'y' and $choice ne 'n') {
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
    77
            print "Delete? (y/n)? ";
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
    78
            $choice = <STDIN>;
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
    79
            chomp($choice);
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
    80
            $choice = lc($choice);
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
    81
        }
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
    82
        $force = $choice eq 'y';
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
    83
    }    
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
    84
    if ($force) {
152
9b92bfde63bf Applied the /accepteula option to all calls to junction so that it will never stall a build waiting for the user to accept the EULA,
Mike Kinghan <mikek@symbian.org>
parents: 113
diff changeset
    85
        system("junction /accepteula -d \"$link\" > nul");
99
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
    86
        if ($?) {
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
    87
            die("Cannot delete \"$link\": $!\n");
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
    88
        }
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
    89
        else {
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
    90
            print "Deleted \"$link\"\n";
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
    91
        }
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
    92
    }
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
    93
} 
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
    94
152
9b92bfde63bf Applied the /accepteula option to all calls to junction so that it will never stall a build waiting for the user to accept the EULA,
Mike Kinghan <mikek@symbian.org>
parents: 113
diff changeset
    95
system("junction /accepteula \"$link\" \"$target\" > nul");
99
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
    96
if ($?) {
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
    97
    die("Cannot cteate junction \"$link\" -> \"$target\": $!\n");
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
    98
}
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
    99
else {
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
   100
    print("Created junction \"$link\" -> \"$target\"\n");
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
   101
}
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
   102
exit 0;
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
   103
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
   104
sub usage($)
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
   105
{
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
   106
    my $error = shift;
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
   107
    my $fh = $error == 0 ? *STDOUT : *STDERR;
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
   108
    print $fh "make_junction.pl\n" .
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
   109
            "Create a Windows junction (a.k.a symbolic link)\n" .
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
   110
            "usage:\n" .
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
   111
            "  make_junction.pl --help\n" .
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
   112
            "  make_junction.pl --link=LINKDIR --target=TARGDIR\n " .
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
   113
            "options:\n" .
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
   114
            "  --help                        Display this help and exit\n" .
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
   115
            "  --link=LINKDIR                LINKDIR specifies the junction to be created. Last component is the junction. The rest must exist\n" .
113
7f0174848f99 Adding license boilerplate to perl scripts.
Mike Kinghan <mikek@symbian.org>
parents: 99
diff changeset
   116
            "                                If LINKDIR is an existing junction it is pre-emptively deleted\n" .
99
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
   117
            "  --target=TARGDIR              TARGDIR is directory to which the junction will point.\n" .
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
   118
            "                                If TARGDIR is in a substed drive, the real path will be used.\n";
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
   119
    exit $error;            
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
   120
}
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
   121
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
   122
sub help()
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
   123
{
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
   124
    usage(0);
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
   125
}
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
   126
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
   127
sub usage_error()
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
   128
{
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
   129
    usage(1);
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
   130
}             
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
   131
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
   132
# EOF
2c7b53b5228f Add ATS test client target <sf-send-testpkg> to default configuration. Default is off.
Shabe Razvi <shaber@symbian.org>
parents:
diff changeset
   133