#
# 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_ {
}