equal
deleted
inserted
replaced
|
1 # |
|
2 # Copyright (c) 2009 Nokia Corporation and/or its subsidiary(-ies). |
|
3 # All rights reserved. |
|
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 # Nokia Corporation - initial contribution. |
|
11 # |
|
12 # Contributors: |
|
13 # |
|
14 # Description: |
|
15 # |
|
16 |
|
17 $pkgfile = $ARGV[0]; |
|
18 |
|
19 |
|
20 #presumable comment mark |
|
21 |
|
22 print "file:$filu\n"; |
|
23 |
|
24 # Read file template |
|
25 open(IN, "$pkgfile") or die "Cannot open file $pkgfile $_"; |
|
26 @template = <IN>; |
|
27 close (IN); |
|
28 |
|
29 foreach $line (@template) { |
|
30 #print $line; |
|
31 if ($line =~ /\"(\S+?dll)\"/gi) { |
|
32 $dll = $1; |
|
33 print "Elftrania: $dll\n"; |
|
34 system("Elftran -version 10.1 $dll"); |
|
35 } |
|
36 else{ |
|
37 |
|
38 } |
|
39 } |