equal
deleted
inserted
replaced
391 print "There is only $nb_of_pdk_for_corresponding_name1 PDK with the name corresponding to the PDK name given, we can keep going!\n"; |
391 print "There is only $nb_of_pdk_for_corresponding_name1 PDK with the name corresponding to the PDK name given, we can keep going!\n"; |
392 } |
392 } |
393 else |
393 else |
394 { |
394 { |
395 print "There is $nb_of_pdk_for_corresponding_name1 PDKs with the same name, please select one in the list above and run the perl script again with the right PDK name\n"; |
395 print "There is $nb_of_pdk_for_corresponding_name1 PDKs with the same name, please select one in the list above and run the perl script again with the right PDK name\n"; |
396 exit(0); |
|
397 } |
396 } |
398 |
397 |
399 #extract PDK name if only one |
398 #extract PDK name if only one |
400 $pdk1_correct_name_to_use = $find_pdk_for_corresponding_name1[0]; |
|
401 $pdk_path1 .= @find_pdk_for_corresponding_name1[0]; |
|
402 print "pdkname1 = $pdkname1\n"; |
399 print "pdkname1 = $pdkname1\n"; |
|
400 $pdk1_correct_name_to_use = $pdkname1; |
|
401 $pdk_path1 .= $pdkname1; |
403 } |
402 } |
404 print "The PDK used is: $pdk1_correct_name_to_use\n"; |
403 print "The PDK used is: $pdk1_correct_name_to_use\n"; |
405 print "pdk_path1 = $pdk_path1\n"; |
404 print "pdk_path1 = $pdk_path1\n"; |
406 } |
405 } |
407 |
406 |
460 print "There is only $nb_of_pdk_for_corresponding_name2 PDK with the name corresponding to the PDK name given, we can keep going!\n"; |
459 print "There is only $nb_of_pdk_for_corresponding_name2 PDK with the name corresponding to the PDK name given, we can keep going!\n"; |
461 } |
460 } |
462 else |
461 else |
463 { |
462 { |
464 print "There is $nb_of_pdk_for_corresponding_name2 PDKs with the same name, please select one in the list above and run the perl script again with the right PDK name\n"; |
463 print "There is $nb_of_pdk_for_corresponding_name2 PDKs with the same name, please select one in the list above and run the perl script again with the right PDK name\n"; |
465 exit(0); |
|
466 } |
464 } |
467 |
465 |
468 #extract PDK name if only one |
466 #extract PDK name if only one |
469 $pdk2_correct_name_to_use = $find_pdk_for_corresponding_name2[0]; |
|
470 $pdk_path2 .= @find_pdk_for_corresponding_name2[0]; |
|
471 print "pdkname2 = $pdkname2\n"; |
467 print "pdkname2 = $pdkname2\n"; |
|
468 $pdk2_correct_name_to_use = $pdkname2; |
|
469 $pdk_path2 .= $pdkname2; |
472 } |
470 } |
473 print "The PDK used is: $pdk2_correct_name_to_use\n"; |
471 print "The PDK used is: $pdk2_correct_name_to_use\n"; |
474 print "pdk_path2 = $pdk_path2\n"; |
472 print "pdk_path2 = $pdk_path2\n"; |
475 } |
473 } |
476 |
474 |
872 print "Formula used is: total_packages_pdk2 = total_very_good_mcl + total_new_fcl + total_no_more_fcl + total_still_fcl + total_packages_added = total\n"; |
870 print "Formula used is: total_packages_pdk2 = total_very_good_mcl + total_new_fcl + total_no_more_fcl + total_still_fcl + total_packages_added = total\n"; |
873 print "$total_packages_pdk2 = $total_very_good_mcl + $total_new_fcl + $total_no_more_fcl + $total_still_fcl + $total_packages_added - $total_packages_removed= ", ($total_very_good_mcl + $total_new_fcl + $total_no_more_fcl + $total_still_fcl + $total_packages_added - $total_packages_removed), "\n"; |
871 print "$total_packages_pdk2 = $total_very_good_mcl + $total_new_fcl + $total_no_more_fcl + $total_still_fcl + $total_packages_added - $total_packages_removed= ", ($total_very_good_mcl + $total_new_fcl + $total_no_more_fcl + $total_still_fcl + $total_packages_added - $total_packages_removed), "\n"; |
874 print "\n"; |
872 print "\n"; |
875 |
873 |
876 # 5th step is to create a txt file ready to be used for the release notes in a media wiki format. |
874 # 5th step is to create a txt file ready to be used for the release notes in a media wiki format. |
|
875 #$path_to_file_to_publish = "c:\\temp\\releaseNotes\.wiki\.txt"; |
|
876 $path_to_file_to_publish = "\\\\Lon-engbuild87\\d\$\\fbf_job\\symbian3_FCL\.split\.117\\output\\logs\\releaseNotes\.wiki\.txt"; |
877 open(FCLCOMPARISONFILE, ">$path_to_file_to_publish"); # !!!!! First time we are accessing the file, therefore create it or replace it, AFTR THAT WE NEED TO APPEND IT ONLY!!!!! |
877 open(FCLCOMPARISONFILE, ">$path_to_file_to_publish"); # !!!!! First time we are accessing the file, therefore create it or replace it, AFTR THAT WE NEED TO APPEND IT ONLY!!!!! |
878 |
878 |
879 my $val; |
879 my $val; |
880 |
880 |
881 # Enter the beginning of the section for general information about the pdk and it's predecessor. |
881 # Enter the beginning of the section for general information about the pdk and it's predecessor. |
1029 |
1029 |
1030 $system_cmd = "rmdir /S /Q $working_dir"; |
1030 $system_cmd = "rmdir /S /Q $working_dir"; |
1031 print "Exec: $system_cmd\n"; |
1031 print "Exec: $system_cmd\n"; |
1032 system($system_cmd); |
1032 system($system_cmd); |
1033 |
1033 |
|
1034 exit(0); |
1034 ## |
1035 ## |
1035 ### End of the program!!! |
1036 ### End of the program!!! |
1036 ## |
1037 ## |
1037 |
1038 |
1038 |
1039 |