equal
deleted
inserted
replaced
1 #! perl |
1 #! perl |
2 |
2 |
3 # Copyright (c) 2009 Symbian Foundation Ltd |
3 # Copyright (c) 2009-2010 Symbian Foundation Ltd |
4 # This component and the accompanying materials are made available |
4 # This component and the accompanying materials are made available |
5 # under the terms of the License "Eclipse Public License v1.0" |
5 # under the terms of the License "Eclipse Public License v1.0" |
6 # which accompanies this distribution, and is available |
6 # which accompanies this distribution, and is available |
7 # at the URL "http://www.eclipse.org/legal/epl-v10.html". |
7 # at the URL "http://www.eclipse.org/legal/epl-v10.html". |
8 # |
8 # |
309 { |
309 { |
310 $line = $1; # discard the wrapping |
310 $line = $1; # discard the wrapping |
311 $revision = $3; |
311 $revision = $3; |
312 } |
312 } |
313 |
313 |
|
314 # sources.csv format |
|
315 # http://developer.symbian.org/oss/FCL/sf/app/browserui/,/sf/app/browserui,tag,tip_bulk,layers.sysdef.xml |
|
316 # http://developer.symbian.org/oss/FCL/sf/app/browserui/,/sf/app/browserui,changeset,e086c7f635d5,layers.sysdef.xml |
|
317 if ($line =~ /^(http[^,]+),(\S+),\S+,(\S+),\S*$/) |
|
318 { |
|
319 $line = $1; |
|
320 $revision = $3; |
|
321 } |
|
322 |
314 # Look for the oss/MCL/ prefix to a path e.g. |
323 # Look for the oss/MCL/ prefix to a path e.g. |
315 # https://developer.symbian.org/oss/FCL/interim/contrib/WidgetExamples |
324 # https://developer.symbian.org/oss/FCL/interim/contrib/WidgetExamples |
316 if ($line =~ /((oss|sfl)\/(FCL|MCL)\/.*)\s*$/) |
325 if ($line =~ /((oss|sfl)\/(FCL|MCL)\/.*)\s*$/) |
317 { |
326 { |
318 my $repo_path = $1; |
327 my $repo_path = $1; |