--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/sdkcreationmw/sdkbuild/SDK_WINSCW/Remote_utils.pm Mon Mar 08 12:09:11 2010 +0530
@@ -0,0 +1,518 @@
+#
+# Copyright (c) 2009 Nokia Corporation and/or its subsidiary(-ies).
+# All rights reserved.
+# This component and the accompanying materials are made available
+# under the terms of "Eclipse Public License v1.0"
+# which accompanies this distribution, and is available
+# at the URL "http://www.eclipse.org/legal/epl-v10.html".
+#
+# Initial Contributors:
+# Nokia Corporation - initial contribution.
+#
+# Contributors:
+#
+# Description:
+#
+
+package Remote_utils;
+use SDK_vars;
+use SDK_utils;
+use ApiRef;
+use File::Path;
+
+use XML::Writer;
+use IO::File;
+use XML::Simple;
+
+use HTTP::Response;
+use HTTP::Request::Common qw(POST);
+use LWP::UserAgent;
+use Mail::Sendmail qw(sendmail %mailcfg);
+use Cwd;
+
+our ($VERSION, @ISA, @EXPORT);
+
+$VERSION = 1.00;
+@ISA = qw(Exporter);
+@EXPORT = qw(copy_platform reconfigure fetch_IF_sheets create_api_and_black_lists Notify_plain_mail Notify_mail beatnik fetch_capas Notify_sms);
+
+sub copy_platform {
+ my ($href) = @_;
+ enter_sub();
+
+ my $curr_dir = cwd;
+ system ("subst");
+ chdir "$$href{S60_Root}\\";
+ my $cmd = "xcopy $iniH{Getenv_server}\\Builds\\Tools\\getenv\\getenv.pl $$href{S60_Root} /F /R /Y";
+ system ($cmd)==0 or die "$cmd failed!\n";
+ foreach my $pl_src_path ( split (/ /, $iniH{Platform_Build}) ){
+ $cmd = "perl getenv.pl -start -k -path $pl_src_path -grace -verbose";
+ print "$cmd\n"; system ($cmd);
+ }
+ chdir $curr_dir or die "Couldn't chdir to $curr_dir: $!";
+};
+
+sub reconfigure {
+ my ($href) = @_;
+ my $four_part_name;
+ enter_sub($$href{SCM_Project});
+
+ $|=1;
+
+ my $pwd = `getPwd Synergy` or print "\n ERROR: Can not Execute getPwd Synergy";
+ my $addr = `ccm start -r build_mgr -q -nogui -m -pw $pwd`;
+ print "\n CCM ADDRESS: $addr \n ";
+ $ENV{CCM_ADDR} = $addr if $addr;
+ die "Logon failed!!!" if (!$addr and $$href{'Reconfigure'} =~ /(TRUE|YES)/i);
+ warn "Logon failed", return unless $addr;
+ #Print project info
+ my ($proj_name, $proj_version) = split "-", $$href{SCM_Project};
+ warn "Project not found", return unless $proj_version;
+ chomp(my $project_object = `ccm query -type project -name $proj_name -version $proj_version -u -f \"%objectname\"`);
+
+ system "ccm query -type project -name $proj_name -version $proj_version -u -f \"%objectname %release\"";
+ print "Reconfigure $$href{'Reconfigure'}\n";
+ if ($$href{'Reconfigure'} =~ /(TRUE|YES)/i) {
+ #Print the reconf time to the log
+ print "Reconf_time : ";
+ system "ccm attr -s reconf_time \"$project_object\"";
+ #Force Maintain workarea on
+ my $cmd = "ccm wa -wa -relative -recurse -p \"$project_object\" -path \"$iniH{SCM_WA_Path}\"";
+ print ("\n$cmd\n\n"); system ($cmd);
+ #First Reconcile
+ system "ccm reconc -ignore_uncontrolled -recurse -update_wa $project_object";
+ #Print rp
+ system "ccm rp /sh i $project_object";
+ #and tasks
+ #then reconfigure
+ system "ccm reconfigure /recurse /project $project_object";
+ #Print rp
+ system "ccm rp /sh i $project_object";
+ #Print the baseline
+ $cmd = "ccm rp -sh b \"$project_object\" -u";
+ print "$cmd\n";
+ system($cmd);
+ $four_part_name="$project_object";
+ print "Fout Part Project Name: $four_part_name\n";
+ print "\n\nConflicts Start\n";
+ $cmd = "ccm conflicts -recurse -nowrap -tasks $four_part_name";
+ print "$cmd\n";
+ system($cmd);
+ $cmd = "ccm conflicts -recurse -nowrap $four_part_name";
+ print "$cmd\n";
+ system($cmd);
+ print "\n\nConflicts End\n";
+ #and tasks
+ $cmd = "ccm rp -sh all_tasks \"$project_object\" -f \"%displayname %release %completion_date %owner %task_synopsis\"";
+ print "$cmd\n";
+ system ($cmd);
+
+ #Print the task according to Print_tasks_since specification in sdk.ini, or print yesterday anyway
+ my @tasks_since = split " ", $iniH{Print_tasks_since} || ("-1:0:0:0");
+ for (my $i=0; $i < @tasks_since -1; ++$i){
+ $cmd = "ccm query \"(is_task_in_rp_of('$project_object') or is_task_in_folder_of(is_folder_in_rp_of('$project_object'))) and completion_date >= time('$tasks_since[$i]') and completion_date < time('$tasks_since[$i+1]')\" -f \"%displayname %task_synopsis\"";
+ print "\n$cmd\n\nTasks completed between [$tasks_since[$i] - $tasks_since[$i+1]):\n";
+ system ($cmd);
+ print "\nEnd of recent tasks.\n";
+ }
+ $cmd = "ccm query \"(is_task_in_rp_of('$project_object') or is_task_in_folder_of(is_folder_in_rp_of('$project_object'))) and completion_date > time('$tasks_since[@tasks_since-1]')\" -f \"%displayname %task_synopsis\"";
+ print "\n$cmd\n\nRecently completed tasks (since $tasks_since[@tasks_since-1]):\n";
+ system ($cmd);
+ print "\nEnd of recent tasks.\n";
+
+ #Print the reconf time to the log
+ print "Reconf_time : ";
+ system "ccm attr -s reconf_time \"$project_object\"";
+ }
+ #Grab the work area path
+ chomp($wa_path = `ccm attr /s wa_path \"$project_object\"`);
+ $$href{SCM_Workarea} = $wa_path if ($wa_path and !$$href{SCM_Workarea});
+ print "\nSCM WorkArea: $$href{SCM_Workarea}\n";
+ system "ccm stop";
+ exit_sub();
+};
+
+sub fetch_IF_sheets
+{
+
+ my ($sheet_source_dir, $IFs_dir, $iniH) = @_;
+
+ #Check if repository directory is ready to be used, ie. it exists and is not empty, otherwise use document browser
+ ($sheet_source_dir, my $doc_browser_url) = check_sheet_repository( $sheet_source_dir, $href );
+
+ enter_sub($sheet_source_dir || $doc_browser_url);
+ my $curr_dir = cwd;
+
+
+
+ mkpath($IFs_dir) unless (-e $IFs_dir); #Make it
+ #All_If_sheets_S60.zip will be downloaded to this location and then copied to $IFs_dir.
+ mkpath($iniH{'Sheets_Local_Repo'}) unless (-d $iniH{'Sheets_Local_Repo'});
+
+
+ chdir $iniH{'Sheets_Local_Repo'} or print "\n ERROR: Can not chdir to $iniH{'Sheets_Local_Repo'}, $!";
+
+ unless ( $sheet_source_dir )
+ {#If source directory does not exists, get the stuff from server
+ print "\n Download IFs to $iniH{'Sheets_Local_Repo'}, URL: $doc_browser_url";
+ #Get password from registry, not from user!
+ open( PWD, "getPwd Sheets |") or die "Cannot open getPwd: $!";
+ chomp(my $pwd = <PWD>);
+ close( PWD );
+
+ $ua = LWP::UserAgent->new;
+ $ua->cookie_jar( {} );
+ my $uid = getlogin || getpwuid($<);
+ my $req = HTTP::Request->new(GET => "$doc_browser_url/All_If_sheets_S60.zip");
+ $req->authorization_basic($uid, $pwd);
+ $res = $ua->request($req);
+ print "\n WARNING: Fetching $doc_browser_url All_If_sheets_S60.zip FAILED!!!\n Local copy from $iniH{'Sheets_Local_Repo'} will be used." unless ($res->is_success);
+
+ if ($res->title =~ /Web Single Sign-On Login/)
+ {
+ $res = $ua->post($res->request->uri->as_string,
+ [
+ SMENC => 'Base64',
+ USER => $uid,
+ PASSWORD => $pwd,
+ submit => "Authenticate",
+ ]);
+ # We need to follow the redirect from the login page
+ $res = $ua->request($req, "All_If_sheets_S60.zip"); #The name for the output file needs to be specified somehow. Next line works also.
+
+ print "\n WARNING: *** WebSSO post failed: ,Local copy from $iniH{'Sheets_Local_Repo'} will be used. ", $res->status_line if $res->is_error;
+ print "\n WARNING: WebSSO Login failed (bad password?), Local copy from $iniH{'Sheets_Local_Repo'} will be used." if $res->as_string =~ /authenticate via WebSSO/;
+ }
+
+ my $req2 = HTTP::Request->new(GET => "$doc_browser_url/Other/tools_if_sheets_compare.zip");
+
+ $res2 = $ua->request($req2, "tools_if_sheets_compare.zip");
+ print "\n WARNING: Fetching tools_if_sheets_compare.zip failed, Local copy from $iniH{'Sheets_Local_Repo'} will be used." unless ($res2->is_success);
+ }
+ elsif(-d $sheet_source_dir)
+ {
+ my $cmd = "xcopy $sheet_source_dir\\*.zip /F /R /Y"; #Copy All_If_sheets_S60.zip and tools
+ system ($cmd)==0 or print ($cmd."\n");
+ $cmd = "xcopy $sheet_source_dir\\*.xls /F /R /Y"; #(First) sheet patches
+ system ($cmd)==0 or print ($cmd."\n");
+ }
+ else
+ {
+ print "Nothing to fetch!\n";
+ }
+
+ #Now copy from local $iniH{'Sheets_Local_Repo'} to $IFs_dir, So if IFSHEETS site is down, it will pick from local copy
+ chdir $IFs_dir or print "\n ERROR: Can not chdir to $iniH{'Sheets_Local_Repo'}, $!";
+
+ print "\n\n Copy IFs from $iniH{'Sheets_Local_Repo'} to $IFs_dir\n";
+ $cmd = "xcopy $iniH{'Sheets_Local_Repo'}\\*.zip /F /R /Y";
+ system ($cmd)==0 or print ($cmd."\n");
+
+ # Copy (own) patch sheets
+ print "\n\n Copy IFs patches from $iniH{ Sheet_Patches } to $IFs_dir\n";
+ $cmd = "xcopy $iniH{ Sheet_Patches }\\*.xls /F /R /Y";
+ system ($cmd)==0 or print ($cmd."\n");
+
+ chdir $curr_dir or die "Couldn't chdir to $curr_dir: $!";
+ exit_sub();
+}
+
+sub check_sheet_repository {
+ my ($zip_dir, $iniH) = @_;
+ my $doc_browser_url = "$iniH{Doc_Browser_Url}";
+
+ (-e $zip_dir) || return ("", $doc_browser_url);
+ opendir(my $DIR, $zip_dir) || do {print "can't opendir $zip_dir: $!\n"; return ("", $doc_browser_url)};
+ my @zips = grep { /\.(zip|xls)$/i } readdir($DIR);
+ closedir $DIR;
+
+ if (@zips){ #We found some zips or xls files -> use that directory
+ return ($zip_dir, "");
+ }
+ return ("", $doc_browser_url);
+}
+
+sub create_api_and_black_lists {
+
+# @_ = qw( 3.0 IFs sheets result \\Repository_area\\CPP_API \\Repository_area\\Common_Blacklist) unless @_;
+ my ($rel, $IFs_dir, $sheets_sub_dir, $result_dir, $cpp_api_dir, $black_list_dir, $org_dir) = @_;
+
+ enter_sub();
+ my $curr_dir = cwd;
+ return unless (chdir $IFs_dir);
+
+ my $all_zip = "All_If_sheets_S60.zip";
+ $all_zip = "All_If_sheets_S60_2.zip" unless (-e $all_zip); #Try the produced one if we are not supposed to use the server
+
+ my $cmd = "unzip -o $all_zip -d $sheets_sub_dir";
+ print ($cmd."\n"); system ($cmd);
+
+ $cmd = "xcopy *.xls $sheets_sub_dir\\ /F /R /Y";
+ system ($cmd)==0 or print ($cmd."\n");
+
+
+ $cmd = "unzip -o tools_if_sheets_compare.zip";
+ print ($cmd."\n"); system ($cmd);
+
+# print "result dir: $result_dir\n";
+ mkpath $result_dir unless (-e $result_dir);
+ $cmd = "perl gather_sdk_info.pl -p S60 -r $rel -d $sheets_sub_dir -t $result_dir";
+ print ($cmd."\n"); system ($cmd);
+
+ #Put them into one file if sheets were specified for S60, sdk_apis.txt
+ if ($iniH{S60_API} eq 'sheets'){
+ $cmd = "type $result_dir\\_sdk_*.txt > $result_dir\\sdk_apis.txt";
+ print ($cmd."\n"); system ($cmd);
+ } else { #or if metaxmls are used
+ $cmd = "type $result_dir\\_sdk_*symbian*.txt > $result_dir\\sdk_apis_symbian.txt";
+ print ($cmd."\n"); system ($cmd);
+ $cmd = "type $result_dir\\_sdk_*nokia*.txt > $result_dir\\sdk_apis_nokia.txt";
+ print ($cmd."\n"); system ($cmd);
+ }
+
+ $cmd = "move /y $result_dir\\_black_list.txt $result_dir\\black_list.txt"; #Renaming!
+ print ($cmd."\n"); system ($cmd);
+ $cmd = "xcopy $result_dir\\black_list.txt $black_list_dir\\ /F /R /Y";
+ system ($cmd)==0 or print ($cmd."\n");
+
+ $cmd = "zip -j All_If_sheets_S60_2.zip $sheets_sub_dir\\*.*";
+ print ($cmd."\n"); system ($cmd);
+ system ("del All_If_sheets_S60.zip") if (-e "All_If_sheets_S60.zip");
+
+
+ $cmd = "xcopy $result_dir\\sdk_*.txt $cpp_api_dir\\ /F /R /Y";
+ system ($cmd)==0 or print ($cmd."\n");
+
+ chdir $curr_dir or die "Couldn't chdir to $curr_dir: $!";
+ print "create_api_and_black_lists finished === ", scalar localtime(), "\n";
+}
+
+
+
+sub Notify_mail {
+
+ my ($msg) = @_;
+
+ print "Notifying $msg\n\n";
+ $mailcfg{smtp} = [qw(mgw.nokia.com)];
+ $mailcfg{from} = "$iniH{Mail_From}";
+
+ %mail = ( To => "$iniH{Mail_To}",
+ Cc => "$iniH{Mail_Cc}",
+ Subject => "$msg",
+ 'content-type' => 'text/html; charset="iso-8859-1"',
+ );
+
+ $mail{body} = <<END_OF_HEADER;
+<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
+ "http://www.w3.org/TR/html4/loose.dtd">
+<html>
+<head>
+ <title> $msg </title>
+<style type="text/css">
+ #container
+ {
+ padding: 1em;
+ width: 90%;
+ margin: 10px auto;
+ line-height: 110%;
+ }
+
+ body {
+ color: blue;
+ background: white;
+ margin-left: 1em;
+ margin-right: 1em;
+ font-family: arial, helvetica, sans-serif;
+ }
+ pre {
+ font-family: monospace;
+ }
+ .tasks {
+ border: none;
+ font-family: monospace;
+ font-size: 70%;
+ color: green;
+ }
+ .components {
+ border: none;
+ font-family: monospace;
+ font-size: 80%;
+ }
+ .errors {
+ border: none;
+ font-family: monospace;
+ font-size: 70%;
+ color: red;
+ }
+ .platform_patches {
+ border: none;
+ font-family: monospace;
+ font-size: 70%;
+ color: maroon;
+ }
+ .error_reports {
+ border: none;
+ font-family: monospace;
+ font-size: 70%;
+ color: magenta;
+ }
+ .navbar {
+ position: relative;
+ margin: 0;
+ padding: 1em;
+ font-size: 70%;
+ }
+ A:link, A:visited { text-decoration: none; }
+ A:hover { background: cyan; }
+</style>
+</head>
+END_OF_HEADER
+
+ $mail{body} .= <<END_OF_BODY;
+<div id="container">
+$body
+</div>
+</body>
+</html>
+END_OF_BODY
+
+# Create the mail report in build output directory
+ my $report_fn="$iniH{Output_Base}\\$iniH{Release}\\$iniH{Platform_Version_Major}.$iniH{Platform_Version_Minor}\\$iniH{Start_time}\\SDK_team_only\\Build_Log\\Build_Report.html";
+ open (BR, ">$report_fn") or print "\n ERROR: Can not create $report_fn";
+ print BR $mail{body};
+ close(BR);
+
+ #Send out mail.
+ sendmail(%mail) or die $Mail::Sendmail::error;
+
+ print "$msg. Log says:\n", $Mail::Sendmail::log;
+}
+#This Sub will take sub, meg as input and send a plain mail.
+
+sub Notify_plain_mail {
+
+ enter_sub();
+ my ($sub, $msg) = @_;
+
+ print "\n\n Notifying $sub\n\n";
+ $mailcfg{smtp} = [qw(mgw.nokia.com)];
+ $mailcfg{from} = "$iniH{Mail_From}";
+
+ %mail = ( To => "$iniH{Mail_To}",
+ Cc => "$iniH{Mail_Cc}",
+ Subject => "$sub",
+ Message=>"$msg"
+ );
+ print "\n Sending Mail to $iniH{Mail_To}, $iniH{Mail_Cc}";
+ sendmail(%mail) or die $Mail::Sendmail::error;
+ print "\n Mail Log: $Mail::Sendmail::log" if ($!);
+ print "\n Mail has been sent.";
+ exit_sub();
+}
+
+sub Notify_sms {
+ my ($sms_receivers, $body) = @_;
+ my $ua = LWP::UserAgent->new();
+ my $res = $ua->request(POST 'http://smsgw.nokia.com/smsgw/systemSender',
+ [ APPLICATION_ID => 'SDK_Creation',
+ gsmnum => $sms_receivers,
+ message=> $body,
+ ]);
+
+ print "$msg.\n";
+ # Check the outcome of the response
+ if ($res->is_success) {
+ print "Success: $res->content";
+ }
+ else {
+ print $res->status_line, "\n";
+ }
+}
+
+sub beatnik {
+
+ my ($source) = @_;
+
+ enter_sub($source);
+
+ #Delete the possible old directory
+
+ unless (-d $source ) { #Try to find the package in GRACE
+ #We need to extract the files from a big rosetta/ariane zip, may change in the future
+ my $pl_version = "$iniH{Platform_Version_Major}_$iniH{Platform_Version_Minor}";
+# my $zip_file = "$iniH{Grace_server}\\S60RnD\\S60_$pl_version\\S60_${pl_version}_$iniH{Platform_Year}$iniH{Platform_Week}_RnD_rosetta\\S60_${pl_version}_$iniH{Platform_Year}$iniH{Platform_Week}_RnD_rosetta_epoc32.zip";
+ my $zip_file = "$iniH{Grace_server}\\S60RnD\\S60_$pl_version\\S60_${pl_version}_$iniH{Platform_Year}$iniH{Platform_Week}_RnD_ariane\\S60_${pl_version}_$iniH{Platform_Year}$iniH{Platform_Week}_RnD_ariane_epoc32.zip";
+ my @dlls = qw(
+ BAEMmfAudioController.dll
+ BAEMmfCodec.dll
+ BAEMmfMidiController.dll
+ BAEMmfStructuredFormat.dll
+ mobilebae.dll
+ );
+ my @rsc_files = qw(
+ BAEMmfAudioController.rsc
+ BAEMmfCodec.rsc
+ BAEMmfMidiController.rsc
+ BAEMmfStructuredFormat.rsc
+ );
+ my
+ $beatnik_files = join " ", map {"epoc32\\release\\winscw\\udeb\\$_"} @dlls;
+ $beatnik_files .= " ";
+ $beatnik_files .= join " ", map {"epoc32\\release\\winscw\\udeb\\z\\resource\\plugins\\$_"} @rsc_files;
+ $beatnik_files .= " epoc32\\release\\winscw\\udeb\\z\\resource\\ensb.dat";
+
+ #Unzip the files onto repository
+ #NOTE: unzip can create only one directory level!
+ my $cmd = "unzip -o -C $zip_file $beatnik_files -d $source";
+ print "$cmd\n";
+ system("$cmd");
+ }
+
+ #Finally copy the files onto repository area
+}
+sub fetch_capas {
+
+ my ($source) = @_;
+
+ enter_sub($source);
+
+ #Delete the possible old repository_area directory
+
+ unless (-d $source ) { #Try to find the package in GRACE
+ #We need to extract the files from a big rosetta zip, may change in the future
+ $SOS = get_Symbian_OS_info();
+ die "No Symbian info found" unless ($SOS =~ /[\d_]/); #Should contain only digits or underscore
+
+ my ($sos, $symb_year_week) = split "_", $SOS;
+ my ($symb_major, $symb_minor) = split "", $sos;
+ my $capa_file_trunk = "GT_${symb_major}.${symb_minor}";
+ my $zip_file = "$iniH{Grace_server}\\SymbianOS\\__SymbianOS_${sos}\\SymbianOS_${sos}_$symb_year_week\\MCL_${sos}_${symb_year_week}_src_common_other_sources_part1.zip";
+
+ #Unzip the files onto repository
+ #NOTE: unzip can create only one directory level!
+ my $cmd = "unzip -o -j -C $zip_file src\\common\\developerlibrary\\doc_source\\reference\\capability\\$capa_file_trunk\\${capa_file_trunk}.xml.txt -d $source";
+ print "$cmd\n";
+ system("$cmd");
+
+ mkpath("$source\\epoc32\\data\\capabilities") unless (-e "$source\\epoc32\\data\\capabilities"); #Make the directory for move
+ $cmd = "move /y $source\\${capa_file_trunk}.xml.txt $source\\epoc32\\data\\capabilities\\${capa_file_trunk}.xml"; #Renaming!
+ print ($cmd."\n"); system ($cmd);
+
+ }
+
+ #Finally copy the files onto repository area. We create the proper directory (epoc32\data\capabilities) only here; perhaps should be in unzip already
+
+}
+__END__
+package SubHandlers;
+sub api {
+}
+sub header {
+ print $Remote_utils::OUT_PUT "@_[3]\n"; #The tag name (=header name) is under index 3
+}
+sub lib {
+ print $Remote_utils::OUT_PUT "@_[3]\n"; #The tag name (=lib name) is under index 3
+}
+sub api_ {
+}