1 @rem

     2 @rem Copyright (c) 2009 Nokia Corporation and/or its subsidiary(-ies).

     3 @rem All rights reserved.

     4 @rem This component and the accompanying materials are made available

     5 @rem under the terms of "Eclipse Public License v1.0"

     6 @rem which accompanies this distribution, and is available

     7 @rem at the URL "http://www.eclipse.org/legal/epl-v10.html".

     8 @rem

     9 @rem Initial Contributors:

    10 @rem Nokia Corporation - initial contribution.

    11 @rem

    12 @rem Contributors:

    13 @rem

    14 @rem Description: 

    15 @rem

    16 

    17 @goto invoke_perl

    18 

    19 #!perl

    20 #line 5

    21 

    22 ################################################################################################################

    23 # This Script will package livecomms ui compoenents to run in windows environment

    24 ################################################################################################################

    25 

    26 #	Packages needed

    27 use File::Find;			# File operations

    28 File::Spec::Win32;  # File operartions

    29 use Getopt::Long;		# parameter handling

    30 use Cwd;						# Directory operations

    31 Getopt::Long::Configure( "bundling_override","ignore_case_always" );

    32 

    33 #	Global variables

    34 my $orbit_bin_dir = "c:\\hb\\bin";

    35 my $qt_bin_dir = "C:\\Qt\\4.6.0-beta1\\bin";

    36 my $mingw_dll = "C:\\MinGW\\bin\\mingwm10.dll";

    37 my $livecomms_ui_exe = "$qt_bin_dir\\musui.exe";

    38 my $livecomms_ui_dll = "$qt_bin_dir\\livecommsui.dll";

    39 my $package_name = "livecommsui_win";

    40 my $launch_bat = "launch.bat";

    41 my $config_file = "lcconfig.xml";

    42 

    43   

    44 opendir(DIR,$orbit_bin_dir) or die "Can't find dir: $!\n";

    45 closedir(DIR);

    46 opendir(DIR,$qt_bin_dir) or die "Can't find dir: $!\n";

    47 closedir(DIR);

    48 die "$livecomms_ui_exe Doesn't Exist!" unless (-e $livecomms_ui_exe) ;

    49 die "$livecomms_ui_dll Doesn't Exist!" unless (-e $livecomms_ui_dll);

    50 die "$mingw_dll Doesn't Exist!" unless (-e $mingw_dll);

    51 opendir(DIR,$package_name) or system("mkdir $package_name");

    52 closedir(DIR);

    53 system("copy $orbit_bin_dir $package_name\\*");

    54 system("copy $qt_bin_dir $package_name\\*");

    55 system("copy $mingw_dll $package_name\\*");

    56 system("copy $launch_bat $package_name\\*");

    57 system("copy $config_file $package_name\\*");

    58 system("del $package_name\.zip") if( -e "$package_name\.zip" );

    59 system("zip $package_name $package_name\\*");

    60 system("rmdir /s/q $package_name");

    61 	

    62 __END__

    63 

    64 :invoke_perl

    65 @perl -x -S C:\SynergyWorkArea\Mercurial\mmsharinguis\mmsharing\mmshlcui\mmshlcuiengine\win32\package.bat %1 %2 %3 %4 %5 %6 %7 %8 %9