equal
deleted
inserted
replaced
1 #!/usr/bin/perl |
1 #!/usr/bin/perl |
|
2 |
|
3 # Copyright (c) 2009 Symbian Foundation Ltd |
|
4 # This component and the accompanying materials are made available |
|
5 # under the terms of the License "Eclipse Public License v1.0" |
|
6 # which accompanies this distribution, and is available |
|
7 # at the URL "http://www.eclipse.org/legal/epl-v10.html". |
|
8 # |
|
9 # Initial Contributors: |
|
10 # Symbian Foundation Ltd - initial contribution. |
|
11 # Mike Kinghan, mikek@symbian.org |
|
12 # |
|
13 # Contributors: |
|
14 # |
|
15 # Description: |
|
16 # This is a tool for sending an ATS3 testdrop to an ATS3 server. |
2 |
17 |
3 use strict; |
18 use strict; |
4 use Getopt::Long; |
19 use Getopt::Long; |
5 use File::Spec; |
20 use File::Spec; |
6 |
21 |
96 " make_junction.pl --help\n" . |
111 " make_junction.pl --help\n" . |
97 " make_junction.pl --link=LINKDIR --target=TARGDIR\n " . |
112 " make_junction.pl --link=LINKDIR --target=TARGDIR\n " . |
98 "options:\n" . |
113 "options:\n" . |
99 " --help Display this help and exit\n" . |
114 " --help Display this help and exit\n" . |
100 " --link=LINKDIR LINKDIR specifies the junction to be created. Last component is the junction. The rest must exist\n" . |
115 " --link=LINKDIR LINKDIR specifies the junction to be created. Last component is the junction. The rest must exist\n" . |
|
116 " If LINKDIR is an existing junction it is pre-emptively deleted\n" . |
101 " --target=TARGDIR TARGDIR is directory to which the junction will point.\n" . |
117 " --target=TARGDIR TARGDIR is directory to which the junction will point.\n" . |
102 " If TARGDIR is in a substed drive, the real path will be used.\n"; |
118 " If TARGDIR is in a substed drive, the real path will be used.\n"; |
103 exit $error; |
119 exit $error; |
104 } |
120 } |
105 |
121 |